Télécharger la plaquette Cast3M


fr en

Télécharger solsoltest.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier :  solsoltest.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. SAUT PAGE ;
  5. *
  6. **************************************************************************
  7. *           UTILISATION DES OPERATEURS CHI1 ET CHI2
  8. *           EN PRESENCE DE SOLUTIONS SOLIDES
  9. **************************************************************************
  10. *
  11. * repertoire des fichiers "divers"
  12. DIVERS = VENV 'CASTEM_DIVERS';
  13. *
  14. option echo 0 ;
  15. option dime 2 ;
  16. a= 0. 0. ;
  17. b= 0. 5. ;
  18. option elem qua4 ;
  19.  ab= a droit 1 b ;
  20.  vec1= 100. 0. ;
  21.  mt = ab trans 1 vec1 ;
  22. *
  23. *************************************************************************
  24. *************************************************************************
  25. * 2 SOLUTIONS SOLIDES :
  26. * 
  27. * LA SOLUTION SOLIDE TERNAIRE CALCITE-MAGNESITE-SIDERITE , ET 
  28. * LA SOLUTION SOLIDE D'ORDRE 27 DE FORMULE GENERALE :
  29. * (Si    Al  )(Al         Fe  Mg ) O   (OH)  (K          Na  Ca  Mg  )
  30. *    4-x   x     2-y-2/3z   y   z   10     2   x-a-2b-2g   a   b   g
  31. *
  32. * 8 MINERAUX :
  33. *
  34. *              PHLOGOPITE-H, GIBBSITE, MICROCLINE, SAPONITE, QUARTZ,
  35. *              ALBITE, ILLITE, DOLOMITE
  36. *************************************************************************
  37. *************************************************************************
  38. *
  39. *************************************************************************
  40. * CAS 1 : LES 2 SOLUTIONS SOLIDES AVEC PHLOGOPITE-H, GIBBSITE, DOLOMITE, 
  41. *          MICROCLINE, QUARTZ, SAPONITE, ALBITE ET ON IMPOSE LE PH
  42. *************************************************************************
  43. * 
  44. * -------------------------
  45. * TABLE DES DONNEES DE CHI1 
  46. * -------------------------
  47. *
  48. tabdon = TABLE ;
  49. tabdon.IDEN = LECT 1 2 4 5 7 50 61 101 165 ;
  50. tabdon.CHXMX = LECT 2286 2144 2158 2184 2157 2152 2159 
  51.                     2148 2149 2150    
  52.                     2168 2169 2313 2314 2315 2316 2317
  53.                     2369 2379 2380 2381    
  54.                     2171 2280 2278 2279   
  55.                     2284 2285 2282 2283    
  56.                     2366 2368 2370 2371 2372 
  57.                     2376 2377 2378 ;
  58.  tabdon.NVSOSO = TABLE ;
  59.  tabdon.NVSOSO.1 = TABLE ; 
  60.  tabdon.NVSOSO.1 . IDEN = 30000 ;
  61.  tabdon.NVSOSO.1 . ITYP = 5 ;
  62.  tabdon.NVSOSO.1 . SOLID = LECT 2168 2169 2313 2314 2315 2316 2317
  63.                                 2369 2379 2380 2381
  64.                                 2171 2280 2278 2279  
  65.                                 2284 2285 2282 2283
  66.                                 2366 2368 2370 2371 2372  
  67.                                 2376 2377 2378 ;
  68.  tabdon.NVSOSO.2 = TABLE ; 
  69.  tabdon.NVSOSO.2 . IDEN = 31000 ;
  70.  tabdon.NVSOSO.2 . ITYP = 5 ;
  71.  tabdon.NVSOSO.2 . SOLID = LECT 2148 2149 2150 ;
  72. tabdon.CLIM = TABLE ;
  73. tabdon.CLIM.TYP3 = LECT 50 ;
  74. tabdon.BDD = 'STRASBG' ;
  75.  
  76. tb1 = CHI1 tabdon 
  77.       COMP ('CHAINE' DIVERS '/COMPSM')   ;
  78.  
  79. *IMPCHI1 tb1 'TB1' ;
  80. *                                                              
  81. *-----------------------------
  82. * TABLE DES PARAMETRES DE CHI2
  83. *-----------------------------
  84. *    
  85. tbparm= TABLE ;
  86. tbparm.ITMAX= 200 ;
  87. tbparm.ITERSOLI = 20 ;
  88. tbparm.IAFFICHE = 2 ;
  89. tbparm.NFI= 8 ;
  90. tbparm.EPS= 1.D-4 ;
  91. tbparm.IMPRIM= LECT 1 4 ;
  92. tbparm.SORTIE= MOTS 'PREC' 'SOLU' 'FION' 'TYP3' 'TYP5' 'POLE' 'LOGK' ;
  93. tbpar3= TABLE ;
  94. tbpar3.'SOUSTYPE'= 'DONNEES_CHIMIQUES' ;
  95. tbpar3.LOGC= MANU CHPO mt 9 X165 -7.68 X002 -2.59 X004 -4.86
  96.                             X061 -3.50 X050 -3.27 X001 -2.77 
  97.                             X005 -1.22 X101 -5.19 X007 -8.54 ;
  98. totco1= MANU CHPO mt 1 X101 3.6D-3 ;
  99. totco2= MANU CHPO ab 1 X101 (3.6D-3 - 3.6D-3) ;
  100. totco= totco1 + totco2 ;
  101. totca1= MANU CHPO mt 1 X001 3.D-3 ;
  102. totca2= MANU CHPO ab 1 X001 (3.D-3 - 3.D-3) ;
  103. totca= totca1 + totca2 ;
  104. totna1= MANU CHPO mt 1 X005 1.676D-1 ;
  105. totna2= MANU CHPO ab 1 X005 (1.676D-1 - 1.676D-1) ;
  106. totna= totna1 + totna2 ;
  107. totk1= MANU CHPO mt 1 X004 1.5D-4 ;
  108. totk2= MANU CHPO ab 1 X004 (2.0D-4 - 1.5D-4) ;
  109. totk= totk1 + totk2 ;
  110. total1= MANU CHPO mt 1 X165 8.7D-3 ;
  111. total2= MANU CHPO ab 1 X165 (4.0D-2 - 8.7D-3) ;
  112. total= total1 + total2 ;
  113. totmg1= MANU CHPO mt 1 X002 3.9D-3 ;
  114. totmg2= MANU CHPO ab 1 X002 (3.9D-3 - 3.9D-3) ;
  115. totmg= totmg1 + totmg2 ;
  116. totfe2i1= MANU CHPO mt 1 X007 4.0D-5 ;
  117. totfe2i2= MANU CHPO ab 1 X007 (4.0D-5 - 4.0D-5) ;
  118. totfe2i= totfe2i1 + totfe2i2 ;
  119. totsi1= MANU CHPO mt 1 X061 1.0D-3 ;
  120. totsi2= MANU CHPO ab 1 X061 (1.0D-3 - 1.0D-3) ;
  121. totsi= totsi1 + totsi2 ;
  122. toth = MANU CHPO mt 1 X050 0.D0 ;
  123. tbpar3.TOT= totca + totna + totk + total + totmg + totsi +totfe2i +
  124.             toth + totco ;
  125. LIST tbpar3.TOT ;
  126.  climph1= MANU CHPO mt 1 W024  7.75 ;
  127.  climph2= MANU CHPO ab 1 W024  ( 7.75 - 7.75 ) ;
  128.  climph = climph1 + climph2 ;
  129.  tbpar3.CLIM= climph ;
  130.  
  131. tb3= CHI2 tb1 tbparm tbpar3 ;
  132.  
  133. *option echo 1 ;
  134.  
  135. *IMPCHI2 tb3 'TB3' ;
  136.  
  137. option echo 0 ;
  138. *
  139. *-----------------------
  140. * CONTROLE DES RESULTATS
  141. *-----------------------
  142. *
  143.  FIONTE1=MANU CHPO mt 1 SCAL 9.48864D-2 'NATURE' DISCRET ;
  144.  FIONTE2=MANU CHPO ab 1 SCAL (9.48931D-2 - 9.48864D-2 ) 
  145.  'NATURE' DISCRET ;
  146.  FIONTES= FIONTE1 + FIONTE2 ;
  147.  VERR1= ( ABS ( FIONTES - TB3.FION )) MASQUE SUPERIEUR 5.D-8 SOMME ;
  148. *LIST VERR1 ;
  149.  PRECTE2= MANU CHPO mt 9 W025 8.68203E-03 W026 0. 
  150.                          W027 0.          W028 1.31176E-05 
  151.                          W029 1.54413E-04 W030 8.44764E-04 
  152.                          W031 0.          W032 4.81838E-06
  153.                          W033 1.43656E-03  'NATURE' DISCRET ;
  154.  
  155.  PRECTE1= MANU CHPO ab 9 W025 (3.99452E-02 - 8.68203E-03)
  156.                          W026 (0. - 0.) 
  157.                          W027 (0. - 0.) 
  158.                          W028 (1.31176E-05 - 1.31176E-05)
  159.                          W029 (1.54414E-04 - 1.54413E-04)
  160.                          W030 (7.34384E-04 - 8.44764E-04)
  161.                          W031 (3.77770E-05 - 0.)
  162.                          W032 (3.83440E-06 - 4.81838E-06)
  163.                          W033 (1.43653E-03 - 1.43656E-03)
  164.                          'NATURE' DISCRET ;
  165.  PRECTES= PRECTE1+PRECTE2 ;
  166. *LIST PRECTES ;
  167. *LIST TB3.PREC ;
  168.  PRECD=PRECTES /  50. ;
  169.  VERR2= ( ABS ( PRECTES - TB3.PREC )) MASQUE SUPERIEUR PRECD SOMME ;
  170. *LIST VERR2 ;
  171. *LIST TB3.TYP5  ;
  172.  TY5TE1=  MANU CHPO mt 9 W025 0.00000E+00 W026 7.05934E-02  
  173.                          W027 2.73971E-03 W028 0.00000E+00 
  174.                          W029 0.00000E+00 W030 0.00000E+00 
  175.                          W031 9.24659E-01 W032 0.00000E+00 
  176.                          W033 0.00000E+00 'NATURE' DISCRET ;
  177.  
  178.  TY5TE2=  MANU CHPO ab 9 W025 (0.00000E+00 - 0.00000E+00)
  179.                          W026 (7.05903E-02 - 7.05934E-02) 
  180.                          W027 (2.73959E-03 - 2.73971E-03)
  181.                          W028 (0.00000E+00 - 0.00000E+00)  
  182.                          W029 (0.00000E+00 - 0.00000E+00) 
  183.                          W030 (0.00000E+00 - 0.00000E+00) 
  184.                          W031 (0.00000E+00 - 9.24659E-01) 
  185.                          W032 (0.00000E+00 - 0.00000E+00)
  186.                          W033 (0.00000E+00 - 0.00000E+00) 
  187.                          'NATURE' DISCRET ;
  188.  TY5TES= TY5TE1+TY5TE2 ;
  189. *LIST TY5TES ;
  190.  TY5D= TY5TES/ 50. ;
  191.  VERR3= ( ABS ( TY5TES - TB3.TYP5 )) MASQUE SUPERIEUR TY5D SOMME ;
  192. *LIST VERR3 ;
  193.  
  194.  FRACTE1= MANU CHPO mt 14 W034 4.00886E-01 W035 4.42526E-04 
  195.          W036 6.85256E-15 W037 1.71692E-11 W038 7.52657E-10 
  196.          W039 9.00205E-10 W040 2.99667E-09 W041 5.91304E-14 
  197.          W042 7.07221E-14 W043 1.34885E-15 W044 2.35425E-13 
  198.          W045 3.60628E-03 W046 3.66581E-03 W047 6.39823E-01
  199.          'NATURE' DISCRET;
  200.  
  201.  FRACTE2= MANU CHPO mt 16 W048 1.60701E-01 W049 1.92204E-01
  202.          W050 4.71032E-16 W051 4.13296E-19 W052 4.30296E-09 
  203.          W053 8.24023E-14 W054 2.46968E-14 W055 2.06489E-14
  204.          W056 7.21357E-17 W057 2.16697E-17 W058 1.81179E-17 
  205.          W059 7.51028E-07 W060 2.25610E-07 W061 1.88631E-07 
  206.          W063 6.09031E-12 W064 5.98672E-01 'NATURE' DISCRET;
  207.  
  208.  FRACTE3= MANU CHPO ab 8  W034 (4.00885E-01 - 4.00886E-01)
  209.                           W035 (4.42490E-04 - 4.42526E-04) 
  210.                           W036 (6.85067E-15 - 6.85256E-15) 
  211.                           W037 (1.85587E-11 - 1.71692E-11) 
  212.                           W038 (7.52490E-10 - 7.52657E-10) 
  213.                           W039 (9.00004E-10 - 9.00205E-10) 
  214.                           W040 (2.99604E-09 - 2.99667E-09) 
  215.                           W041 (5.91135E-14 - 5.91304E-14)
  216.                           'NATURE' DISCRET;
  217.  
  218.  FRACTE4= MANU CHPO ab 7  W042 (7.07018E-14 - 7.07221E-14) 
  219.                           W043 (1.45792E-15 - 1.34885E-15) 
  220.                           W044 (2.35360E-13 - 2.35425E-13) 
  221.                           W045 (3.60522E-03 - 3.60628E-03) 
  222.                           W046 (3.96216E-03 - 3.66581E-03) 
  223.                           W047 (6.39634E-01 - 6.39823E-01) 
  224.                           W048 (1.60652E-01 - 1.60701E-01)
  225.                           'NATURE' DISCRET;
  226.  
  227.  FRACTE5= MANU CHPO ab 8  W049 (1.92145E-01 - 1.92204E-01) 
  228.                           W050 (5.09151E-16 - 4.71032E-16) 
  229.                           W051 (4.46720E-19 - 4.13296E-19) 
  230.                           W052 (4.65087E-09 - 4.30296E-09) 
  231.                           W053 (8.23848E-14 - 8.24023E-14) 
  232.                           W054 (2.46913E-14 - 2.46968E-14) 
  233.                           W055 (2.06443E-14 - 2.06489E-14) 
  234.                           W056 (7.21166E-17 - 7.21357E-17)
  235.                           'NATURE' DISCRET;
  236.  
  237.  FRACTE6= MANU CHPO ab 7  W057 (2.16637E-17 - 2.16697E-17) 
  238.                           W058 (1.81129E-17 - 1.81179E-17) 
  239.                           W059 (7.50817E-07 - 7.51028E-07) 
  240.                           W060 (2.25544E-07 - 2.25610E-07) 
  241.                           W061 (1.88577E-07 - 1.88631E-07) 
  242.                           W063 (6.08901E-12 - 6.09031E-12) 
  243.                           W064 (5.98672E-01 - 5.98672E-01) 
  244.                           'NATURE' DISCRET;
  245.  
  246.  FRACTES= FRACTE1+FRACTE2+FRACTE3+FRACTE4+FRACTE5+FRACTE6 ;
  247. *LIST FRACTES ;
  248.  FRACD= FRACTES/50 ;
  249.  VERR4= (ABS ( FRACTES - TB3.POLE)) MASQUE SUPERIEUR FRACD SOMME ;
  250. *LIST VERR4 ;
  251. *
  252. ***************************************************************************
  253. * CAS 2 : SYSTEME SANS CONTRAINTE AYANT LE PH PRECEDENT ET DE L' ILLITE
  254. ***************************************************************************
  255. *
  256. *---------------------------
  257. * TABLE DES DONNEES DES CHI1
  258. *---------------------------
  259. *
  260. tabdon2 = TABLE ;
  261. tabdon2.IDEN = tabdon.IDEN ;
  262. tabdon2.CHXMX =  LECT 2286 2144 2158 2184 2157 2152 2159 2172
  263.                     2148 2149 2150    
  264.                     2168 2169 2313 2314 2315 2316 2317
  265.                     2369 2379 2380 2381    
  266.                     2171 2280 2278 2279   
  267.                     2284 2285 2282 2283    
  268.                     2366 2368 2370 2371 2372 
  269.                     2376 2377 2378 ;
  270.  tabdon2.NVSOSO = tabdon.NVSOSO ;
  271. tabdon2.BDD = 'STRASBG' ;
  272.  
  273. tb2 = CHI1 tabdon2 
  274.       COMP ('CHAINE' DIVERS '/COMPSM')   ;
  275.  
  276. *IMPCHI1 tb1 'TB1' ;
  277.  
  278. *
  279. *-----------------------------
  280. * TABLE DES PARAMETRES DE CHI2
  281. *-----------------------------
  282. *
  283. tbpar4= TABLE ;
  284. tbpar4.'SOUSTYPE'= 'DONNEES_CHIMIQUES' ;
  285. tbpar4.LOGC= MANU CHPO mt 9 X165 -7.21 X002 -2.53 X004 -3.82
  286.                             X061 -4.00 X050 -2.45 X001 -2.74
  287.                             X005 -1.22 X101 -5.23 X007 -8.18 ;
  288. toto = (tb3.TYP3) * (-1.) ;
  289. toth = EXCO W024 toto X050 ; 
  290. tbpar4.TOT = totca + totna + totk + total + totmg + totfe2i + totsi +
  291.               toth + totco ;
  292. *LIST tbpar4.TOT ;
  293. tbparm2 = TABLE ;
  294. tbparm2.ITMAX= 200 ;
  295. tbparm2.ITERSOLI = 20 ;
  296. tbparm2.IAFFICHE = 2 ;
  297. tbparm2.NFI= 8 ;
  298. tbparm2.EPS= 1.D-4 ;
  299. tbparm2.IMPRIM= LECT 1 4 ;
  300. tbparm2.SORTIE= MOTS 'PREC' 'SOLU' 'FION' 'TYP5' 'POLE' 'LOGK' ;  
  301.  
  302. tb5= CHI2 tb2 tbparm2 tbpar4 ;
  303.  
  304. option echo 1 ;
  305.  
  306. *IMPCHI2 tb5 'TB5' ;
  307.  
  308. option echo 0 ;
  309. *
  310. *-----------------------
  311. * CONTROLE DES RESULTATS
  312. *-----------------------
  313. *
  314.  FIONTE1=MANU CHPO mt 1 SCAL 9.49043E-02 'NATURE' DISCRET ;
  315.  FIONTE2=MANU CHPO ab 1 SCAL (9.49673E-02 - 9.49043E-02 ) 
  316.  'NATURE' DISCRET ;
  317.  FIONTES= FIONTE1 + FIONTE2 ;
  318.  VERR5= ( ABS ( FIONTES - TB5.FION )) MASQUE SUPERIEUR 5.D-8 SOMME ;
  319. *LIST VERR1 ;
  320.  PRECTE2= MANU CHPO mt 10 W025 8.64980E-03 W026 0. 
  321.                          W027 0.          W028 1.31140E-05 
  322.                          W029 1.36945E-04 W030 8.02850E-04 
  323.                          W031 0.          W032 0.00000E+00
  324.                          W033 1.61111E-05 W034 1.45930E-03
  325.                          'NATURE' DISCRET ;
  326.  
  327.  PRECTE1= MANU CHPO ab 10 W025 (3.97828E-02 - 8.64980E-03)
  328.                          W026 (0.00000E+00 - 0.) 
  329.                          W027 (0.00000E+00 - 0.) 
  330.                          W028 (1.31034E-05 - 1.31140E-05)
  331.                          W029 (8.35208E-05 - 1.36945E-04)
  332.                          W030 (5.48759E-04 - 8.02850E-04)
  333.                          W031 (0.00000E+00 - 0.)
  334.                          W032 (0.00000E+00 - 0.00000E+00)
  335.                          W033 (8.87255E-05 - 1.61111E-05)
  336.                          W034 (1.52577E-03 - 1.45930E-03) 
  337.                          'NATURE' DISCRET ;
  338.  PRECTES= PRECTE1+PRECTE2 ;
  339. *LIST PRECTES ;
  340. *LIST TB3.PREC ;
  341.  PRECD=PRECTES /  50. ;
  342.  VERR6= ( ABS ( PRECTES - TB5.PREC )) MASQUE SUPERIEUR PRECD SOMME ;
  343. *LIST VERR2 ;
  344. *LIST TB3.TYP5  ;
  345.  TY5TE1=  MANU CHPO mt 10 W025 0.00000E+00 W026 2.61667E-03  
  346.                          W027 6.75986E-02 W028 0.00000E+00 
  347.                          W029 0.00000E+00 W030 0.00000E+00 
  348.                          W031 8.58262E-01 W032 9.92157E-01 
  349.                          W033 0.00000E+00 W034 0.
  350.                          'NATURE' DISCRET ;
  351.  
  352.  TY5TE2=  MANU CHPO ab 10 W025 (0.00000E+00 - 0.00000E+00)
  353.                          W026 (2.25337E-03 - 2.61667E-03) 
  354.                          W027 (5.86999E-02 - 6.75986E-02)
  355.                          W028 (0.00000E+00 - 0.00000E+00)  
  356.                          W029 (0.00000E+00 - 0.00000E+00) 
  357.                          W030 (0.00000E+00 - 0.00000E+00) 
  358.                          W031 (8.75253E-01 - 8.58262E-01) 
  359.                          W032 (9.67437E-01 - 9.92157E-01)
  360.                          W033 (0.00000E+00 - 0.00000E+00)
  361.                          W034 (0.00000E+00 - 0.00000E+00) 
  362.                          'NATURE' DISCRET ;
  363.  TY5TES= TY5TE1+TY5TE2 ;
  364. *LIST TY5TES ;
  365.  TY5D= TY5TES/ 50. ;
  366.  VERR7= ( ABS ( TY5TES - TB5.TYP5 )) MASQUE SUPERIEUR TY5D SOMME ;
  367. *LIST VERR3 ;
  368.  
  369.  FRACTE1= MANU CHPO mt 14 W035 4.00583E-01 W036 4.42837E-04 
  370.          W037 6.83202E-15 W038 1.61230E-11 W039 7.51750E-10 
  371.          W040 8.98560E-10 W041 2.99190E-09 W042 5.89761E-14 
  372.          W043 7.04936E-14 W044 1.26488E-15 W045 2.34720E-13 
  373.          W046 3.60700E-03 W047 3.44863E-03 W048 6.39951E-01
  374.          'NATURE' DISCRET;
  375.  
  376.  FRACTE2= MANU CHPO mt 16 W049 1.60795E-01 W050 1.92197E-01 
  377.          W051 4.42330E-16 W052 3.87658E-19 W053 4.04681E-09 
  378.          W054 8.22710E-14 W055 2.46517E-14 W056 2.06240E-14 
  379.          W057 7.19364E-17 W058 2.16048E-17 W059 1.80749E-17 
  380.          W060 7.50954E-07 W061 2.25535E-07 W062 1.88686E-07 
  381.          W064 6.08060E-12 W065 5.98974E-01 'NATURE' DISCRET;
  382.  
  383.  FRACTE3= MANU CHPO ab 8  W035 (3.98856E-01 - 4.00583E-01) 
  384.                           W036 (4.43949E-04 - 4.42837E-04) 
  385.                           W037 (6.73199E-15 - 6.83202E-15) 
  386.                           W038 (1.62507E-11 - 1.61230E-11) 
  387.                           W039 (7.55828E-10 - 7.51750E-10) 
  388.                           W040 (9.00193E-10 - 8.98560E-10) 
  389.                           W041 (3.00728E-09 - 2.99190E-09) 
  390.                           W042 (5.81290E-14 - 5.89761E-14)
  391.                           'NATURE' DISCRET;
  392.  
  393.  FRACTE4= MANU CHPO ab 7  W043 (6.92318E-14 - 7.04936E-14) 
  394.                           W044 (1.24981E-15 - 1.26488E-15) 
  395.                           W045 (2.31283E-13 - 2.34720E-13) 
  396.                           W046 (3.60910E-03 - 3.60700E-03) 
  397.                           W047 (3.46017E-03 - 3.44863E-03) 
  398.                           W048 (6.40323E-01 - 6.39951E-01) 
  399.                           W049 (1.60934E-01 - 1.60795E-01)
  400.                           'NATURE' DISCRET;
  401.  
  402.  FRACTE5= MANU CHPO ab 8  W050 (1.91673E-01 - 1.92197E-01) 
  403.                           W051 (4.45834E-16 - 4.42330E-16) 
  404.                           W052 (3.84309E-19 - 3.87658E-19) 
  405.                           W053 (4.06344E-09 - 4.04681E-09) 
  406.                           W054 (8.26940E-14 - 8.22710E-14) 
  407.                           W055 (2.46965E-14 - 2.46517E-14) 
  408.                           W056 (2.07359E-14 - 2.06240E-14) 
  409.                           W057 (7.11184E-17 - 7.19364E-17)
  410.                           'NATURE' DISCRET;
  411.  
  412.  FRACTE6= MANU CHPO ab 7  W058 (2.12884E-17 - 2.16048E-17) 
  413.                           W059 (1.78744E-17 - 1.80749E-17) 
  414.                           W060 (7.51960E-07 - 7.50954E-07) 
  415.                           W061 (2.25090E-07 - 2.25535E-07) 
  416.                           W062 (1.88992E-07 - 1.88686E-07) 
  417.                           W064 (6.11187E-12 - 6.08060E-12) 
  418.                           W065 (6.00700E-01 - 5.98974E-01) 
  419.                           'NATURE' DISCRET;
  420.  
  421.  FRACTES= FRACTE1+FRACTE2+FRACTE3+FRACTE4+FRACTE5+FRACTE6 ;
  422. *LIST FRACTES ;
  423.  FRACD= FRACTES/50 ;
  424.  VERR8= (ABS ( FRACTES - TB5.POLE)) MASQUE SUPERIEUR FRACD SOMME ;
  425. *LIST VERR4 ;
  426. *
  427. * VERR= VERR1+VERR2+VERR3+VERR4+VERR5+VERR6+VERR7+VERR8 ;
  428.  VERR= VERR7+VERR8 ;
  429.  SI (VERR EGA 0 ) ;
  430.   ERRE 0 ;
  431.  SINO  ;
  432.   ERRE 5 ;
  433.  FINSI ;
  434. FIN ;
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445.  
  446.  
  447.  

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