Procedures | Cast3M

   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 :