Procedures | Cast3M

   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 ;