Procedures | Cast3M

   1 : * @LARIG    PROCEDUR  KK2000    99/11/30    21:15:20     3720           
   2 : *
   3 : ************************************************************************
   4 : *                        PROCEDURA @LARIG
   5 : ************************************************************************
   6 : *
   7 : * Descrizione : permette di calcolare la matrice di rigidezza del
   8 : *               laminato relativo ad una zona sia nel caso di
   9 : *               lamine eccentriche sia in quello di laminato
  10 : *               omogeneizzato
  11 : *
  12 : * Sintassi    : RIG1 = @LARIG TAB_MAT ;
  13 : *
  14 : *
  15 : * Autore/Data : Miliozzi A.  10/04/1997
  16 : *
  17 : *
  18 : * Revisioni   :
  19 : *
  20 : ************************************************************************
  21 : *
  22 : *--- INPUT
  23 : *=========
  24 : *
  25 : * TAB_MAT  Tavola degli oggetti di tipo MATERIAU o MAHOOK e
  26 : *          CARACTER (indici MAT e CAR)
  27 : *
  28 : *--- OUTPUT
  29 : *==========
  30 : *
  31 : * RIG1     Oggetto di tipo RIGIDITE per la zona considerata
  32 : *
  33 : ************************************************************************
  34 : *
  35 : DEBPROC @LARIG TM*TABLE ;
  36 : *
  37 : * --- CALCOLO RIGIDEZZA LAMINATO
  38 : *
  39 :   TIP1  = TM.TIPO ;
  40 :   OBJ   = TM.MOD1 ;
  41 : *
  42 :   SI (EGA TIP1 'OMOG')  ;
  43 : *
  44 :     RIGLAM = RIGI OBJ TM.MAT.1  TM.CAR.1 ;
  45 : *
  46 :   SINON;
  47 : *
  48 :     NULAM = DIME TM.MAT   ;
  49 :     NN    = 1;
  50 :     REPETER LOOP1 NULAM ;
  51 :       SI (NN EGA 1) ;
  52 :           RIGLAM = RIGI OBJ TM.MAT.NN ;
  53 :       SINON ;
  54 :           RIGLAM = RIGLAM ET ( RIGI OBJ TM.MAT.NN ) ;
  55 :       FINSI ;
  56 :       NN = NN + 1 ;
  57 :     FIN LOOP1 ;
  58 : *
  59 :   FINSI;
  60 : *
  61 : FINPROC RIGLAM                ;
  62 : *
  63 : ************************************************************************
  64 : *                       FINE PROCEDURA @LARIG
  65 : ************************************************************************
  66 : *
  67 :