#######################################################################################################################################
# #
# D E F I N I T I O N D ' U N E D O U B L E H E L I C E : #
# #
# #
# Author of '$xiirv/.HELI.31.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240428074211). #
# #
#######################################################################################################################################
$Z IfBasic (`$xcg/IFGT.01$X n1=$RhO n2=0` == $EXIST) ThenBasic
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPaIrEsP1 \
$Z vD=$ThEtA1 vA=$ThEtAN \
$Z lineaire=VRAI | \
$Z $NL | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $GRE -v "^[$_____Supprimer] " | \
$Z $AW ' { print $2 } ' \
$Z > $FTheta.$PoStFiXe1
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPaIrEsP1 \
$Z vD=`calcul $ThEtA1+$DePhAsAgE` vA=`calcul $ThEtAN+$DePhAsAgE` \
$Z lineaire=VRAI | \
$Z $NL | \
$Z $AW ' { print $1 " " $2 } ' | \
$Z $GRE -v "^[$_____Supprimer] " | \
$Z $AW ' { print $2 } ' \
$Z > $FTheta.$PoStFiXe2
$Z # Le 20240425140520, les elements numero 2 et 3 des fichiers '$FTheta.?' ont ete supprimes #
$Z # et ce afin de creer un trou entre la partie entiere et la deuxieme decimale... #
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$RhO \
$Z LISTE_THETA=$FTheta.$PoStFiXe1 \
$Z px=1 py=0 \
$Z > $FCoOrDoNnEeS$COORD_X.$PoStFiXe1
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$RhO \
$Z LISTE_THETA=$FTheta.$PoStFiXe1 \
$Z px=0 py=1 \
$Z > $FCoOrDoNnEeS$COORD_Z.$PoStFiXe1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$CoOrDoNnEeY0 vA=$CoOrDoNnEeYN \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Y.$PoStFiXe1
$Z # Les coordonnees ".1" sont celles des chiffres de 'e' (par defaut...). #
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$RhO \
$Z LISTE_THETA=$FTheta.$PoStFiXe2 \
$Z px=1 py=0 \
$Z > $FCoOrDoNnEeS$COORD_X.$PoStFiXe2
$Z $xrv/RT_XY.01$X ne=$_____NPaires \
$Z LISTE_RHO=$RhO \
$Z LISTE_THETA=$FTheta.$PoStFiXe2 \
$Z px=0 py=1 \
$Z > $FCoOrDoNnEeS$COORD_Z.$PoStFiXe2
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$CoOrDoNnEeY0 vA=$CoOrDoNnEeYN \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Y.$PoStFiXe2
$Z # Les coordonnees ".2" sont celles des chiffres de 'pi' (par defaut...). #
$Z ElseBasic
$Z set MoInS_L_InFiNi=-100
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=0 vA=0 \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_X.$PoStFiXe1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=0 vA=0 \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Z.$PoStFiXe1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$MoInS_L_InFiNi vA=$MoInS_L_InFiNi \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Y.$PoStFiXe1
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=0 vA=0 \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_X.$PoStFiXe2
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=0 vA=0 \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Z.$PoStFiXe2
$Z $xci/valeurs_inte$X premiere=1 derniere=$_____NPaires \
$Z vD=$MoInS_L_InFiNi vA=$MoInS_L_InFiNi \
$Z lineaire=VRAI \
$Z > $FCoOrDoNnEeS$COORD_Y.$PoStFiXe2
$Z EndifBasic