#######################################################################################################################################
#                                                                                                                                     #
#         E P I C Y C L E S   D E   P T O L E M E E   A V E C   E Q U A N T  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.EPIC.21.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20191002154941).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                                      # Voir 'v $xiirk/.EPIC.21.2.$U _____YEquant' pour plus d'explications...                      #

$Z                  $xci/valeurs_inte$X                                                                                                 \
$Z                                      $PaRaMeTrEs2                                                                                    \
$Z                                      derniere=$_____NTrajectoire                                                                     \
$Z                                      vD=0 vA=$_____TDeferent                                                                         \
$Z                                                                    >  $FDeferent2.theta
$Z                                      # Calcul d'un 'theta' variant lineairement...                                                 #

$Z                  $xrv/CERCLE.02$X                                                                                                    \
$Z                                      ne=$_____NTrajectoire                                                                           \
$Z                                      rho=$_____RDeferent                                                                             \
$Z                                      theta=$FDeferent2.theta                                                                         \
$Z                                      translation=$TrAnSlAtIoN_X                                                                      \
$Z                                      alpha=1 beta=0                                                                                  \
$Z                                                                    >  $FDeferent2.cos

$Z                  $xrv/CERCLE.02$X                                                                                                    \
$Z                                      ne=$_____NTrajectoire                                                                           \
$Z                                      rho=$_____RDeferent                                                                             \
$Z                                      theta=$FDeferent2.theta                                                                         \
$Z                                      translation=$TrAnSlAtIoN_Y                                                                      \
$Z                                      alpha=0 beta=1                                                                                  \
$Z                                                                    >  $FDeferent2.sin
$Z                                      # Calcul de 'cos(theta)' et de 'sin(theta)'...                                                #

$Z                  $xrv/ATAN.01$X                                                                                                      \
$Z                                      ne=$_____NTrajectoire                                                                           \
$Z                                      LISTE_X=$FDeferent2.cos                                                                         \
$Z                                      LISTE_Y=$FDeferent2.sin                                                                         \
$Z                                                                    >  $FDeferent2.phi
$Z                                      # Calcul de 'phi' qui ne varie donc pas lineairement...                                       #

$Z                  $xrv/CERCLE.02$X                                                                                                    \
$Z                                      ne=$_____NTrajectoire                                                                           \
$Z                                      rho=$_____RDeferent                                                                             \
$Z                                      theta=$FDeferent2.phi                                                                           \
$Z                                      alpha=1 beta=0                                                                                  \
$Z                                                                    >  $FDeferent2$COORD_X

$Z                  $xrv/CERCLE.02$X                                                                                                    \
$Z                                      ne=$_____NTrajectoire                                                                           \
$Z                                      rho=$_____RDeferent                                                                             \
$Z                                      theta=$FDeferent2.phi                                                                           \
$Z                                      alpha=0 beta=1                                                                                  \
$Z                                                                    >  $FDeferent2$COORD_Y
$Z                                      # Et enfin, 'phi' remplace 'theta'...                                                         #