#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N   N O E U D   " P A R A B O L E "  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xrs/NoeudParabole.11$Z       <Nombre> [<FileR>]                                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrs/NoeudParabole.11$Z' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220518170740).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       NoMbRe=$1
set       FileR=$2

setArgum  NoMbRe    $COULEURS

setArgum  FileR     "$K_VIDE"

if        ("$FileR" != "$K_VIDE") then
          set       VaLeUrD=0
          set       VaLeUrA=1

          $xci/valeurs_poly$X premiere=1 derniere=$NoMbRe                                                                               \
                              xD=$VaLeUrD xA=$VaLeUrA                                                                                   \
                              lineaire=VRAI                                                                                             \
                              n02=-4 n01=+4 n00=0                                                                                       \
                                                                                                              >   $FileR$COORD_X

          $xci/valeurs_poly$X premiere=1 derniere=$NoMbRe                                                                               \
                              xD=$VaLeUrD xA=$VaLeUrA                                                                                   \
                              lineaire=VRAI                                                                                             \
                              n02=-4 n01=+4 n00=0                                                                                       \
                                                                                                              >   $FileR$COORD_Y

          $xci/valeurs_poly$X premiere=1 derniere=$NoMbRe                                                                               \
                              xD=$VaLeUrD xA=$VaLeUrA                                                                                   \
                              lineaire=VRAI                                                                                             \
                              n02=0  n01=+1 n00=0                                                                                       \
                                                                                                              >   $FileR$COORD_Z
                                        # Ceci est destine en fait a tester 'v $xrs/NoeudTrefle.11$Z' lorsqu'il est utilise dans      #
                                        # 'v $xiirv/$Fnota Debut_listG_PEAN_92'...                                                    #
                                        #                                                                                             #
                                        # Je rappelle le 20220518180243 que les variations de {X,Y,Z} dans ces trois fichiers         #
                                        # sont ainsi :                                                                                #
                                        #                                                                                             #
                                        #                   X :       0 --> 0             (en passant par un extremum evidemment)     #
                                        #                   Y :       0 --> 0             (en passant par un extremum evidemment)     #
                                        #                   Z :       0 --> 1                                                         #
                                        #                                                                                             #
else
endif