#######################################################################################################################################
# #
# G E N E R A T I O N D E S L I S T E S D E S V I T E S S E S { X , Y , Z } I N I T I A L E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.q.53.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z alias GenRF 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set VaL=\!:4 ; set ArG=(\!:5*) ; \\
$Z $DELETE $Fi ; \\
$Z @ PartNs2 = $PartN - $Part0 ; \\
$Z @ PartNs2 = $PartNs2 / 2 ; \\
$Z @ PartNs2 = $PartNs2 + $Part0 ; \\
$Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$K_VIDE" inf=$In sup=$Su $ArG forcer=VRAI Fnumero=$PartNs2 Fvaleur=$VaL > $Fi ; \\
$Z unset Fi In Su VaL ArG PartNs2'