Télécharger formation_pasapas_1_initial.dgibi

Retour à la liste

Numérotation des lignes :

  1. ************************************************************************
  2. * FORMATION AVANCEE SUR LA PROCEDURE PASAPAS *
  3. * *
  4. * Flexion d'une poutre en grands deplacements avec chargemet suiveur *
  5. * *
  6. * Ce fichier constitue la mise donnee initiale du probleme et realise *
  7. * - le maillage *
  8. * - la definition du modele et des parametres materiaux *
  9. * - la definition du chargement sur la configuration initiale *
  10. * - la resolution avec PASAPAS en hypothese petites perturbations *
  11. * - le post traitement du deplacement de la poutre *
  12. * *
  13. ************************************************************************
  14.  
  15.  
  16. ** Options generales
  17. OPTI 'DIME' 3 'ELEM' 'SEG2' 'ECHO' 0 'COSC' 'BLAN' ;
  18. ITRAC = FAUX ;
  19. OEIL1 = 0. (-1.E6) 0. ;
  20. XPAS = 0.05 ;
  21.  
  22.  
  23. ** Parametres geometriques
  24. LONG = 1. ;
  25. SEC = 1.E-2 ;
  26. INR1 = 1.E-4 ;
  27. TOR1 = 2.E-4 ;
  28.  
  29.  
  30. ** Maillage
  31. P1 = 0. 0. 0. ;
  32. P2 = 0. 0. LONG ;
  33. L1 = DROI 25 P1 P2 ;
  34.  
  35.  
  36. ** Modele et materiau (elastique)
  37. MO1 = MODE L1 'MECANIQUE' 'ELASTIQUE' 'POUT' ;
  38. MA1 = MATE MO1 'YOUN' 50.E6 'NU' 0.3
  39. 'SECT' SEC 'INRY' INR1 'INRZ' INR1 'TORS' TOR1 ;
  40.  
  41.  
  42. ** Blocages mecaniques (encastrement de la base)
  43. BLO1 = BLOQ 'DEPL' 'ROTA' P1 ;
  44.  
  45.  
  46. ** Chargement en effort impose
  47. F1 = FORC (1. 0. 0.) P2 ;
  48. EV1 = EVOL 'MANU' 'Temps' (PROG 0. 1.) 'Coef' (PROG 0. 2.E4) ;
  49. CHAR1 = CHAR 'MECA' F1 EV1 ;
  50.  
  51.  
  52. ** Resolution
  53. TAB1 = TABL ;
  54. TAB1 . 'MODELE' = MO1 ;
  55. TAB1 . 'CARACTERISTIQUES' = MA1 ;
  56. TAB1 . 'BLOCAGES_MECANIQUES' = BLO1 ;
  57. TAB1 . 'CHARGEMENT' = CHAR1 ;
  58. TAB1 . 'TEMPS_CALCULES' = PROG XPAS 'PAS' XPAS 1. ;
  59. PASAPAS TAB1 ;
  60.  
  61.  
  62. ** Post-traitement
  63. TT = TAB1 . 'TEMPS' ;
  64. TU1 = TAB1 . 'DEPLACEMENTS' ;
  65. TR1 = TAB1 . 'REACTIONS' ;
  66. DEF0 = DEFO L1 (TU1 . 0) 0. ;
  67. CONF0 = FORM ;
  68. * trace des deformees successives
  69. REPE B1 (DIME TT) ;
  70. I1 = &B1 - 1 ;
  71. TPS1 = TT . I1 ;
  72. U1 = TU1 . I1 ;
  73. R1 = TR1 . I1 ;
  74. V1 = VECT R1 5.E-5 'FORC' 'ROUG' ;
  75. DEF1 = DEFO L1 U1 1. V1 'BLEU' ;
  76. SI ITRAC ;
  77. TRAC OEIL1 (DEF0 ET DEF1) 'TITR' (CHAI 'Deformee au temps ' TPS1) ;
  78. FINSI ;
  79. FIN B1 ;
  80. * evolution des deplacements du sommet au cours du temps
  81. TLEG = TABL ;
  82. TLEG . 'TITRE' = TABL ;
  83. TLEG . 'TITRE' . 1 = 'Ux' ;
  84. TLEG . 'TITRE' . 2 = 'Uz' ;
  85. EVUX1 = EVOL 'ROUG' 'TEMP' TAB1 'DEPLACEMENTS' 'UX' P2 ;
  86. EVUZ1 = EVOL 'BLEU' 'TEMP' TAB1 'DEPLACEMENTS' 'UZ' P2 ;
  87. SI ITRAC ;
  88. DESS (EVUX1 ET EVUZ1) 'TITR' 'Deplacements vs Temps' 'LEGE' TLEG ;
  89. FINSI ;
  90.  
  91. FIN ;
  92.  
  93.  
  94.  
  95.  

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