#######################################################################################################################################
# #
# C A L C U L D ' U N E N S E M B L E D E J U L I A 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/.JULK.72.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20181212090941). #
# #
#######################################################################################################################################
$Z SETParam _____DoublerSections 0
$Z # Parametre introduit le 20210427130821... #
$Z SETParam _____Iterations 32
$Z SETParam _____Rdecimales 16
$Z SETParam _____R -0.5815147625160462
$Z SETParam _____Idecimales 16
$Z SETParam _____I +0.6358885017421603
$Z SETParam _____Jdecimales 16
$Z SETParam _____OJ -0.7398
$Z SETParam _____EJ +0.7398
$Z SETParam _____Kdecimales 16
$Z SETParam _____K 0.0
$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.41$X ROTATION_OX`
$Z SETParam _____JRotationY `GetParam $xrc/julia.41$X ROTATION_OY`
$Z SETParam _____JRotationZ `GetParam $xrc/julia.41$X ROTATION_OZ`
$Z setenvParam _____JuliaPara "$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/julia.41$X
$c images=1
$c iterations=%d
$c r=%+.*f
$c i=%+.*f
$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 $_____JuliaPara
$c chiffres=0
$c R=$_____ImageT1.%04d
$c $formatI%c
$c >> $FFrAcTaL\n"
$c ,'\''
$c ,_____Iterations
$c ,_____Rdecimales,(double)_____R
$c ,_____Idecimales,(double)_____I
$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)