#######################################################################################################################################
# #
# V I S U A L I S A T I O N D E S P R E M I E R E S D E C I M A L E S D E D E U X #
# N O M B R E S E N B A S E 2 C O M M E U N E M A R C H E A L E A T O I R E : #
# #
# #
# Author of '$xiirv/.MDEP.11.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20140216093041). #
# #
#######################################################################################################################################
$Z setParam _____VRayon 0.008
$Z setParam _____Z0 0
$Z setParam _____ZN 0
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/cercle.I5
$Z setParam _____Zoom 0.2
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z FilSTmpB FiLePoInTs
$Z FilSTmpB FiLeDeCiMaLeS
$Z set dXY=0.04
$Z set pXY="+$dXY"
$Z set mXY="-$dXY"
$Z set _XY=0
$Z set BaSe=2
$Z echo "ibase = 10;" \
$Z > $FiLeDeCiMaLeS.1
$Z echo "obase = $BaSe;" \
$Z >> $FiLeDeCiMaLeS.1
$Z echo "nombre=\\" \
$Z >> $FiLeDeCiMaLeS.1
$Z echo ";" \
$Z > $FiLeDeCiMaLeS.2
$Z echo "nombre;" \
$Z >> $FiLeDeCiMaLeS.2
$Z echo "quit;" \
$Z >> $FiLeDeCiMaLeS.2
$Z $CA $FiLeDeCiMaLeS.1 \
$Z > $FiLeDeCiMaLeS.P1.1
$Z $CA $_____FDecimales_P1 | \
$Z $HEA -$_____NIterations | \
$Z $SE -e "s/^[$Alphabet_0_9]*[.,]/0./" \
$Z -e 's/$/\\/' \
$Z >> $FiLeDeCiMaLeS.P1.1
$Z $CA $FiLeDeCiMaLeS.2 \
$Z >> $FiLeDeCiMaLeS.P1.1
$Z echo "$_XY" \
$Z > $FiLeDeCiMaLeS.P1.2
$Z $BC $FiLeDeCiMaLeS.P1.1 | \
$Z $SE -e "s/^0*\.//" \
$Z -e 's/\\$//' \
$Z -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $GRE -v '^ *$' | \
$Z $SE \
$Z -e 's/^0$'"/$pXY/" \
$Z -e 's/^1$'"/$mXY/" \
$Z >> $FiLeDeCiMaLeS.P1.2
$Z $CA $FiLeDeCiMaLeS.1 \
$Z > $FiLeDeCiMaLeS.P2.1
$Z $CA $_____FDecimales_P2 | \
$Z $HEA -$_____NIterations | \
$Z $SE -e "s/^[$Alphabet_0_9]*[.,]/0./" \
$Z -e 's/$/\\/' \
$Z >> $FiLeDeCiMaLeS.P2.1
$Z $CA $FiLeDeCiMaLeS.2 \
$Z >> $FiLeDeCiMaLeS.P2.1
$Z echo "$_XY" \
$Z > $FiLeDeCiMaLeS.P2.2
$Z $BC $FiLeDeCiMaLeS.P2.1 | \
$Z $SE -e "s/^0*\.//" \
$Z -e 's/\\$//' \
$Z -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $GRE -v '^ *$' | \
$Z $SE \
$Z -e 's/^0$'"/$pXY/" \
$Z -e 's/^1$'"/$mXY/" \
$Z >> $FiLeDeCiMaLeS.P2.2
$Z set NPoInTs1=`$CA $FiLeDeCiMaLeS.P1.2 | $WCl`
$Z set NPoInTs2=`$CA $FiLeDeCiMaLeS.P2.2 | $WCl`
$Z set NPoInTs=`$xcg/MIN2.01$X a=$NPoInTs1 b=$NPoInTs2 signe="$K_VIDE"`
$Z echo "NombreDecimalesBase$BaSe="`calcul $NPoInTs-1`
$Z # Le "-1" vient du point de depart {0,0,0} introduit au prealabale... #
$Z set MiNiMuM_XY=-1.0
$Z set MaXiMuM_XY=+1.0
$Z $CA $FiLeDeCiMaLeS.P1.2 | \
$Z $xrv/accumule.01$X ne=$NPoInTs \
$Z fichier== | \
$Z $xrv/normalise.01$X ne=$NPoInTs \
$Z fichier== \
$Z origine=$MiNiMuM_XY extremite=$MaXiMuM_XY \
$Z > $FiLePoInTs$COORD_X
$Z $CA $FiLeDeCiMaLeS.P2.2 | \
$Z $xrv/accumule.01$X ne=$NPoInTs \
$Z fichier== | \
$Z $xrv/normalise.01$X ne=$NPoInTs \
$Z fichier== \
$Z origine=$MiNiMuM_XY extremite=$MaXiMuM_XY \
$Z > $FiLePoInTs$COORD_Y
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs \
$Z vD=$_____Z0 vA=$_____ZN \
$Z lineaire=VRAI \
$Z > $FiLePoInTs$COORD_Z
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs \
$Z vD=$NOIR_PLANCHER vA=$BLANC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FiLePoInTs.Niveau
$Z FilSTmpE FiLeDeCiMaLeS