Télécharger la plaquette Cast3M


fr en

Télécharger @plotpri.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @PLOTPRI  PROCEDUR  AM1       92/10/29    21:15:39     734            
  2. *-----------------------------------------------------
  3. DEBPROC @PLOTPRI TEN1*MCHAML  MSU1*MMODEL               ;      
  4. *-----------------------------------------------------
  5. *-----------------------------------------------------          
  6. MESS '                                                ' ;       
  7. MESS ' ---------------------------------------------- ' ;      
  8. MESS ' PROCEDURA PER GRAFICARE LE TENSIONI PRINCIPALI ' ;       
  9. MESS ' E GLI ISOVALORI                                ' ;       
  10. MESS ' ---------------------------------------------- ' ;       
  11. MESS '                                                ' ;       
  12. SU1 = EXTR TEN1 MAIL ;
  13. LTE1= SU1 ELEM TYPE  ;
  14. NSOT= DIME LTE1 ;                                               
  15. TX1 = TABLE;                                                                    
  16. TM1 = TABLE;                                                                    
  17. MC1 = TABLE;                                                                    
  18. TX2 = TABLE;                                                                    
  19. TM2 = TABLE;                                                                    
  20. MC2 = TABLE;                                                                    
  21. VM1 = VMIS TEN1 MSU1   ;                                
  22. TG1 = CHAN GRAVITE MSU1 TEN1   ;                           
  23. TP1 = PRIN TG1 MSU1 ; DETR TG1 ;                            
  24. *-----------------------------------------------------------
  25. NS=0;                                                      
  26. REPETER BOOP9 NSOT ;                                        
  27. NS=NS+1 ;                                                  
  28. TX1.NS = TABLE;                                            
  29. TM1.NS = TABLE;                                             
  30. MC1.NS = MOTS ;                                            
  31. TX2.NS = TABLE;                                            
  32. TM2.NS = TABLE;                                             
  33. MC2.NS = MOTS ;                                            
  34. MNS  = SU1 ELEM ( EXTR LTE1 NS ) ;                         
  35. TTT  = REDU TP1 MNS  ;                                     
  36. NNS  = NBEL MNS ;                                          
  37. N = 0 ;                                                    
  38. REPETER BOOP1 NNS   ;                                      
  39. N=N + 1 ;                                                  
  40. EN   = MNS ELEM N;                                         
  41. GN   = BARY  EN  ; DETR EN;                               
  42. SN11 = EXTR TTT SI11 1 N 1;                               
  43. SN22 = EXTR TTT SI22 1 N 1;                                
  44. CNX1 = EXTR TTT COX1 1 N 1;                                
  45. CNY1 = EXTR TTT COY1 1 N 1;                              
  46. CNX2 = EXTR TTT COX2 1 N 1;                                
  47. CNY2 = EXTR TTT COY2 1 N 1;                               
  48. TX1.NS.N= FORCE (( SN11 * CNX1 ) ( SN11 * CNY1 )) GN  ;    
  49. TM1.NS.N= -1. * TX1.NS.N;                                  
  50. TX2.NS.N= FORCE (( SN22 * CNX2 ) ( SN22 * CNY2 )) GN  ;    
  51. TM2.NS.N= -1. * TX2.NS.N;                                  
  52. SI( SN11 > 0. );
  53. M11=MC1.NS;                                                
  54. MC1.NS=INSER M11 N 'ROUG'; DETR M11;                       
  55. SINON;
  56. M11=MC1.NS;                                               
  57. MC1.NS=INSER MC1.NS N 'VERT'; DETR M11;                    
  58. FINSI ;                                                    
  59. SI( SN22 > 0. );
  60. M22=MC2.NS;                                                
  61. MC2.NS=INSER M22 N 'ROUG'; DETR M22;                       
  62. SINON;
  63. M22=MC2.NS;                                               
  64. MC2.NS=INSER M22 N 'VERT'; DETR M22;                       
  65. FINSI ;                                                    
  66. FIN BOOP1 ;                                                
  67. DETR TTT ;                                                 
  68. FIN BOOP9 ;                                                
  69. *-----------------------------------------------------------
  70. REPETER BOOP2          ;                                   
  71. MESS ' FORNIRE FATTORE DI AMPLIFICAZIONE PER LE  ';                      
  72. MESS ' TENSIONI PRINCIPALI (<0. PER USCIRE) ?    ';                      
  73. OBTENIR AX*FLOTTANT ;                                                    
  74. SI(AX < 0. ); QUITTER BOOP2 ; FINSI ;                                    
  75. LL=VRAI ;                                                                
  76. NS=0 ;                                                                   
  77. REPETER BOOP8 NSOT ;                                                    
  78. NS=NS+1 ;                                                                
  79. N=0;                                                                     
  80. NNS= DIME   MC1.NS     ;                                                
  81. REPETER BOOP3 NNS      ;                                                 
  82. N=N+1;                                                                   
  83. XX1= EXTR MC1.NS N  ; XX2 = EXTR MC2.NS N ;                              
  84. VX1 = (VECT TX1.NS.N AX FX FY XX1) ET (VECT TM1.NS.N AX FX FY XX1) ET    
  85.       (VECT TX2.NS.N AX FX FY XX2) ET (VECT TM2.NS.N AX FX FY XX2)  ;    
  86. SI LL     ;                                                             
  87. LL=FAUX   ;                                                              
  88. VXT = VX1 ;                                                              
  89. SINON ;                                                                  
  90. VXT = VXT ET VX1 ;                                                       
  91. FINSI ;                                                                  
  92. FIN BOOP3;                                                              
  93. FIN BOOP8;                                                               
  94. CC1= CONT SU1 ;                                                          
  95. MESS ' 1) ISOVMISES A LINEE                                     ' ;      
  96. MESS ' 2) ISOVMISES A LINEE        + TENS. PRINCIPALI           ' ;      
  97. MESS ' 3) ISOVMISES A LINEE        + TENS. PRINCIPALI + MAGLIA  ' ;      
  98. MESS ' 4) ISOVMISES A COLORE PIENO                              ' ;      
  99. MESS ' 5) ISOVMISES A COLORE PIENO + TENS. PRINCIPALI           ' ;      
  100. MESS ' 6) ISOVMISES A COLORE PIENO + TENS. PRINCIPALI + MAGLIA  ' ;      
  101. MESS ' 7)                            TENS. PRINCIPALI           ' ;      
  102. MESS ' 8)                            TENS. PRINCIPALI + MAGLIA  ' ;     
  103. MESS ' ? ' ;                                                             
  104. OBTENIR T1*ENTIER ;                                                     
  105. SI( T1 EGA 1)               ;                                          
  106.  OPTI ISOV LIGNE            ;                                           
  107.  TRAC SU1 MSU1 VM1 CC1      ;                                            
  108. SINON                       ;                                           
  109.  SI( T1 EGA 2)              ;                                            
  110.   OPTI ISOV LIGNE           ;                                            
  111.    TRAC SU1 MSU1 VM1 VXT CC1;                                           
  112.  SINON                      ;                                           
  113.   SI( T1 EGA 3)             ;                                           
  114.    OPTI ISOV LIGNE          ;                                           
  115.    TRAC SU1 MSU1 VM1 VXT         ;                                     
  116.   SINON                     ;                                            
  117.    SI( T1 EGA 4)            ;                                            
  118.     OPTI ISOV SURFACE       ;                                            
  119.     TRAC SU1 MSU1 VM1 CC1        ;                                      
  120.    SINON                    ;                                           
  121.     SI( T1 EGA 5)           ;                                           
  122.      OPTI ISOV SURFACE      ;                                            
  123.      TRAC SU1 MSU1 VM1 VXT CC1   ;                                       
  124.     SINON                   ;                                            
  125.      SI( T1 EGA 6)          ;                                           
  126.       OPTI ISOV SURFACE     ;                                            
  127.       TRAC SU1 MSU1 VM1 VXT      ;                                      
  128.      SINON                  ;                                            
  129.       SI( T1 EGA 7)         ;                                            
  130.        TRAC CC1     VXT     ;                                           
  131.       SINON                 ;                                           
  132.        TRAC SU1 VXT         ;                                           
  133.       FINSI                 ;                                            
  134.      FINSI                  ;                                            
  135.     FINSI                   ;                                            
  136.    FINSI                    ;                                            
  137.   FINSI                     ;                                           
  138.  FINSI                      ;                                            
  139. FINSI                       ;                                           
  140. FIN BOOP2;                                                               
  141. *---------------------------------------------------------------         
  142. NS=0 ;                                                                   
  143. REPETER BOOP7 NSOT ;                                                     
  144. NS=NS+1;                                                                
  145. NNS=DIME MC1.NS ;                                                        
  146. DETR MC1.NS ;                                                            
  147. DETR MC2.NS ;                                                            
  148. N=0;                                                                     
  149. REPETER BOOP4 NNS  ;                                                     
  150. N=N+1 ;                                                                  
  151. DETR  TX1.NS.N ;                                                        
  152. DETR  TM1.NS.N ;                                                        
  153. DETR  TX2.NS.N ;                                                         
  154. DETR  TM2.NS.N ;                                                        
  155. FIN BOOP4;                                                               
  156. FIN BOOP7;                                                             
  157. DETR VM1 ;                                                               
  158. DETR TP1 ;                                                               
  159. FINPROC ;                                                               
  160.  

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