#######################################################################################################################################
# #
# P O I N T D E V U E 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 #
# A L ' E C H E L L E : #
# #
# #
# Author of '$xiirk/.NCOR.x01.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20201226172920). #
# #
#######################################################################################################################################
$Z setParam _____Nimages 7500
$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 _____VraisRayons $EXIST
$Z # Parametre introduit le 20201228090159... #
$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 1
$Z setParam _____NAuCarre VRAI
$Z set NcorpsS=10
$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 \
$Z +1e3 +514e+8 +213e+8 \
$Z -203e+8 \
$Z -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10
$Z genere $xT/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 $xT/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 $xT/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 $xT/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 $xT/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 $xT/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 if ($_____VraisRayons == $EXIST) then
$Z genere $xT/RAYONS \
$Z +695.0e6 +2.44e6 +6.0515e6 \
$Z +6.378e6 \
$Z +3.397e6 +71.492e6 +60.268e6 +25.559e6 +24.766e6 +1.137e6
$Z # Il s'agit bien des rayons et non pas des diametres tels qu'ils sont definis dans #
$Z # 'v N_corps.11$K Debut_listMN_SYSTEME_SOLAIRE_11'... #
$Z else
$Z genere $xT/RAYONS \
$Z +5e10 +5e10 +5e10 \
$Z +5e10 \
$Z +5e10 +8e10 +8e10 +7e10 +7e10 +4e10
$Z endif
$Z genere $xT/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 $xT/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 $xT/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=$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=0 \
$Z TRANSLATION_OY=0 \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____Rotation_OX \
$Z fond=FAUX \
$Z editer_extrema_hors=FAUX \
$Z N_AU_CARRE=$_____NAuCarre \
$Z R=$_____images. \
$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