#######################################################################################################################################
# #
# G E N E R A T I O N D ' U N E V A R I E T E D E C A L A B I - Y A U 1 6 - D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirs/.CAYA.X3.2.$U' : #
# #
# Jean-Francois COLONNA (20230212100928). #
# #
#######################################################################################################################################
$Z IfBasic (($?_____ProjectionOX == $NEXIST) && ($?_____ProjectionOX == $NEXIST) &&($?_____ProjectionOX == $NEXIST)) ThenBasic
$Z # Afin d'obtenir quelque chose d'identique a 'v $xiirs/CAYA.S3.10101100.01000110.00001100', #
$Z # ce test introduit le 20230302122242... #
$Z setParam _____Graine 1789
$Z setParam _____Majoration 0.20
$Z # Le parametre '$_____Majoration' doit etre dans [0,1]. Plus il est proche de 0 et plus le #
$Z # nombre de '0's sera important par rapport au nombre de '1's. Or il est preferable d'etre #
$Z # dans ce cas pour eviter une variete trop "compliquee"... #
$Z FilSTmpB FPrOjEc_1
$Z FilSTmpB FEn_TeTe_
$Z FilSTmpB FCoEfFs_1
$Z echo "$_____ProjectionOX" | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $GRE -v '^ *$' \
$Z > $FPrOjEc_1$COORD_X
$Z $CA $FPrOjEc_1$COORD_X | \
$Z $SE -e 's/\(=\).*$/\1/' \
$Z > $FEn_TeTe_$COORD_X
$Z $CA $FPrOjEc_1$COORD_X | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_1$COORD_X
$Z echo "$_____ProjectionOY" | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $GRE -v '^ *$' \
$Z > $FPrOjEc_1$COORD_Y
$Z $CA $FPrOjEc_1$COORD_Y | \
$Z $SE -e 's/\(=\).*$/\1/' \
$Z > $FEn_TeTe_$COORD_Y
$Z $CA $FPrOjEc_1$COORD_Y | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_1$COORD_Y
$Z echo "$_____ProjectionOZ" | \
$Z $R "$K_BLANC" "$K_NL" | \
$Z $GRE -v '^ *$' \
$Z > $FPrOjEc_1$COORD_Z
$Z $CA $FPrOjEc_1$COORD_Z | \
$Z $SE -e 's/\(=\).*$/\1/' \
$Z > $FEn_TeTe_$COORD_Z
$Z $CA $FPrOjEc_1$COORD_Z | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_1$COORD_Z
$Z set NoMbRe_X__=`$CA $FPrOjEc_1$COORD_X | $WCl`
$Z set NoMbRe_Y__=`$CA $FPrOjEc_1$COORD_Y | $WCl`
$Z set NoMbRe_Z__=`$CA $FPrOjEc_1$COORD_Z | $WCl`
$Z set NoMbRe_XYZ=`$xcg/MIN3.01$X x=$NoMbRe_X__ y=$NoMbRe_Y__ z=$NoMbRe_Z__`
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" premiere=1"
$Z set ArGuMeNtS="$ArGuMeNtS"" derniere=$NoMbRe_XYZ"
$Z set ArGuMeNtS="$ArGuMeNtS"" inferieur=0"
$Z set ArGuMeNtS="$ArGuMeNtS"" superieur=1"
$Z set ArGuMeNtS="$ArGuMeNtS"" entiers=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" majoration=$_____Majoration"
$Z set ArGuMeNtS="$ArGuMeNtS"" message_borne_superieure_entiere=FAUX"
$Z set ArGuMeNtS="$ArGuMeNtS"" signe="$K_VIDE""
$Z FilSTmpB FCoEfFs_2
$Z set GrAiNe=$_____Graine
$Z $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_2$COORD_X
$Z @ GrAiNe = $GrAiNe + 1
$Z $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_2$COORD_Y
$Z @ GrAiNe = $GrAiNe + 1
$Z $xci/valeurs_alea$X $ArGuMeNtS graine=$GrAiNe | \
$Z $SE -e 's/^.*=//' \
$Z > $FCoEfFs_2$COORD_Z
$Z FilSTmpB FCoEfFs_3
$Z set ArGuMeNtS="$K_VIDE"
$Z set ArGuMeNtS="$ArGuMeNtS"" formater=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" entier=VRAI"
$Z set ArGuMeNtS="$ArGuMeNtS"" signe="$K_VIDE""
$Z $xrv/MAX2.11$X ne=$NoMbRe_XYZ \
$Z fichier1=$FCoEfFs_1$COORD_X \
$Z fichier2=$FCoEfFs_2$COORD_X \
$Z $ArGuMeNtS \
$Z > $FCoEfFs_3$COORD_X
$Z $xrv/MAX2.11$X ne=$NoMbRe_XYZ \
$Z fichier1=$FCoEfFs_1$COORD_Y \
$Z fichier2=$FCoEfFs_2$COORD_Y \
$Z $ArGuMeNtS \
$Z > $FCoEfFs_3$COORD_Y
$Z $xrv/MAX2.11$X ne=$NoMbRe_XYZ \
$Z fichier1=$FCoEfFs_1$COORD_Z \
$Z fichier2=$FCoEfFs_2$COORD_Z \
$Z $ArGuMeNtS \
$Z > $FCoEfFs_3$COORD_Z
$Z FilSTmpB FPrOjEc_2
$Z $PAST $FEn_TeTe_$COORD_X $FCoEfFs_3$COORD_X | \
$Z $AW ' { print $1 $2 } ' \
$Z > $FPrOjEc_2$COORD_X
$Z $PAST $FEn_TeTe_$COORD_Y $FCoEfFs_3$COORD_Y | \
$Z $AW ' { print $1 $2 } ' \
$Z > $FPrOjEc_2$COORD_Y
$Z $PAST $FEn_TeTe_$COORD_Z $FCoEfFs_3$COORD_Z | \
$Z $AW ' { print $1 $2 } ' \
$Z > $FPrOjEc_2$COORD_Z
$Z set _____ProjectionOX=`$CA $FPrOjEc_2$COORD_X`
$Z set _____ProjectionOY=`$CA $FPrOjEc_2$COORD_Y`
$Z set _____ProjectionOZ=`$CA $FPrOjEc_2$COORD_Z`
$Z FilSTmpE FPrOjEc_2
$Z FilSTmpE FCoEfFs_3
$Z FilSTmpE FCoEfFs_2
$Z FilSTmpE FCoEfFs_1
$Z FilSTmpE FEn_TeTe_
$Z FilSTmpE FPrOjEc_1
$Z ElseBasic
$Z EndifBasic
$Z echo "_____ProjectionOX=$K_QD$_____ProjectionOX$K_QD"
$Z echo "_____ProjectionOY=$K_QD$_____ProjectionOY$K_QD"
$Z echo "_____ProjectionOZ=$K_QD$_____ProjectionOZ$K_QD"
$Z set PoStFiXe_X=`echo "$_____ProjectionOX" | $R "$K_BLANC" "$K_NL" | $SE -e "s/^.*=//"`
$Z set PoStFiXe_X=`echo "$PoStFiXe_X" | $SE -e "s/ //g"`
$Z set PoStFiXe_Y=`echo "$_____ProjectionOY" | $R "$K_BLANC" "$K_NL" | $SE -e "s/^.*=//"`
$Z set PoStFiXe_Y=`echo "$PoStFiXe_Y" | $SE -e "s/ //g"`
$Z set PoStFiXe_Z=`echo "$_____ProjectionOZ" | $R "$K_BLANC" "$K_NL" | $SE -e "s/^.*=//"`
$Z set PoStFiXe_Z=`echo "$PoStFiXe_Z" | $SE -e "s/ //g"`
$Z set _____Postfixe=`echo "$PoStFiXe_X"".""$PoStFiXe_Y"".""$PoStFiXe_Z" | $SE -e "s/ //"g`
$Z echo "_____Postfixe=$K_QD$_____Postfixe$K_QD"