/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L ' A P P L I C A T I O N   L O G I S T I Q U E                                                          */
/*        E N   R E M P L A C A N T   L E   P R O D U I T   P A R   A U T R E   C H O S E  :                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/logistik.M1$c' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20160503142045).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"

#define   PRECIS    double                                                                                                              \
                                        /* Definition de la precision ('float' ou 'double') des calculs.                             */

#define   pas       10                                                                                                                  \
                                        /* Pas d'edition des valeurs (dx1,dx2,dx3,dx4,dx5).                                          */
#define   N         10                                                                                                                  \
                                        /* Nombre d'instants a editer (le nombre d'iterations est donc 'N*pas').                     */
#define   R         1.1                                                                                                                 \
                                        /* Taux de croissance.                                                                       */
#define   X0        0.4                                                                                                                 \
                                        /* Conditions initiales.                                                                     */

#define   F1(a,b)                                                                                                                       \
                    ((a)*(b))
#define   F2(a,b)                                                                                                                       \
                    MIN2(a,b)
#define   F3(a,b)                                                                                                                       \
                    MAX2(a,b)
#define   F(a,b)                                                                                                                        \
                    F2(a,b)
                                        /* Fonction a utiliser...                                                                    */

main()
     {
     PRECIS    r=R;
     PRECIS    dx1=X0;
     int       n;

     for  (n=0 ; n<(N*pas) ; n++)
          {
          if   ((n%pas) == 0)
               {
               printf("\n iteration(%04d) = %9.6f",n,dx1);
               }
          else
               {
               }

          dx1 = r*F(dx1,1-dx1);
                                        /* Application logistique...                                                                 */

          }
     }



Copyright © Jean-François Colonna, 2021-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2021-2021.