#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R S   C O U P L E S   D E   D E C I M A L E S   D E   P I                   #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   E N   C O O R D O N N E E S   P O L A I R E S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.C1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131221175742).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  alias     GeNeRe_A  'set      ChIfFrE="\!*"                                                                   ;    \\
$Z                                       set      ChIfFrE=`echo "0$ChIfFrE" | $SE -e "s/0\(..\)/\1/"`                             ;    \\
$Z                                       (calcul  ($dpi*$ChIfFrE)/($_____Base*$_____Base))                                        |    \\
$Z                                       $SE      -e "s+^\(.*\)+s/^$ChIfFrE$K_DOLLAR/\1/+"                                             \\
$Z                                                                                                  >> $FiLeSeD                   ;    \\
$Z                                       unset    ChIfFrE'

$Z                  set       ChIfFrE_CoUrAnT=0

$Z                  while     ($ChIfFrE_CoUrAnT < 100)
$Z                            GeNeRe_A  $ChIfFrE_CoUrAnT
$Z                            @         ChIfFrE_CoUrAnT = $ChIfFrE_CoUrAnT + 1
$Z                  end

$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                  $SE                 -f $FiLeSeD                                                                               |     \
$Z                  $CuMuLoUPas         ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                                  >> $FiLePhI