#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N   P S E U D O - T O R E   " E P Y C Y C L O I D A L "   T R I D I M E N S I O N N E L  :      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.EPIC.41.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170304104838).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Editer                   $EXIST

$Z                  set       PaRaMeTrE_A="(+8.0)"
$Z                  set       PaRaMeTrE_a="(+1.0)"
$Z                  set       PaRaMeTrE_L="(+4.0)"

$Z                  set       PaRaMeTrE_B=`calcul $PaRaMeTrE_A+$PaRaMeTrE_a`
$Z                  set       PaRaMeTrE_C=1
$Z                  set       PaRaMeTrE_D=`calcul $PaRaMeTrE_L*$PaRaMeTrE_a`
$Z                  set       PaRaMeTrE_E=`calcul ($PaRaMeTrE_A+$PaRaMeTrE_a)/$PaRaMeTrE_a`

$Z                  set       PaRaMeTrE_F=`calcul $PaRaMeTrE_A+$PaRaMeTrE_a`
$Z                  set       PaRaMeTrE_G=1
$Z                  set       PaRaMeTrE_H=`calcul $PaRaMeTrE_L*$PaRaMeTrE_a`
$Z                  set       PaRaMeTrE_I=`calcul ($PaRaMeTrE_A+$PaRaMeTrE_a)/$PaRaMeTrE_a`

$Z                  set       PaRaMeTrE_M=5
$Z                  set       PaRaMeTrE_N=1
$Z                  set       PaRaMeTrE_O=7
$Z                  set       PaRaMeTrE_P=3

$Z                  if        ($_____Editer == $EXIST) then
$Z                            echo      "A=$PaRaMeTrE_A a=$PaRaMeTrE_a L=$PaRaMeTrE_L"
$Z                            echo      "B=$PaRaMeTrE_B C=$PaRaMeTrE_C D=$PaRaMeTrE_D E=$PaRaMeTrE_E"
$Z                            echo      "F=$PaRaMeTrE_F G=$PaRaMeTrE_G H=$PaRaMeTrE_H I=$PaRaMeTrE_I"
$Z                            echo      "M=$PaRaMeTrE_M N=$PaRaMeTrE_N O=$PaRaMeTrE_O P=$PaRaMeTrE_P"
$Z                  else
$Z                  endif