Télécharger nouaillas_b2.dgibi

Retour à la liste

Numérotation des lignes :

  1. * fichier : nouaillas_b2.dgibi
  2. ************************************************************************
  3. ************************************************************************
  4. **********************************************************************
  5. * *
  6. * fichier : nouaillas_b2.dgibi *
  7. * *
  8. **********************************************************************
  9. * *
  10. * fait par PLG le 03-09-97 *
  11. * *
  12. **********************************************************************
  13. * *
  14. * But : ktest pour la loi viscoplastique NOUAILLAS_B *
  15. * *
  16. **********************************************************************
  17. i_trace = faux ;
  18. *
  19. debproc perso1 plg*TABLE ;
  20. *
  21. li_t = plg.depo.li_tp ;
  22. li_d = plg.depo.li_def ;
  23. *
  24. ind_1 = index (plg.temps) ;
  25. nb_1 = dime ind_1 ;
  26. *
  27. v_t = plg.temps.(ind_1.nb_1) ;
  28. v_d = extr (plg.deformations_inelastiques.(ind_1.nb_1)) EIYY 1 1 1 ;
  29. *
  30. li_t = li_t et (prog v_t) ;
  31. li_d = li_d et (prog v_d) ;
  32. ev_d = evol manu ' ' li_t ' ' li_d ;
  33. *
  34. plg.depo.li_tp = li_t ;
  35. plg.depo.li_def = li_d ;
  36. *
  37. dess ((plg.depo.ev_ref) et ev_d) NCLK ;
  38. finproc ;
  39. **********************************************************************
  40. option elem qua8 ;
  41. *
  42. a00 = 0.0 0.0 ;
  43. a01 = 1.0 0.0 ;
  44. a02 = 1.0 1.0 ;
  45. a03 = 0.0 1.0 ;
  46. *
  47. la00a01 = droi 1 a00 a01 ;
  48. la01a02 = droi 1 a01 a02 ;
  49. la02a03 = droi 1 a02 a03 ;
  50. la03a00 = droi 1 a03 a00 ;
  51. *
  52. tot = daller la00a01 la01a02 la02a03 la03a00 ;
  53. **********************************************************************
  54. m_model = model tot MECANIQUE ELASTIQUE VISCOPLASTIQUE NOUAILLAS_B
  55. CONS UN ;
  56. *
  57. cst_youn = 260000.0 ;
  58. cst_nu = 0.3 ;
  59. cst_alph = 1.0e-6 ;
  60. cst_rho = 1.0e-8 ;
  61. cst_n = 1.0 ;
  62. cst_kk = 200.0 ;
  63. cst_k0 = 10000.0 ;
  64. cst_alf = 0.0 ;
  65. cst_cl1 = 7000.0 ;
  66. cst_dnl1 = 0.0 ;
  67. cst_ptm1 = 1.0 ;
  68. cst_gdm1 = 20000.0 ;
  69. cst_cl2 = 0.0 ;
  70. cst_dnl2 = 0.0 ;
  71. cst_phi = 0.0 ;
  72. cst_b = 0.0 ;
  73. cst_rmax = 0.0 ;
  74. cst_br = 0.0 ;
  75. *
  76. m_mater = mater m_model YOUN cst_youn NU cst_nu ALPH cst_alph
  77. RHO cst_rho N cst_n KK cst_kk K0 cst_k0 ALF cst_alf
  78. CL1 cst_cl1 DNL1 cst_dnl1 PTM1 cst_ptm1 GDM1 cst_gdm1 CL2 cst_cl2
  79. DNL2 cst_dnl2 PHI cst_phi B cst_b RMAX cst_rmax BR cst_br ;
  80. **********************************************************************
  81. m01bloca = bloque UX la03a00 ;
  82. m02bloca = bloque UY la00a01 ;
  83. m_bloca = m01bloca et m02bloca ;
  84. *
  85. t00temps = 0.0 ;
  86. t01temps = t00temps + 0.001 ;
  87. t02temps = t01temps + 10.000 ;
  88. t03temps = t02temps + 0.001 ;
  89. t04temps = t03temps + 5.000 ;
  90. t05temps = t04temps + 0.001 ;
  91. t06temps = t05temps + 5.000 ;
  92. *
  93. li_temps = prog t00temps t01temps t02temps t03temps t04temps t05temps
  94. t06temps ;
  95. *
  96. t00press = 0.0 ;
  97. t01press = -500.0 ;
  98. t02press = -500.0 ;
  99. t03press = -0.1 ;
  100. t04press = -0.1 ;
  101. t05press = -500.0 ;
  102. t06press = -500.0 ;
  103. *
  104. li_press = prog t00press t01press t02press t03press t04press t05press
  105. t06press ;
  106. *
  107. ev_press = evol manu 'TEMPS' li_temps 'P' li_press ;
  108. *
  109. m01press = press MASSE m_model 1.0 la02a03 ;
  110. m_charg = charg MECA m01press ev_press ;
  111. **********************************************************************
  112. p01nbpas = 2.0 ;
  113. p02nbpas = 40.0 ;
  114. p03nbpas = 2.0 ;
  115. p04nbpas = 5.0 ;
  116. p05nbpas = 2.0 ;
  117. p06nbpas = 20.0 ;
  118. *
  119. p01pas = (t01temps - t00temps) / p01nbpas ;
  120. p02pas = (t02temps - t01temps) / p02nbpas ;
  121. p03pas = (t03temps - t02temps) / p03nbpas ;
  122. p04pas = (t04temps - t03temps) / p04nbpas ;
  123. p05pas = (t05temps - t04temps) / p05nbpas ;
  124. p06pas = (t06temps - t05temps) / p06nbpas ;
  125. *
  126. p01lipas = prog (t00temps + p01pas) pas p01pas t01temps ;
  127. p02lipas = prog (t01temps + p02pas) pas p02pas t02temps ;
  128. p03lipas = prog (t02temps + p03pas) pas p03pas t03temps ;
  129. p04lipas = prog (t03temps + p04pas) pas p04pas t04temps ;
  130. p05lipas = prog (t04temps + p05pas) pas p05pas t05temps ;
  131. p06lipas = prog (t05temps + p06pas) pas p06pas t06temps ;
  132. *
  133. p_lipas = p01lipas et p02lipas et p03lipas et p04lipas et p05lipas et
  134. p06lipas ;
  135. **********************************************************************
  136. li_defvg = prog 0.0 0.02312 0.03720 0.04847 0.05887 0.06899
  137. 0.07903 0.08904 0.09904 0.1090 0.1190 0.1190 0.1306 0.1394
  138. 0.1467 0.1530 0.1587 0.1642 0.1694 0.1746 0.1797 0.1847 ;
  139. *
  140. li_tps = prog 0.0 1.001 2.001 3.001 4.001 5.001
  141. 6.0 7.0 8.0 9.0 10.0 15.0 15.5 16.0
  142. 16.5 17.0 17.5 18.0 18.5 19.0 19.5 20.0 ;
  143. ev_ref = evol manu 't' li_tps 'def' li_defvg ;
  144. *dess ev_ref NCLK ;
  145. **********************************************************************
  146. p_table = table ;
  147. p_table.modele = m_model ;
  148. p_table.caracteristiques = m_mater ;
  149. p_table.blocages_mecaniques = m_bloca ;
  150. p_table.chargement = m_charg ;
  151. p_table.temps_calcules = p_lipas ;
  152. *
  153. si i_trace ;
  154. p_table.procedure_perso1 = VRAI ;
  155. p_table.depo = table ;
  156. p_table.depo.ev_ref = ev_ref ;
  157. p_table.depo.li_tp = prog ;
  158. p_table.depo.li_def = prog ;
  159. finsi ;
  160. **********************************************************************
  161. TMASAU=table;
  162. p_table . 'MES_SAUVEGARDES'=TMASAU;
  163. TMASAU .'DEFTO'=VRAI;
  164. TMASAU .'DEFIN'=VRAI;
  165.  
  166. pasapas p_table ;
  167. **********************************************************************
  168. ind_1 = index (p_table.deformations_inelastiques) ;
  169. nb_1 = dime ind_1 ;
  170. *
  171. v_d = extr (p_table.deformations_inelastiques.(ind_1.nb_1))
  172. EIYY 1 1 1 ;
  173. *
  174. v_d = abs(v_d) ;
  175. v_diff = abs(v_d - 0.1847)/0.1847 ;
  176. *
  177. si (v_diff > 0.01) ;
  178. erre 5 ;
  179. sinon ;
  180. erre 0 ;
  181. finsi ;
  182. fin ;
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  

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