#######################################################################################################################################
# #
# G E N E R A T I O N D E D E U X C H A M P S F R A C T A L S D E D E F O R M A T I O N : #
# #
# #
# Author of '$xiirv/.STRU.M2.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20081009092123). #
# #
#######################################################################################################################################
$Z SETParam Premiere 1
$Z # Introduit le 20081009154232... #
$Z SETParam Derniere 16
$Z # Introduit le 20081009154232... #
$Z setParam _____Niveau 2
$Z setParam _____MailleX 0.10
$Z setParam _____MailleY 0.10
$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 standard=FAUX
$c mx=$_____MailleX my=$_____MailleY
$c niveau=$_____Niveau
$c graine=1111
$c Z=%.16f
$c $formatI |
$c $xci/egaliseH.01$X
$c standard=FAUX
$c plat=VRAI shuffling=VRAI
$c $formatI |
$c $xci/lissage$X
$c standard=FAUX
$c passes=200
$c $formatI |
$c $xci/normalise.01$X
$c R=$_____imagesS$COORD_X.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation du champ fractal de deformation de 'X'. */
$c
$c printf("$xci/fract_3D.01$X
$c standard=FAUX
$c mx=$_____MailleX my=$_____MailleY
$c niveau=$_____Niveau
$c graine=3333
$c Z=%.16f
$c $formatI |
$c $xci/egaliseH.01$X
$c standard=FAUX
$c plat=VRAI shuffling=VRAI
$c $formatI |
$c $xci/lissage$X
$c standard=FAUX
$c passes=200
$c $formatI |
$c $xci/normalise.01$X
$c R=$_____imagesS$COORD_Y.%04d
$c $formatI\n"
$c ,Z
$c ,n
$c );
$c /* Generation du champ fractal de deformation de 'Y'. */
$c }
$c }