#######################################################################################################################################
#                                                                                                                                     #
#         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                                       #
#         S U R   U N E   S P I A L E   D ' A R C H I M E D E  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.D3.21.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20131223104053).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____TranslationDecimales     0
$Z                                      # Parametre introduit le 20240226092157...                                                    #

#20240226092157____:$Z                  $CA                 $_____FDecimales                                                 |     \  #
#20240226092157____:$Z                  $SE                 -e "s/^  *//"                                                          \  #
#20240226092157____:$Z                                      -e "s/^3[,.]//"                                                  |     \  #
#20240226092157____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240226092157____:$Z                  $GRE                -v 'alcul '                                                      |     \  #
#20240226092157____:$Z                  $SE                 -e "s/ //g"                                                            \  #
#20240226092157____:$Z                                      -e "s/\(.\)/\1@/g"                                               |     \  #
#20240226092157____:$Z                  $R                  "@" "$K_NL"                                                      |     \  #
#20240226092157____:$Z                  $GRE                -v '^ *$'                                                        |     \  #
#20240226092157____:$Z                  $xrv/neutre$X       ne=`calcul $PartN-$Part0+1`                                            \  #
#20240226092157____:$Z                                      fichier==                                                              \  #
#20240226092157____:$Z                                                                                             > $xTV/NIVEAUX     #

$Z                  $CA                 $_____FDecimales                                                                          |     \
$Z                  $SE                 -e "s/^  *//"                                                                                   \
$Z                                      -e "s/^3[,.]//"                                                                           |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $GRE                -v 'alcul '                                                                               |     \
$Z                  $SE                 -e "s/ //g"                                                                                     \
$Z                                      -e "s/\(.\)/\1@/g"                                                                        |     \
$Z                  $R                  "@" "$K_NL"                                                                               |     \
$Z                  $GRE                -v '^ *$'                                                                                 |     \
$Z                  $xrv/ADD2.11$X      ne=`calcul $PartN-$Part0+1`                                                                     \
$Z                                      fichier1==                                                                                      \
$Z                                      fichier2=$_____TranslationDecimales                                                             \
$Z                                                                                                  > $xTV/NIVEAUX