Télécharger la plaquette Cast3M


fr en

Télécharger @lacalc.procedur

Retour à la liste

Numérotation des lignes : 

  1. * @LACALC   PROCEDUR  KK2000    99/11/30    21:15:02     3720           
  2. *
  3. ************************************************************************
  4. *                        PROCEDURA @LACALC
  5. ************************************************************************
  6. *
  7. * Descrizione : effettua un calcolo elasto-statico su una geometria
  8. *               costituita di piu' zone di materiale composito
  9. *               multistrato.
  10. *
  11. * Sintassi    : DEP1 = @LACALC TAB_LAM CLIM FF (RIG2) ;
  12. *
  13. * Autore/Data : Miliozzi A.  10/04/1997
  14. *
  15. * Revisioni   :
  16. *
  17. ************************************************************************
  18. *
  19. *--- INPUT
  20. *=========
  21. *
  22. * TAB_LAM  Tavola caratteristica del laminato composito
  23. *
  24. * CLIM     Condizioni al contorno per la struttura
  25. *
  26. * FF       Carichi da applicare alla struttura
  27. *
  28. * RIG2     Rigidezze addizionali relative a parti della
  29. *          struttura non composte da laminati (Opzionale)
  30. *
  31. *--- OUTPUT
  32. *==========
  33. *
  34. * DEP1     Campo di spostamenti
  35. *
  36. ************************************************************************
  37. *
  38. DEBPROC @LACALC TCOMP*TABLE CLIM*RIGIDITE FF*CHPOINT
  39.                 RIG_AGG/RIGIDITE                   ;
  40. * --- CALCOLO RIGIDEZZE ZONE COMPOSTE DA LAMINATI
  41. *
  42.  NZON = (DIME TCOMP) - 2                           ;
  43.  NN    = 1                                         ;
  44.  REPETER LOOP1 NZON                                ;
  45.  SI (NN EGA 1)                                     ;
  46.   TAB1   = @LAMAT TCOMP NN                         ;
  47.   RIGITO = @LARIG TAB1                             ;
  48.  SINON                                             ;
  49.   TAB1   = @LAMAT TCOMP NN                         ;
  50.   RIGITO = RIGITO ET ( @LARIG TAB1)                ;
  51.  FINSI                                             ;
  52.  NN = NN + 1                                       ;
  53. FIN LOOP1                                          ;
  54. *
  55. * --- AGGIUNTA DI RIGIDEZZE ZONE NON IN LAMINATO
  56. *
  57. SI (EXIST RIG_AGG)                 ;
  58.   RIGITO  = RIGITO ET RIG_AGG      ;
  59. FINSI                              ;
  60. *
  61. * --- RIGIDEZZA TOTALE E RISOLUZIONE
  62. *
  63. RIGSTR = RIGITO   ET   CLIM ;
  64. DEPSTR = RESOUDRE RIGSTR FF ;
  65. *
  66. FINPROC DEPSTR  ;
  67. *
  68. ************************************************************************
  69. *                       FINE PROCEDURA @LACALC
  70. ************************************************************************
  71. *
  72.  
  73.  

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