#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E T R I M E N S I O N N E L L E P S E U D O - F R A C T A L E #
# P A R L A M E T H O D E D E S P R O J E C T O R S : #
# #
# #
# Author of '$xiirs/.CAYA.G1.0129.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20110719104127). #
# #
#######################################################################################################################################
$Z setParam _____Alpha 0.8
$Z setParam _____Beta 0.2
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z amplificateur=1 translateur=0 \
$Z A=1 B=0 C=0 \
$Z TRANSLATION_OX=0 TRANSLATION_OY=0 \
$Z R=$xTV/CHAMP_X \
$Z $formatI
$Z $xci/lineaire$X \
$Z standard=FAUX \
$Z amplificateur=1 translateur=0 \
$Z A=0 B=1 C=0 \
$Z TRANSLATION_OX=0 TRANSLATION_OY=0 \
$Z R=$xTV/CHAMP_Y \
$Z $formatI
$Z if ($?Premiere == $NEXIST) then
$Z # Test introduit le 20201114140727... #
$Z SET Premiere=1
$Z else
$Z endif
$Z if ($?Derniere == $NEXIST) then
$Z # Test introduit le 20201114140727... #
$Z SET Derniere=16
$Z else
$Z endif
$Z setenv _____imagesF3D $xTV/FRACTAL_3D
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c #define NOMBRE (Derniere-Premiere+1)
$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("echo %c$xci/fract_3D.01$X
$c mx=0.25 my=0.25 mz=0.25
$c OX=0.0 EX=1.0
$c OY=0.0 EY=1.0
$c OZ=0.0 EZ=1.0
$c Z=%.16f
$c profondeur=1
$c standard=FAUX
$c $formatI |
$c $xci/normalise.01$X
$c R=$_____imagesF3D.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,Z
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c #define NOMBRE (Derniere-Premiere+1)
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=$_____Alpha
$c A1=$xTV/CHAMP_X
$c beta=$_____Beta
$c A2=$_____imagesF3D.%04d
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_X.%04d
$c $formatI\n"
$c ,n,n
$c );
$c printf("$xci/interpole.01$X
$c standard=FAUX
$c alpha=$_____Alpha
$c A1=$xTV/CHAMP_Y
$c beta=$_____Beta
$c A2=$_____imagesF3D.%04d
$c $formatI |
$c $xci/normalise.01$X
$c $formatI |
$c $xci/scale$X
$c standard=FAUX
$c a=2 b=-1
$c R=$xTV/CHAMP$COORD_Y.%04d
$c $formatI\n"
$c ,n,n
$c );
$c printf("$xci/gauss$X
$c standard=FAUX
$c amplificateur=%f
$c translateur=%f
$c R=$xTV/CHAMP$COORD_Z.%04d
$c $formatI\n"
$c ,(n <= N/2) ? -0.2 : +0.2
$c ,(((-1.0)*((double)(N-n)))+((+1.0)*((double)(n-N0))))/((double)(N-N0))
$c ,n
$c );
$c }
$c }