#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N E   E P O N G E   D E   M E N G E R   A   P A R T I R   D E   D E C I M A L E S   :           #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.MENH.C2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240615094813).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____FDecimales               $xrp/Decimales_Base02_Pi_____20000

$Z                  @                   NChIfFrEs = 0
$Z                  set                 IChIfFrEs = 1

$Z                  while               ($IChIfFrEs <= $_____MIterations)
#20240616081541____:$Z                            @                   NChIfFrEs = $NChIfFrEs + `calculINS pow(pow(3,3),$IChIfFrEs)`   #
$Z                                      @                   NChIfFrEs = $NChIfFrEs + `calculINS pow(3,3)`
$Z                                      # Ainsi on cumule les '$_____MIterations's generation(s) de cubes...                          #
$Z                                      @                   IChIfFrEs = $IChIfFrEs + 1
$Z                  end

$Z                  FilSTmpB            FDeCiMaLeS

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $SE                 -e "s/^  *//"                                                                                   \
$Z                                      -e "s/\.//"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $SE                 -e "s/ //g"                                                                                     \
$Z                                      -e "s/\(.\)/\1@/g"                                                                        |     \
$Z                  $R                  "@" "$K_NL"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $HEA                -$NChIfFrEs                                                                                     \
$Z                                                                              >> $FDeCiMaLeS

$Z                  set                 _____ParamMenger="lc=`$CA $FDeCiMaLeS`"
$Z                  set                 _____ParamMenger="`echo $_____ParamMenger | $SE -e 's/ //g'`"

$Z                  FilSTmpE            FDeCiMaLeS