#######################################################################################################################################
# #
# 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.q.53.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z $DELETE $xTV/MODULE
$Z $DELETE $xTV/MODULE.1
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/XY_RT.1
$Z $DELETE $xTV/XY_RT.2
$Z $DELETE $xTV/VITESSES$COORD_X
$Z $DELETE $xTV/VITESSES$COORD_Y
$Z $DELETE $xTV/VITESSES$COORD_Z
$Z GenRF $xTV/MODULE 0.0 0.0 0.05 g=3333
$Z GenRF $xTV/THETA 0.0 $dpi 0.93 g=6666
$Z $CA $xcs/csh$Y \
$Z > $xTV/XY_RT.1
$Z $PAST $xTV/MODULE $xTV/THETA \
$Z | $R "$K_TAB" "$K_BLANC" \
$Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \
$Z >>! $xTV/XY_RT.1
$Z
$Z (source $xTV/XY_RT.1) \
$Z > $xTV/XY_RT.2
$Z
$Z $CA $xTV/XY_RT.2 \
$Z | $GRE "^x=" \
$Z | $SE -e "s/^x=//" \
$Z > $xTV/VITESSES$COORD_X
$Z $CA $xTV/XY_RT.2 \
$Z | $GRE "^y=" \
$Z | $SE -e "s/^y=//" \
$Z > $xTV/VITESSES$COORD_Y
$Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0
$Z $DELETE $xTV/MODULE
$Z $DELETE $xTV/MODULE.1
$Z $DELETE $xTV/THETA
$Z $DELETE $xTV/XY_RT.1
$Z $DELETE $xTV/XY_RT.2
$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