Télécharger la plaquette Cast3M


fr en

Télécharger muchamevol.dgibi

Retour à la liste

Numérotation des lignes : 

  1. * fichier : muchamevol.dgibi
  2. *---------------------------------------------------------------------*
  3. *                 Cas-test de l'operateur '*' et '/'                  *
  4. *                                                                     *
  5. *    Ce cas-test verifie la multiplication (la division) de MCHAMLs   *
  6. * de composante de type EVOLUTIOn :                                   *
  7. *                                                                     *
  8. *    1. Multiplication et division par un FLOTTANT.                   * 
  9. *                                                                     *
  10. *    2. Multiplication d'un MCHAML de type CARACTERISTIQUES, dont la  *
  11. *    composante est de type EVOLUTIOn, par un MCHAML de type SCALAIRE,*
  12. *    dont la composante est de type FLOTTANT.                         *
  13. *                                                                     *
  14. *    3. Multiplication d'un MCHAML de type CARACTERISTIQUES, dont la  *
  15. *    composante est de type EVOLUTIOn, par un autre MCHAML de type    *
  16. *    CARACTERISTIQUES, dont la composante est :                       *
  17. *       - soit de type FLOTTANT ;                                     *
  18. *       - soit de type EVOLUTIOn.                                     *
  19. *                                                                     *
  20. *    4. Multiplication d'un MCHAML de type CARACTERISTIQUES possedant *
  21. *    trois composantes : deux de type FLOTTANT et une de type EVOLU-  *
  22. *    -TIOn, par un autre MCHAML de type CARACTERISTIQUES mais dont les*
  23. *    trois composantes sont de type EVOLUTIOn.                        *
  24. *                                                                     *
  25. *    5. Idem 4 mais, de plus, on precise les noms des composantes     *
  26. *    intervenant dans chaque produit ainsi que celui de la composante *
  27. *    resultat a l'aide de trois LISMOTS :                             *
  28. *       - CHAM3 = CHMA1 * CHMA2 LISMOTS1 LISMOTS2 LISMOTS3 ;          *
  29. *                                                                     *
  30. *    6. Idem 5 mais, de plus, on pondere le resultat de chaque produit*
  31. *    par un coefficient fournit par un LISTREEL :                     *
  32. *       - CHAM3 = CHMA1 * CHMA2 LISMOTS1 LISMOTS2 LISMOTS3 LISTREEL ; *
  33. *                                                                     *
  34. *    7. Multiplication d'un MCHAML de type CARACTERISTIQUES, possedant*
  35. *    une composante de type EVOLUTIOn sur une 1e sous-zone du maillage*
  36. *    et une composante de type FLOTTANT sur une 2e sous-zone, par un  *
  37. *    MCHAML de type SCALAIRE.                                         *
  38. *                                                                     *
  39. *    8. Multiplication d'un MCHAML de type CARACTERISTIQUES, possedant*
  40. *    une composante de type EVOLUTIOn sur une 1e sous-zone et une     *
  41. *    composante de type FLOTTANT sur une 2e sous-zone, par un MCHAML  *
  42. *    dont la composante est de type EVOLUTIOn sur tout le             *
  43. *                                                                     *
  44. *    9. Multiplication d'un MCHAML de type CARACTERISTIQUES, possedant*
  45. *    une composante de type EVOLUTIOn sur la sous-zone 1 et une compo-*
  46. *    -sante de type FLOTTANT sur une sous-zone 2, par un MCHAML dont  *
  47. *    la composante est de type FLOTTANT sur une sous-zone 1 et        *
  48. *    EVOLUTIOn sur la sous-zone 2.                                    *
  49. *                                                                     *
  50. *---------------------------------------------------------------------*
  51. *                                                                     *
  52. * Pour avoir les messages, mettre IMES1 a VRAI :                      *
  53. IMES1    = FAUX ;
  54. *
  55. 'OPTI' 'ECHO' 1 ;
  56. 'OPTI' 'DIME' 2 'ELEM' QUA4 ;
  57. *                                                                     *
  58. *---------- Maillage : support geometrique pour les MCHAMLs ----------*
  59. *                                                                     *
  60. * Je realise un maillage comportant 2 sous-zones :                    *
  61. P1       = 0. 0. ;
  62. P2       = 2. 0. ;
  63. P3       = 1. 1. ;
  64. P4       = 0. 1. ;
  65. D1       = P1 'DROI' 2 P2 ;
  66. Q1       = D1 'TRAN' 2 P4 ;
  67. T1       = 'MANU' 'TRI3' P3 (0.5 1.5) P4 ;
  68. S1       = Q1 'ET' T1 ;
  69. 'ELIM' S1 1.E-3 ;
  70. *                                                                     *
  71. *----------------------- 1. "CHAMEVOL * SCAL1" -----------------------*
  72. *                                                                     *
  73. LX1      = 'PROG' 0. 1. 2. ;
  74. LY1      = 'PROG' 2. 3. 5. ;
  75. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  76. MOD1     = 'MODE' S1 'THERMIQUE' ;
  77. MAT1     = 'MATE' MOD1 'K' EVK1 ;
  78. *                                                                     *
  79. CHAM2    = MAT1 * 7. ;
  80. *                                                                     *
  81. * Verification :
  82. ERR1     = 0. ;
  83. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  84.   ERR1     = 1. ;
  85. 'FINS' ;
  86. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  87.   ERR1     = ERR1 + 1. ;
  88. 'FINS' ;
  89. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  90.   ERR1     = ERR1 + 1. ;
  91. 'FINS' ;
  92. EVK2     = 'EXTR' CHAM2 'K' 1 1 1 ;
  93. LX2      = 'EXTR' EVK2 'ABSC' ;
  94. LY2      = 'EXTR' EVK2 'ORDO' ;
  95. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  96. *                                                                     *
  97. * Je commute le produit :
  98. CHAM2    = 7. * MAT1 ;
  99. *                                                                     *
  100. * Nouvelle verification :
  101. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  102.   ERR1     = 1. ;
  103. 'FINS' ;
  104. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  105.   ERR1     = ERR1 + 1. ;
  106. 'FINS' ;
  107. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  108.   ERR1     = ERR1 + 1. ;
  109. 'FINS' ;
  110. EVK2     = 'EXTR' CHAM2 'K' 1 1 1 ;
  111. LX2      = 'EXTR' EVK2 'ABSC' ;
  112. LY2      = 'EXTR' EVK2 'ORDO' ;
  113. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  114. *                                                                     *
  115. * Je fais la division :                                               *
  116. CHAM2    = MAT1 / 7. ;
  117. *                                                                     *
  118. * Nouvelle verification :
  119. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  120.   ERR1     = 1. ;
  121. 'FINS' ;
  122. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  123.   ERR1     = ERR1 + 1. ;
  124. 'FINS' ;
  125. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  126.   ERR1     = ERR1 + 1. ;
  127. 'FINS' ;
  128. EVK2     = 'EXTR' CHAM2 'K' 1 1 1 ;
  129. LX2      = 'EXTR' EVK2 'ABSC' ;
  130. LY2      = 'EXTR' EVK2 'ORDO' ;
  131. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((LY1 / 7.) - LY2)) ;
  132. *                                                                     *
  133. * Message de sortie :                                                 *
  134. IERR1    = 'NEG' ERR1 0. ;
  135. VECH1    = 'VALE' 'ECHO' ;
  136. 'OPTI' 'ECHO' 0 ;
  137. 'SI' IMES1 ;
  138.   'SI' IERR1 ;
  139.     'SAUT' 1 'LIGN' ;
  140.     'MESS'
  141. '*** Erreur dans la multiplication/division d"un MCHAML d"EVOLUTIOn' ;
  142.     'MESS'
  143. '    par un FLOTTANT.' ;
  144.   'FINS' ;
  145. 'FINS' ;
  146. 'OPTI' 'ECHO' VECH1 ;
  147. *                                                                     *
  148. * Gestion de l'erreur :                                               *
  149. 'SI' IERR1 ;
  150.   'SAUT' 1 'LIGN' ;
  151.   'ERRE' 5 ;
  152. 'FINS' ;
  153. *                                                                     *
  154. *---------------------- 2. "CHAMEVOL * CHAMSCAL" ---------------------*
  155. *                                                                     *
  156. * Definition des MCHAMLS necessaires au test :                        *
  157. LX1      = 'PROG' 0. 1. 2. ;
  158. LY1      = 'PROG' 2. 3. 5. ;
  159. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  160. MOD1     = 'MODE' S1 'THERMIQUE' ;
  161. MAT1     = 'MATE' MOD1 'K' EVK1 ;
  162. CHAM1    = 'MANU' 'CHML' MOD1 'SCAL' 7. 'RIGIDITE' ;
  163. *                                                                     *
  164. CHAM2    = MAT1 * CHAM1 ;
  165. *                                                                     *
  166. * Verification :                                                      *
  167. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  168.   ERR1     = 1. ;
  169. 'FINS' ;
  170. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  171.   ERR1     = ERR1 + 1. ;
  172. 'FINS' ;
  173. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  174.   ERR1     = ERR1 + 1. ;
  175. 'FINS' ;
  176. EVK2     = 'EXTR' CHAM2 'K' 1 1 1 ;
  177. LX2      = 'EXTR' EVK2 'ABSC' ;
  178. LY2      = 'EXTR' EVK2 'ORDO' ;
  179. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  180. *                                                                     *
  181. * Je commute le produit :                                             *
  182. CHAM2    = CHAM1 * MAT1 ;
  183. *                                                                     *
  184. * Nouvelle verification :                                             *
  185. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  186.   ERR1     = 1. ;
  187. 'FINS' ;
  188. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  189.   ERR1     = ERR1 + 1. ;
  190. 'FINS' ;
  191. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  192.   ERR1     = ERR1 + 1. ;
  193. 'FINS' ;
  194. EVK2     = 'EXTR' CHAM2 'K' 1 1 1 ;
  195. LX2      = 'EXTR' EVK2 'ABSC' ;
  196. LY2      = 'EXTR' EVK2 'ORDO' ;
  197. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  198. *                                                                     *
  199. * Message de sortie :                                                 *
  200. IERR1    = 'NEG' ERR1 0. ;
  201. VECH1    = 'VALE' 'ECHO' ;
  202. 'OPTI' 'ECHO' 0 ;
  203. 'SI' IMES1 ;
  204.   'SI' IERR1 ;
  205.     'SAUT' 1 'LIGN' ;
  206.     'MESS'
  207. '*** Erreur dans la multiplication d"un MCHAML d"EVOLUTIOn par' ;
  208.     'MESS'
  209. '    un MCHAML de FLOTTANT.' ;
  210.   'FINS' ;
  211. 'FINS' ;
  212. 'OPTI' 'ECHO' VECH1 ;
  213. *                                                                     *
  214. * Gestion de l'erreur :                                               *
  215. 'SI' IERR1 ;
  216.   'SAUT' 1 'LIGN' ;
  217.   'ERRE' 5 ;
  218. 'FINS' ;
  219. *                                                                     *
  220. *--------------------- 3. "CHAMFLOT1 * CHAMEVOL1" --------------------*
  221. *                                                                     *
  222. * Definition des MCHAMLS necessaires au test :                        *
  223. LX1      = 'PROG' 0. 1. 2. ;
  224. LY1      = 'PROG' 2. 3. 5. ;
  225. LY2      = 'PROG' 4. 2. 7. ;
  226. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  227. EVK2     = 'EVOL' 'MANU' 'T' LX1 'K' LY2 ;
  228. MOD1     = 'MODE' S1 'THERMIQUE' ;
  229. MAT1     = 'MATE' MOD1 'K' EVK1 ;
  230. MAT2     = 'MATE' MOD1 'K' 7. ;
  231. *                                                                     *
  232. MAT3     = MAT2 * MAT1 ;
  233. *                                                                     *
  234. * Verification :                                                      *
  235. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  236.   ERR1     = 1. ;
  237. 'FINS' ;
  238. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  239.   ERR1     = ERR1 + 1. ;
  240. 'FINS' ;
  241. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  242.   ERR1     = ERR1 + 1. ;
  243. 'FINS' ;
  244. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  245. LX3      = 'EXTR' EVK3 'ABSC' ;
  246. LY3      = 'EXTR' EVK3 'ORDO' ;
  247. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LY1 * 7.) - LY3)) ;
  248. *                                                                     *
  249. * Je commute le produit :                                             *
  250. MAT3     = MAT1 * MAT2 ;
  251. *                                                                     *
  252. * Nouvelle verification :                                             *
  253. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  254.   ERR1     = 1. ;
  255. 'FINS' ;
  256. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  257.   ERR1     = ERR1 + 1. ;
  258. 'FINS' ;
  259. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  260.   ERR1     = ERR1 + 1. ;
  261. 'FINS' ;
  262. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  263. LX3      = 'EXTR' EVK3 'ABSC' ;
  264. LY3      = 'EXTR' EVK3 'ORDO' ;
  265. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LY1 * 7.) - LY3)) ;
  266. *                                                                     *
  267. MAT3     = MAT1 * MAT1 ;
  268. *                                                                     *
  269. * Verification :                                                      *
  270. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  271.   ERR1     = 1. ;
  272. 'FINS' ;
  273. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  274.   ERR1     = ERR1 + 1. ;
  275. 'FINS' ;
  276. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  277.   ERR1     = ERR1 + 1. ;
  278. 'FINS' ;
  279. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  280. LX3      = 'EXTR' EVK3 'ABSC' ;
  281. LY3      = 'EXTR' EVK3 'ORDO' ;
  282. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LY1 * LY1) - LY3)) ;
  283. *                                                                     *
  284. * Je me donne un 2e "CHAMEVOL" :                                      *
  285. MAT2     = 'MATE' MOD1 'K' EVK2 ;
  286. *                                                                     *
  287. MAT3     = MAT1 * MAT2 ;
  288. *                                                                     *
  289. * Nouvelle verification :                                             *
  290. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  291.   ERR1     = 1. ;
  292. 'FINS' ;
  293. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  294.   ERR1     = ERR1 + 1. ;
  295. 'FINS' ;
  296. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  297.   ERR1     = ERR1 + 1. ;
  298. 'FINS' ;
  299. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  300. LX3      = 'EXTR' EVK3 'ABSC' ;
  301. LY3      = 'EXTR' EVK3 'ORDO' ;
  302. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LY1 * LY2) - LY3)) ;
  303. *                                                                     *
  304. * Message de sortie :                                                 *
  305. IERR1    = 'NEG' ERR1 0. ;
  306. VECH1    = 'VALE' 'ECHO' ;
  307. 'OPTI' 'ECHO' 0 ;
  308. 'SI' IMES1 ;
  309.   'SI' IERR1 ;
  310.     'SAUT' 1 'LIGN' ;
  311.     'MESS'
  312. '*** Erreur dans la multiplication d"un MCHAML d"EVOLUTIOn de type' ;
  313.     'MESS'
  314. '    CARACTERISTIQUES par un autre MCHAML de type CARACTERISTIQUES' ;
  315.     'MESS'
  316. '    et de composante FLOTTANT ou EVOLUTIOn.' ;
  317.   'FINS' ;
  318. 'FINS' ;
  319. 'OPTI' 'ECHO' VECH1 ;
  320. *                                                                     *
  321. * Gestion de l'erreur :                                               *
  322. 'SI' IERR1 ;
  323.   'SAUT' 1 'LIGN' ;
  324.   'ERRE' 5 ;
  325. 'FINS' ;
  326. *                                                                     *
  327. *--------------------- 4. "CHAMMIXT1 * CHAMEVOL1" --------------------*
  328. *                                                                     *
  329. * Definition des MCHAMLS necessaires au test :                        *
  330. LX1      = 'PROG' 0. 1. 2. ;
  331. LR2      = 'PROG' 1. 3. 3. ;
  332. LC2      = 'PROG' 1. 2. 1. ;
  333. LK1      = 'PROG' 2. 3. 5. ;
  334. LK2      = 'PROG' 7. 7. 7. ;
  335. EVR2     = 'EVOL' 'MANU' 'T' LX1 'RHO' LR2 ;
  336. EVC2     = 'EVOL' 'MANU' 'T' LX1 'C' LC2 ;
  337. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LK1 ;
  338. EVK2     = 'EVOL' 'MANU' 'T' LX1 'K' LK2 ;
  339. MOD1     = 'MODE' S1 'THERMIQUE' ;
  340. MAT1     = 'MATE' MOD1 'RHO' 2.0 'C' 0.5 'K' EVK1 ;
  341. MAT2     = 'MATE' MOD1 'RHO' EVR2 'C' EVC2 'K' EVK2 ;
  342. *                                                                     *
  343. MAT3     = MAT1 * MAT2 ;
  344. *                                                                     *
  345. * Verification :
  346. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  347.   ERR1     = 1. ;
  348. 'FINS' ;
  349. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  350.   ERR1     = ERR1 + 1. ;
  351. 'FINS' ;
  352. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'RHO') ;
  353.   ERR1     = ERR1 + 1. ;
  354. 'FINS' ;
  355. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'C') ;
  356.   ERR1     = ERR1 + 1. ;
  357. 'FINS' ;
  358. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'K') ;
  359.   ERR1     = ERR1 + 1. ;
  360. 'FINS' ;
  361. EVR3     = 'EXTR' MAT3 'RHO' 1 1 1 ;
  362. LX3      = 'EXTR' EVR3 'ABSC' ;
  363. LR3      = 'EXTR' EVR3 'ORDO' ;
  364. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LR2) - LR3)) ;
  365. EVC3     = 'EXTR' MAT3 'C' 1 1 1 ;
  366. LX3      = 'EXTR' EVC3 'ABSC' ;
  367. LC3      = 'EXTR' EVC3 'ORDO' ;
  368. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((0.5 * LC2) - LC3)) ;
  369. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  370. LX3      = 'EXTR' EVK3 'ABSC' ;
  371. LK3      = 'EXTR' EVK3 'ORDO' ;
  372. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LK1 * LK2) - LK3)) ;
  373. *                                                                     *
  374. * Je commute le produit :                                             *
  375. MAT3     = MAT2 * MAT1 ;
  376. *                                                                     *
  377. * Nouvelle verification :                                             *
  378. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  379.   ERR1     = 1. ;
  380. 'FINS' ;
  381. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  382.   ERR1     = ERR1 + 1. ;
  383. 'FINS' ;
  384. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'RHO') ;
  385.   ERR1     = ERR1 + 1. ;
  386. 'FINS' ;
  387. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'C') ;
  388.   ERR1     = ERR1 + 1. ;
  389. 'FINS' ;
  390. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'K') ;
  391.   ERR1     = ERR1 + 1. ;
  392. 'FINS' ;
  393. EVR3     = 'EXTR' MAT3 'RHO' 1 1 1 ;
  394. LX3      = 'EXTR' EVR3 'ABSC' ;
  395. LR3      = 'EXTR' EVR3 'ORDO' ;
  396. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LR2) - LR3)) ;
  397. EVC3     = 'EXTR' MAT3 'C' 1 1 1 ;
  398. LX3      = 'EXTR' EVC3 'ABSC' ;
  399. LC3      = 'EXTR' EVC3 'ORDO' ;
  400. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((0.5 * LC2) - LC3)) ;
  401. EVK3     = 'EXTR' MAT3 'K' 1 1 1 ;
  402. LX3      = 'EXTR' EVK3 'ABSC' ;
  403. LK3      = 'EXTR' EVK3 'ORDO' ;
  404. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LK1 * LK2) - LK3)) ;
  405. *                                                                     *
  406. * Message de sortie :                                                 *
  407. IERR1    = 'NEG' ERR1 0. ;
  408. VECH1    = 'VALE' 'ECHO' ;
  409. 'OPTI' 'ECHO' 0 ;
  410. 'SI' IMES1 ;
  411.   'SI' IERR1 ;
  412.     'SAUT' 1 'LIGN' ;
  413.     'MESS'
  414. '*** Erreur dans la multiplication d"un MCHAML de CARACTERISTIQUES' ;
  415.     'MESS'
  416. '    ayant deux composantes FLOTTANT et une composante EVOLUTIOn' ;
  417.     'MESS'
  418. '    par un autre MCHAML de CARACTERISTIQUES dont les composantes' ;
  419.     'MESS'
  420. '    sont des objets EVOLUTIOn.' ;
  421.   'FINS' ;
  422. 'FINS' ;
  423. 'OPTI' 'ECHO' VECH1 ;
  424. *                                                                     *
  425. * Gestion de l'erreur :                                               *
  426. 'SI' IERR1 ;
  427.   'SAUT' 1 'LIGN' ;
  428.   'ERRE' 5 ;
  429. 'FINS' ;
  430. *                                                                     *
  431. *--------------------- 5. "CHAMMIXT1 * CHAMEVOL1" --------------------*
  432. *                                                                     *
  433. * Definition des MCHAMLS necessaires au test :                        *
  434. LX1      = 'PROG' 0. 1. 2. ;
  435. LR2      = 'PROG' 1. 3. 3. ;
  436. LC2      = 'PROG' 1. 2. 1. ;
  437. LK1      = 'PROG' 2. 3. 5. ;
  438. LK2      = 'PROG' 7. 7. 7. ;
  439. EVR2     = 'EVOL' 'MANU' 'T' LX1 'RHO2' LR2 ;
  440. EVC2     = 'EVOL' 'MANU' 'T' LX1 'C2' LC2 ;
  441. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K1' LK1 ;
  442. EVK2     = 'EVOL' 'MANU' 'T' LX1 'K2' LK2 ;
  443. MOD1     = 'MODE' S1 'THERMIQUE' ;
  444. MAT1     = 'MANU' 'CHML' MOD1 'RHO1' 2.0 'C1' 0.5 'K1' EVK1 ;
  445. MAT2     = 'MANU' 'CHML' MOD1 'RHO2' EVR2 'C2' EVC2 'K2' EVK2 ;
  446. LM1      = 'MOTS' 'RHO1' 'C1' 'K1' ;
  447. LM2      = 'MOTS' 'K2' 'RHO2' 'C2' ;
  448. LM3      = 'MOTS' 'C3' 'K3' 'RHO3' ;
  449. *                                                                     *
  450. MAT3     = MAT1 * MAT2 LM1 LM2 LM3 ;
  451. *                                                                     *
  452. * Verification :
  453. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  454.   ERR1     = 1. ;
  455. 'FINS' ;
  456. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  457.   ERR1     = ERR1 + 1. ;
  458. 'FINS' ;
  459. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'C3') ;
  460.   ERR1     = ERR1 + 1. ;
  461. 'FINS' ;
  462. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'K3') ;
  463.   ERR1     = ERR1 + 1. ;
  464. 'FINS' ;
  465. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'RHO3') ;
  466.   ERR1     = ERR1 + 1. ;
  467. 'FINS' ;
  468. EVR3     = 'EXTR' MAT3 'RHO3' 1 1 1 ;
  469. LX3      = 'EXTR' EVR3 'ABSC' ;
  470. LR3      = 'EXTR' EVR3 'ORDO' ;
  471. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LK1 * LC2) - LR3)) ;
  472. EVC3     = 'EXTR' MAT3 'C3' 1 1 1 ;
  473. LX3      = 'EXTR' EVC3 'ABSC' ;
  474. LC3      = 'EXTR' EVC3 'ORDO' ;
  475. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LK2) - LC3)) ;
  476. EVK3     = 'EXTR' MAT3 'K3' 1 1 1 ;
  477. LX3      = 'EXTR' EVK3 'ABSC' ;
  478. LK3      = 'EXTR' EVK3 'ORDO' ;
  479. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((0.5 * LR2) - LK3)) ;
  480. *                                                                     *
  481. * Je commute le produit :                                             *
  482. MAT3     = MAT2 * MAT1 LM2 LM1 LM3 ;
  483. *                                                                     *
  484. * Nouvelle verification :                                             *
  485. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  486.   ERR1     = 1. ;
  487. 'FINS' ;
  488. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  489.   ERR1     = ERR1 + 1. ;
  490. 'FINS' ;
  491. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'C3') ;
  492.   ERR1     = ERR1 + 1. ;
  493. 'FINS' ;
  494. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'K3') ;
  495.   ERR1     = ERR1 + 1. ;
  496. 'FINS' ;
  497. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'RHO3') ;
  498.   ERR1     = ERR1 + 1. ;
  499. 'FINS' ;
  500. EVR3     = 'EXTR' MAT3 'RHO3' 1 1 1 ;
  501. LX3      = 'EXTR' EVR3 'ABSC' ;
  502. LR3      = 'EXTR' EVR3 'ORDO' ;
  503. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((LK1 * LC2) - LR3)) ;
  504. EVC3     = 'EXTR' MAT3 'C3' 1 1 1 ;
  505. LX3      = 'EXTR' EVC3 'ABSC' ;
  506. LC3      = 'EXTR' EVC3 'ORDO' ;
  507. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LK2) - LC3)) ;
  508. EVK3     = 'EXTR' MAT3 'K3' 1 1 1 ;
  509. LX3      = 'EXTR' EVK3 'ABSC' ;
  510. LK3      = 'EXTR' EVK3 'ORDO' ;
  511. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((0.5 * LR2) - LK3)) ;
  512. *                                                                     *
  513. * Message de sortie :                                                 *
  514. IERR1    = 'NEG' ERR1 0. ;
  515. VECH1    = 'VALE' 'ECHO' ;
  516. 'OPTI' 'ECHO' 0 ;
  517. 'SI' IMES1 ;
  518.   'SI' IERR1 ;
  519.     'SAUT' 1 'LIGN' ;
  520.     'MESS'
  521. '*** Erreur dans le produit de 2 MCHAML dont certaines composantes' ;
  522.     'MESS'
  523. '    sont de type EVOLUTIOn en fournissant trois LISTMOTS pour' ;
  524.     'MESS'
  525. '    preciser les noms des composantes intervenant dans chaque' ;
  526.     'MESS'
  527. '    produit et celui des composantes resultats.' ;
  528.   'FINS' ;
  529. 'FINS' ;
  530. 'OPTI' 'ECHO' VECH1 ;
  531. *                                                                     *
  532. * Gestion de l'erreur :                                               *
  533. 'SI' IERR1 ;
  534.   'SAUT' 1 'LIGN' ;
  535.   'ERRE' 5 ;
  536. 'FINS' ;
  537. *                                                                     *
  538. *--------------------- 6. "CHAMMIXT1 * CHAMEVOL1" --------------------*
  539. *                                                                     *
  540. * Definition des MCHAMLS necessaires au test :                        *
  541. LX1      = 'PROG' 0. 1. 2. ;
  542. LR2      = 'PROG' 1. 3. 3. ;
  543. LC2      = 'PROG' 1. 2. 1. ;
  544. LK1      = 'PROG' 2. 3. 5. ;
  545. LK2      = 'PROG' 7. 7. 7. ;
  546. EVR2     = 'EVOL' 'MANU' 'T' LX1 'RHO2' LR2 ;
  547. EVC2     = 'EVOL' 'MANU' 'T' LX1 'C2' LC2 ;
  548. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K1' LK1 ;
  549. EVK2     = 'EVOL' 'MANU' 'T' LX1 'K2' LK2 ;
  550. MOD1     = 'MODE' S1 'THERMIQUE' ;
  551. MAT1     = 'MANU' 'CHML' MOD1 'RHO1' 2.0 'C1' 0.5 'K1' EVK1 ;
  552. MAT2     = 'MANU' 'CHML' MOD1 'RHO2' EVR2 'C2' EVC2 'K2' EVK2 ;
  553. LM1      = 'MOTS' 'RHO1' 'C1' 'K1' ;
  554. LM2      = 'MOTS' 'K2' 'RHO2' 'C2' ;
  555. LM3      = 'MOTS' 'C3' 'K3' 'RHO3' ;
  556. LR1      = 'PROG' 1. 0.5 2. ;
  557. *                                                                     *
  558. MAT3     = MAT1 * MAT2 LM1 LM2 LM3 LR1 ;
  559. *                                                                     *
  560. * Verification :
  561. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  562.   ERR1     = 1. ;
  563. 'FINS' ;
  564. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  565.   ERR1     = ERR1 + 1. ;
  566. 'FINS' ;
  567. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'C3') ;
  568.   ERR1     = ERR1 + 1. ;
  569. 'FINS' ;
  570. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'K3') ;
  571.   ERR1     = ERR1 + 1. ;
  572. 'FINS' ;
  573. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'RHO3') ;
  574.   ERR1     = ERR1 + 1. ;
  575. 'FINS' ;
  576. EVR3     = 'EXTR' MAT3 'RHO3' 1 1 1 ;
  577. LX3      = 'EXTR' EVR3 'ABSC' ;
  578. LR3      = 'EXTR' EVR3 'ORDO' ;
  579. ERR1     = ERR1 + ('MAXI' (LX1 - LX3))
  580.   + ('MAXI' ((2. * LK1 * LC2) - LR3)) ;
  581. EVC3     = 'EXTR' MAT3 'C3' 1 1 1 ;
  582. LX3      = 'EXTR' EVC3 'ABSC' ;
  583. LC3      = 'EXTR' EVC3 'ORDO' ;
  584. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LK2) - LC3)) ;
  585. EVK3     = 'EXTR' MAT3 'K3' 1 1 1 ;
  586. LX3      = 'EXTR' EVK3 'ABSC' ;
  587. LK3      = 'EXTR' EVK3 'ORDO' ;
  588. ERR1     = ERR1 + ('MAXI' (LX1 - LX3))
  589.   + ('MAXI' ((0.5 * 0.5 * LR2) - LK3)) ;
  590. *                                                                     *
  591. * Je commute le produit :                                             *
  592. MAT3     = MAT2 * MAT1 LM2 LM1 LM3 LR1 ;
  593. *                                                                     *
  594. * Nouvelle verification :                                             *
  595. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  596.   ERR1     = 1. ;
  597. 'FINS' ;
  598. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 3) ;
  599.   ERR1     = ERR1 + 1. ;
  600. 'FINS' ;
  601. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'C3') ;
  602.   ERR1     = ERR1 + 1. ;
  603. 'FINS' ;
  604. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 2) 'K3') ;
  605.   ERR1     = ERR1 + 1. ;
  606. 'FINS' ;
  607. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 3) 'RHO3') ;
  608.   ERR1     = ERR1 + 1. ;
  609. 'FINS' ;
  610. EVR3     = 'EXTR' MAT3 'RHO3' 1 1 1 ;
  611. LX3      = 'EXTR' EVR3 'ABSC' ;
  612. LR3      = 'EXTR' EVR3 'ORDO' ;
  613. ERR1     = ERR1 + ('MAXI' (LX1 - LX3))
  614.   + ('MAXI' ((2. * LK1 * LC2) - LR3)) ;
  615. EVC3     = 'EXTR' MAT3 'C3' 1 1 1 ;
  616. LX3      = 'EXTR' EVC3 'ABSC' ;
  617. LC3      = 'EXTR' EVC3 'ORDO' ;
  618. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((2. * LK2) - LC3)) ;
  619. EVK3     = 'EXTR' MAT3 'K3' 1 1 1 ;
  620. LX3      = 'EXTR' EVK3 'ABSC' ;
  621. LK3      = 'EXTR' EVK3 'ORDO' ;
  622. ERR1     = ERR1 + ('MAXI' (LX1 - LX3))
  623.   + ('MAXI' ((0.5 * 0.5 * LR2) - LK3)) ;
  624. *                                                                     *
  625. * Message de sortie :                                                 *
  626. IERR1    = 'NEG' ERR1 0. ;
  627. VECH1    = 'VALE' 'ECHO' ;
  628. 'OPTI' 'ECHO' 0 ;
  629. 'SI' IMES1 ;
  630.   'SI' IERR1 ;
  631.     'SAUT' 1 'LIGN' ;
  632.     'MESS'
  633. '*** Erreur dans le produit de 2 MCHAML dont certaines composantes' ;
  634.     'MESS'
  635. '    sont de type EVOLUTIOn en fournissant trois LISTMOTS pour' ;
  636.     'MESS'
  637. '    preciser les noms des composantes intervenant dans chaque' ;
  638.     'MESS'
  639. '    produit et celui des composantes resultats et en fournissant' ;
  640.     'MESS'
  641. '    egalement un LISTREEL dont les valeurs ponderent les resultats.' ;
  642.   'FINS' ;
  643. 'FINS' ;
  644. 'OPTI' 'ECHO' VECH1 ;
  645. *                                                                     *
  646. * Gestion de l'erreur :                                               *
  647. 'SI' IERR1 ;
  648.   'SAUT' 1 'LIGN' ;
  649.   'ERRE' 5 ;
  650. 'FINS' ;
  651. *                                                                     *
  652. *--------------------- 7. "CHAMMIXT1 * CHAMFLOT1" --------------------*
  653. *                                                                     *
  654. * Definition des MCHAMLS necessaires au test :                        *
  655. LX1      = 'PROG' 0. 1. 2. ;
  656. LY1      = 'PROG' 2. 3. 5. ;
  657. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  658. MOD1     = 'MODE' T1 'THERMIQUE' ;
  659. MOD2     = 'MODE' Q1 'THERMIQUE' ;
  660. MOD0     = MOD1 'ET' MOD2 ;
  661. MAT1     = 'MATE' MOD1 'K' EVK1 ;
  662. MAT2     = 'MATE' MOD2 'K' 13. ;
  663. MAT0     = MAT1 'ET' MAT2 ;
  664. CHAM1    = 'MANU' 'CHML' MOD0 'SCAL' 7. 'RIGIDITE' ;
  665. *                                                                     *
  666. CHAM2    = MAT0 * CHAM1 ;
  667. *                                                                     *
  668. * Verification :
  669. *                                                                     *
  670. 'SI' ('NEG' ('TYPE' CHAM2) 'MCHAML') ;
  671.   ERR1     = 1. ;
  672. 'FINS' ;
  673. 'SI' ('NEG' ('DIME' ('EXTR' CHAM2 'COMP')) 1) ;
  674.   ERR1     = ERR1 + 1. ;
  675. 'FINS' ;
  676. 'SI' ('NEG' ('EXTR' ('EXTR' CHAM2 'COMP') 1) 'K') ;
  677.   ERR1     = ERR1 + 1. ;
  678. 'FINS' ;
  679. CHAM2_1  = 'REDU' CHAM2 MOD1 ;
  680. CHAM2_2  = 'REDU' CHAM2 MOD2 ;
  681. EVK2     = 'EXTR' CHAM2_1 'K' 1 1 1 ;
  682. LX2      = 'EXTR' EVK2 'ABSC' ;
  683. LY2      = 'EXTR' EVK2 'ORDO' ;
  684. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  685. KS2      = 'EXTR' CHAM2_2 'K' 1 1 1 ;
  686. ERR1     = ERR1 + (KS2 - (7. * 13.)) ;
  687. *                                                                     *
  688. * Message de sortie :                                                 *
  689. IERR1    = 'NEG' ERR1 0. ;
  690. VECH1    = 'VALE' 'ECHO' ;
  691. 'OPTI' 'ECHO' 0 ;
  692. 'SI' IMES1 ;
  693.   'SI' IERR1 ;
  694.     'SAUT' 1 'LIGN' ;
  695.     'MESS'
  696. '*** Erreur dans la multiplication d"un MCHAML de CARACTERISTIQUES' ;
  697.     'MESS'
  698. '    ayant deux sous-zone : la 1e de type FLOTTANT, la 2nd de type' ;
  699.     'MESS'
  700. '    EVOLUTIOn, par un CHAML de type SCALAIRE.' ;
  701.   'FINS' ;
  702. 'FINS' ;
  703. 'OPTI' 'ECHO' VECH1 ;
  704. *                                                                     *
  705. * Gestion de l'erreur :                                               *
  706. 'SI' IERR1 ;
  707.   'SAUT' 1 'LIGN' ;
  708.   'ERRE' 5 ;
  709. 'FINS' ;
  710. *                                                                     *
  711. *--------------------- 8. "CHAMMIXT2 * CHAMEVOL1" --------------------*
  712. *                                                                     *
  713. * Definition des MCHAMLS necessaires au test :                        *
  714. LX1      = 'PROG' 0. 1. 2. ;
  715. LY1      = 'PROG' 2. 3. 5. ;
  716. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  717. EV1      = 'EVOL' 'MANU' 'T' LX1 ('PROG' 1. 1. 1.) ;
  718. MOD1     = 'MODE' T1 'THERMIQUE' ;
  719. MOD2     = 'MODE' Q1 'THERMIQUE' ;
  720. MOD0     = MOD1 'ET' MOD2 ;
  721. MAT1_1   = 'MATE' MOD1 'K' EVK1 ;
  722. MAT2_1   = 'MATE' MOD2 'K' (13. * EV1) ;
  723. MAT1_2   = 'MATE' MOD1 'K' 7. ;
  724. MAT2_2   = 'MATE' MOD2 'K' (2. * EVK1) ;
  725. MAT0_1   = MAT1_1 'ET' MAT2_1 ;
  726. MAT0_2   = MAT1_2 'ET' MAT2_2 ;
  727. *                                                                     *
  728. MAT3     = MAT0_1 * MAT0_2 ;
  729. *                                                                     *
  730. * Verification :                                                      *
  731. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  732.   ERR1     = 1. ;
  733. 'FINS' ;
  734. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  735.   ERR1     = ERR1 + 1. ;
  736. 'FINS' ;
  737. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  738.   ERR1     = ERR1 + 1. ;
  739. 'FINS' ;
  740. EVK2     = 'EXTR' MAT3 'K' 1 1 1 ;
  741. LX2      = 'EXTR' EVK2 'ABSC' ;
  742. LY2      = 'EXTR' EVK2 'ORDO' ;
  743. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  744. EVK3     = 'EXTR' MAT3 'K' 2 1 1 ;
  745. LX3      = 'EXTR' EVK3 'ABSC' ;
  746. LY3      = 'EXTR' EVK3 'ORDO' ;
  747. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((26. * LY1) - LY3)) ;
  748. *                                                                     *
  749. * Message de sortie :                                                 *
  750. IERR1    = 'NEG' ERR1 0. ;
  751. VECH1    = 'VALE' 'ECHO' ;
  752. 'OPTI' 'ECHO' 0 ;
  753. 'SI' IMES1 ;
  754.   'SI' IERR1 ;
  755.     'SAUT' 1 'LIGN' ;
  756.     'MESS'
  757. '*** Erreur dans la multiplication d"un MCHAML de CARACTERISTIQUES' ;
  758.     'MESS'
  759. '    ayant deux sous-zone : la 1e de type FLOTTANT, la 2nd de type' ;
  760.     'MESS'
  761. '    EVOLUTIOn, par un autre MCHAML de type CARACTERISTIQUES dont' ;
  762.     'MESS'
  763. '    toutes les sous-zones sont de type EVOLUTIOn.' ;
  764.   'FINS' ;
  765. 'FINS' ;
  766. 'OPTI' 'ECHO' VECH1 ;
  767. *                                                                     *
  768. * Gestion de l'erreur :                                               *
  769. 'SI' IERR1 ;
  770.   'SAUT' 1 'LIGN' ;
  771.   'ERRE' 5 ;
  772. 'FINS' ;
  773. *                                                                     *
  774. *--------------------- 9. "CHAMMIXT1 * CHAMMIXT2" --------------------*
  775. *                                                                     *
  776. * Definition des MCHAMLS necessaires au test :                        *
  777. LX1      = 'PROG' 0. 1. 2. ;
  778. LY1      = 'PROG' 2. 3. 5. ;
  779. EVK1     = 'EVOL' 'MANU' 'T' LX1 'K' LY1 ;
  780. EV1      = 'EVOL' 'MANU' 'T' LX1 ('PROG' 1. 1. 1.) ;
  781. MOD1     = 'MODE' T1 'THERMIQUE' ;
  782. MOD2     = 'MODE' Q1 'THERMIQUE' ;
  783. MOD0     = MOD1 'ET' MOD2 ;
  784. MAT1_1   = 'MATE' MOD1 'K' EVK1 ;
  785. MAT2_1   = 'MATE' MOD2 'K' 13. ;
  786. MAT1_2   = 'MATE' MOD1 'K' 7. ;
  787. MAT2_2   = 'MATE' MOD2 'K' (2. * EVK1) ;
  788. MAT0_1   = MAT1_1 'ET' MAT2_1 ;
  789. MAT0_2   = MAT1_2 'ET' MAT2_2 ;
  790. *                                                                     *
  791. MAT3     = MAT0_1 * MAT0_2 ;
  792. *                                                                     *
  793. * Verification :                                                      *
  794. 'SI' ('NEG' ('TYPE' MAT3) 'MCHAML') ;
  795.   ERR1     = 1. ;
  796. 'FINS' ;
  797. 'SI' ('NEG' ('DIME' ('EXTR' MAT3 'COMP')) 1) ;
  798.   ERR1     = ERR1 + 1. ;
  799. 'FINS' ;
  800. 'SI' ('NEG' ('EXTR' ('EXTR' MAT3 'COMP') 1) 'K') ;
  801.   ERR1     = ERR1 + 1. ;
  802. 'FINS' ;
  803. EVK2     = 'EXTR' MAT3 'K' 1 1 1 ;
  804. LX2      = 'EXTR' EVK2 'ABSC' ;
  805. LY2      = 'EXTR' EVK2 'ORDO' ;
  806. ERR1     = ERR1 + ('MAXI' (LX1 - LX2)) + ('MAXI' ((7. * LY1) - LY2)) ;
  807. EVK3     = 'EXTR' MAT3 'K' 2 1 1 ;
  808. LX3      = 'EXTR' EVK3 'ABSC' ;
  809. LY3      = 'EXTR' EVK3 'ORDO' ;
  810. ERR1     = ERR1 + ('MAXI' (LX1 - LX3)) + ('MAXI' ((26. * LY1) - LY3)) ;
  811. *                                                                     *
  812. * Message de sortie :                                                 *
  813. IERR1    = 'NEG' ERR1 0. ;
  814. VECH1    = 'VALE' 'ECHO' ;
  815. 'OPTI' 'ECHO' 0 ;
  816. 'SI' IMES1 ;
  817.   'SI' IERR1 ;
  818.     'SAUT' 1 'LIGN' ;
  819.     'MESS'
  820. '*** Erreur dans la multiplication d"un MCHAML de CARACTERISTIQUES' ;
  821.     'MESS'
  822. '    ayant deux sous-zone : la 1e de type FLOTTANT, la 2nd de type' ;
  823.     'MESS'
  824. '    EVOLUTIOn, par un autre MCHAML de type CARACTERISTIQUES ayant' ;
  825.     'MESS'
  826. '    egalement deux sous-zone mais dont la 1e est de type EVOLUTIOn' ;
  827.     'MESS'
  828. '    et la 2e de type FLOTTANT.' ;
  829.   'FINS' ;
  830. 'FINS' ;
  831. 'OPTI' 'ECHO' VECH1 ;
  832. *                                                                     *
  833. * Gestion de l'erreur :                                               *
  834. 'SI' IERR1 ;
  835.   'SAUT' 1 'LIGN' ;
  836.   'ERRE' 5 ;
  837. 'FINS' ;
  838. *                                                                     *
  839. *---------------------------------------------------------------------*
  840. *                                                                     *
  841. * Message de sortie si test reussi :                                  *
  842. VECH1    = 'VALE' 'ECHO' ;
  843. 'OPTI' 'ECHO' 0 ;
  844. 'SI' IMES1 ;
  845.   'SAUT' 1 'LIGN' ;
  846.   'MESS'
  847. '***                         TEST REUSSI                           ***'
  848.   ;
  849. 'FINS' ;
  850. 'OPTI' 'ECHO' VECH1 ;
  851. *                                                                     *
  852. 'FIN' ;
  853. 'OPTI' 'ECHO' 1 ;
  854.  
  855.  
  856.  

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