#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   C H A M P   D E   ' T E T A '   S Y M E T R I Q U E   P O U R   L E S   V I T E S S E S  :  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.M.11.2.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20080331131426).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____DTheta                   0.1

$Z                  $DELETE             $xTV/THETA
$Z                  $DELETE             $xTV/THETA_ABSOLU
$Z                  $DELETE             $xTV/THETA_INFERIEUR
$Z                  $DELETE             $xTV/THETA_SUPERIEUR

$Z                  $xrv/XY_RT.01$X                                                                                                     \
$Z                                                          ne=0                                                                        \
$Z                                                          LISTE_X=$xTV/COORDONNEES$COORD_X                                            \
$Z                                                          LISTE_Y=$xTV/COORDONNEES$COORD_Y                                            \
$Z                                                          pRHO=0 pTHETA=1                                                       |     \
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          homothetie=+1 translation=+$pi                                              \
$Z                                                                                                  >   $xTV/THETA_ABSOLU

$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/THETA_ABSOLU                                                   \
$Z                                                          homothetie=+1 translation=-$_____DTheta                                     \
$Z                                                                                                  >   $xTV/THETA_INFERIEUR
$Z                  $xrv/AXPB.01$X                                                                                                      \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/THETA_ABSOLU                                                   \
$Z                                                          homothetie=+1 translation=+$_____DTheta                                     \
$Z                                                                                                  >   $xTV/THETA_SUPERIEUR

$Z                  $xrv/val_alea.01$X                                                                                                  \
$Z                                                          ne=0                                                                        \
$Z                                                          LISTE_BORNES_INFERIEURES=$xTV/THETA_INFERIEUR                               \
$Z                                                          LISTE_BORNES_SUPERIEURES=$xTV/THETA_SUPERIEUR                               \
$Z                                                          graine=1789                                                                 \
$Z                                                                                                  >   $xTV/THETA
$Z                                      # Ainsi, tous les vecteurs vitesse seront diriges vers le centre "a epsilon pres"...          #

$Z                  $DELETE             $xTV/THETA_ABSOLU
$Z                  $DELETE             $xTV/THETA_INFERIEUR
$Z                  $DELETE             $xTV/THETA_SUPERIEUR