#######################################################################################################################################
# #
# 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 #
# V U E S C O M M E U N G R A N D N O M B R E E N T I E R #
# 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.21.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20131207094905). #
# #
#######################################################################################################################################
$Z SETParam _____SupPartieEntiere $EXIST
$Z # Parametre introduit le 20240819124710 uniquement parce qu'il est reference dans #
$Z # 'v $xiirv/.CheckChiffresDecimales.01.$U _____SupPartieEntiere' et qu'ici on supprime #
$Z # la partie entiere systematiquement... #
$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 _____ParticulePara2 "$K_VIDE"
$Z FilSTmpB FiLePoInTs
$Z FilSTmpB FiLeDeCiMaLeS
$Z echo "ibase = 10;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "obase = 6;" \
$Z >> $FiLeDeCiMaLeS
#20240819085627____:$Z echo "pi=\\" \ #
#20240819085627____:$Z >> $FiLeDeCiMaLeS #
$Z echo "nombre = \\" \
$Z >> $FiLeDeCiMaLeS
$Z $CA $_____FDecimales | \
$Z $SE -e "s/^ *//" \
$Z -e "s/^3[,.]//" | \
$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 20140206121823 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
#20240819085627____:$Z echo "pi;" \ #
#20240819085627____:$Z >> $FiLeDeCiMaLeS #
$Z echo "nombre;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "quit;" \
$Z >> $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
#20240818100241____:$Z $BC $FiLeDeCiMaLeS | \ #
#20240818100241____:$Z $SE -e 's/\\//g' | \ #
#20240818100241____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240818100241____:$Z $R "@" "$K_NL" | \ #
#20240818100241____:$Z $GRE -v '^ *$' | \ #
#20240818100241____:$Z $SE \ #
#20240818100241____:$Z -e 's/^0$'"/$pXYZ $_XYZ $_XYZ/" \ #
#20240818100241____:$Z -e 's/^1$'"/$mXYZ $_XYZ $_XYZ/" \ #
#20240818100241____:$Z -e 's/^2$'"/$_XYZ $pXYZ $_XYZ/" \ #
#20240818100241____:$Z -e 's/^3$'"/$_XYZ $mXYZ $_XYZ/" \ #
#20240818100241____:$Z -e 's/^4$'"/$_XYZ $_XYZ $pXYZ/" \ #
#20240818100241____:$Z -e 's/^5$'"/$_XYZ $_XYZ $mXYZ/" \ #
#20240818100241____:$Z >> $FiLePoInTs #
#20240903141129____:$Z $BC $FiLeDeCiMaLeS | \ #
#20240903141129____:$Z $SE -e 's/\\//g' | \ #
#20240903141129____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240903141129____:$Z $R "@" "$K_NL" | \ #
#20240903141129____:$Z $GRE -v '^ *$' \ #
#20240903141129____:$Z > $FiLeDeCiMaLeS.9 #
$Z $BC $FiLeDeCiMaLeS \
$Z > $FiLeDeCiMaLeS.1
$Z $CA $FiLeDeCiMaLeS.1 | \
$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 20240818100241... #
$Z _____include(_____xiirv/.CheckChiffresDecimales.01._____U)
$Z # Editions eventuelles introduites le 20240818103343 via '$CheckChiffresDecimales'... #
$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 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=$NOIR_PLANCHER vA=$BLANC \
$Z lineaire=VRAI \
$Z entiers=VRAI \
$Z > $FiLePoInTs.Niveau