Télécharger la plaquette Cast3M


fr en

Télécharger @lasiep.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LASIEP   PROCEDUR  KK2000    99/11/30    21:15:22     3720           
  2. *
  3. ************************************************************************
  4. *                        PROCEDURA @LASIEP
  5. ************************************************************************
  6. *
  7. * Descrizione : calcola strato per stato le tensioni e le deformazioni
  8. *               per una zona e le riporta nel sistema di riferimento
  9. *               di ortotropia.
  10. *
  11. * Sintassi    : TAB_SIEP = @LASIEP TABLAM NBZON DEP1 (MOT1) ;
  12. *
  13. * Autore/Data : Miliozzi A.  10/04/1997
  14. *
  15. * Revisioni   :
  16. *
  17. ************************************************************************
  18. *
  19. *--- INPUT
  20. *=========
  21. *
  22. * TAB_ZONA   Tavola caratteristica del laminato
  23. *
  24. * NBZON      Numero della zona
  25. *
  26. * DEP1       Campo di spostamenti
  27. *
  28. * MOT1       Parola chiave secondo la quale si possono richiedere
  29. *            i soli campi di tensione o di deformazione od entrambi
  30. *            Essa e' opzionale e puo' valere:
  31. *                                'ALL' : entrambe         (Default)
  32. *                                'SIG' : solo tensioni
  33. *                                'EPS' : solo deformazioni
  34. *
  35. *--- OUTPUT
  36. *==========
  37. *
  38. * TAB_SIEP   Tavola contenente i campi di tensione e di deformazione
  39. *
  40. ************************************************************************
  41. *
  42. DEBPROC @LASIEP TT1*TABLE NZONE*ENTIER SP*CHPOINT MOT1/MOT ;
  43. *
  44. * - Controllo tipo di dati richiesti in output
  45. MOT2 = 'ALL' ;
  46. SI (EXIST MOT1) ;
  47.   SI (EGA MOT1 'SIG'); MOT2=MOT1 ; FINSI ;
  48.   SI (EGA MOT1 'EPS'); MOT2=MOT1 ; FINSI ;
  49. FINSI;
  50. *
  51. * - CALCOLO MATERIAU E CARACTER PLY BY PLY
  52. TCTIP    = TT1.TIPO         ;
  53. TT1.TIPO = 'MLAY'           ;
  54. TCAR1    = @LAMAT TT1 NZONE ;
  55. TT1.TIPO = TCTIP            ;
  56. *
  57. * - CALCOLO TENSIONI E DEFORMAZIONI PLY BY PLY
  58. * - E ROTAZIONE NEL SISTEMA DI RIFERIMENTO COMUNE
  59. TT2  = TT1 . NZONE    ;
  60. NPLY = DIME TCAR1.MAT ;
  61. *
  62. TSIEP = TABLE ;
  63. SI ( (EGA MOT2 'ALL') OU (EGA MOT2 'SIG') ) ;
  64.                              TSIEP.SIG1 = TABLE ; FINSI ;
  65. SI ( (EGA MOT2 'ALL') OU (EGA MOT2 'EPS') ) ;
  66.                              TSIEP.EPS1 = TABLE ; FINSI ;
  67. *
  68. N = 1 ;
  69. REPETER LOOP0 NPLY ;
  70. *
  71. SI ( (EGA MOT2 'ALL') OU (EGA MOT2 'SIG') ) ;
  72.   SIGE1        = SIGMA TT2.MOD1 TCAR1.MAT.N SP    ;
  73.   TSIEP.SIG1.N = RTENS SIGE1 TT2.MOD1 TCAR1.MAT.N ;
  74.   DETR SIGE1 ;
  75. FINSI;
  76. SI ( (EGA MOT2 'ALL') OU (EGA MOT2 'EPS') ) ;
  77.   EPSI1        = EPSI TT2.MOD1 SP TCAR1.MAT.N ;
  78.   TSIEP.EPS1.N = RTENS EPSI1 TT2.MOD1 TCAR1.MAT.N ;
  79.   DETR EPSI1 ;
  80. FINSI;
  81. N = N + 1 ;
  82. *
  83. FIN LOOP0 ;
  84. *
  85. FINPROC TSIEP ;
  86. *
  87. ************************************************************************
  88. *                        FINE PROCEDURA @LASIEP
  89. ************************************************************************
  90. *
  91.  
  92.  
  93.  

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