***********************************************************************
*
* 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' ;