####################################################################################################################################### # # # 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