```/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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...                                                                 */

}
}
```