#######################################################################################################################################
# #
# C A L C U L D E L ' 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 " P S E U D O - Q U A T E R N I O N S " : #
# #
# #
# Author of '$xiirc/.MANE.r2.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20170330085623). #
# #
#######################################################################################################################################
$Z SETParam _____DoublerSections 0
$Z # Parametre introduit le 20210427131816... #
$Z SETParam _____Jdecimales 6
$Z SETParam _____OJ 1.088
$Z SETParam _____EJ 0.000
$Z SETParam _____Kdecimales 6
$Z SETParam _____K 0.1
$Z SETParam _____Exposant 2
$Z SETParam _____XYdecimales 6
$Z SETParam _____xbg -1.0
$Z SETParam _____ybg -1.0
$Z SETParam _____xhd +1.0
$Z SETParam _____yhd +1.0
$Z SETParam _____JRdecimales 16
$Z SETParam _____JRotationX `GetParam $xrc/julia.81$X ROTATION_OX`
$Z SETParam _____JRotationY `GetParam $xrc/julia.81$X ROTATION_OY`
$Z SETParam _____JRotationZ `GetParam $xrc/julia.81$X ROTATION_OZ`
$Z SETParam _____Pdecimales 0
$Z SETParam _____Puissance 2
$Z SETParam _____Tdecimales 16
$Z SETParam _____Translation $pi
$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=10
$c J=%.*f
$c K=%.*f
$c exposant=%f
$c fdai=VRAI
$c xbg=%+.*f
$c ybg=%+.*f
$c xhd=%+.*f
$c yhd=%+.*f
$c ROTATION_OX=%+.*f
$c ROTATION_OY=%+.*f
$c ROTATION_OZ=%+.*f
$c pnt=VRAI
$c eRho=%.*f
$c pTheta=%.*f tTheta=%.*f
$c pPhi=%.*f tPhi=%.*f
$c visualiser_appartenance=VRAI
$c chiffres=0
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,_____Jdecimales,J
$c ,_____Kdecimales,_____K
$c ,(double)_____Exposant
$c ,_____XYdecimales,_____xbg
$c ,_____XYdecimales,_____ybg
$c ,_____XYdecimales,_____xhd
$c ,_____XYdecimales,_____yhd
$c ,_____JRdecimales,(double)_____JRotationX
$c ,_____JRdecimales,(double)_____JRotationY
$c ,_____JRdecimales,(double)_____JRotationZ
$c ,_____Pdecimales,(double)_____Puissance
$c ,_____Pdecimales,(double)_____Puissance,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____Puissance,_____Tdecimales,(double)_____Translation
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL
$Z _____include(_____xiirc/.MANF.DC.5._____U)