Télécharger la plaquette Cast3M


fr en

Télécharger @lamass.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LAMASS   PROCEDUR  KK2000    99/11/30    21:15:15     3720           
  2. *
  3. ************************************************************************
  4. *                          PROCEDURA @LAMASS
  5. ************************************************************************
  6. *
  7. * DESCRIZIONE : Calcola la matrice di massa di un laminato
  8. *
  9. * Sintassi    : mass1 = @lamass tcomp ;
  10. *
  11. * Autore/Data : A. Miliozzi 10/04/97
  12. *
  13. * Revisioni   :
  14. *
  15. ************************************************************************
  16. *
  17. * Input  :   tcomp = tavola caratteristica del multistrato (TABLE)
  18. *
  19. * Output :   mass1 = matrice di massa (MCHAML)
  20. *
  21. ************************************************************************
  22. *
  23. DEBPROC @LAMASS TT*TABLE ;
  24. *
  25.  LOG1 = EGA (TT.TIPO) 'OMOG' ;
  26.  SI LOG1 ; TT.TIPO = MOT 'MLAY' ; FINSI ;
  27. *
  28.  NZON = (DIME TT) - 2 ;
  29.  NN1    = 1 ;
  30. *
  31.  REPETER LOOP1 NZON ;
  32. *
  33.    OBJ = TT.NN1.MOD1   ;
  34.    TM  = @LAMAT TT NN1 ;
  35. *
  36.    NLAM = (DIME TT.NN1) - 6 ;
  37.    NN2    = 1 ;
  38. *
  39.    REPETER LOOP2 NLAM ;
  40. *
  41.      MAT1 = TM.MAT.NN2        ;
  42.      MASS1 = MASS OBJ MAT1    ;
  43.      SI ( (NN1+NN2) EGA 2 )   ;
  44.        MASSA = MASS1          ;
  45.      SINON                    ;
  46.        MASSA = MASSA ET MASS1 ;
  47.      FINSI                    ;
  48. *
  49.      NN2 = NN2 + 1 ;
  50. *
  51.    FIN LOOP2 ;
  52. *
  53.    NN1 = NN1 + 1 ;
  54. *
  55.  FIN LOOP1 ;
  56. *
  57.  SI LOG1 ; TT.TIPO = MOT 'OMOG' ; FINSI ;
  58. *
  59. FINPROC MASSA ;
  60. *
  61. ************************************************************
  62. *                FINE PROCEDURA @LAMASS
  63. ************************************************************
  64. *
  65.  
  66.  
  67.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales