#######################################################################################################################################
#                                                                                                                                     #
#         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.1.sphere.$U' :                                                                                   #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170210170704).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $xci/sinus$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      translation=0 echelle=1                                                                         \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      cx=$dpi cy=0 phase=-$pi                                                                         \
$Z                                      sinus=VRAI                                                                                      \
$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/sinus$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      translation=0 echelle=1                                                                         \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      cx=0 cy=$dpi phase=-$pi                                                                         \
$Z                                      sinus=VRAI                                                                                      \
$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/sinus$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      translation=0 echelle=1                                                                         \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      cx=$dpi cy=0 phase=-$pi                                                                         \
$Z                                      cosinus=VRAI                                                                                    \
$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/sinus$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      translation=0 echelle=1                                                                         \
$Z                                      carre_X_CHAMP_3D=FAUX carre_Y_CHAMP_3D=FAUX                                                     \
$Z                                      cx=0 cy=$dpi phase=-$pi                                                                         \
$Z                                      cosinus=VRAI                                                                                    \
$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