#######################################################################################################################################
# #
# P O I N T D E V U E N O N H E L I O C E N T R I Q U E D A N S L E S Y S T E M E S O L A I R E : #
# #
# #
# Author of '$xiirk/.NCOR.y1.1.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240529083130). #
# #
#######################################################################################################################################
$Z setParam _____Nimages 750
$Z setParam _____PremiereImage 1
$Z setParam _____Zoom 0.70
$Z setParam _____Rotation_OX `calcul 1.50+$pi`
$Z # La translation de '$pi' par defaut est destinee a voir tourner le systeme solaire dans #
$Z # le sens trigonometrique... #
$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 15000
$Z setParam _____PasTempsPeriode `(calcul 250*(2048/$_____Nimages)) | $SE -e 's/\..*$//'`
$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 set NcorpsS=10
$Z $DELETE $xTV/ROTATION$COORD_X
$Z $xci/valeurs_inte$X p=1 d=$_____Nimages vD=$_____Rotation_OX vA=$_____Rotation_OX cubique=VRAI \
$Z > $xTV/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 $xTV/COORDONNEES$COORD_X \
$Z +1e3 +514e+8 +213e+8 \
$Z -203e+8 \
$Z -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10
$Z genere $xTV/COORDONNEES$COORD_Y \
$Z +1e3 +682e+7 +967e+8 \
$Z +133e+9 \
$Z +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10
$Z genere $xTV/COORDONNEES$COORD_Z \
$Z +1e3 -163e+7 +422e+8 \
$Z +579e+8 \
$Z +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10
$Z genere $xTV/VITESSES$COORD_X \
$Z 0 -1.46e+4 -3.44e+4 \
$Z -2.99e+4 \
$Z -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3
$Z genere $xTV/VITESSES$COORD_Y \
$Z 0 +4.43e+4 +5.39e+3 \
$Z -3.88e+3 \
$Z -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3
$Z genere $xTV/VITESSES$COORD_Z \
$Z 0 +2.52e+4 +4.60e+3 \
$Z -1.68e+3 \
$Z -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2
$Z genere $xTV/MASSES \
$Z +2.0e30 +3.3e23 +48.7e23 \
$Z +60.5e23 \
$Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21
$Z genere $xTV/RAYONS \
$Z +50e10 +30e10 +30e10 \
$Z +30e10 \
$Z +30e10 +40e10 +40e10 +35e10 +35e10 +30e10
$Z genere $xTV/VISIBILITE \
$Z $EXIST $NEXIST $NEXIST \
$Z $EXIST \
$Z $EXIST $NEXIST $NEXIST $NEXIST $NEXIST $NEXIST
$Z genere $xTV/COULEURS$ROUGE \
$Z $GRIS_8 $GRIS_8 $GRIS_8 \
$Z $GRIS_0 \
$Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7
$Z genere $xTV/COULEURS$VERTE \
$Z $GRIS_8 $GRIS_6 $GRIS_4 \
$Z $GRIS_6 \
$Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7
$Z genere $xTV/COULEURS$BLEUE \
$Z $GRIS_0 $GRIS_2 $GRIS_0 \
$Z $GRIS_8 \
$Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8
$Z $xrr/N_corps.11$X corps=$NcorpsS \
$Z np=$_____Nimages \
$Z pV=$_____PremiereImage \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \
$Z LISTE_VX=$xTV/VITESSES$COORD_X \
$Z LISTE_VY=$xTV/VITESSES$COORD_Y \
$Z LISTE_VZ=$xTV/VITESSES$COORD_Z \
$Z LISTE_MASSE=$xTV/MASSES \
$Z LISTE_RAYON=$xTV/RAYONS \
$Z LISTE_VISIBILITE=$xTV/VISIBILITE \
$Z Ar=$_____FacteurRayon \
$Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \
$Z LISTE_VERTE=$xTV/COULEURS$VERTE \
$Z LISTE_BLEUE=$xTV/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=0 \
$Z TRANSLATION_OY=0 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$xTV/ROTATION$COORD_X \
$Z fond=FAUX \
$Z editer_extrema_hors=FAUX \
$Z N_AU_CARRE=$_____NAuCarre \
$Z R=$_____images. \
$Z $formatI
$Z
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/VITESSES$COORD_X
$Z $DELETE $xTV/VITESSES$COORD_Y
$Z $DELETE $xTV/VITESSES$COORD_Z
$Z $DELETE $xTV/MASSES
$Z $DELETE $xTV/RAYONS
$Z $DELETE $xTV/VISIBILITE
$Z $DELETE $xTV/COULEURS$ROUGE
$Z $DELETE $xTV/COULEURS$VERTE
$Z $DELETE $xTV/COULEURS$BLEUE
$Z
$Z $DELETE $xTV/ROTATION$COORD_X