Télécharger la plaquette Cast3M


fr en

Télécharger silam.procedur

Retour à la liste

Numérotation des lignes : 

  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. ********************************************************************            
  127.  

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