Télécharger Random_Set_Theory_02.dgibi

Retour à la liste

Numérotation des lignes :

  1. ***********************************************************************
  2. *
  3. * RSTHM.dgibi
  4. *
  5. * Random Set Theory analysis with three trivial analytic functions
  6. * @PA(A,B,C,D) ==> A + (B*C*D)
  7. * @PB(A,B,C,D) ==> (A*B) + (C*D)
  8. * @PC(A,B,C,D) ==> (A*B*D) + D
  9. *
  10. ***********************************************************************
  11.  
  12.  
  13. GRAPH = VRAI ;
  14. 'OPTI' 'TRAC' 'PSC';
  15. 'OPTI' 'EPTR' 4 ;
  16.  
  17.  
  18. 'DEBP' @PA R*'TABLE' ;
  19. * Analytical Function @PA
  20. !RV = R.'A'.'VN' + (R.'B'.'VN' * R.'C'.'VN' * R.'D'.'VN') ;
  21. 'FINP' !RV ;
  22.  
  23. 'DEBP' @PB R*'TABLE' ;
  24. * Analytical Function @PB
  25. !RV = (R.'A'.'VN' * R.'B'.'VN') + (R.'C'.'VN' * R.'D'.'VN') ;
  26. 'FINP' !RV ;
  27.  
  28. 'DEBP' @PC R*'TABLE' ;
  29. * Analytical Function @PC
  30. !RV = (R.'A'.'VN' * R.'B'.'VN' * R.'C'.'VN') + R.'D'.'VN' ;
  31. 'FINP' !RV ;
  32.  
  33.  
  34. RS = OBJET @RSTH ;
  35. RA ='TABL';
  36.  
  37. RA.'A' ='TABL';
  38. RA.'A'.'MIN' ='PROG' 1.1 1.2 1.3 ;
  39. RA.'A'.'MAX' ='PROG' 1.4 1.5 1.6 ;
  40. RA.'A'.'CPB' ='PROG' 0.1 0.5 0.4 ;
  41. RA.'A'.'MINS' = RS%'SCV' RA.'A'.'MIN' ;
  42. RA.'A'.'MAXS' = RS%'SCV' RA.'A'.'MAX' ;
  43. RA.'A'.'CPBS' = RS%'SCS' RA.'A'.'CPB' ;
  44.  
  45. EAN = ('EVOL' 'BOUT' 'MANU' 'MIN' RA.'A'.'MINS' 'CPB' RA.'A'.'CPBS' ) ;
  46. EAX = ('EVOL' 'BRIQ' 'MANU' 'MAX' RA.'A'.'MAXS' 'CPB' RA.'A'.'CPBS' ) ;
  47.  
  48.  
  49. RA.'B' ='TABL';
  50. RA.'B'.'MIN' ='PROG' 3.1 3.2 ;
  51. RA.'B'.'MAX' ='PROG' 3.3 3.4 ;
  52. RA.'B'.'CPB' ='PROG' 0.2 0.8 ;
  53. RA.'B'.'MINS' = RS%'SCV' RA.'B'.'MIN' ;
  54. RA.'B'.'MAXS' = RS%'SCV' RA.'B'.'MAX' ;
  55. RA.'B'.'CPBS' = RS%'SCS' RA.'B'.'CPB' ;
  56.  
  57. EBN = ('EVOL' 'BOUT' 'MANU' 'MIN' RA.'B'.'MINS' 'CPB' RA.'B'.'CPBS' ) ;
  58. EBX = ('EVOL' 'BRIQ' 'MANU' 'MAX' RA.'B'.'MAXS' 'CPB' RA.'B'.'CPBS' ) ;
  59.  
  60.  
  61. RA.'C' ='TABL';
  62. RA.'C'.'MIN' ='PROG' 5.1 5.2 5.3 ;
  63. RA.'C'.'MAX' ='PROG' 5.4 5.5 5.6 ;
  64. RA.'C'.'CPB' ='PROG' 0.3 0.3 0.4 ;
  65. RA.'C'.'MINS' = RS%'SCV' RA.'C'.'MIN' ;
  66. RA.'C'.'MAXS' = RS%'SCV' RA.'C'.'MAX' ;
  67. RA.'C'.'CPBS' = RS%'SCS' RA.'C'.'CPB' ;
  68.  
  69. ECN = ('EVOL' 'BOUT' 'MANU' 'MIN' RA.'C'.'MINS' 'CPB' RA.'C'.'CPBS' ) ;
  70. ECX = ('EVOL' 'BRIQ' 'MANU' 'MAX' RA.'C'.'MAXS' 'CPB' RA.'C'.'CPBS' ) ;
  71.  
  72.  
  73. RA.'D' ='TABL';
  74. RA.'D'.'MIN' ='PROG' 7.1 7.2 7.3 7.4;
  75. RA.'D'.'MAX' ='PROG' 7.5 7.6 7.7 7.8;
  76. RA.'D'.'CPB' ='PROG' 0.3 0.2 0.3 0.2;
  77. RA.'D'.'MINS' = RS%'SCV' RA.'D'.'MIN' ;
  78. RA.'D'.'MAXS' = RS%'SCV' RA.'D'.'MAX' ;
  79. RA.'D'.'CPBS' = RS%'SCS' RA.'D'.'CPB' ;
  80.  
  81. EDN = ('EVOL' 'BOUT' 'MANU' 'MIN' RA.'D'.'MINS' 'CPB' RA.'D'.'CPBS' ) ;
  82. EDX = ('EVOL' 'BRIQ' 'MANU' 'MAX' RA.'D'.'MAXS' 'CPB' RA.'D'.'CPBS' ) ;
  83.  
  84.  
  85. RB ='TABL';
  86. RB.'A' = RA.'A';
  87. RB.'B' = RA.'B';
  88. RB.'C' = RA.'C';
  89. RB.'D' = RA.'D';
  90.  
  91.  
  92. RC ='TABL';
  93. RC.'A' = RA.'A';
  94. RC.'B' = RA.'B';
  95. RC.'C' = RA.'C';
  96. RC.'D' = RA.'D';
  97.  
  98.  
  99. RSA = OBJET @RSTH ;
  100. RSB = OBJET @RSTH ;
  101. RSC = OBJET @RSTH ;
  102.  
  103.  
  104. RSA%RST RA ;
  105. RSB%RST RB ;
  106. RSC%RST RC ;
  107.  
  108.  
  109. JX = RA.'A'.'CX' ;
  110.  
  111. 'REPE' J JX ;
  112. RSA%'RSV' &J 0 ;
  113. RVA = @PA RA ;
  114. RSA%'RSR' RVA &J ;
  115. RSB%'RSV' &J 0 ;
  116. RVB = @PB RB ;
  117. RSB%'RSR' RVB &J ;
  118. RSC%'RSV' &J 0 ;
  119. RVC = @PC RC ;
  120. RSC%'RSR' RVC &J ;
  121. 'FIN' J ;
  122.  
  123.  
  124. 'SI' GRAPH ;
  125. 'DESS' ( EAN 'ET' EAX )
  126. 'TITX' 'Value A [1]'
  127. 'POSX' 'CENT'
  128. 'XBOR' 0.0 2.0
  129. 'XGRA' 0.2
  130. 'TITY' 'CPB [1]'
  131. 'POSY' 'CENT'
  132. 'YBOR' 0.0 1.0
  133. 'YGRA' 0.1
  134. 'TITR' 'Random Set Theory - Analytical computation'
  135. 'GRIL' 'POIN' 'GRIS' ;
  136. 'DESS' ( EBN 'ET' EBX )
  137. 'TITX' 'Value B [1]'
  138. 'POSX' 'CENT'
  139. 'XBOR' 2.0 4.0
  140. 'XGRA' 0.2
  141. 'TITY' 'CPB [1]'
  142. 'POSY' 'CENT'
  143. 'YBOR' 0.0 1.0
  144. 'YGRA' 0.1
  145. 'TITR' 'Random Set Theory - Analytical computation'
  146. 'GRIL' 'POIN' 'GRIS' ;
  147. 'DESS' ( ECN 'ET' ECX )
  148. 'TITX' 'Value C [1]'
  149. 'POSX' 'CENT'
  150. 'XBOR' 4.0 6.0
  151. 'XGRA' 0.2
  152. 'TITY' 'CPB [1]'
  153. 'POSY' 'CENT'
  154. 'YBOR' 0.0 1.0
  155. 'YGRA' 0.1
  156. 'TITR' 'Random Set Theory - Analytical computation'
  157. 'GRIL' 'POIN' 'GRIS' ;
  158. 'DESS' ( EDN 'ET' EDX )
  159. 'TITX' 'Value D [1]'
  160. 'POSX' 'CENT'
  161. 'XBOR' 6.0 8.0
  162. 'XGRA' 0.2
  163. 'TITY' 'CPB [1]'
  164. 'POSY' 'CENT'
  165. 'YBOR' 0.0 1.0
  166. 'YGRA' 0.1
  167. 'TITR' 'Random Set Theory - Analytical computation'
  168. 'GRIL' 'POIN' 'GRIS' ;
  169. 'DESS' ( RSA.'RT'.'EN' 'ET' RSA.'RT'.'EX' )
  170. 'TITX' 'Function PA [1]'
  171. 'POSX' 'CENT'
  172. 'XBOR' 110.0 160.0
  173. 'XGRA' 5.0
  174. 'TITY' 'CPB [1]'
  175. 'POSY' 'CENT'
  176. 'YBOR' 0.0 1.0
  177. 'YGRA' 0.1
  178. 'TITR' 'Random Set Theory - Analytical computation'
  179. 'GRIL' 'POIN' 'GRIS' ;
  180. 'DESS' ( RSB.'RT'.'EN' 'ET' RSB.'RT'.'EX' )
  181. 'TITX' 'Function PB [1]'
  182. 'POSX' 'CENT'
  183. 'XBOR' 30.0 60.0
  184. 'XGRA' 3.0
  185. 'TITY' 'CPB [1]'
  186. 'POSY' 'CENT'
  187. 'YBOR' 0.0 1.0
  188. 'YGRA' 0.1
  189. 'TITR' 'Random Set Theory - Analytical computation'
  190. 'GRIL' 'POIN' 'GRIS' ;
  191. 'DESS' ( RSC.'RT'.'EN' 'ET' RSC.'RT'.'EX' )
  192. 'TITX' 'Function PC [1]'
  193. 'POSX' 'CENT'
  194. 'XBOR' 20.0 40.0
  195. 'XGRA' 2.0
  196. 'TITY' 'CPB [1]'
  197. 'POSY' 'CENT'
  198. 'YBOR' 0.0 1.0
  199. 'YGRA' 0.1
  200. 'TITR' 'Random Set Theory - Analytical computation'
  201. 'GRIL' 'POIN' 'GRIS' ;
  202. 'FINS' ;
  203.  
  204. 'FIN' ;
  205.  
  206.  
  207.  

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