#######################################################################################################################################
# #
# G E S T I O N D U C E N T R E D E G R A V I T E D U P R O B L E M E D E S N - C O R P S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.NCOR.1.23.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# L I S T E D E S C O R P S : #
# #
# #
# Mercure Venus Terre Mars Jupiter Saturne Uranus Neptune Pluton CentreGravite #
# #
#######################################################################################################################################
$Z genere $xTV/RAYONS \
$Z +30e-3 +30e-3 +30e-3 +30e-3 +40e-3 +40e-3 +35e-3 +35e-3 +30e-3 +25e-3
$Z
$Z genere $xTV/COULEURS$ROUGE \
$Z $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 $GRIS_0
$Z
$Z genere $xTV/COULEURS$VERTE \
$Z $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 $GRIS_8
$Z
$Z genere $xTV/COULEURS$BLEUE \
$Z $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0
#######################################################################################################################################
# #
# V I S U A L I S A T I O N D U C E N T R E D E G R A V I T E D U P R O B L E M E D E S N - C O R P S : #
# #
#######################################################################################################################################
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$DELETE $xTV/COORDONNEES\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_X\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n");
$c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n");
$c
$c printf("$CA $xTV/LISTE_POINTS |
$c $GRE 'periode=%d ' |
$c $GRE -v %c point=$_____Reference %c
$c > $xTV/COORDONNEES\n"
$c ,n,'"','"'
$c );
$c
$c printf("set Particules=`$WC $xTV/COORDONNEES`\n");
$c printf("set Particules=$Particules[$WC1]\n");
$c
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.*[ (,]X[G]*=//%c
$c -e %cs/[,) ].*//%c
$c > $xTV/COORDONNEES$COORD_X\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.*[ (,]Y[G]*=//%c
$c -e %cs/[,) ].*//%c
$c > $xTV/COORDONNEES$COORD_Y\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.*[ (,]Z[G]*=//%c
$c -e %cs/[,) ].*//%c
$c > $xTV/COORDONNEES$COORD_Z\n"
$c ,'"','"','"','"'
$c );
$c
$c printf("$xrv/particule.10$X
$c np=1
$c iterations=$Particules
$c isoles=VRAI
$c LISTE_X=$xTV/COORDONNEES$COORD_X
$c LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c LISTE_VERTE=$xTV/COULEURS$VERTE
$c LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c Ar=0.4
$c LISTE_RAYON=$xTV/RAYONS
$c Lz=100
$c zoom_automatique=FAUX ZOOM=1.0
$c coordonnees_dans_0_1=FAUX
$c AXYZ=1 BXYZ=0.0
$c TRANSLATION_OX=0.5 TRANSLATION_OY=0.5
$c fond=FAUX
$c centrer=FAUX reference=$Particules
$c attenuation_au_bord=0.25
$c R=$xTV/PART.1.
$c $formatI\n"
$c );
$c
$c printf("$xci/neutre$X
$c A=$xTV/PART.1.%04d$ROUGE
$c R=$_____imagesR3.%04d$ROUGE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/PART.1.%04d$VERTE
$c R=$_____imagesR3.%04d$VERTE
$c $formatI\n"
$c ,N0,n
$c );
$c printf("$xci/neutre$X
$c A=$xTV/PART.1.%04d$BLEUE
$c R=$_____imagesR3.%04d$BLEUE
$c $formatI\n"
$c ,N0,n
$c );
$c }
$c }