#######################################################################################################################################
# #
# 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.2.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081121210805). #
# #
#######################################################################################################################################
$Z SformatI
$Z XYmaxNe $NOIR $BLANC $NOIR $BLANC
$Z # Dimensionnement de l'album a generer en {X,Y}. #
$Z SETParam _____A0 0.0
$Z # Parametre introduit le 20081126094701... #
$Z SETParam _____AN 1.0
$Z # Parametre introduit le 20081126094701... #
$Z SETParam _____B0 1.0
$Z # Parametre introduit le 20081126094701... #
$Z SETParam _____BN 0.0
$Z # Parametre introduit le 20081126094701... #
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define A0 _____A0
$c #define AN _____AN
$c
$c #define B0 _____B0
$c #define BN _____BN
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double A=((AN*(n-N0))+(A0*(N-n)))/(N-N0);
$c double B=((BN*(n-N0))+(B0*(N-n)))/(N-N0);
$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