Procedures | Cast3M

   1 : * @LAGRAPH  PROCEDUR  KK2000    99/11/30    21:15:09     3720           
   2 : ************************************************************************
   3 : *                        PROCEDURA @SILAM
   4 : ************************************************************************
   5 : *
   6 : * Descrizione : visualizzazione dell'andamento delle tensioni
   7 : *               nello spessore in corrispondenza di un punto
   8 : *
   9 : * Sintassi    : TSIG = @LAGRAPH TAB_LAM DEPL1 NZON VET1 P0 ;
  10 : *
  11 : *
  12 : * Autore/Data : Miliozzi A.  10/04/1997
  13 : *
  14 : *
  15 : * Revisioni   :
  16 : *
  17 : ************************************************************************
  18 : *
  19 : *--- INPUT
  20 : *=========
  21 : *
  22 : * TAB_LAM  Tavola caratteristica del laminato
  23 : *
  24 : * DEPL1    Campo di spostamenti
  25 : *
  26 : * NZON     Numero della zona considerata
  27 : *
  28 : * VET1     Direzione di orientazione del campo di tensioni
  29 : *
  30 : * P0       Punto sul quale visualizzare le tensioni
  31 : *
  32 : *--- OUTPUT
  33 : *==========
  34 : *
  35 : * TSIG     Tavola contenente i valori delle tensioni
  36 : *
  37 : ************************************************************************
  38 : *
  39 : DEBPROC @LAGRAPH TCOMP*TABLE DEPL1*CHPOINT NZON*ENTIER
  40 :               VET1*POINT  P0*POINT ;
  41 : *
  42 :   TCTIP = TCOMP.TIPO   ;
  43 :   TCOMP.TIPO = 'MLAY'  ;
  44 :   TCAR1 = @LAMAT TCOMP NZON ;
  45 :   TCOMP.TIPO = TCTIP   ;
  46 : *
  47 :   OBJ = TCOMP.NZON.MOD1 ;
  48 : *
  49 :   LS11 = PROG ; LI11 = PROG ;
  50 :   LS22 = PROG ; LI22 = PROG ;
  51 :   LS12 = PROG ; LI12 = PROG ;
  52 :   LEXC = PROG ; LEPA = PROG ;
  53 : *
  54 :   NPLY = DIME TCAR1.MAT ;
  55 : *
  56 :   N   = 1 ;
  57 :   REPETER LOOP0 NPLY ;
  58 : *
  59 :     SIGE1 = SIGMA OBJ TCAR1.MAT.N DEPL1 ;
  60 :     SIGE2 = RTENS SIGE1 OBJ VET1 ; DETR SIGE1 ;
  61 :     SIGE3S= CALP SIGE2 TCAR1.MAT.N OBJ 'SUPE' ;
  62 :     SIGE3I= CALP SIGE2 TCAR1.MAT.N OBJ 'INFE' ;
  63 :     DETR SIGE2 ;
  64 :     SIGSUP= CHANGE CHPO OBJ SIGE3S ;
  65 :     SIGINF= CHANGE CHPO OBJ SIGE3I ;
  66 :     DETR SIGE3S ; DETR SIGE3I ;
  67 : *
  68 :     SUP11 = EXTRA SIGSUP SMXX P0 ; SDO11 = EXTRA SIGINF SMXX P0 ;
  69 :     SUP22 = EXTRA SIGSUP SMYY P0 ; SDO22 = EXTRA SIGINF SMYY P0 ;
  70 :     SUP12 = EXTRA SIGSUP SMXY P0 ; SDO12 = EXTRA SIGINF SMXY P0 ;
  71 : *
  72 :     EX = TCOMP.NZON.N.EXC        ; EP = TCOMP.NZON.N.EPA        ;
  73 : *
  74 :     LS11 = INSERER LS11 N SUP11  ; LI11 = INSERER LI11 N SDO11  ;
  75 :     LS22 = INSERER LS22 N SUP22  ; LI22 = INSERER LI22 N SDO22  ;
  76 :     LS12 = INSERER LS12 N SUP12  ; LI12 = INSERER LI12 N SDO12  ;
  77 :     LEXC = INSERER LEXC N EX     ; LEPA = INSERER LEPA N EP     ;
  78 : *
  79 :     N = N + 1 ;
  80 :   FIN LOOP0 ;
  81 : *
  82 : * DETR DEP1 ;
  83 :   L11 = PROG ; L22 = PROG ; L12 = PROG ; LQUOTA = PROG ;
  84 : *
  85 :   N   = 1 ;
  86 :   REPETER LOOP1 NPLY ;
  87 : *
  88 :     K1 = (2 * N) - 1 ; K2 = 2 * N ;
  89 : *
  90 :     Z1 = EXTR LEXC N ;
  91 :     Z2 = (EXTR LEPA N) / 2. ;
  92 : *
  93 :     ZZ = Z1 + Z2 ;
  94 :     LQUOTA = INSERER LQUOTA K1 ZZ ;
  95 :     L11 = INSERER L11    K1 (EXTR LS11 N) ;
  96 :     L22 = INSERER L22    K1 (EXTR LS22 N) ;
  97 :     L12 = INSERER L12    K1 (EXTR LS12 N) ;
  98 : *
  99 :     ZZ = Z1 - Z2 ;
 100 :     LQUOTA = INSERER LQUOTA K2 ZZ ;
 101 :     L11 = INSERER L11    K2 (EXTR LI11 N) ;
 102 :     L22 = INSERER L22    K2 (EXTR LI22 N) ;
 103 :     L12 = INSERER L12    K2 (EXTR LI12 N) ;
 104 : *
 105 :     N = N + 1 ;
 106 : *
 107 :   FIN LOOP1 ;
 108 : *
 109 :   DETR LS11 ; DETR LS22 ; DETR LS12 ;
 110 :   DETR LI11 ; DETR LI22 ; DETR LI12 ;
 111 :   DETR LEXC ; DETR LEPA ;
 112 : *
 113 :   TITRE 'ANDAMENTO TENSIONE NELLO SPESSORE' ;
 114 :   EV11 = EVOL ROUG MANU 'SIGMA11' L11 'Z' LQUOTA ;
 115 :   EV22 = EVOL TURQ MANU 'SIGMA22' L22 'Z' LQUOTA ;
 116 :   EV12 = EVOL VERT MANU 'SIGMA12' L12 'Z' LQUOTA ;
 117 : *
 118 :   TSIG = TABLE ;
 119 :   TSIG . LISTEPE = LQUOTA ;
 120 :   TSIG . LISTS11 = L11    ;
 121 :   TSIG . LISTS22 = L22    ;
 122 :   TSIG . LISTS12 = L12    ;
 123 : *
 124 :   DESSIN EV11 ;
 125 :   DESSIN EV22 ;
 126 :   DESSIN EV12 ;
 127 : *
 128 : FINPROC TSIG ;
 129 : *******************************************************************
 130 : *                    FINE PROCEDURA @LAGRAPH
 131 : ********************************************************************
 132 :