#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S R E T R O G R A D A T I O N S : #
# #
# #
# Author of '$xiirk/.NCOS.61.1.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20191005120817). #
# #
#######################################################################################################################################
$Z SETParam _____Nimages 3030
$Z setParam _____PremiereImage $_____Nimages
$Z setParam _____Zoom 1.30
$Z setParam _____Rotation_OX 0
$Z setParam _____FacteurRayon `GetParam $xrr/N_corps.11$X Ar`
$Z setParam _____Reference 1
$Z # Point de vue heliocentrique par defaut ("Soleil=1")... #
$Z setParam _____Dct 3750
$Z setParam _____PasTempsPeriode 265
$Z setParam _____Ranterieurs 0.5
$Z setParam _____Canterieurs 0.8
$Z setParam _____Attenuation 0.997
$Z setParam _____Lineaire VRAI
$Z setParam _____Exposant 0.4
$Z setParam _____NAuCarre VRAI
$Z setParam _____TransX 0
$Z # Parametre introduit le 20191006112209... #
$Z setParam _____TransY 0
$Z # Parametre introduit le 20191006112209... #
$Z set NcorpsS=3
$Z $DELETE $xT/ROTATION$COORD_X
$Z $xci/valeurs_inte$X p=1 d=$_____Nimages vD=$_____Rotation_OX vA=$_____Rotation_OX cubique=VRAI \
$Z > $xT/ROTATION$COORD_X
$Z alias genere 'set Fl=\!:1 ; set Li=(\!:2*) ; \\
$Z $DELETE $Fl ; \\
$Z echo "$Li" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $Fl ; \\
$Z unset Fl Li'
$Z
$Z
$Z genere $xT/COORDONNEES$COORD_X +1e3 +501e+9 -102e+10
$Z genere $xT/COORDONNEES$COORD_Y +1e3 -519e+9 +307e+10
$Z genere $xT/COORDONNEES$COORD_Z +1e3 -235e+9 +216e+10
$Z genere $xT/VITESSES$COORD_X 0 +9.67e+3 -2.27e+3
$Z genere $xT/VITESSES$COORD_Y 0 +8.59e+3 -4.53e+3
$Z genere $xT/VITESSES$COORD_Z 0 +3.44e+3 -7.39e+2
$Z genere $xT/MASSES +2.0e30 +189.9e25 +6.6e21
$Z genere $xT/RAYONS +10e10 +20e10 +10e10
$Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_7
$Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_6 $GRIS_7
$Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_0 $GRIS_8
$Z # Tout ceci est inspire de 'v $xiirk/.NCOR.j1.1.11.$U' en ne conservant que trois corps, a #
$Z # savoir {Soleil,Jupiter,Pluton} et en modifiant la position intiale de Pluton : #
$Z # #
$Z # {-392e+10,+307e+10,+216e+10} --> {-102e+10,+307e+10,+216e+10} #
$Z # #
$Z # afin de la rapprocher a cete instant de Jupiter... #
$Z $xrr/N_corps.11$X corps=$NcorpsS \
$Z np=$_____Nimages \
$Z pV=$_____PremiereImage \
$Z LISTE_X=$xT/COORDONNEES$COORD_X \
$Z LISTE_Y=$xT/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xT/COORDONNEES$COORD_Z \
$Z LISTE_VX=$xT/VITESSES$COORD_X \
$Z LISTE_VY=$xT/VITESSES$COORD_Y \
$Z LISTE_VZ=$xT/VITESSES$COORD_Z \
$Z LISTE_MASSE=$xT/MASSES \
$Z LISTE_RAYON=$xT/RAYONS \
$Z Ar=$_____FacteurRayon \
$Z LISTE_ROUGE=$xT/COULEURS$ROUGE \
$Z LISTE_VERTE=$xT/COULEURS$VERTE \
$Z LISTE_BLEUE=$xT/COULEURS$BLEUE \
$Z centrer=FAUX reference=$_____Reference \
$Z extension=5 \
$Z dct=$_____Dct \
$Z nombre=$_____PasTempsPeriode \
$Z 2_a_2=FAUX source=1 \
$Z ensemble=VRAI \
$Z acceptable=0.5 \
$Z Ranterieurs=$_____Ranterieurs \
$Z Canterieurs=$_____Canterieurs \
$Z trainees=FAUX \
$Z attenuation_des_images=1.0 \
$Z attenuation_des_trainees=$_____Attenuation \
$Z mode_des_trainees=1 \
$Z renormaliser=FAUX \
$Z lineaire=$_____Lineaire exposant=$_____Exposant \
$Z Lz=1.0e13 \
$Z TRANSLATION_OX=$_____TransX \
$Z TRANSLATION_OY=$_____TransY \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$xT/ROTATION$COORD_X \
$Z couronne=1.5 \
$Z fond=FAUX \
$Z editer_extrema_hors=FAUX \
$Z N_AU_CARRE=$_____NAuCarre \
$Z chiffres=0 \
$Z R=$_____ImageR \
$Z $formatI
$Z
$Z $DELETE $xT/COORDONNEES$COORD_X
$Z $DELETE $xT/COORDONNEES$COORD_Y
$Z $DELETE $xT/COORDONNEES$COORD_Z
$Z $DELETE $xT/VITESSES$COORD_X
$Z $DELETE $xT/VITESSES$COORD_Y
$Z $DELETE $xT/VITESSES$COORD_Z
$Z $DELETE $xT/MASSES
$Z $DELETE $xT/RAYONS
$Z $DELETE $xT/COULEURS$ROUGE
$Z $DELETE $xT/COULEURS$VERTE
$Z $DELETE $xT/COULEURS$BLEUE
$Z
$Z $DELETE $xT/ROTATION$COORD_X