#######################################################################################################################################
# #
# C O U R B E D E H I L B E R T T R I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiirv/.HILB.31.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20120417105812). #
# #
#######################################################################################################################################
$Z setParam _____Programme $xci/valeurs_Hilbert3D$X
$Z # Introduit le 20130625145754 pour permettre de transmettres a '$_____Programme' des #
$Z setParam _____Arguments "$K_VIDE"
$Z # Introduit le 20130625145754 pour permettre de transmettres a '$_____Programme' des #
$Z # arguments specifiques au cas ou ce dernier ne serait pas '$xci/valeurs_Hilbert3D$X'... #
$Z setParam _____Profondeur 4
$Z setParam _____Grossissement 1
$Z setParam _____Points 32
$Z setParam _____NombreR 1
$Z setParam _____Cubique FAUX
$Z setParam _____DeriveeX 0
$Z setParam _____DeriveeY 0
$Z setParam _____DeriveeZ 0
$Z setParam _____ParticulePara1 "$K_VIDE"
$Z setParam _____MinX 0.2
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____MaxX 0.8
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____MinY 0.2
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____MaxY 0.8
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____MinZ 0.2
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____MaxZ 0.8
$Z # Parametre introduit le 20120428104941... #
$Z setParam _____DemiPaveX `GetParam $xrv/store_album$X demi_pave_X`
$Z # Parametre introduit le 20120429170733... #
$Z setParam _____DemiPaveY `GetParam $xrv/store_album$X demi_pave_Y`
$Z # Parametre introduit le 20120429170733... #
$Z setParam _____DemiPaveZ `GetParam $xrv/store_album$X demi_pave_Z`
$Z # Parametre introduit le 20120429170733... #
$Z FileTmpB FiLeTmP_HILBERT
$Z $_____Programme \
$Z profondeur=$_____Profondeur \
$Z $_____Arguments \
$Z > $FiLeTmP_HILBERT
$Z $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $1 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_X
$Z $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $2 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_Y
$Z $CA $FiLeTmP_HILBERT | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e "s/^.*=//" \
$Z > $FiLeTmP_HILBERT$COORD_Z
$Z set Npart=`$CA $FiLeTmP_HILBERT | $WCl`
$Z FileTmpB LiStEPoInTs
$Z $xrv/particule.10$X np=1 iterations=$Npart \
$Z dernier_premier=VRAI \
$Z LISTE_X=$FiLeTmP_HILBERT$COORD_X \
$Z LISTE_Y=$FiLeTmP_HILBERT$COORD_Y \
$Z LISTE_Z=$FiLeTmP_HILBERT$COORD_Z \
$Z LISTE_RAYON=0.01 \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z ZOOM=1 \
$Z zoom_automatique=FAUX \
$Z ROTATION_OX=0 \
$Z ROTATION_OY=0 \
$Z ROTATION_OZ=0 \
$Z isoles=FAUX chainer=FAUX \
$Z ajuster_points=VRAI points=$_____Points nombreR=$_____NombreR \
$Z equidistance=VRAI compatibilite_20051230=FAUX \
$Z cubique=$_____Cubique \
$Z derivees_automatiques=FAUX \
$Z LISTE_dX=$_____DeriveeX LISTE_dY=$_____DeriveeY LISTE_dZ=$_____DeriveeZ \
$Z RVB=VRAI \
$Z N_AU_CARRE=FAUX \
$Z editer_extrema_hors=FAUX \
$Z $_____ParticulePara1 \
$Z R=$FiLeTmP_HILBERT \
$Z chiffres=0 \
$Z lister_les_points_apres=VRAI \
$Z lister_les_points=VRAI \
$Z $formatI \
$Z >& $LiStEPoInTs
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*X=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinX MR=$_____MaxX \
$Z > $LiStEPoInTs$COORD_X
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Y=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinY MR=$_____MaxY \
$Z > $LiStEPoInTs$COORD_Y
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*Z=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinZ MR=$_____MaxZ \
$Z > $LiStEPoInTs$COORD_Z
$Z # On notera le 20130626081843 que si la courbe est dans un plan {X,Y}, alors la coordonnee #
$Z # 'Z' est constante. Sa valeur normalisee est alors nulle ce qui est ennuyeux pour les #
$Z # rotations tridimensionnelles qui demandent que l'objet soit centre dans l'espace ; dans #
$Z # cas il faudrait avoir Z=0.5 a la place de Z=0... #
$Z FileTmpE FiLeTmP_HILBERT
$Z $xrv/store_album$X \
$Z ne=0 \
$Z LISTE_X=$LiStEPoInTs$COORD_X \
$Z LISTE_Y=$LiStEPoInTs$COORD_Y \
$Z LISTE_Z=$LiStEPoInTs$COORD_Z \
$Z LISTE_NIVEAU=1 \
$Z demi_pave_X=$_____DemiPaveX \
$Z demi_pave_Y=$_____DemiPaveY \
$Z demi_pave_Z=$_____DemiPaveZ \
$Z tester_hors_bornes_naturelles=FAUX \
$Z premiere=$cPremiere \
$Z R=$_____ImageT1. \
$Z Zmin=0 Zmax=`calcul $cDerniere-$cPremiere` \
$Z $formatI
$Z FileTmpE LiStEPoInTs