#######################################################################################################################################
# #
# C A L C U L D ' U N E N S E M B L E D E M A N D E L B R O T D A N S L E S Q U A T E R N I O N S #
# A V E C L ' A R I T H M E T I Q U E " F O L K L O R I Q U E " D A N S L E S C O M P L E X E S : #
# #
# #
# Author of '$xiirc/.MANF.41.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20191212101608). #
# #
#######################################################################################################################################
$Z SETParam _____DoublerSections 0
$Z # Parametre introduit le 20210427132005... #
$Z SETParam _____Iterations 32
$Z SETParam _____Jdecimales 16
$Z SETParam _____OJ -1.0
$Z SETParam _____EJ +1.0
$Z SETParam _____Kdecimales 16
$Z SETParam _____K 0.0
$Z SETParam _____Exposant 2
$Z SETParam _____XYdecimales 6
$Z SETParam _____xbg `GetParam $xrc/mandel.41$X xbg`
$Z SETParam _____ybg `GetParam $xrc/mandel.41$X ybg`
$Z SETParam _____xhd `GetParam $xrc/mandel.41$X xhd`
$Z SETParam _____yhd `GetParam $xrc/mandel.41$X yhd`
$Z SETParam _____JRdecimales 16
$Z SETParam _____JRotationX `GetParam $xrc/mandel.41$X ROTATION_OX`
$Z SETParam _____JRotationY `GetParam $xrc/mandel.41$X ROTATION_OY`
$Z SETParam _____JRotationZ `GetParam $xrc/mandel.41$X ROTATION_OZ`
$Z setenvParam _____MandelPara "$K_VIDE"
$Z @ Nimages = $cDerniere - $cPremiere
$Z @ Nimages = $Nimages + 1
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N (cPremiere+((cDerniere-cPremiere+1)/(_____DoublerSections+1))-1)
$c
$c #define OJ _____OJ
$c #define EJ _____EJ
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0);
$c
$c printf("echo %c$xrc/mandel.41$X
$c images=1
$c iterations=%d
$c COMPOSANTE_J=%+.*f
$c K=%+.*f
$c exposant=%d
$c fenetres_depart_arrivee_identiques=VRAI
$c xbg=%+.*f ybg=%+.*f xhd=%+.*f yhd=%+.*f
$c arithmetique_folklorique_C=VRAI
$c visualiser_appartenance=VRAI
$c ROTATION_OX=%+.*f
$c ROTATION_OY=%+.*f
$c ROTATION_OZ=%+.*f
$c $_____MandelPara
$c chiffres=0
$c R=$_____ImageT1.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,_____Iterations
$c ,_____Jdecimales,(double)J
$c ,_____Kdecimales,(double)_____K
$c ,_____Exposant
$c ,_____XYdecimales,(double)_____xbg
$c ,_____XYdecimales,(double)_____ybg
$c ,_____XYdecimales,(double)_____xhd
$c ,_____XYdecimales,(double)_____yhd
$c ,_____JRdecimales,(double)_____JRotationX
$c ,_____JRdecimales,(double)_____JRotationY
$c ,_____JRdecimales,(double)_____JRotationZ
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL
$Z _____include(_____xiirc/.MANF.DC.5._____U)