Procedures | Cast3M

   1 : * @LACALC   PROCEDUR  KK2000    99/11/30    21:15:02     3720           
   2 : *
   3 : ************************************************************************
   4 : *                        PROCEDURA @LACALC
   5 : ************************************************************************
   6 : *
   7 : * Descrizione : effettua un calcolo elasto-statico su una geometria
   8 : *               costituita di piu' zone di materiale composito
   9 : *               multistrato.
  10 : *
  11 : * Sintassi    : DEP1 = @LACALC TAB_LAM CLIM FF (RIG2) ;
  12 : *
  13 : * Autore/Data : Miliozzi A.  10/04/1997
  14 : *
  15 : * Revisioni   :
  16 : *
  17 : ************************************************************************
  18 : *
  19 : *--- INPUT
  20 : *=========
  21 : *
  22 : * TAB_LAM  Tavola caratteristica del laminato composito
  23 : *
  24 : * CLIM     Condizioni al contorno per la struttura
  25 : *
  26 : * FF       Carichi da applicare alla struttura
  27 : *
  28 : * RIG2     Rigidezze addizionali relative a parti della
  29 : *          struttura non composte da laminati (Opzionale)
  30 : *
  31 : *--- OUTPUT
  32 : *==========
  33 : *
  34 : * DEP1     Campo di spostamenti
  35 : *
  36 : ************************************************************************
  37 : *
  38 : DEBPROC @LACALC TCOMP*TABLE CLIM*RIGIDITE FF*CHPOINT
  39 :                 RIG_AGG/RIGIDITE                   ;
  40 : * --- CALCOLO RIGIDEZZE ZONE COMPOSTE DA LAMINATI
  41 : *
  42 :  NZON = (DIME TCOMP) - 2                           ;
  43 :  NN    = 1                                         ;
  44 :  REPETER LOOP1 NZON                                ;
  45 :  SI (NN EGA 1)                                     ;
  46 :   TAB1   = @LAMAT TCOMP NN                         ;
  47 :   RIGITO = @LARIG TAB1                             ;
  48 :  SINON                                             ;
  49 :   TAB1   = @LAMAT TCOMP NN                         ;
  50 :   RIGITO = RIGITO ET ( @LARIG TAB1)                ;
  51 :  FINSI                                             ;
  52 :  NN = NN + 1                                       ;
  53 : FIN LOOP1                                          ;
  54 : *
  55 : * --- AGGIUNTA DI RIGIDEZZE ZONE NON IN LAMINATO
  56 : *
  57 : SI (EXIST RIG_AGG)                 ;
  58 :   RIGITO  = RIGITO ET RIG_AGG      ;
  59 : FINSI                              ;
  60 : *
  61 : * --- RIGIDEZZA TOTALE E RISOLUZIONE
  62 : *
  63 : RIGSTR = RIGITO   ET   CLIM ;
  64 : DEPSTR = RESOUDRE RIGSTR FF ;
  65 : *
  66 : FINPROC DEPSTR  ;
  67 : *
  68 : ************************************************************************
  69 : *                       FINE PROCEDURA @LACALC
  70 : ************************************************************************
  71 : *
  72 :