Procedures | Cast3M

   1 : * SILAM     PROCEDUR  AM1       92/06/22    21:16:41     600            
   2 : ************************************************************************        
   3 : *                        PROCEDURA SILAM                                        
   4 : ************************************************************************        
   5 : *                                                                               
   6 : * Descrizione : visualizzazione dell'andamento delle tensioni
   7 : *               nello spessore in corrispondenza di un punto
   8 : *
   9 : * Sintassi    : SILAM TAB_LAM DEPL1 NZON VET1 P0 ; 
  10 : *   
  11 : *       
  12 : * Autore/Data : Miliozzi A.  03/02/1992
  13 : *
  14 : *
  15 : * Revisioni   :                          
  16 : *                                                                               
  17 : ************************************************************************     
  18 : *
  19 : *--- INPUT                                                                      
  20 : *=========                                                                      
  21 : *
  22 : * TAB_LAM  Tavola caratteristica del laminato
  23 : *
  24 : * DEPL1    Campo di spostamenti
  25 : *
  26 : * NZON     Numero della zona considerata
  27 : *
  28 : * VET1     Direzione di orientazione del campo di tensioni
  29 : *
  30 : * P0       Punto sul quale visualizzare le tensioni
  31 : * 
  32 : *--- OUTPUT                                                                     
  33 : *==========                                                                     
  34 : *                                                                   
  35 : *                                                                               
  36 : ************************************************************************        
  37 : *
  38 : DEBPROC SILAM TCOMP*TABLE DEPL1*CHPOINT NZON*ENTIER                             
  39 :               VET1*POINT  P0*POINT ;                                            
  40 : *                                                                               
  41 :   TCTIP = TCOMP.NZON.TIPO   ;                                                   
  42 :   TCOMP.NZON.TIPO = 'MLAY'  ;                                                   
  43 :   TCAR1 = LAMAT (TCOMP.NZON);                                                   
  44 :   TCOMP.NZON.TIPO = TCTIP   ;                                                   
  45 : *
  46 :   OBJ = TCOMP.NZON.MOD1 ; 
  47 : *                                                                               
  48 :   LS11 = PROG ; LI11 = PROG ;                                                   
  49 :   LS22 = PROG ; LI22 = PROG ;                                                   
  50 :   LS12 = PROG ; LI12 = PROG ;                                                   
  51 :   LEXC = PROG ; LEPA = PROG ;                                                   
  52 : *                                                                               
  53 :   NPLY = DIME TCAR1.MAT ;                                                       
  54 : *                                                                               
  55 :   N   = 1 ;                                                                     
  56 :   REPETER LOOP0 NPLY ;                                                          
  57 : *                                                                               
  58 :     SIGE1 = SIGMA OBJ (TCAR1.MAT.N ET TCAR1.CAR.N) DEPL1 ;    
  59 :     SIGE2 = RTENS SIGE1 OBJ VET1 ; DETR SIGE1 ; 
  60 :     SIGE3S = CALP SIGE2 TCAR1.CAR.N OBJ 'SUPE' ;
  61 :     SIGE3I = CALP SIGE2 TCAR1.CAR.N OBJ 'INFE' ;
  62 :     DETR SIGE2 ;       
  63 :     SIGSUP = CHANGE CHPO OBJ SIGE3S ;
  64 :     SIGINF = CHANGE CHPO OBJ SIGE3I ;                                           
  65 :     DETR SIGE3S ; DETR SIGE3I ;
  66 : *
  67 :     SUP11 = EXTRA SIGSUP SMXX P0 ; SDO11 = EXTRA SIGINF SMXX P0 ;
  68 :     SUP22 = EXTRA SIGSUP SMYY P0 ; SDO22 = EXTRA SIGINF SMYY P0 ;
  69 :     SUP12 = EXTRA SIGSUP SMXY P0 ; SDO12 = EXTRA SIGINF SMXY P0 ;               
  70 : *
  71 :     EX = TCOMP.NZON.EXC.N        ; EP = TCOMP.NZON.EPA.N        ;
  72 : *                                              
  73 :     LS11 = INSERER LS11 N SUP11  ; LI11 = INSERER LI11 N SDO11  ;        
  74 :     LS22 = INSERER LS22 N SUP22  ; LI22 = INSERER LI22 N SDO22  ;   
  75 :     LS12 = INSERER LS12 N SUP12  ; LI12 = INSERER LI12 N SDO12  ;      
  76 :     LEXC = INSERER LEXC N EX     ; LEPA = INSERER LEPA N EP     ; 
  77 : *                                                                               
  78 :     N = N + 1 ;                                                                 
  79 :   FIN LOOP0 ;                                                 
  80 : *                                                                               
  81 : * DETR DEP1 ;                                                                   
  82 :   L11 = PROG ; L22 = PROG ; L12 = PROG ; LQUOTA = PROG ;                        
  83 : *                                                                               
  84 :   N   = 1 ;                                                                     
  85 :   REPETER LOOP1 NPLY ;                                                          
  86 : *                                                                               
  87 :     K1 = (2 * N) - 1 ; K2 = 2 * N ;                                             
  88 : *                                                                               
  89 :     Z1 = EXTR LEXC N ;                                                          
  90 :     Z2 = (EXTR LEPA N) / 2. ;      
  91 : *                                             
  92 :     ZZ = Z1 + Z2 ;                                                              
  93 :     LQUOTA = INSERER LQUOTA K1 ZZ ;
  94 :     L11 = INSERER L11    K1 (EXTR LS11 N) ;          
  95 :     L22 = INSERER L22    K1 (EXTR LS22 N) ;  
  96 :     L12 = INSERER L12    K1 (EXTR LS12 N) ;  
  97 : *
  98 :     ZZ = Z1 - Z2 ;                                                              
  99 :     LQUOTA = INSERER LQUOTA K2 ZZ ;                  
 100 :     L11 = INSERER L11    K2 (EXTR LI11 N) ;   
 101 :     L22 = INSERER L22    K2 (EXTR LI22 N) ;       
 102 :     L12 = INSERER L12    K2 (EXTR LI12 N) ;   
 103 : *                                                                               
 104 :     N = N + 1 ;                                                                 
 105 : *                                                                               
 106 :   FIN LOOP1 ;                                                                   
 107 : *                                                                               
 108 :   DETR LS11 ; DETR LS22 ; DETR LS12 ;                                           
 109 :   DETR LI11 ; DETR LI22 ; DETR LI12 ;                                           
 110 :   DETR LEXC ; DETR LEPA ;                                                       
 111 : *                                                                               
 112 :   TITRE 'ANDAMENTO TENSIONE NELLO SPESSORE' ;                                   
 113 :   EV11 = EVOL ROUG MANU 'SIGMA11' L11 'QUOTA Z' LQUOTA ;                        
 114 :   EV22 = EVOL TURQ MANU 'SIGMA22' L22 'QUOTA Z' LQUOTA ;                        
 115 :   EV12 = EVOL VERT MANU 'SIGMA12' L12 'QUOTA Z' LQUOTA ;                        
 116 : *                                                                               
 117 :   DESSIN EV11 ;                                                                 
 118 :   DESSIN EV22 ;                                                                 
 119 :   DESSIN EV12 ;                                                                 
 120 : *                                                                               
 121 :   DETR LQUOTA ; DETR L11 ; DETR L22 ; DETR L12 ;                                
 122 : *                                                                               
 123 : FINPROC ;                                                                       
 124 : *******************************************************************             
 125 : *                    FINE PROCEDURA SILAM             
 126 : ********************************************************************