Télécharger thermic.procedur

Retour à la liste

Numérotation des lignes :

  1. * THERMIC PROCEDUR JEANV 95/05/09 21:15:37 1655
  2. 'DEBPROC' THERMIC ;
  3. *----------------------------------------------------------------------*
  4. * *
  5. * T H E R M I C *
  6. * ------------- *
  7. * *
  8. * FONCTION: *
  9. * --------- *
  10. * *
  11. * LA PROCEDURE "THERMIC" TRAITE DU PROBLEME SUIVANT : *
  12. * *
  13. * - LE REGIME PERMANENT NON-LINEAIRE *
  14. * *
  15. * PHRASE D'APPEL (EN GIBIANE): *
  16. * ---------------------------- *
  17. * *
  18. * THERMIC ( MOTCLE ) ETAB ; *
  19. * *
  20. * OPERANDES ET RESULTATS: *
  21. * ----------------------- *
  22. * *
  23. * MOTCLE UN MOT CARACTERISANT LE *
  24. * TYPE DE CALCUL ENTREPRIS : *
  25. * *
  26. * NONLINEAIRE *
  27. * *
  28. * *
  29. * ETAB TABLE CONTENANT EN ENTREE LES OPERANDES *
  30. * ET EN SORTIE LES CHAMPS DE TEMPERATURE *
  31. * *
  32. * ETAB EST DE SOUS-TYPE 'THERMIQUE' *
  33. * *
  34. * AUTEUR, DATE DE CREATION: *
  35. * ------------------------- *
  36. * *
  37. * D.R., LE 7 NOVEMBRE 1988. VERSION DU 18 JANVIER 1989. *
  38. * *
  39. *----------------------------------------------------------------------*
  40. IERREUR = 0 ;
  41. 'REPETER' PROC 1 ;
  42. *
  43. * TRAITEMENT DES MOTS-CLES
  44. *
  45. 'ARGUMENT' MOTCLE1*'MOT ' ;
  46. *
  47. 'SI' ( 'EGA' MOTCLE1 'NONLINEAIRE2' ) ;
  48. *
  49. *--- CAS DU PERMANENT NON-LINEAIRE, METHODE DES RESIDUS
  50. *
  51. 'ARGUMENT' ETAB*'TABLE ' ;
  52. TRANSIT0 ETAB ;
  53. 'QUITTER' PROC ;
  54. 'FINSI';
  55. *
  56. 'SI' ( 'EGA' MOTCLE1 'NONLINEAIRE' ) ;
  57. * TYP_PRO4 = 'TYPE' TRANSIT1 ;
  58. * 'SI' ( 'NEG' TYP_PRO4 'PROCEDUR' ) ;
  59. * IERREUR = 2 ;
  60. * MOPROC = '"TRANSIT1"' ;
  61. * 'QUITTER' PROC ;
  62. * 'FINSI' ;
  63. 'ARGUMENT' ETAB*'TABLE ' ;
  64. *
  65. *--- CAS DU PERMANENT NON-LINEAIRE, METHODE DU POINT-FIXE
  66. *
  67. TRANSIT1 ETAB ;
  68. 'QUITTER' PROC ;
  69. 'SINON' ;
  70. 'SI' ( 'EGA' MOTCLE1 'TRANSITOIRE' ) ;
  71. 'ARGUMENT' MOTCLE2/'MOT ' ;
  72. 'SI' ( 'EXISTE' MOTCLE2 ) ;
  73. 'SI' ( 'EGA' MOTCLE2 'NONLINEAIRE' ) ;
  74. 'ARGUMENT' MOTCLE3/'MOT ' ;
  75. 'SI' ( 'EXISTE' MOTCLE3 ) ;
  76. 'SI' ( 'EGA' MOTCLE3 'METHODE' ) ;
  77. 'ARGUMENT' MOTCLE4/'MOT ' ;
  78. 'SI' ( 'EXISTE' MOTCLE4 ) ;
  79. 'SI' ( 'EGA' MOTCLE4 'POINTFIXE' ) ;
  80. IERREUR = 3 ;
  81. * TYP_PRO1 = 'TYPE' TRANSIT4 ;
  82. * 'SI' ( 'NEG' TYP_PRO1 'PROCEDUR' ) ;
  83. * IERREUR = 2 ;
  84. * MOPROC = '"TRANSIT4"' ;
  85. * 'QUITTER' PROC ;
  86. * 'FINSI' ;
  87. 'ARGUMENT' ETAB*'TABLE ' ;
  88. *
  89. *--- CAS DU TRANSITOIRE NONLINEAIRE METHODE POINT FIXE
  90. *
  91. * TRANSIT4 ETAB ;
  92. 'QUITTER' PROC ;
  93. 'SINON' ;
  94. 'SI' ( 'EGA' MOTCLE4 'DUPONT2' ) ;
  95. TYP_PRO2 = 'TYPE' TRANSIT3 ;
  96. * 'SI' ( 'NEG' TYP_PRO2 'PROCEDUR' ) ;
  97. * IERREUR = 2 ;
  98. * MOPROC = '"TRANSIT3"' ;
  99. * 'QUITTER' PROC ;
  100. * 'FINSI' ;
  101. 'ARGUMENT' ETAB*'TABLE ' ;
  102. *
  103. *--- CAS DU TRANSITOIRE NONLINEAIRE METHODE DUPONT2
  104. *
  105. 'MESS' 'La thermique transitoire à été débranchée';
  106. 'MESS' 'Veuillez utiliser la procédure PASAPAS';
  107. 'QUITTER' PROC;
  108. TRANSIT3 ETAB ;
  109. 'QUITTER' PROC ;
  110. 'SINON' ;
  111. IERREUR = 1 ;
  112. 'QUITTER' PROC ;
  113. 'FINSI' ;
  114. 'FINSI' ;
  115. 'SINON' ;
  116. IERREUR = 1 ;
  117. 'QUITTER' PROC ;
  118. 'FINSI' ;
  119. 'SINON' ;
  120. IERREUR = 1 ;
  121. 'QUITTER' PROC ;
  122. 'FINSI' ;
  123. 'SINON' ;
  124. IERREUR = 1 ;
  125. 'QUITTER' PROC ;
  126. 'FINSI' ;
  127. 'SINON' ;
  128. IERREUR = 1 ;
  129. 'QUITTER' PROC ;
  130. 'FINSI' ;
  131. 'FINSI' ;
  132. TYP_PRO3 = 'TYPE' TRANSIT2 ;
  133. * 'SI' ( 'NEG' TYP_PRO3 'PROCEDUR' ) ;
  134. * IERREUR = 2 ;
  135. * MOPROC = '"TRANSIT2"' ;
  136. * 'QUITTER' PROC ;
  137. * 'FINSI' ;
  138. 'ARGUMENT' ETAB*'TABLE ' ;
  139. *
  140. *--- CAS DU TRANSITOIRE LINEAIRE
  141. *
  142. 'MESS' 'La thermique transitoire à été débranchée';
  143. 'MESS' 'Veuillez utiliser la procédure PASAPAS';
  144. 'QUITTER' PROC;
  145. TRANSIT2 ETAB ;
  146. 'QUITTER' PROC ;
  147. 'SINON' ;
  148. IERREUR = 1 ;
  149. 'QUITTER' PROC ;
  150. 'FINSI' ;
  151. 'FINSI' ;
  152. 'FIN' PROC ;
  153. *
  154. 'SI' ( IERREUR 'EGA' 1 ) ;
  155. 'SAUTER' 1 'LIGNE' ;
  156. 'MESS' '***** ERREUR *****' ;
  157. 'MESS' 'PROCEDURE "THERMIC" : MOT(S)-CLE(S) INCORRECT(S) |';
  158. 'SINON' ;
  159. 'SI' ( IERREUR 'EGA' 2 ) ;
  160. 'SAUTER' 1 'LIGNE' ;
  161. 'MESS' '***** ERREUR *****' ;
  162. 'MESS' 'LA PROCEDURE ' MOPROC ' A DISPARU |';
  163. 'SINON' ;
  164. 'SI' ( IERREUR 'EGA' 3 ) ;
  165. 'SAUTER' 1 'LIGNE' ;
  166. 'MESS' '***** ERREUR *****' ;
  167. 'MESS' 'CETTE OPTION EST ACTUELLEMENT INDISPONIBLE |';
  168. 'FINSI' ;
  169. 'FINSI' ;
  170. 'FINSI' ;
  171. *
  172. 'FINPROC' ETAB ;
  173.  

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