#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L ' A C I N U S   P U L M O N A I R E  :                                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.ACIN.Y1.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160222104901).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  foreach             TeMpS ($LiStE)
$Z                                      FileTmpB            FDoNnEeSL

$Z                                      $CA                 $FDiameter_                                                           |     \
$Z                                      $GRE                "^$TeMpS "                                                            |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*  *//"                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $NL                 $Args_NL                                                              |     \
$Z                                      $AW                 ' { print $1 " " $2 } '                                               |     \
$Z                                      $GRE                "$_____MExtractionL"                                                  |     \
$Z                                      $AW                 ' { print $2 } '                                                      |     \
$Z                                      $xrv/un_sur_N.01$X  ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          $Args_Paquets                                                               \
$Z                                                                                                            >   $FDoNnEeSL.FDiameter_
$Z                                      $CA                 $FLength___                                                           |     \
$Z                                      $GRE                "^$TeMpS "                                                            |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*  *//"                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $NL                 $Args_NL                                                              |     \
$Z                                      $AW                 ' { print $1 " " $2 } '                                               |     \
$Z                                      $GRE                "$_____MExtractionL"                                                  |     \
$Z                                      $AW                 ' { print $2 } '                                                      |     \
$Z                                      $xrv/un_sur_N.01$X  ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          $Args_Paquets                                                               \
$Z                                                                                                            >   $FDoNnEeSL.FLength___

$Z                                      $CA                 $FData1____                                                           |     \
$Z                                      $GRE                "^$TeMpS "                                                            |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*  *//"                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      (eval                "$_____FiltreData1")                                                 |     \
$Z                                      $NL                 $Args_NL                                                              |     \
$Z                                      $AW                 ' { print $1 " " $2 } '                                               |     \
$Z                                      $GRE                "$_____MExtractionL"                                                  |     \
$Z                                      $AW                 ' { print $2 } '                                                      |     \
$Z                                      $xrv/un_sur_N.01$X  ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          $Args_Paquets                                                               \
$Z                                                                                                            >   $FDoNnEeSL.FData1____
$Z                                      # Le 20160614131550 fut introduit le '(eval ...)' afin de permettre a '$_____FiltreData1'     #
$Z                                      # de contenir un ou plusieurs "pipes"...                                                      #

$Z                                      $CA                 $FData2____                                                           |     \
$Z                                      $GRE                "^$TeMpS "                                                            |     \
$Z                                      $SE                 -e "s/^[$Alphabet_0_9][$Alphabet_0_9]*  *//"                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      (eval                "$_____FiltreData2")                                                 |     \
$Z                                      $NL                 $Args_NL                                                              |     \
$Z                                      $AW                 ' { print $1 " " $2 } '                                               |     \
$Z                                      $GRE                "$_____MExtractionL"                                                  |     \
$Z                                      $AW                 ' { print $2 } '                                                      |     \
$Z                                      $xrv/un_sur_N.01$X  ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                          $Args_Paquets                                                               \
$Z                                                                                                            >   $FDoNnEeSL.FData2____
$Z                                      # Le 20160614131550 fut introduit le '(eval ...)' afin de permettre a '$_____FiltreData2'     #
$Z                                      # de contenir un ou plusieurs "pipes"...                                                      #

$Z                                      set                 NFDiameter_=`$CA $FDoNnEeSL.FDiameter_ | $WCl`
$Z                                      set                 NFLength___=`$CA $FDoNnEeSL.FLength___ | $WCl`
$Z                                      set                 NFData1____=`$CA $FDoNnEeSL.FData1____ | $WCl`
$Z                                      set                 NFData2____=`$CA $FDoNnEeSL.FData2____ | $WCl`
$Z                                      set                 MiNiMuM1__=`$xcg/MIN2.01$X a=$NFDiameter_ b=$NFLength___`
$Z                                      set                 MiNiMuM2__=`$xcg/MIN2.01$X a=$NFData1____ b=$NFData2____`
$Z                                      set                 Npart=`$xcg/MIN2.01$X a=$MiNiMuM1__ b=$MiNiMuM2__`

$Z                                      FileTmpB            FPoInTs



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.