Télécharger la plaquette Cast3M


fr en

Télécharger Random_Set_Theory_01.dgibi

Retour à la liste

Numérotation des lignes : 

  1. ***********************************************************************
  2. *
  3. * RSTHS.dgibi
  4. *
  5. * Random Set Theory analysis with a single trivial analytic function
  6. *  @PB(A,B,C,D) ==> (A*B) + (C*D) 
  7. *
  8. ***********************************************************************
  9.  
  10.  
  11. GRAPH = VRAI ;
  12. 'OPTI' 'TRAC' 'PSC';
  13. 'OPTI' 'EPTR' 4 ;
  14.  
  15.  
  16. 'DEBP' @PB  R*TABLE ;
  17. *  Analytical Function @PB
  18.   !RV = ( (R.'A'.'VN' * R.'B'.'VN') + (R.'C'.'VN' * R.'D'.'VN') ) ;
  19. 'FINP'  !RV ;
  20.  
  21. RS = OBJET @RSTH ;
  22. R = 'TABL' ; 
  23.  
  24.  
  25. R.'A'        ='TABL' ; 
  26. R.'A'.'MIN'  ='PROG' 1.1 1.2 1.3 ;
  27. R.'A'.'MAX'  ='PROG' 1.4 1.5 1.6 ;
  28. R.'A'.'CPB'  ='PROG' 0.1 0.5 0.4 ;
  29. R.'A'.'MINS' = RS%'SCV'  R.'A'.'MIN' ;
  30. R.'A'.'MAXS' = RS%'SCV'  R.'A'.'MAX' ;
  31. R.'A'.'CPBS' = RS%'SCS'  R.'A'.'CPB' ;
  32.  
  33. EAN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'A'.'MINS'  'CPB'  R.'A'.'CPBS' ) ;
  34. EAX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'A'.'MAXS'  'CPB'  R.'A'.'CPBS' ) ;
  35.  
  36.  
  37. R.'B'        ='TABL' ; 
  38. R.'B'.'MIN'  ='PROG' 3.1 3.2 ;
  39. R.'B'.'MAX'  ='PROG' 3.3 3.4 ;
  40. R.'B'.'CPB'  ='PROG' 0.2 0.8 ;
  41. R.'B'.'MINS' = RS%'SCV'  R.'B'.'MIN' ;
  42. R.'B'.'MAXS' = RS%'SCV'  R.'B'.'MAX' ;
  43. R.'B'.'CPBS' = RS%'SCS'  R.'B'.'CPB' ;
  44.  
  45. EBN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'B'.'MINS'  'CPB'  R.'B'.'CPBS' ) ;
  46. EBX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'B'.'MAXS'  'CPB'  R.'B'.'CPBS' ) ;
  47.  
  48.  
  49. R.'C'        ='TABL' ;
  50. R.'C'.'MIN'  ='PROG' 5.1 5.2 5.3 ;
  51. R.'C'.'MAX'  ='PROG' 5.4 5.5 5.6 ;
  52. R.'C'.'CPB'  ='PROG' 0.3 0.3 0.4 ;
  53. R.'C'.'MINS' = RS%'SCV'  R.'C'.'MIN' ;
  54. R.'C'.'MAXS' = RS%'SCV'  R.'C'.'MAX' ;
  55. R.'C'.'CPBS' = RS%'SCS'  R.'C'.'CPB' ;
  56.  
  57. ECN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'C'.'MINS'  'CPB'  R.'C'.'CPBS' ) ;
  58. ECX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'C'.'MAXS'  'CPB'  R.'C'.'CPBS' ) ;
  59.  
  60.  
  61. R.'D'        = 'TABL' ;
  62. R.'D'.'MIN'  ='PROG' 7.1 7.2 7.3 7.4;
  63. R.'D'.'MAX'  ='PROG' 7.5 7.6 7.7 7.8;
  64. R.'D'.'CPB'  ='PROG' 0.3 0.2 0.3 0.2;
  65. R.'D'.'MINS' = RS%'SCV'  R.'D'.'MIN' ;
  66. R.'D'.'MAXS' = RS%'SCV'  R.'D'.'MAX' ;
  67. R.'D'.'CPBS' = RS%'SCS'  R.'D'.'CPB' ;
  68.  
  69. EDN = ('EVOL' 'BOUT' 'MANU'  'MIN'  R.'D'.'MINS'  'CPB'  R.'D'.'CPBS' ) ;
  70. EDX = ('EVOL' 'BRIQ' 'MANU'  'MAX'  R.'D'.'MAXS'  'CPB'  R.'D'.'CPBS' ) ;
  71.  
  72.  
  73. RS%'RST' R ;
  74.  
  75. JX = R.'A'.'CX' ;
  76.  
  77. 'REPE' J JX ;
  78.   RS%'RSV'  &J  0 ;  
  79.   RV = @PB R ;
  80.   RS%'RSR'  RV  &J ; 
  81. 'FIN' J ;
  82.  
  83.  
  84. 'SI' GRAPH ;
  85.  'DESS' ( EAN 'ET' EAX )
  86.   'TITX' 'Value A [1]'
  87.   'POSX' 'CENT'
  88.   'XBOR'   0.0    2.0
  89.   'XGRA'   0.2
  90.   'TITY' 'CPB [1]'
  91.   'POSY' 'CENT'
  92.   'YBOR'   0.0    1.0
  93.   'YGRA'   0.1
  94.   'TITR' 'Random Set Theory - Analytical computation'
  95.   'GRIL' 'POIN' 'GRIS' ;
  96.  'DESS' ( EBN 'ET' EBX )
  97.   'TITX' 'Value B [1]'
  98.   'POSX' 'CENT'
  99.   'XBOR'   2.0    4.0
  100.   'XGRA'   0.2
  101.   'TITY' 'CPB [1]'
  102.   'POSY' 'CENT'
  103.   'YBOR'   0.0    1.0
  104.   'YGRA'   0.1
  105.   'TITR' 'Random Set Theory - Analytical computation'
  106.   'GRIL' 'POIN' 'GRIS' ;
  107.  'DESS' ( ECN 'ET' ECX )
  108.   'TITX' 'Value C [1]'
  109.   'POSX' 'CENT'
  110.   'XBOR'   4.0    6.0
  111.   'XGRA'   0.2
  112.   'TITY' 'CPB [1]'
  113.   'POSY' 'CENT'
  114.   'YBOR'   0.0    1.0
  115.   'YGRA'   0.1
  116.   'TITR' 'Random Set Theory - Analytical computation'
  117.   'GRIL' 'POIN' 'GRIS' ;
  118.  'DESS' ( EDN 'ET' EDX )
  119.   'TITX' 'Value D [1]'
  120.   'POSX' 'CENT'
  121.   'XBOR'   6.0    8.0
  122.   'XGRA'   0.2
  123.   'TITY' 'CPB [1]'
  124.   'POSY' 'CENT'
  125.   'YBOR'   0.0    1.0
  126.   'YGRA'   0.1
  127.   'TITR' 'Random Set Theory - Analytical computation'
  128.   'GRIL' 'POIN' 'GRIS' ;
  129.  'DESS' ( RS.'RT'.'EN' 'ET' RS.'RT'.'EX' )
  130.   'TITX' 'Function PB [1]'
  131.   'POSX' 'CENT'
  132.   'XBOR'  30.0  60.0
  133.   'XGRA'    5.0
  134.   'TITY' 'CPB [1]'
  135.   'POSY' 'CENT'
  136.   'YBOR'   0.0    1.0
  137.   'YGRA'   0.1
  138.   'TITR' 'Random Set Theory - Analytical computation'
  139.   'GRIL' 'POIN' 'GRIS' ;
  140. 'FINS' ;
  141.  
  142. 'FIN' ;
  143.  
  144.  
  145.  

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