#######################################################################################################################################
# #
# 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 #
# E N P A S S A N T P A R L E C O S I N U S H Y P E R B O L I Q U E #
# 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/.MANF.61.5.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20210215112316). #
# #
#######################################################################################################################################
$Z SETParam _____Jdecimales 6
$Z SETParam _____OJ -1.630
$Z SETParam _____EJ 0.000
$Z SETParam _____Kdecimales 6
$Z SETParam _____K 0.0
$Z SETParam _____XYdecimales 6
$Z SETParam _____xbg -5.0
$Z SETParam _____xhd +3.0
$Z SETParam _____ybg -4.0
$Z SETParam _____yhd +4.0
$Z SETParam _____JRdecimales 16
$Z SETParam _____JRotationX `GetParam $xrc/trih_ch.81$X ROTATION_OX`
$Z SETParam _____JRotationY `GetParam $xrc/trih_ch.81$X ROTATION_OY`
$Z SETParam _____JRotationZ `GetParam $xrc/trih_ch.81$X ROTATION_OZ`
$Z SETParam _____Pdecimales 0
$Z SETParam _____PuissanceR 1
$Z SETParam _____PuissanceA1 2
$Z SETParam _____PuissanceA2 1
$Z SETParam _____Tdecimales 16
$Z SETParam _____Translation 0
$Z SETParam _____Seuil1 1024
$Z SETParam _____Seuil2 80
$Z SETParam _____Iterations 20
$Z setenvParam _____ParaCh "$K_VIDE"
$Z # Parametre introduit le 20210219101031... #
$Z FilSTmpB FFrAcTaL
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$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/trih_ch.81$X
$c images=1
$c developpement_serie=VRAI
$c indice_maximal_serie_trigonometrique=2
$c changer_zero=VRAI
$c seuil=%d
$c iterations=%d
$c J=%.*f
$c K=%.*f
$c S=0
$c T=0
$c U=0
$c V=0
$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=FAUX
$c $_____ParaCh
$c chiffres=0
$c $formatI |
$c $xci/seuil$X
$c seuil=%d
$c R=$_____ImageT2.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,_____Seuil1
$c ,_____Iterations
$c ,_____Jdecimales,J
$c ,_____Kdecimales,_____K
$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)_____PuissanceR
$c ,_____Pdecimales,(double)_____PuissanceA1,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Pdecimales,(double)_____PuissanceA2,_____Tdecimales,(double)_____Translation
$c ,_____Seuil2
$c ,n
$c ,'\''
$c );
$c }
$c }
$Z execPar_V $FFrAcTaL
$Z FilSTmpE FFrAcTaL