#######################################################################################################################################
# #
# G E N E R A T I O N D E S L I S T E S D E S V I T E S S E S { X , Y , Z } I N I T I A L E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.f.53.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z $DELETE $xTV/MODULE
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/THETA.1
$Z $DELETE $xTV/VITESSES$COORD_X
$Z $DELETE $xTV/VITESSES$COORD_Y
$Z $DELETE $xTV/VITESSES$COORD_Z
$Z Gen $xTV/MODULE 0.02 0.02
$Z $xrv/XY_RT.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_X=$xTV/COORDONNEES$COORD_X \
$Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \
$Z pRHO=0 pTHETA=1 \
$Z > $xTV/THETA.1
$Z $xrv/ADD2.11$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z fichier1=$xTV/THETA.1 \
$Z fichier2=$pis2 \
$Z > $xTV/THETA
$Z $xrv/RT_XY.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_RHO=$xTV/MODULE \
$Z LISTE_THETA=$xTV/THETA \
$Z pX=1 pY=0 \
$Z > $xTV/VITESSES$COORD_X
$Z $xrv/RT_XY.01$X \
$Z CAL1=FAUX \
$Z ne=$PartN \
$Z LISTE_RHO=$xTV/MODULE \
$Z LISTE_THETA=$xTV/THETA \
$Z pX=0 pY=1 \
$Z > $xTV/VITESSES$COORD_Y
$Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0
$Z $DELETE $xTV/MODULE
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/THETA.1
$Z Gen $xTV/COLLISION$COORD_X 1.0 1.0
$Z Gen $xTV/COLLISION$COORD_Y 1.0 1.0
$Z Gen $xTV/COLLISION$COORD_Z 1.0 1.0
$Z Gen $xTV/FAMILLE $Part0 $PartN cubique=FAUX entiers=VRAI epsilon=0.01
$Z Gen $xTV/NAISSANCE 0 0 cubique=FAUX
$Z Gen $xTV/COLLAGE $EXIST $EXIST cubique=FAUX entiers=VRAI
$Z Gen $xTV/K_COLLAGE 1 1 cubique=FAUX entiers=VRAI
$Z Gen $xTV/COLLISIONNABLE $EXIST $EXIST cubique=FAUX entiers=VRAI