#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S D I S T A N C E S D A N S L E S Y S T E M E S O L A I R E : #
# #
# #
# Author of '$xiak/.NCOS.9.22.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20201231121925). #
# #
#######################################################################################################################################
$Z SETParam _____Pas 1
$Z setParam _____Points 128
$Z setParam _____GrisDistances $GRIS_8
$Z # Parametre introduit le 20210101103615... #
$Z setParam _____AttenuationCouleurs 0.3
$Z # Parametre introduit le 20210101104559... #
$Z setParam _____ParamParticule "$K_VIDE"
$Z execRVB $xci/init$X \
$Z n=$NOIR \
$Z R=$xTV/FOND%s \
$Z $formatI
$Z set PaRaMeTrEs="$K_VIDE"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" np=1"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" Apoints=$_____Points"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_X=$xTV/COORDONNEES$COORD_X"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Y=$xTV/COORDONNEES$COORD_Y"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_Z=$xTV/COORDONNEES$COORD_Z"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" LISTE_RAYON=$xTV/RAYONS"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" Lz=100"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" editer_extrema_hors=FAUX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" zoom_automatique=FAUX ZOOM=1.0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" coordonnees_dans_0_1=VRAI"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" AXYZ=12.0e-14 BXYZ=0.5"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" TRANSLATION_OX=0.0 TRANSLATION_OY=0.0"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" fond=FAUX"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" centrer=FAUX reference=$_____Reference"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" attenuation_au_bord=0.25"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" $_____ParamParticule"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" fond=VRAI F=$xTV/FOND"
$Z set PaRaMeTrEs="$PaRaMeTrEs"" chiffres=0"
$c #define N0 Premiere
$c #define N Derniere
$c #define PAS _____Pas
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n=n+PAS)
$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 printf("$DELETE $xTV/COULEURS$ROUGE\n");
$c printf("$DELETE $xTV/COULEURS$VERTE\n");
$c printf("$DELETE $xTV/COULEURS$BLEUE\n");
$c
$c printf("$CA $xTV/LISTE_POINTS |
$c $GRE 'periode=%d '
$c > $xTV/COORDONNEES\n"
$c ,n,'"','"'
$c );
$c
$c printf("set Particules=`$CA $xTV/COORDONNEES | $WCl`\n");
$c
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* X=//%c
$c -e %cs/ .*//%c
$c > $xTV/COORDONNEES$COORD_X\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* Y=//%c
$c -e %cs/ .*//%c
$c > $xTV/COORDONNEES$COORD_Y\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* Z=//%c
$c -e %cs/ .*//%c
$c > $xTV/COORDONNEES$COORD_Z\n"
$c ,'"','"','"','"'
$c );
$c
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* ROUGE=//%c
$c -e %cs/ .*//%c
$c > $xTV/COULEURS$ROUGE\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* VERTE=//%c
$c -e %cs/ .*//%c
$c > $xTV/COULEURS$VERTE\n"
$c ,'"','"','"','"'
$c );
$c printf("$CA $xTV/COORDONNEES |
$c $SE -e %cs/^.* BLEUE=//%c
$c -e %cs/ .*//%c
$c > $xTV/COULEURS$BLEUE\n"
$c ,'"','"','"','"'
$c );
$c
$c printf("$xrv/particule.10$X
$c iterations=$Particules
$c $PaRaMeTrEs
$c Ar=3.0e-14
$c isoles=VRAI
$c AR=$_____AttenuationCouleurs
$c LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c AV=$_____AttenuationCouleurs
$c LISTE_VERTE=$xTV/COULEURS$VERTE
$c AB=$_____AttenuationCouleurs
$c LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c R=$xTV/FOND
$c $formatI\n"
$c );
$c
$c printf("$xrv/particule.10$X
$c iterations=$Particules
$c $PaRaMeTrEs
$c Ar=2.0e-14
$c isoles=FAUX chainer=VRAI
$c LISTE_ROUGE=$_____GrisDistances
$c LISTE_VERTE=$_____GrisDistances
$c LISTE_BLEUE=$_____GrisDistances
$c R=$_____ImageT.%04d
$c $formatI\n"
$c ,n
$c );
$c }
$c }