Télécharger @larig.procedur

Retour à la liste

Numérotation des lignes :

  1. * @LARIG PROCEDUR KK2000 99/11/30 21:15:20 3720
  2. *
  3. ************************************************************************
  4. * PROCEDURA @LARIG
  5. ************************************************************************
  6. *
  7. * Descrizione : permette di calcolare la matrice di rigidezza del
  8. * laminato relativo ad una zona sia nel caso di
  9. * lamine eccentriche sia in quello di laminato
  10. * omogeneizzato
  11. *
  12. * Sintassi : RIG1 = @LARIG TAB_MAT ;
  13. *
  14. *
  15. * Autore/Data : Miliozzi A. 10/04/1997
  16. *
  17. *
  18. * Revisioni :
  19. *
  20. ************************************************************************
  21. *
  22. *--- INPUT
  23. *=========
  24. *
  25. * TAB_MAT Tavola degli oggetti di tipo MATERIAU o MAHOOK e
  26. * CARACTER (indici MAT e CAR)
  27. *
  28. *--- OUTPUT
  29. *==========
  30. *
  31. * RIG1 Oggetto di tipo RIGIDITE per la zona considerata
  32. *
  33. ************************************************************************
  34. *
  35. DEBPROC @LARIG TM*TABLE ;
  36. *
  37. * --- CALCOLO RIGIDEZZA LAMINATO
  38. *
  39. TIP1 = TM.TIPO ;
  40. OBJ = TM.MOD1 ;
  41. *
  42. SI (EGA TIP1 'OMOG') ;
  43. *
  44. RIGLAM = RIGI OBJ TM.MAT.1 TM.CAR.1 ;
  45. *
  46. SINON;
  47. *
  48. NULAM = DIME TM.MAT ;
  49. NN = 1;
  50. REPETER LOOP1 NULAM ;
  51. SI (NN EGA 1) ;
  52. RIGLAM = RIGI OBJ TM.MAT.NN ;
  53. SINON ;
  54. RIGLAM = RIGLAM ET ( RIGI OBJ TM.MAT.NN ) ;
  55. FINSI ;
  56. NN = NN + 1 ;
  57. FIN LOOP1 ;
  58. *
  59. FINSI;
  60. *
  61. FINPROC RIGLAM ;
  62. *
  63. ************************************************************************
  64. * FINE PROCEDURA @LARIG
  65. ************************************************************************
  66. *
  67.  
  68.  

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