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