Télécharger la plaquette Cast3M


fr en

Télécharger MODTRI.dgibi

Retour à la liste

Numérotation des lignes : 

  1. **********************************************
  2. * EXEMPLE MODTRI.dgibi
  3. **********************************************
  4. * Entrée :      Sans objet
  5.  
  6. **********************************************
  7. * Sortie :      Sans objet
  8. *               
  9. **********************************************
  10. * Commentaire : Test de la procedure  
  11. *               @MODTRI.PROCEDUR
  12. **********************************************
  13. * Developpeur : Benjamin Richard
  14. *               CEA, DEN, DANS, DM2S, SEMT, EMSI
  15. *               benjamin.richard@cea.fr
  16. **********************************************
  17. GRAPH0 = FAUX;
  18.  
  19. * Parametres materiaux
  20. * TAB1 . 1 = K1 -- pente elastique
  21. * TAB1 . 2 = K2 -- pente endommagee
  22. * TAB1 . 3 = K3 -- pente plastique
  23. * TAB1 . 4 = X0 -- seuil 1
  24. * TAB1 . 5 = X1 -- seuil 2
  25. *
  26. TAB1 = TABLE;
  27. TAB1 . 1 = 2.822E6;
  28. TAB1 . 2 = 1.4536E6;
  29. TAB1 . 3 = 4.7975E4;
  30. TAB1 . 4 = 0.0022;
  31. TAB1 . 5 = 0.024;
  32.  
  33. * Initialisation des donnees
  34. * DATA . 1 = DPLUS -- endommagement +
  35. * DATA . 2 = DMOIN -- endommagement -
  36. * DATA . 3 = DJ    -- deplacement 
  37. * DATA . 4 = MAXDP -- deplacement max
  38. * DATA . 5 = MAXDM -- deplacement min
  39. *
  40. DATA = TABLE;
  41. DATA . 1 = 0.0;
  42. DATA . 2 = 0.0;
  43. DATA . 3 = 0.0;
  44. DATA . 4 = 0.0;
  45. DATA . 5 = 0.0;
  46.  
  47. * Creation de la liste de chargement
  48. LIDJ1 = PROG 0 PAS 0.0001 0.05;
  49. LIDJ2 = PROG 0.0499 PAS -0.0001 -0.05;
  50. LIDJ3 = PROG -0.0499 PAS 0.0001 0;
  51.  
  52. LIDJ = LIDJ1 ET LIDJ2 ET LIDJ3;
  53.  
  54. FY = PROG;
  55. DY = PROG;
  56.  
  57. * Boucle sur les pas de deplacement
  58. REPE BOU1 ((DIME LIDJ) - 1);
  59.  
  60. I = &BOU1;
  61.  
  62. DJ = EXTR LIDJ I;
  63.  
  64. DATA . 3 = DJ;
  65.  
  66. * Appel a la loi constitutive
  67. **********************************************
  68. TAB3 = @MODTRI TAB1 DATA;
  69. **********************************************
  70.  
  71. * Mise a jour des variables internes
  72. DATA . 1 = TAB3 . 2;
  73. DATA . 2 = TAB3 . 3;
  74.  
  75. DATA . 4 = TAB3 . 4;
  76. DATA . 5 = TAB3 . 5;
  77.  
  78. FO1 = TAB3 . 1;
  79.  
  80. FY = FY ET (PROG FO1);
  81. DY = DY ET (PROG DJ);
  82.  
  83. FIN BOU1;
  84.  
  85. * Construction de l evolution et visualisation
  86. EV1 = EVOL MANU DY FY;
  87.  
  88. SI GRAPH0;
  89. DESS EV1;
  90. FINSI;
  91.  
  92. ABX = EXTR EV1 'ABSC';
  93. ORD = EXTR EV1 'ORDO';
  94.  
  95. ORD50 = EXTR ORD 50;
  96.  
  97. SI (ABS (ORD50 - 10133.0) > 1.0E0);
  98. ERREUR 5;
  99. FINSI;
  100.  
  101.  
  102. FIN;
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  

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