#######################################################################################################################################
# #
# C A L C U L D E L ' E P O N G E D E M E N G E R : #
# #
# #
# Author of '$xiirf/.MENG.21.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20140912140639). #
# #
#######################################################################################################################################
$Z SETParam _____RapportHomothetie `GetParam $xrf/EpongeDeMenger.01$X rapport`
$Z # Parametre introduit le 20171106105456. #
$Z SETParam _____XYmax `calculINS (303*$_____RapportHomothetie)-1`
$Z # Parametre introduit le 20140921092524... #
$Z # #
$Z # Doit etre un multiple de 3 moins 1 ('v $xrf/EpongeDeMenger.01$K NON_DIVISIBLE')... #
$Z SETParam cPremiere 1
$Z # Parametre introduit le 20140921094735... #
$Z SETParam cDerniere `calculINS 171*$_____RapportHomothetie`
$Z # Parametre introduit le 20140921094735... #
$Z # #
$Z # Doit etre un multiple de 3 ('v $xrf/EpongeDeMenger.01$K NON_DIVISIBLE')... #
$Z setParam _____MIterations 4
$Z # Le 20150323092421 le nom '$_____Iterations' a ete change en '$_____MIterations' afin #
$Z # d'eviter des "interferences" avec 'v $xiirf/.FRB3.32.2.1.$U _____Iterations'... #
$Z SETParam _____CoteCube 0.5
$Z setParam _____OrigineCube `calcul (1-$_____CoteCube)/2`
$Z setParam _____Eponge `GetParam $xrf/EpongeDeMenger.01$X niveau_eponge`
$Z # Parametre introduit le 20140916090426... #
$Z setParam _____IncrementEponge `GetParam $xrf/EpongeDeMenger.01$X increment_niveau_eponge`
$Z # Parametre introduit le 20240621100511. #
$Z setParam _____CEponge `GetParam $xrf/EpongeDeMenger.01$X niveau_complement_eponge`
$Z # Parametre introduit le 20140916090426... #
#20240830123542____:$Z setParam _____NTA 0 #
$Z # Parametre introduit le 20240822081627... #
$Z # #
$Z # On rappelle le 20240822094837 que '$_____NTA' est un parametre determine heuristiquement #
$Z # en executant une premiere fois le '$Z' correspondant et en recuperant alors sa valeur #
$Z # ans le message ""NombreTirageAleatoires=..." edite par '$xrf/EpongeDeMenger.01$X'... #
$Z # #
$Z # Le 20240830123542, l'initialisation de '$_____NTA' s'il n'existe pas a ete supprimee afin #
$Z # d'assurer la compatibilite anterieure avec les '$Z's qui ne l'utillisent pas et n'en ont #
$Z # pas besoin ('v $xiirf/$Fnota Debut_listG_MENH_E2_4' par exemple...). #
$Z setParam _____KeepFRegles "$K_VIDE"
$Z # Parametre introduit le 20240919092814... #
$Z setParam _____ParamMenger "$K_VIDE"
$Z # Parametre introduit le 20171107125431... #
$Z SformatI
$Z XYmaxNe $_____XYmax $_____XYmax
#20240621100511____:$Z $xrf/EpongeDeMenger.01$X \ #
#20240621100511____:$Z rapport_homothetie=$_____RapportHomothetie \ #
#20240621100511____:$Z nombre_iterations=$_____MIterations \ #
#20240621100511____:$Z premiere=$cPremiere \ #
#20240621100511____:$Z x0=$_____OrigineCube \ #
#20240621100511____:$Z y0=$_____OrigineCube \ #
#20240621100511____:$Z z0=$_____OrigineCube \ #
#20240621100511____:$Z cote=$_____CoteCube \ #
#20240621100511____:$Z niveau_eponge=$_____Eponge \ #
#20240621100511____:$Z niveau_complement_eponge=$_____CEponge \ #
#20240621100511____:$Z $_____ParamMenger \ #
#20240621100511____:$Z R=$_____ImageT2. \ #
#20240621100511____:$Z Zmin=$cPremiere \ #
#20240621100511____:$Z Zmax=$cDerniere \ #
#20240621100511____:$Z $formatI #
#20240822081627____:$Z $xrf/EpongeDeMenger.01$X \ #
#20240822081627____:$Z rapport_homothetie=$_____RapportHomothetie \ #
#20240822081627____:$Z nombre_iterations=$_____MIterations \ #
#20240822081627____:$Z premiere=$cPremiere \ #
#20240822081627____:$Z x0=$_____OrigineCube \ #
#20240822081627____:$Z y0=$_____OrigineCube \ #
#20240822081627____:$Z z0=$_____OrigineCube \ #
#20240822081627____:$Z cote=$_____CoteCube \ #
#20240822081627____:$Z niveau_eponge=$_____Eponge \ #
#20240822081627____:$Z increment_niveau_eponge=$_____IncrementEponge \ #
#20240822081627____:$Z niveau_complement_eponge=$_____CEponge \ #
#20240822081627____:$Z $_____ParamMenger \ #
#20240822081627____:$Z R=$_____ImageT2. \ #
#20240822081627____:$Z Zmin=$cPremiere \ #
#20240822081627____:$Z Zmax=$cDerniere \ #
#20240822081627____:$Z $formatI #
$Z FilSTmpB NoMbReTiRaGeAlEaToIrEs
$Z $xrf/EpongeDeMenger.01$X \
$Z rapport_homothetie=$_____RapportHomothetie \
$Z nombre_iterations=$_____MIterations \
$Z premiere=$cPremiere \
$Z x0=$_____OrigineCube \
$Z y0=$_____OrigineCube \
$Z z0=$_____OrigineCube \
$Z cote=$_____CoteCube \
$Z niveau_eponge=$_____Eponge \
$Z increment_niveau_eponge=$_____IncrementEponge \
$Z niveau_complement_eponge=$_____CEponge \
$Z $_____ParamMenger \
$Z R=$_____ImageT2. \
$Z Zmin=$cPremiere \
$Z Zmax=$cDerniere \
$Z $formatI \
$Z >>& $NoMbReTiRaGeAlEaToIrEs
$Z if ("$_____KeepFRegles" != "$K_VIDE") then
$Z # Test introduit le 20240919092814... #
$Z $CA $NoMbReTiRaGeAlEaToIrEs \
$Z >> $_____KeepFRegles
$Z else
$Z $CA $NoMbReTiRaGeAlEaToIrEs
$Z endif
#20240919095200____:$Z $CA $NoMbReTiRaGeAlEaToIrEs #
$Z if ($?_____NTA == $EXIST) then
$Z # Test introduit le 20240830123542... #
$Z set ChEcK_NoMbReTiRaGeAlEaToIrEs=`$CA $NoMbReTiRaGeAlEaToIrEs | $SE -e "s/^.*=//"`
$Z if ($ChEcK_NoMbReTiRaGeAlEaToIrEs != $_____NTA) then
$Z # Validation introduite le 20240822081627... #
#20240823095840____:$Z EROR "Etaient prevus $_____NTA tirages aleatoires alors que c'est $ChEcK_NoMbReTiRaGeAlEaToIrEs." #
$Z EROR "Etaient prevus $_____NTA tirages aleatoires alors que c'est $ChEcK_NoMbReTiRaGeAlEaToIrEs : sortie immediate."
$Z exit
$Z # Sortie immediate afin de ne pas propager ce defaut (introduite le 20240823095840)... #
$Z else
$Z endif
$Z unset ChEcK_NoMbReTiRaGeAlEaToIrEs
$Z else
$Z endif
$Z FilSTmpE NoMbReTiRaGeAlEaToIrEs