####################################################################################################################################### # # # D E F I N I T I O N D ' U N A U T O M A T E C E L L U L A I R E # # M O N O D I M E N S I O N N E L B I N A I R E E L E M E N T A I R E : # # # # # # Author of '$xiird/.AC1B.2.11.$U' : # # # # Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). # # # ####################################################################################################################################### $Z source $xci/AutoC_NDB$vv$Y $Z if ($?_____AutoCellB == $NEXIST) then $Z set _____AutoCellB="$K_VIDE" $Z set _____AutoCellB="$_____AutoCellB $pN$pN$pN$pS$pB" $Z set _____AutoCellB="$_____AutoCellB $pN$pN$pB$pS$pN" $Z set _____AutoCellB="$_____AutoCellB $pN$pB$pN$pS$pN" $Z set _____AutoCellB="$_____AutoCellB $pN$pB$pB$pS$pB" $Z set _____AutoCellB="$_____AutoCellB $pB$pN$pN$pS$pN" $Z set _____AutoCellB="$_____AutoCellB $pB$pN$pB$pS$pN" $Z set _____AutoCellB="$_____AutoCellB $pB$pB$pN$pS$pN" $Z set _____AutoCellB="$_____AutoCellB $pB$pB$pB$pS$pB" $Z else $Z endif $Z setParam _____FAutoCellB $xTV/AUTOMC.1B $Z setParam _____EdAutoCellB $NEXIST $Z setParam _____RendreContinu $NEXIST $Z setParam _____Multiple 1 $Z # La possibilite d'introduire des discontinuites a ete introduite le 20081126144621... # #20081122103202____:$Z $xci/AutoC_1DB.01$Z $_____FAutoCellB "$_____AutoCellB" $_____EdAutoCellB # $Z $xci/AutoC_1DB.01$Z $_____FAutoCellB "$_____AutoCellB" $_____EdAutoCellB $_____RendreContinu $_____Multiple $Z # La possibilite de rendre pseudo-continu a ete introduite le 20081122103202... #