#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N E   S P H E R E  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROJ.11.2.sphere.$U' :                                                                                   #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170210170656).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/SINX.01$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      pX=$dpi pY=0 tXYZ=-$pi                                                                          \
$Z                                      R=$xTV/SINUS.u                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # La fonction 'sin(u)' est calculee dans [0,2.pi] afin que le champ soit bien periodique.     #
$Z                  $xci/SINX.01$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      pX=0 pY=$dpi tXYZ=-$pi                                                                          \
$Z                                      R=$xTV/SINUS.v                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # La fonction 'sin(v)' est calculee dans [0,2.pi] afin que le champ soit bien periodique.     #

$Z                  $xci/COSX.01$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      pX=$dpi pY=0 tXYZ=-$pi                                                                          \
$Z                                      R=$xTV/COSINUS.u                                                                                \
$Z                                                                                                  $formatI
$Z                                      # La fonction 'cos(u)' est calculee dans [0,2.pi] afin que le champ soit bien periodique.     #
$Z                  $xci/COSX.01$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      pX=0 pY=$dpi tXYZ=-$pi                                                                          \
$Z                                      R=$xTV/COSINUS.v                                                                                \
$Z                                                                                                  $formatI
$Z                                      # La fonction 'cos(v)' est calculee dans [0,2.pi] afin que le champ soit bien periodique.     #

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/SINUS.u                                                                                 \
$Z                                      A2=$xTV/COSINUS.v                                                                               \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fx                                                                                       \
$Z                                                                                                  $formatI
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/SINUS.u                                                                                 \
$Z                                      A2=$xTV/SINUS.v                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fy                                                                                       \
$Z                                                                                                  $formatI
$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/COSINUS.u                                                                                \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fz                                                                                       \
$Z                                                                                                  $formatI