#######################################################################################################################################
# #
# 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 B I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirv/.PIPO.61.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20131213121413). #
# #
#######################################################################################################################################
$Z SETParam _____SupPartieEntiere $EXIST
$Z # Parametre introduit le 20240819124934 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 _____Z0 0
$Z # Parametre introduit le 20131221205144... #
$Z setParam _____ZN 0
$Z # Parametre introduit le 20131221205144... #
$Z setParam _____DistanceMini 0.005
$Z setParam _____Palette $xiP/cercle.I5
$Z setParam _____Zoom 0.5
$Z setParam _____ParticulePara2 "$K_VIDE"
$Z FilSTmpB FiLePoInTs
$Z FilSTmpB FiLeDeCiMaLeS
$Z echo "ibase = 10;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "obase = 4;" \
$Z >> $FiLeDeCiMaLeS
#20240819085858____:$Z echo "pi=\\" \ #
#20240819085858____:$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 20140206122215 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
#20240819085858____:$Z echo "pi;" \ #
#20240819085858____:$Z >> $FiLeDeCiMaLeS #
$Z echo "nombre;" \
$Z >> $FiLeDeCiMaLeS
$Z echo "quit;" \
$Z >> $FiLeDeCiMaLeS
$Z set dXY=0.04
$Z set pXY="+$dXY"
$Z set mXY="-$dXY"
$Z set _XY=0
$Z echo "$_XY $_XY" \
$Z >> $FiLePoInTs
#20240818100239____:$Z $BC $FiLeDeCiMaLeS | \ #
#20240818100239____:$Z $SE -e 's/\\//g' | \ #
#20240818100239____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240818100239____:$Z $R "@" "$K_NL" | \ #
#20240818100239____:$Z $GRE -v '^ *$' | \ #
#20240818100239____:$Z $SE \ #
#20240818100239____:$Z -e 's/^0$'"/$pXY $_XY/" \ #
#20240818100239____:$Z -e 's/^1$'"/$mXY $_XY/" \ #
#20240818100239____:$Z -e 's/^2$'"/$_XY $pXY/" \ #
#20240818100239____:$Z -e 's/^3$'"/$_XY $mXY/" \ #
#20240818100239____:$Z >> $FiLePoInTs #
#20240903141936____:$Z $BC $FiLeDeCiMaLeS | \ #
#20240903141936____:$Z $SE -e 's/\\//g' | \ #
#20240903141936____:$Z $SE -e "s/\(.\)/\1@/g" | \ #
#20240903141936____:$Z $R "@" "$K_NL" | \ #
#20240903141936____:$Z $GRE -v '^ *$' \ #
#20240903141936____:$Z > $FiLeDeCiMaLeS.9 #
$Z # Fichier introduit le 20240818100239... #
$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 20240818100239... #
$Z _____include(_____xiirv/.CheckChiffresDecimales.01._____U)
$Z # Editions eventuelles introduites le 20240818103517 via '$CheckChiffresDecimales'... #
$Z $CA $FiLeDeCiMaLeS.9 | \
$Z $SE \
$Z -e 's/^0$'"/$pXY $_XY/" \
$Z -e 's/^1$'"/$mXY $_XY/" \
$Z -e 's/^2$'"/$_XY $pXY/" \
$Z -e 's/^3$'"/$_XY $mXY/" \
$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 4 et donc le nombre de chiffres augmente... #
$Z echo "NombreDecimalesBase4="`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 $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