Télécharger la plaquette Cast3M


fr en

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