#######################################################################################################################################
# #
# I T E R A T I O N D ' U N P O L Y N O M E D U P R E M I E R D E G R E : #
# #
# #
# Author of '$xiirc/.POLY.M2.3.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20150306111119). #
# #
#######################################################################################################################################
$Z SETParam _____POJ -1.085
$Z SETParam _____PEJ +1.120
$Z SETParam _____PAR -0.5815147625160462
$Z SETParam _____PAI +0.6358885017421603
$Z SETParam _____PRotationX +0.7
$Z SETParam _____PRotationY 0.0
$Z SETParam _____PRotationZ 0.0
$Z SETParam _____PIterations 8
$Z SETParam _____PJulia 1.0
$Z SETParam _____PMandelbrot 0.0
$c #include <stdio.h>
$c
$c #define N0 cPremiere
$c #define N cDerniere
$c
$c #define OJ _____POJ
$c #define EJ _____PEJ
$c
$c #define OK 0.0
$c #define EK 0.0
$c
$c #define OS 0.0
$c #define ES 0.0
$c
$c #define OT 0.0
$c #define ET 0.0
$c
$c #define OU 0.0
$c #define EU 0.0
$c
$c #define OV 0.0
$c #define EV 0.0
$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 double K=((EK*(n-N0))+(OK*(N-n)))/(N-N0);
$c double S=((ES*(n-N0))+(OS*(N-n)))/(N-N0);
$c double T=((ET*(n-N0))+(OT*(N-n)))/(N-N0);
$c double U=((EU*(n-N0))+(OU*(N-n)))/(N-N0);
$c double V=((EV*(n-N0))+(OV*(N-n)))/(N-N0);
$c
$c printf("echo %c$xrc/polynome.81$X
$c images=1
$c A=$_____ImageP.
$c premiereA=0
$c Zmin=0 Zmax=1
$c ValiderAxes=FAUX
$c xbg=-1 ybg=-1
$c xhd=+1 yhd=+1
$c r=%.16f i=%.16f j=0 k=0
$c s=0 t=0 u=0 v=0
$c ROTATION_OX=%f
$c ROTATION_OY=%f
$c ROTATION_OZ=%f
$c PJulia=%f
$c PMandelbrot=%f
$c fdai=VRAI
$c pnt=VRAI
$c AeRho=$_____ImageF.%04d
$c ApA1=$_____ImageF.%04d
$c ApA2=$_____ImageF.%04d
$c ApA3=$_____ImageF.%04d
$c ApA4=$_____ImageF.%04d
$c ApA5=$_____ImageF.%04d
$c ApA6=$_____ImageF.%04d
$c ApA7=$_____ImageF.%04d
$c J=%+f
$c K=%+f
$c S=%+f
$c T=%+f
$c U=%+f
$c V=%+f
$c appartenance=VRAI
$c iterations=%d
$c R=$_____ImageT1.%04d
$c chiffresR=0
$c $formatI%c
$c >> $FPoLyNoMe\n"
$c ,'\''
$c ,_____PAR,_____PAI
$c ,_____PRotationX,_____PRotationY,_____PRotationZ
$c ,_____PJulia,_____PMandelbrot
$c ,n
$c ,n
$c ,n
$c ,n
$c ,n
$c ,n
$c ,n
$c ,n
$c ,J
$c ,K
$c ,S
$c ,T
$c ,U
$c ,V
$c ,_____PIterations
$c ,n
$c ,'\''
$c );
$c }
$c }