Télécharger la plaquette Cast3M


fr en

Télécharger @lagraph.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LAGRAPH  PROCEDUR  KK2000    99/11/30    21:15:09     3720           
  2. ************************************************************************
  3. *                        PROCEDURA @SILAM
  4. ************************************************************************
  5. *
  6. * Descrizione : visualizzazione dell'andamento delle tensioni
  7. *               nello spessore in corrispondenza di un punto
  8. *
  9. * Sintassi    : TSIG = @LAGRAPH TAB_LAM DEPL1 NZON VET1 P0 ;
  10. *
  11. *
  12. * Autore/Data : Miliozzi A.  10/04/1997
  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. * TSIG     Tavola contenente i valori delle tensioni
  36. *
  37. ************************************************************************
  38. *
  39. DEBPROC @LAGRAPH TCOMP*TABLE DEPL1*CHPOINT NZON*ENTIER
  40.               VET1*POINT  P0*POINT ;
  41. *
  42.   TCTIP = TCOMP.TIPO   ;
  43.   TCOMP.TIPO = 'MLAY'  ;
  44.   TCAR1 = @LAMAT TCOMP NZON ;
  45.   TCOMP.TIPO = TCTIP   ;
  46. *
  47.   OBJ = TCOMP.NZON.MOD1 ;
  48. *
  49.   LS11 = PROG ; LI11 = PROG ;
  50.   LS22 = PROG ; LI22 = PROG ;
  51.   LS12 = PROG ; LI12 = PROG ;
  52.   LEXC = PROG ; LEPA = PROG ;
  53. *
  54.   NPLY = DIME TCAR1.MAT ;
  55. *
  56.   N   = 1 ;
  57.   REPETER LOOP0 NPLY ;
  58. *
  59.     SIGE1 = SIGMA OBJ TCAR1.MAT.N DEPL1 ;
  60.     SIGE2 = RTENS SIGE1 OBJ VET1 ; DETR SIGE1 ;
  61.     SIGE3S= CALP SIGE2 TCAR1.MAT.N OBJ 'SUPE' ;
  62.     SIGE3I= CALP SIGE2 TCAR1.MAT.N OBJ 'INFE' ;
  63.     DETR SIGE2 ;
  64.     SIGSUP= CHANGE CHPO OBJ SIGE3S ;
  65.     SIGINF= CHANGE CHPO OBJ SIGE3I ;
  66.     DETR SIGE3S ; DETR SIGE3I ;
  67. *
  68.     SUP11 = EXTRA SIGSUP SMXX P0 ; SDO11 = EXTRA SIGINF SMXX P0 ;
  69.     SUP22 = EXTRA SIGSUP SMYY P0 ; SDO22 = EXTRA SIGINF SMYY P0 ;
  70.     SUP12 = EXTRA SIGSUP SMXY P0 ; SDO12 = EXTRA SIGINF SMXY P0 ;
  71. *
  72.     EX = TCOMP.NZON.N.EXC        ; EP = TCOMP.NZON.N.EPA        ;
  73. *
  74.     LS11 = INSERER LS11 N SUP11  ; LI11 = INSERER LI11 N SDO11  ;
  75.     LS22 = INSERER LS22 N SUP22  ; LI22 = INSERER LI22 N SDO22  ;
  76.     LS12 = INSERER LS12 N SUP12  ; LI12 = INSERER LI12 N SDO12  ;
  77.     LEXC = INSERER LEXC N EX     ; LEPA = INSERER LEPA N EP     ;
  78. *
  79.     N = N + 1 ;
  80.   FIN LOOP0 ;
  81. *
  82. * DETR DEP1 ;
  83.   L11 = PROG ; L22 = PROG ; L12 = PROG ; LQUOTA = PROG ;
  84. *
  85.   N   = 1 ;
  86.   REPETER LOOP1 NPLY ;
  87. *
  88.     K1 = (2 * N) - 1 ; K2 = 2 * N ;
  89. *
  90.     Z1 = EXTR LEXC N ;
  91.     Z2 = (EXTR LEPA N) / 2. ;
  92. *
  93.     ZZ = Z1 + Z2 ;
  94.     LQUOTA = INSERER LQUOTA K1 ZZ ;
  95.     L11 = INSERER L11    K1 (EXTR LS11 N) ;
  96.     L22 = INSERER L22    K1 (EXTR LS22 N) ;
  97.     L12 = INSERER L12    K1 (EXTR LS12 N) ;
  98. *
  99.     ZZ = Z1 - Z2 ;
  100.     LQUOTA = INSERER LQUOTA K2 ZZ ;
  101.     L11 = INSERER L11    K2 (EXTR LI11 N) ;
  102.     L22 = INSERER L22    K2 (EXTR LI22 N) ;
  103.     L12 = INSERER L12    K2 (EXTR LI12 N) ;
  104. *
  105.     N = N + 1 ;
  106. *
  107.   FIN LOOP1 ;
  108. *
  109.   DETR LS11 ; DETR LS22 ; DETR LS12 ;
  110.   DETR LI11 ; DETR LI22 ; DETR LI12 ;
  111.   DETR LEXC ; DETR LEPA ;
  112. *
  113.   TITRE 'ANDAMENTO TENSIONE NELLO SPESSORE' ;
  114.   EV11 = EVOL ROUG MANU 'SIGMA11' L11 'Z' LQUOTA ;
  115.   EV22 = EVOL TURQ MANU 'SIGMA22' L22 'Z' LQUOTA ;
  116.   EV12 = EVOL VERT MANU 'SIGMA12' L12 'Z' LQUOTA ;
  117. *
  118.   TSIG = TABLE ;
  119.   TSIG . LISTEPE = LQUOTA ;
  120.   TSIG . LISTS11 = L11    ;
  121.   TSIG . LISTS22 = L22    ;
  122.   TSIG . LISTS12 = L12    ;
  123. *
  124.   DESSIN EV11 ;
  125.   DESSIN EV22 ;
  126.   DESSIN EV12 ;
  127. *
  128. FINPROC TSIG ;
  129. *******************************************************************
  130. *                    FINE PROCEDURA @LAGRAPH
  131. ********************************************************************
  132.  
  133.  

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