Procedures | Cast3M

   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 :