Numérotation des lignes :

************************************************************************* RSTHS.dgibi** Random Set Theory analysis with a single trivial analytic function*  @PB(A,B,C,D) ==> (A*B) + (C*D) ************************************************************************  GRAPH = VRAI ;'OPTI' 'TRAC' 'PSC';'OPTI' 'EPTR' 4 ;  'DEBP' @PB  R*TABLE ;*  Analytical Function @PB  !RV = ( (R.'A'.'VN' * R.'B'.'VN') + (R.'C'.'VN' * R.'D'.'VN') ) ;'FINP'  !RV ; RS = OBJET @RSTH ;R = 'TABL' ;   R.'A'        ='TABL' ; R.'A'.'MIN'  ='PROG' 1.1 1.2 1.3 ;R.'A'.'MAX'  ='PROG' 1.4 1.5 1.6 ;R.'A'.'CPB'  ='PROG' 0.1 0.5 0.4 ;R.'A'.'MINS' = RS%'SCV'  R.'A'.'MIN' ;R.'A'.'MAXS' = RS%'SCV'  R.'A'.'MAX' ;R.'A'.'CPBS' = RS%'SCS'  R.'A'.'CPB' ; EAN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'A'.'MINS'  'CPB'  R.'A'.'CPBS' ) ;EAX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'A'.'MAXS'  'CPB'  R.'A'.'CPBS' ) ;  R.'B'        ='TABL' ; R.'B'.'MIN'  ='PROG' 3.1 3.2 ;R.'B'.'MAX'  ='PROG' 3.3 3.4 ;R.'B'.'CPB'  ='PROG' 0.2 0.8 ;R.'B'.'MINS' = RS%'SCV'  R.'B'.'MIN' ;R.'B'.'MAXS' = RS%'SCV'  R.'B'.'MAX' ;R.'B'.'CPBS' = RS%'SCS'  R.'B'.'CPB' ; EBN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'B'.'MINS'  'CPB'  R.'B'.'CPBS' ) ;EBX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'B'.'MAXS'  'CPB'  R.'B'.'CPBS' ) ;  R.'C'        ='TABL' ;R.'C'.'MIN'  ='PROG' 5.1 5.2 5.3 ;R.'C'.'MAX'  ='PROG' 5.4 5.5 5.6 ;R.'C'.'CPB'  ='PROG' 0.3 0.3 0.4 ;R.'C'.'MINS' = RS%'SCV'  R.'C'.'MIN' ;R.'C'.'MAXS' = RS%'SCV'  R.'C'.'MAX' ;R.'C'.'CPBS' = RS%'SCS'  R.'C'.'CPB' ; ECN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'C'.'MINS'  'CPB'  R.'C'.'CPBS' ) ;ECX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'C'.'MAXS'  'CPB'  R.'C'.'CPBS' ) ;  R.'D'        = 'TABL' ;R.'D'.'MIN'  ='PROG' 7.1 7.2 7.3 7.4;R.'D'.'MAX'  ='PROG' 7.5 7.6 7.7 7.8;R.'D'.'CPB'  ='PROG' 0.3 0.2 0.3 0.2;R.'D'.'MINS' = RS%'SCV'  R.'D'.'MIN' ;R.'D'.'MAXS' = RS%'SCV'  R.'D'.'MAX' ;R.'D'.'CPBS' = RS%'SCS'  R.'D'.'CPB' ; EDN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'D'.'MINS'  'CPB'  R.'D'.'CPBS' ) ;EDX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'D'.'MAXS'  'CPB'  R.'D'.'CPBS' ) ;  RS%'RST' R ; JX = R.'A'.'CX' ; 'REPE' J JX ;  RS%'RSV'  &J  0 ;    RV = @PB R ;  RS%'RSR'  RV  &J ; 'FIN' J ;  'SI' GRAPH ; 'DESS' ( EAN 'ET' EAX )  'TITX' 'Value A [1]'  'POSX' 'CENT'  'XBOR'   0.0    2.0  'XGRA'   0.2  'TITY' 'CPB [1]'  'POSY' 'CENT'  'YBOR'   0.0    1.0  'YGRA'   0.1  'TITR' 'Random Set Theory - Analytical computation'  'GRIL' 'POIN' 'GRIS' ; 'DESS' ( EBN 'ET' EBX )  'TITX' 'Value B [1]'  'POSX' 'CENT'  'XBOR'   2.0    4.0  'XGRA'   0.2  'TITY' 'CPB [1]'  'POSY' 'CENT'  'YBOR'   0.0    1.0  'YGRA'   0.1  'TITR' 'Random Set Theory - Analytical computation'  'GRIL' 'POIN' 'GRIS' ; 'DESS' ( ECN 'ET' ECX )  'TITX' 'Value C [1]'  'POSX' 'CENT'  'XBOR'   4.0    6.0  'XGRA'   0.2  'TITY' 'CPB [1]'  'POSY' 'CENT'  'YBOR'   0.0    1.0  'YGRA'   0.1  'TITR' 'Random Set Theory - Analytical computation'  'GRIL' 'POIN' 'GRIS' ; 'DESS' ( EDN 'ET' EDX )  'TITX' 'Value D [1]'  'POSX' 'CENT'  'XBOR'   6.0    8.0  'XGRA'   0.2  'TITY' 'CPB [1]'  'POSY' 'CENT'  'YBOR'   0.0    1.0  'YGRA'   0.1  'TITR' 'Random Set Theory - Analytical computation'  'GRIL' 'POIN' 'GRIS' ; 'DESS' ( RS.'RT'.'EN' 'ET' RS.'RT'.'EX' )  'TITX' 'Function PB [1]'  'POSX' 'CENT'  'XBOR'  30.0  60.0  'XGRA'    5.0  'TITY' 'CPB [1]'  'POSY' 'CENT'  'YBOR'   0.0    1.0  'YGRA'   0.1  'TITR' 'Random Set Theory - Analytical computation'  'GRIL' 'POIN' 'GRIS' ;'FINS' ; 'FIN' ;

© Cast3M 2003 - Tous droits réservés.
Mentions légales