#######################################################################################################################################
# #
# 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/.CARB.91.2.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20150811095719). #
# #
#######################################################################################################################################
$Z setParam _____MinX 0.2
$Z setParam _____MaxX 0.8
$Z setParam _____MinY 0.2
$Z setParam _____MaxY 0.8
$Z setParam _____MinZ 0.2
$Z setParam _____MaxZ 0.8
$Z setParam _____PCubique `GetParam $xrv/store_album$X epaississement_cubique`
$Z # Parametre introduit le 20150815105649... #
$Z setParam _____DemiPaveX `GetParam $xrv/store_album$X demi_pave_X`
$Z setParam _____DemiPaveY `GetParam $xrv/store_album$X demi_pave_Y`
$Z setParam _____DemiPaveZ `GetParam $xrv/store_album$X demi_pave_Z`
$Z setParam _____NormXPara "$K_VIDE"
$Z # Parametre introduit le 20160306144838... #
$Z setParam _____NormYPara "$K_VIDE"
$Z # Parametre introduit le 20160306144838... #
$Z setParam _____NormZPara "$K_VIDE"
$Z # Parametre introduit le 20160306144838... #
$Z SETParam _____DemiPaveVariable $NEXIST
$Z # Parametre introduit le 20201028121030... #
$Z setParam _____DemiPaveVariableG `GetParam $xrv/val_alea.01$X graine`
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____DemiPaveVariableBi 1
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____DemiPaveVariableBs 1
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____DemiPaveVariableIt 10
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____DemiPaveVariableBm 0
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____DemiPaveVariableBM 1
$Z # Parametre introduit le 20201028174026... #
$Z setParam _____StoreAlbumPara "$K_VIDE"
$Z # Parametre introduit le 20160306140554... #
$Z set DeMi_PaVeS="$K_VIDE"
$Z if ($_____DemiPaveVariable == $EXIST) then
$Z # Test introduit le 20201028121030... #
$Z set NPoInTs=`$CA $LiStEPoInTs | $WCl`
#20201029103654____:$Z $xrv/val_alea.01$X ne=$NPoInTs \ #
#20201029103654____:$Z LISTE_BORNES_INFERIEURES=$_____DemiPaveVariableBi \ #
#20201029103654____:$Z LISTE_BORNES_SUPERIEURES=$_____DemiPaveVariableBs | \ #
#20201029103654____:$Z $xrv/lissage.01$X ne=0 fichier== \ #
#20201029103654____:$Z passes=$_____DemiPaveVariableIt | \ #
#20201029103654____:$Z $xrv/normalise.01$X ne=0 fichier== \ #
#20201029103654____:$Z m=$_____DemiPaveVariableBm \ #
#20201029103654____:$Z M=$_____DemiPaveVariableBM \ #
#20201029103654____:$Z forcer_extrema=VRAI \ #
#20201029103654____:$Z > $LiStEPoInTs.perturbe #
#20201107101214____:$Z $xrv/val_alea.01$X ne=$NPoInTs \ #
#20201107101214____:$Z LISTE_BORNES_INFERIEURES=$_____DemiPaveVariableBi \ #
#20201107101214____:$Z LISTE_BORNES_SUPERIEURES=$_____DemiPaveVariableBs | \ #
#20201107101214____:$Z $xrv/decoupage.01$X ne=0 fichier== \ #
#20201107101214____:$Z dupliquer=FAUX \ #
#20201107101214____:$Z nombre_points=$_____DemiPaveVariableIt | \ #
#20201107101214____:$Z $HEA -$NPoInTs | \ #
#20201107101214____:$Z $xrv/normalise.01$X ne=0 fichier== \ #
#20201107101214____:$Z m=$_____DemiPaveVariableBm \ #
#20201107101214____:$Z M=$_____DemiPaveVariableBM \ #
#20201107101214____:$Z forcer_extrema=VRAI \ #
#20201107101214____:$Z > $LiStEPoInTs.perturbe #
$Z $xrv/val_alea.01$X ne=$NPoInTs \
$Z graine=$_____DemiPaveVariableG \
$Z LISTE_BORNES_INFERIEURES=$_____DemiPaveVariableBi \
$Z LISTE_BORNES_SUPERIEURES=$_____DemiPaveVariableBs | \
$Z $xrv/decoupage.01$X ne=0 fichier== \
$Z dupliquer=FAUX \
$Z nombre_points=$_____DemiPaveVariableIt | \
$Z $HEA -$NPoInTs | \
$Z $xrv/normalise.01$X ne=0 fichier== \
$Z m=$_____DemiPaveVariableBm \
$Z M=$_____DemiPaveVariableBM \
$Z forcer_extrema=VRAI \
$Z > $LiStEPoInTs.perturbe
$Z # On notera le 20201029092548 que cette facon de faire implique que les neouds du maillage #
$Z # (resultant du processus initial...) qui figurent plusieurs fois dans les listes de #
$Z # coordonnees '$LiStEPoInTs$COORD_?' sont donc perturbes plusieurs fois ici et ce de facon #
$Z # differente. Mais cela n'est pas grave car les differentes spheres representatives de chaque #
$Z # noeud sont concentriques et donc donc seule la plus grosse apparait... #
$Z set GrOsSiSsEmEnT=$_____Grossissement
$Z # Afin de reduire la longueur de lignes a venir... #
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*RAYON=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____DemiPaveX MR=`calcul $GrOsSiSsEmEnT*$_____DemiPaveX` | \
$Z $xrv/MUL2.11$X ne=0 fichier1=$LiStEPoInTs.perturbe fichier2== \
$Z > $LiStEPoInTs.rX
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*RAYON=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____DemiPaveY MR=`calcul $GrOsSiSsEmEnT*$_____DemiPaveY` | \
$Z $xrv/MUL2.11$X ne=0 fichier1=$LiStEPoInTs.perturbe fichier2== \
$Z > $LiStEPoInTs.rY
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*RAYON=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____DemiPaveZ MR=`calcul $GrOsSiSsEmEnT*$_____DemiPaveZ` | \
$Z $xrv/MUL2.11$X ne=0 fichier1=$LiStEPoInTs.perturbe fichier2== \
$Z > $LiStEPoInTs.rZ
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_X=0"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_Y=0"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_Z=0"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" LISTE_DEMI_PAVE_X=$LiStEPoInTs.rX"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" LISTE_DEMI_PAVE_Y=$LiStEPoInTs.rY"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" LISTE_DEMI_PAVE_Z=$LiStEPoInTs.rZ"
$Z else
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_X=$_____DemiPaveX"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_Y=$_____DemiPaveY"
$Z set DeMi_PaVeS="$DeMi_PaVeS"" demi_pave_Z=$_____DemiPaveZ"
$Z endif
$Z $CA $LiStEPoInTs | \
$Z $SE -e 's/^.*X=\([^ ]*\) .*$/\1/' | \
$Z $xrv/normalise.01$X ne=0 fichier== mR=$_____MinX MR=$_____MaxX $_____NormXPara \
$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 $_____NormYPara \
$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 $_____NormZPara \
$Z > $LiStEPoInTs$COORD_Z
$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 epaississement_cubique=$_____PCubique \
$Z $DeMi_PaVeS \
$Z tester_hors_bornes_naturelles=FAUX \
$Z premiere=$cPremiere \
$Z $_____StoreAlbumPara \
$Z R=$_____ImageT1. \
$Z Zmin=0 Zmax=`calcul $cDerniere-$cPremiere` \
$Z $formatI
$Z FileTmpE LiStEPoInTs
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.