#######################################################################################################################################
#                                                                                                                                     #
#         C L E F   D E   S O L  :                                                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.KSOL.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231211133048).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Zmin                     0
$Z                  setParam            _____Zmax                     $_____Zmin
$Z                  setParam            _____ZGraine                  1789

$Z                  setParam            _____DZmin                    0
$Z                  setParam            _____DZmax                    0
$Z                  setParam            _____DZGraine                 1947

$Z                  setParam            _____Zoom                     1.2

$Z                  setParam            _____Rmin                     0.010
$Z                  setParam            _____Rmax                     0.010
$Z                  setParam            _____RGraine                  2001

$Z                  setParam            _____Grossissement            1.8
$Z                  setParam            _____Points                   32
$Z                  setParam            _____NombreR                  1
$Z                  setParam            _____Dm                       `GetParam $xrv/particule.10$X  distance_minimale`

$Z                  setParam            _____Palette                  $xiP/arc_ciel.B1

$Z                  setParam            _____ParticulePara            "$K_VIDE"

$Z                  FilSTmpB            FClEfSoL

$Z                  echo                "01       0.38      0.18      0         -0.4"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                                      # Point 01 (point de depart, en bas et au milieu)...                                          #
$Z                  echo                "02       0.50      0.00      +0.6      0"                                                      \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "03       0.60      0.30      -0.2      +1.0"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "04       0.45      0.68      -0.2      +1.0"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "05       0.60      0.98      +0.5      0"                                                      \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "06       0.72      0.93      0         -0.1"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "07       0.60      0.70      -1.0      -1.0"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "08       0.40      0.42      0         -0.4"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "09       0.55      0.25      +0.6      0"                                                      \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "10       0.72      0.40      0         +0.4"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "11       0.60      0.52      -0.4      0"                                                      \
$Z                                                                                                            >>! $FClEfSoL
$Z                  echo                "12       0.52      0.35      +0.5      -0.5"                                                   \
$Z                                                                                                            >>! $FClEfSoL
$Z                                      # Point 12 (point d'arrivee)...                                                               #

$Z                  $CA                 $FClEfSoL                                                                                 |     \
$Z                  $AW                 ' { print $2 } '                                                                                \
$Z                                                                                                            >   $FClEfSoL$COORD_X

$Z                  $CA                 $FClEfSoL                                                                                 |     \
$Z                  $AW                 ' { print $3 } '                                                                                \
$Z                                                                                                            >   $FClEfSoL$COORD_Y

$Z                  $CA                 $FClEfSoL                                                                                 |     \
$Z                  $AW                 ' { print $4 } '                                                                                \
$Z                                                                                                            >   $FClEfSoL.dX

$Z                  $CA                 $FClEfSoL                                                                                 |     \
$Z                  $AW                 ' { print $5 } '                                                                                \
$Z                                                                                                            >   $FClEfSoL.dY

$Z                  set                 NPoInTs=`$CA $FClEfSoL | $WCl`

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      inf=$_____Zmin sup=$_____Zmax                                                                   \
$Z                                      graine=$_____ZGraine                                                                            \
$Z                                                                                                            >   $FClEfSoL$COORD_Z

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      inf=$_____DZmin sup=$_____DZmax                                                                 \
$Z                                      graine=$_____DZGraine                                                                           \
$Z                                                                                                            >   $FClEfSoL.dZ

$Z                  $xci/valeurs_alea$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      inf=$_____Rmin sup=$_____Rmax                                                                   \
$Z                                      graine=$_____RGraine                                                                            \
$Z                                                                                                            >   $FClEfSoL$RAYON

$Z                  $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs                                                                    \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entiers=VRAI                                                                                    \
$Z                                                                                                            >   $FClEfSoL$NIVEAU

$Z                  $xrv/particule.10$X npoints=$NPoInTs                                                                                \
$Z                                      LISTE_X=$FClEfSoL$COORD_X                                                                       \
$Z                                      LISTE_Y=$FClEfSoL$COORD_Y                                                                       \
$Z                                      LISTE_Z=$FClEfSoL$COORD_Z                                                                       \
$Z                                      LISTE_dX=$FClEfSoL.dX                                                                           \
$Z                                      LISTE_dY=$FClEfSoL.dY                                                                           \
$Z                                      LISTE_dZ=$FClEfSoL.dZ                                                                           \
$Z                                      LISTE_RAYON=$FClEfSoL$RAYON                                                                     \
$Z                                      LISTE_NIVEAU=$FClEfSoL$NIVEAU                                                                   \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      isoles=FAUX chainer=VRAI                                                                        \
$Z                                      grossissement=$_____Grossissement                                                               \
$Z                                      ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR                                   \
$Z                                      equidistance=VRAI                                                                               \
$Z                                      distance_minimale=$_____Dm                                                                      \
$Z                                      cubique=VRAI                                                                                    \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      extrema_hors=FAUX                                                                               \
$Z                                      Lz=100                                                                                          \
$Z                                      $_____ParticulePara                                                                             \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                                                                      $formatI

$Z                  FilSTmpE            FClEfSoL



Copyright © Jean-François COLONNA, 2023-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2023-2024.