#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A U T O M A T E   C E L L U L A I R E   M O N O D I M E N S I O N N E L                     #
#         Q U A S I - C O N T I N U   E T   L I N E A I R E  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.AC1C.6.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20081126164651).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SformatI
$Z                  XYmaxNe   $NOIR $BLANC $NOIR $BLANC
$Z                                      # Dimensionnement de l'album a generer en {X,Y}.                                              #

$Z        SETParam            _____A0                       0.0

$Z        SETParam            _____A2                       +1.0

$Z        SETParam            _____AN                       0.0

$Z        SETParam            _____B0                       +1.0

$Z        SETParam            _____B2                       0.0

$Z        SETParam            _____BN                       -1.0

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N2        ((Premiere+Derniere)/2)
$c                  #define   NN        Derniere
$c
$c                  #define   A0        _____A0
$c                  #define   A2        _____A2
$c                  #define   AN        _____AN
$c
$c                  #define   B0        _____B0
$c                  #define   B2        _____B2
$c                  #define   BN        _____BN
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=NN ; n++)
$c                                      {
$c                                      double    A=(n<N2) ? (((A2*(n-N0))+(A0*(N2-n)))/(N2-N0)) : (((AN*(n-N2))+(A2*(NN-n)))/(NN-N2));
$c                                      double    B=(n<N2) ? (((B2*(n-N0))+(B0*(N2-n)))/(N2-N0)) : (((BN*(n-N2))+(B2*(NN-n)))/(NN-N2));
$c
$c                                      printf("$xci/lineaire$X
$c                                                                  A=%f B=%f C=0
$c                                                                  standard=FAUX
$c                                                                                                  $formatI                      |
$c                                              $xci/acces$X
$c                                                                  standard=FAUX zero=FAUX
$c                                                                  R=$_____FAutoCellB.%04d
$c                                                                                                  $formatI\n"
$c                                            ,A,B
$c                                            ,n
$c                                             );
$c                                      /* Generation de l'automate cellulaire lineaire...                                           */
$c                                      }
$c                            }

$Z                  RformatI