#######################################################################################################################################
# #
# G E N E R A T I O N E T S E U I L L A G E #
# D ' U N E S T R U C T U R E F R A C T A L E T R I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirf/.FRB3.y4.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20170725092708). #
# #
#######################################################################################################################################
$Z set D_____ImageT2=`GetPath $_____ImageT2`
$Z Grelatif $D_____ImageT2 $xp
$Z IfBasic ($nomR != $D_____ImageT2) ThenBasic
$Z # Test introduit le 20190922092222 : lorsque '$_____ImageT2' est dans '$xp', on fait #
$Z # l'hypothese que la sequence fractale '$_____ImageT2' existe deja... #
$Z ElseBasic
$Z # Cas ou '$_____ImageT2' n'est pas dans '$xp' : il faut calculer la sequence fractale #
$Z # '$_____ImageT2'... #
$Z SETParam _____OZ 0.0
$Z # Introduit le 20170725133443. #
$Z SETParam _____EZ 1.0
$Z # Introduit le 20170725133443. #
$Z SETParam _____Iterations 12
$Z # Introduit le 20170725133443. #
$Z SETParam _____MX 0.2
$Z # Introduit le 20170725133443. #
$Z SETParam _____MY 0.2
$Z # Introduit le 20170725133443. #
$Z SETParam _____MZ 0.2
$Z # Introduit le 20170725133443. #
$Z SETParam _____Gris_Inf `calcul $GRIS_4-5`
$Z # Introduit le 20170725133443. #
$Z SETParam _____Gris_Sup `calcul $GRIS_4+5`
$Z # Introduit le 20170725133443. #
$Z setenv ItEr $_____Iterations
$Z setenv MaIlLe_X $_____MX
$Z setenv MaIlLe_Y $_____MY
$Z setenv MaIlLe_Z $_____MZ
$Z setenv GrIs_InF $_____Gris_Inf
$Z setenv GrIs_SuP $_____Gris_Sup
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c #define OZ _____OZ
$c #define EZ _____EZ
$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("echo %c$xci/fract_3D.01$X
$c iterations=$ItEr
$c mx=$MaIlLe_X my=$MaIlLe_Y mz=$MaIlLe_Z
$c Z=%.16f
$c $formatI |
$c $xci/passe_bande$X
$c inf=$GrIs_InF
$c sup=$GrIs_SuP
$c fnint=VRAI
$c nint=$BLANC
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,Z
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL
$Z EndifBasic
$Z unset nomR
$Z unset D_____ImageT2