Télécharger la plaquette Cast3M


fr en

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