#######################################################################################################################################
# #
# 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 F R A C T A L : #
# #
# #
# Author of '$xiird/.AC1C.1.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081121101227). #
# #
#######################################################################################################################################
$Z SformatI
$Z XYmaxNe $NOIR $BLANC $NOIR $BLANC
$Z # Dimensionnement de l'album a generer en {X,Y}. #
$Z setParam _____Graine 1789
$Z setParam _____Niveau 1
$Z setParam _____MailleX 0.50
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____MailleY 0.50
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____MailleZ 0.50
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____OX 0
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____EX 1
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____OY 0
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____EY 1
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____OZ 0
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$Z setParam _____EZ 1
$Z # Valeur empruntee a 'v $xiirf/FRA3.G3.0029' via 'v _____xivPdf_07_2/$Fnota 021145_021272'. #
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define OZ 0.0
$c #define EZ 1.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double Z=((EZ*(n-N0))+(OZ*(N-n)))/(N-N0);
$c
$c printf("$xci/fract_3D.01$X
$c graine=$_____Graine
$c standard=VRAI
$c mX=$_____MailleX OX=$_____OX EX=$_____EX
$c mY=$_____MailleY OY=$_____OY EY=$_____EY
$c mZ=$_____MailleZ OZ=$_____OZ EZ=$_____EZ
$c valider=FAUX
$c niveau=$_____Niveau
$c Z=%.16f
$c $formatI |
$c $xci/egaliseH.01$X
$c standard=VRAI
$c plat=VRAI shuffling=VRAI
$c R=$_____FAutoCellB.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation de l'automate cellulaire quasi-continu... */
$c /* */
$c /* Le 20081121112857 fut introduit "valider=FAUX" afin de ne pas valider la divisibilite */
$c /* des espaces {X,Y,Z} par leur maille respective... */
$c }
$c }
$Z RformatI