Télécharger la plaquette Cast3M


fr en

Télécharger @lalist.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LALIST   PROCEDUR  KK2000    99/11/30    21:15:13     3720           
  2. *
  3. ************************************************************************
  4. *                        PROCEDURA @LALIST
  5. ************************************************************************
  6. *
  7. * Descrizione : produce un listato delle caratteristiche, zona per
  8. *               zona, dei laminati contenuti nella tavola di
  9. *               definizione
  10. *
  11. * Sintassi    : LALIST TAB_COMP ;
  12. *
  13. * Autore/Data : Miliozzi A.  10/04/1997
  14. *
  15. * Revisioni   :
  16. *
  17. ************************************************************************
  18. *
  19. *--- INPUT
  20. *=========
  21. *
  22. * TAB_COMP  tavola caratteristica dei laminati compositi
  23. *
  24. *--- OUTPUT
  25. *==========
  26. *
  27. *
  28. ***********************************************************************
  29. *
  30. DEBPROC @LALIST TCOMP*TABLE ;
  31. *
  32. IECHO = VALE ECHO ;
  33. OPTI ECHO 0 ;
  34. *
  35. MESS '                                                 '   ;
  36. MESS ' ************************************************'   ;
  37. MESS ' ************************************************'   ;
  38. MESS ' ***   TABLE LISTING FOR LAMINATE COMPOSITE   ***'   ;
  39. MESS ' ************************************************'   ;
  40. MESS ' ************************************************'   ;
  41. MESS '                                                 '   ;
  42. MESS ' METHOD TYPE         = ' TCOMP.TIPO                  ;
  43. MESS '                                                 '   ;
  44. *
  45. NMAT = DIME TCOMP.MCOL ;
  46. MID = 0 ;
  47. *
  48. REPETER LOOPM NMAT ;
  49. MID = MID + 1  ;
  50. *
  51. MESS '                                                 '   ;
  52. MESS ' ************************************************'   ;
  53. MESS ' ** M A T E R I A L   NUMBER : ' MID                 ;
  54. MESS ' ************************************************'   ;
  55. MESS '                                                 '   ;
  56. MESS ' LONG.  YOUNG MODULUS= ' TCOMP.MCOL.MID.YG1     ;
  57. MESS ' TRANS. YOUNG MODULUS= ' TCOMP.MCOL.MID.YG2     ;
  58. MESS ' SHEAR MODULUS  G12  = ' TCOMP.MCOL.MID.G12     ;
  59. MESS ' SHEAR MODULUS  G23  = ' TCOMP.MCOL.MID.G23     ;
  60. MESS ' SHEAR MODULUS  G13  = ' TCOMP.MCOL.MID.G13     ;
  61. MESS ' POISSON COEFFICIENT = ' TCOMP.MCOL.MID.NU12    ;
  62. MESS ' LONG.  THERMAL COEF.= ' TCOMP.MCOL.MID.ALP1    ;
  63. MESS ' TRANS. THERMAL COEF.= ' TCOMP.MCOL.MID.ALP2    ;
  64. MESS ' DENSITY             = ' TCOMP.MCOL.MID.RHO     ;
  65. MESS ' LONG.  TRAC. LIMIT  = ' TCOMP.MCOL.MID.XTR     ;
  66. MESS ' LONG.  COMP. LIMIT  = ' TCOMP.MCOL.MID.XCO     ;
  67. MESS ' TRANS. TRAC. LIMIT  = ' TCOMP.MCOL.MID.YTR     ;
  68. MESS ' TRANS. COMP. LIMIT  = ' TCOMP.MCOL.MID.YCO     ;
  69. MESS ' SHEAR LIMIT         = ' TCOMP.MCOL.MID.SSS     ;
  70. *
  71. FIN LOOPM ;
  72. *
  73. NZON = (DIME TCOMP) - 2                                    ;
  74. N1    = 1                                                  ;
  75. *
  76. REPETER LOOP1 NZON                                         ;
  77. *
  78. MESS '                                                 '   ;
  79. MESS ' ************************************************'   ;
  80. MESS ' ** Z O N E    NUMBER : ' N1                         ;
  81. MESS ' ************************************************'   ;
  82. MESS '                                                 '   ;
  83. xx = ' ' ;
  84. nn = 0 ;
  85. ll = TCOMP.N1.FELF ; dd = dime ll ;
  86. repe loopx dd ;
  87. nn = nn + 1 ;
  88. xx = chain xx (extr ll nn) ;
  89. fin loopx;
  90. MESS ' FINITE ELEMEMTS TYPE= ' xx                          ;
  91. MESS ' METHOD OF REFERNCE  = ' TCOMP.N1.METRIF             ;
  92. MESS ' REFERENCE DIRECTION '                               ;
  93. MESS '     - COORD. X      = ' (COOR 1 TCOMP.N1.DIRRIF)    ;
  94. MESS '     - COORD. Y      = ' (COOR 2 TCOMP.N1.DIRRIF)    ;
  95. MESS '     - COORD. Z      = ' (COOR 3 TCOMP.N1.DIRRIF)    ;
  96. MESS ' NORMAL DIRECTION   '                                ;
  97. MESS '     - COORD. X      = ' (COOR 1 TCOMP.N1.DIRNOR)    ;
  98. MESS '     - COORD. Y      = ' (COOR 2 TCOMP.N1.DIRNOR)    ;
  99. MESS '     - COORD. Z      = ' (COOR 3 TCOMP.N1.DIRNOR)    ;
  100. *
  101. NLAM = (DIME TCOMP.N1) - 6                                 ;
  102. N2    = 1                                                  ;
  103. *
  104. REPETER LOOP2 NLAM                                         ;
  105. *
  106. MESS '                                                 '   ;
  107. MESS ' ================================================'   ;
  108. MESS '    L A M I N A    NUMBER : ' N2                     ;
  109. MESS ' ================================================'   ;
  110. MESS '                                                 '   ;
  111. MESS ' THICKNESS           = ' TCOMP.N1.N2.EPA        ;
  112. MESS ' ECCENTRICITY        = ' TCOMP.N1.N2.EXC        ;
  113. MESS ' FIBER LAYOUT ANGLE  = ' TCOMP.N1.N2.ANG        ;
  114. MESS ' MATERIAL ID.        = ' TCOMP.N1.N2.IDM        ;
  115. SI (EXIST (TCOMP.N1.N2) G13) ;
  116. MESS ' CORRECTIVE ACTIONS ON : '                      ;
  117. MESS ' SHEAR MODULUS  G23  = ' TCOMP.N1.N2.G23        ;
  118. MESS ' SHEAR MODULUS  G13  = ' TCOMP.N1.N2.G13        ;
  119. FINSI ;
  120. *
  121. N2 = N2 + 1                                           ;
  122. FIN LOOP2                                             ;
  123. *
  124. N1 = N1 + 1                                           ;
  125. FIN LOOP1                                             ;
  126. *
  127. OPTI ECHO IECHO ;
  128. *
  129. FINPROC  ;
  130. *
  131. ************************************************************************
  132. *                       FINE PROCEDURA @LALIST
  133. ************************************************************************
  134. *
  135.  
  136.  

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