#######################################################################################################################################
# #
# 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 P I #
# ( O U D E T O U T A U T R E N O M B R E ) #
# C O M M E U N E M A R C H E A L E A T O I R E T R I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirv/.PIPO.71.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20131213133057). #
# #
#######################################################################################################################################
$Z SETParam _____SupPartieEntiere $EXIST
$Z # Parametre introduit le 20240303175441 la valeur par defaut garantissant la compatibilite #
$Z # anterieure... #
$Z SETParam _____FDecimalesDejaOBase $NEXIST
$Z # Parametre introduit le 20161024093012... #
$Z SETParam _____EnDiagonale $NEXIST
$Z # Parametre introduit le 20240806135348... #
$Z setParam _____VRayon 0.008
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/cercle.I5
$Z setParam _____Zoom 0.6
$Z setParam _____ExpansionZ +1
$Z # Argument introduit le 20131207122414 afin de pouvoir exagerer la perspective... #
$Z # #
$Z # ATTENTION : une valeur negative revient a inverser les conventions de codage #
$Z # ("4"={$_XYZ,$_XYZ,$pXYZ} et "5"={$_XYZ,$_XYZ,$mXYZ}) ci-dessous... #
$Z setParam _____NiveauMinimal $NOIR_PLANCHER
$Z setParam _____NiveauMaximal $BLANC
$Z # Parametres introduits le 20240318110021... #
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z FilSTmpB FiLePoInTs
$Z FilSTmpB FiLeDeCiMaLeS
$Z set dXYZ=0.04
$Z set pXYZ="+$dXYZ"
$Z set mXYZ="-$dXYZ"
$Z set _XYZ=0
$Z echo "$_XYZ $_XYZ $_XYZ" \
$Z >> $FiLePoInTs
$Z # Definition du point de depart... #
$Z if ($_____FDecimalesDejaOBase == $NEXIST) then
$Z # Possibilite introduite le 20140206125830... #
$Z echo "ibase = 10;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "obase = 6;" \
$Z >> $FiLeDeCiMaLeS
#20140205123659____:$Z echo "pi=\\" \ #
#20140205123659____:$Z >> $FiLeDeCiMaLeS #
$Z echo "nombre = \\" \
$Z >> $FiLeDeCiMaLeS
$Z $CA $_____FDecimales | \
$Z $SE -e "s/^ *//" \
$Z -e "s/,/./" | \
$Z $GRE -v '^ *$' | \
$Z $GRE -v 'alcul ' | \
$Z $SE -e "s/ //g" | \
$Z $SE -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $xcp/lignes_vides$X | \
$Z $HEA -$_____NIterations | \
$Z $R "$K_NL" "@" | \
$Z $SE -e "s/@//g" \
$Z >> $FiLeDeCiMaLeS
$Z # ATTENTION, on notera le 20140206122259 qu'il manque avant le '$HEA' la commande : #
$Z # #
$Z # $GRE -v '^ *$' #
$Z # #
$Z # qui eliminerait les lignes vides. Je ne la rajoute pas afin de garantir la reproductibilite #
$Z # des images calculees avant cette date... #
$Z echo ";" \
$Z >> $FiLeDeCiMaLeS
#20140205123659____:$Z echo "pi;" \ #
#20140205123659____:$Z >> $FiLeDeCiMaLeS #
$Z echo "nombre;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "quit;" \
$Z >> $FiLeDeCiMaLeS
#20140205123659____:$Z $BC $FiLeDeCiMaLeS | \ #
#20140205123659____:$Z $SE -e "s/^3\.//" | \ #
#20140205123659____:$Z $SE -e 's/\\//g' | \ #
#20140205123659____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20140205123659____:$Z $R "@" "$K_NL" | \ #
#20140205123659____:$Z $GRE -v '^ *$' | \ #
#20140205123659____:$Z $SE \ #
#20140205123659____:$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \ #
#20140205123659____:$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \ #
#20140205123659____:$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \ #
#20140205123659____:$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \ #
#20140205123659____:$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \ #
#20140205123659____:$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \ #
#20140205123659____:$Z >> $FiLePoInTs #
#20161024093012____:$Z $BC $FiLeDeCiMaLeS | \ #
#20161024093012____:$Z $SE -e "s/^[$Alphabet_0_9]*\.//" | \ #
#20161024093012____:$Z $SE -e 's/\\//g' | \ #
#20161024093012____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20161024093012____:$Z $R "@" "$K_NL" | \ #
#20161024093012____:$Z $GRE -v '^ *$' | \ #
#20161024093012____:$Z $SE \ #
#20161024093012____:$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \ #
#20161024093012____:$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \ #
#20161024093012____:$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \ #
#20161024093012____:$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \ #
#20161024093012____:$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \ #
#20161024093012____:$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \ #
#20161024093012____:$Z >> $FiLePoInTs #
$Z $BC $FiLeDeCiMaLeS \
$Z > $FiLeDeCiMaLeS.1
$Z else
$Z # Possibilite introduite le 20140206125830... #
$Z $CA $_____FDecimales | \
$Z $HEA -$_____NIterations \
$Z > $FiLeDeCiMaLeS.1
$Z # Cas ou le fichier '$_____FDecimales' est deja dans la bonne base (6 en general...). #
$Z endif
#20240303175441____:$Z $CA $FiLeDeCiMaLeS.1 | \ #
#20240303175441____:$Z $SE -e "s/^[$Alphabet_0_9]*\.//" | \ #
#20240303175441____:$Z $SE -e 's/\\//g' | \ #
#20240303175441____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240303175441____:$Z $R "@" "$K_NL" | \ #
#20240303175441____:$Z $GRE -v '^ *$' | \ #
#20240303175441____:$Z $SE \ #
#20240303175441____:$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \ #
#20240303175441____:$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \ #
#20240303175441____:$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \ #
#20240303175441____:$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \ #
#20240303175441____:$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \ #
#20240303175441____:$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \ #
#20240303175441____:$Z >> $FiLePoInTs #
$Z if ($_____SupPartieEntiere == $EXIST) then
$Z # Test introduit le 20240303175441... #
$Z $CA $FiLeDeCiMaLeS.1 | \
$Z $SE -e "s/^[$Alphabet_0_9]*\.//" \
$Z > $FiLeDeCiMaLeS.4
$Z else
$Z $CA $FiLeDeCiMaLeS.1 | \
$Z $SE -e "s/[,.]//" \
$Z > $FiLeDeCiMaLeS.4
$Z endif
$Z $CA $FiLeDeCiMaLeS.4 | \
$Z $SE -e 's/\\//g' | \
$Z $SE -e "s/\(.\)/\1@/g" | \
$Z $R "@" "$K_NL" | \
$Z $GRE -v '^ *$' \
$Z > $FiLeDeCiMaLeS.9
$Z # Fichier introduit le 20240818100231... #
$Z _____include(_____xiirv/.CheckChiffresDecimales.01._____U)
$Z # Editions eventuelles introduites le 20240818103334 via '$CheckChiffresDecimales'... #
$Z if ($_____EnDiagonale == $NEXIST) then
$Z # Possibilite introduite le 20240806135348... #
#20240818100231____:$Z $CA $FiLeDeCiMaLeS.4 | \ #
#20240818100231____:$Z $SE -e 's/\\//g' | \ #
#20240818100231____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240818100231____:$Z $R "@" "$K_NL" | \ #
#20240818100231____:$Z $GRE -v '^ *$' | \ #
#20240818100231____:$Z $SE \ #
#20240818100231____:$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \ #
#20240818100231____:$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \ #
#20240818100231____:$Z >> $FiLePoInTs #
$Z $CA $FiLeDeCiMaLeS.9 | \
$Z $SE \
$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \
$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \
$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \
$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \
$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \
$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \
$Z >> $FiLePoInTs
$Z else
#20240818100231____:$Z $CA $FiLeDeCiMaLeS.4 | \ #
#20240818100231____:$Z $SE -e 's/\\//g' | \ #
#20240818100231____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240818100231____:$Z $R "@" "$K_NL" | \ #
#20240818100231____:$Z $GRE -v '^ *$' | \ #
#20240818100231____:$Z $SE \ #
#20240818100231____:$Z -e 's/^0$'"/$pXYZ $pXYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^1$'"/$mXYZ $mXYZ $_XYZ/" \ #
#20240818100231____:$Z -e 's/^2$'"/$_XYZ $pXYZ $pXYZ/" \ #
#20240818100231____:$Z -e 's/^3$'"/$_XYZ $mXYZ $mXYZ/" \ #
#20240818100231____:$Z -e 's/^4$'"/$pXYZ $_XYZ $pXYZ/" \ #
#20240818100231____:$Z -e 's/^5$'"/$mXYZ $_XYZ $mXYZ/" \ #
#20240818100231____:$Z >> $FiLePoInTs #
$Z $CA $FiLeDeCiMaLeS.9 | \
$Z $SE \
$Z -e 's/^0$'"/$pXYZ $pXYZ $_XYZ/" \
$Z -e 's/^1$'"/$mXYZ $mXYZ $_XYZ/" \
$Z -e 's/^2$'"/$_XYZ $pXYZ $pXYZ/" \
$Z -e 's/^3$'"/$_XYZ $mXYZ $mXYZ/" \
$Z -e 's/^4$'"/$pXYZ $_XYZ $pXYZ/" \
$Z -e 's/^5$'"/$mXYZ $_XYZ $mXYZ/" \
$Z >> $FiLePoInTs
$Z endif
$Z FilSTmpE FiLeDeCiMaLeS
$Z set NPoInTs=`$CA $FiLePoInTs | $WCl`
$Z # ATTENTION, '$NPoInTs' n'est pas egal a '$_____NIterations' plus 1 car, en effet, on est #
$Z # passe de la base 10 a la base 6 et donc le nombre de chiffres augmente (on passe, par #
$Z # exemple, de 100 a 128...). #
$Z echo "NombreDecimalesBase6="`calcul $NPoInTs-1`
$Z # Le "-1" vient du point de depart {0,0,0} introduit au prealabale... #
$Z $CA $FiLePoInTs | \
$Z $AW ' { print $1 } ' | \
$Z $xrv/accumule.01$X ne=$NPoInTs \
$Z fichier== \
$Z > $FiLePoInTs$COORD_X
$Z $CA $FiLePoInTs | \
$Z $AW ' { print $2 } ' | \
$Z $xrv/accumule.01$X ne=$NPoInTs \
$Z fichier== \
$Z > $FiLePoInTs$COORD_Y
$Z $CA $FiLePoInTs | \
$Z $AW ' { print $3 } ' | \
$Z $xrv/accumule.01$X ne=$NPoInTs \
$Z fichier== | \
$Z $xrv/AXPB.01$X \
$Z fichier== \
$Z homothetie=$_____ExpansionZ \
$Z > $FiLePoInTs$COORD_Z
$Z # ATTENTION : une valeur negative pour '$_____ExpansionZ' revient a inverser les conventions #
$Z # de codage ("4"={$_XYZ,$_XYZ,$pXYZ} et "5"={$_XYZ,$_XYZ,$mXYZ}) ci-dessus... #
$Z $xci/valeurs_inte$X premiere=1 derniere=$NPoInTs \
$Z vD=$_____NiveauMinimal vA=$_____NiveauMaximal \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FiLePoInTs.Niveau