#######################################################################################################################################
# #
# 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 - O C T O N I O N S " : #
# #
# #
# Author of '$xiirc/.MANE.h5.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20141017154700). #
# #
#######################################################################################################################################
$Z SETParam _____DoublerSections 0
$Z # Parametre introduit le 20210427082158... #
$Z SETParam _____Jdecimales 6
$Z # Parametre introduit le 20141019095042... #
$Z SETParam _____OJ 1.088
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____EJ 0.000
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____Kdecimales 6
$Z # Parametre introduit le 20141026093244... #
$Z SETParam _____K 0.0
$Z # Parametre introduit le 20141026093244... #
$Z SETParam _____Exposant 1
$Z # Parametre introduit le 20170329074108... #
$Z SETParam _____XYdecimales 6
$Z # Parametre introduit le 20141019095303... #
$Z SETParam _____xbg -1.0
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____xhd +1.0
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____ybg -1.0
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____yhd +1.0
$Z # Parametre introduit le 20141019093308... #
$Z SETParam _____JRdecimales 16
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____JRotationX `GetParam $xrc/julia.81$X ROTATION_OX`
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____JRotationY `GetParam $xrc/julia.81$X ROTATION_OY`
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____JRotationZ `GetParam $xrc/julia.81$X ROTATION_OZ`
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____Pdecimales 0
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____Puissance 8
$Z # Parametre introduit le 20141128100142... #
$Z SETParam _____Tdecimales 16
$Z # Parametre introduit le 20170329074108... #
$Z SETParam _____Translation 0
$Z # Parametre introduit le 20170329074108... #
$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.81$X
$c images=1
$c iterations=20
$c J=%.*f
$c K=%.*f
$c S=0
$c T=0
$c U=0
$c V=0
$c exposant=%f
$c fdai=VRAI
$c xbg=%+.*f
$c xhd=%+.*f
$c ybg=%+.*f
$c yhd=%+.*f
$c ROTATION_OX=%+.*f
$c ROTATION_OY=%+.*f
$c ROTATION_OZ=%+.*f
$c pnt=VRAI
$c eRho=%.*f
$c pA1=%.*f tA1=%.*f
$c pA2=%.*f tA2=%.*f
$c pA3=%.*f tA3=%.*f
$c pA4=%.*f tA4=%.*f
$c pA5=%.*f tA5=%.*f
$c pA6=%.*f tA6=%.*f
$c pA7=%.*f tA7=%.*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,_____xhd
$c ,_____XYdecimales,_____ybg
$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 ,_____Pdecimales,(double)_____Puissance,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____Puissance,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____Puissance,_____Tdecimales,(double)_____Translation
$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)