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