Télécharger biblio.procedur

Retour à la liste

Numérotation des lignes :

  1. * BIBLIO PROCEDUR PASCAL 21/10/01 21:15:01 11113
  2. DEBP BIBLIO mot1*'MOT' mot2/'MOT' ;
  3.  
  4. *------------------------- Lecture arguments -------------------------*
  5.  
  6. * Lecture indice reference biblio associee a mot1 :
  7. si (exis mot2) ;
  8. si (ega mot2 'REFE') ;
  9. argu ent1*'ENTIER' ;
  10. sino ;
  11. erre '***** ERREUR : on attend le mot-cle REFE' ;
  12. quit biblio ;
  13. fins ;
  14. sino ;
  15. ent1 = 0 ;
  16. fins ;
  17.  
  18. * imot1 : indice du mot dans la base biblio, 0 si pas dans la base.
  19. imot1 = 0 ;
  20.  
  21. *----------------------------------------------------------------------*
  22. * MOT-CLE : 316L *
  23. *----------------------------------------------------------------------*
  24.  
  25. si (ega mot1 '316L') ;
  26. imot1 = 1 ;
  27.  
  28. * Initialisation table de sortie :
  29. TBIB1 = table ;
  30.  
  31. *------------------------------ 316L [1] ------------------------------*
  32.  
  33. * Proprietes thermomecaniques du 316L :
  34. * Lionel Depradeux.
  35. * "Simulation numerique du soudage - Acier 316L : validation sur cas
  36. * tests de complexite croissante".
  37. * These de doctorat.
  38. * Institut National des Sciences Appliquees de Lyon.
  39. * 2004.
  40.  
  41. * Reference par defaut :
  42. si (ent1 ega 0) ; ent1 = 1 ; fins ;
  43.  
  44. si (ent1 ega 1) ;
  45.  
  46. *---- THERMIQUE ---- :
  47.  
  48. * K1 : Conductivite thermique (W/m/K) :
  49. lt1 = prog 20. 100. pas 100. 1000. 1200. 1500. ;
  50. lk1 = prog 14. 15.2 16.6 17.9 19. 20.6 21.8 23.1 24.3 26. 27.3 29.9 60. ;
  51. K1 = evol manu 'T' lt1 'K' lk1 ;
  52. TBIB1 . 'K' = K1 ;
  53.  
  54. * Rho1 : Masse volumique (kg/m^3)
  55. lt1 = prog 20. 100. pas 100. 1000. 1200. 1500. ;
  56. lrho1 = prog 8000. 7970. 7940. 7890. 7850. 7800. 7750. 7700. 7660. 7610. 7570. 7450. 7200. ;
  57. Rho1 = evol manu 'T' lt1 'RHO' lrho1 ;
  58. TBIB1 . 'RHO' = Rho1 ;
  59.  
  60. * Cp1 : Capacite calorifique massique (J/K/kg)
  61. lt1 = prog 20. 100. pas 100. 1000. 1200. ;
  62. lcp1 = prog 450. 490. 525. 545. 560. 570. 580. 595. 625. 650. 660. 677. ;
  63. Cp1 = evol manu 'T' lt1 'C' lcp1 ;
  64. TBIB1 . 'C' = Cp1 ;
  65.  
  66. * Tfus1 : Temperaure de fusion (degC) :
  67. Tfus1 = 1450. ;
  68. TBIB1 . 'TFUS' = Tfus1 ;
  69.  
  70. * Qlat1 : Chaleur latente massique de fusion (J/kg)
  71. Qlat1 = 2.5e5 ;
  72. TBIB1 . 'QLAT' = Qlat1 ;
  73.  
  74. *---- MECANIQUE ---- :
  75.  
  76. * Nu1 : coefficient de Poisson
  77. TBIB1 . 'NU' = 0.3 ;
  78.  
  79. * Ym1 : module de Young (Pa) :
  80. lt1 = prog 20. 100. pas 100. 1200. ;
  81. lym1 = prog 197000. 191500. 184000. 176500. 168000. 160000. 151500. 142500. 130000. 108000. 81500. 32000. 7400. ;
  82. lym1 = 1.e6 * lym1 ;
  83. ym1 = evol manu T lt1 youn lym1 ;
  84. TBIB1 . 'YOUN' = ym1 ;
  85.  
  86. * Alph1 : dilatation thermique (/K)
  87. lt1 = prog 20. 100. 300. 400. 600. 700. 800. 1000. 1400. ;
  88. lalph1 = prog 15.5 16.0 17.1 17.5 18.4 18.7 19.0 19.4 19.6 ;
  89. lalph1 = 1.e-6 * lalph1 ;
  90. alph1 = evol manu T lt1 ALPH lalph1 ;
  91. TBIB1 . 'ALPH' = alph1 ;
  92.  
  93. * Sy1 : limite d'elasticite (Pa)
  94. lt1 = prog 20. 100. pas 100. 1400. ;
  95. lsy1 = prog 287. 237. 198. 172. 157. 151. 145. 136. 127. 115. 79. 38. 24. 18. 2. ;
  96. lsy1 = 1.e6 * lsy1 ;
  97. sy1 = evol manu T lt1 SIGY lsy1 ;
  98. TBIB1 . 'SIGY' = sy1 ;
  99.  
  100. * Trac1 : Courbes de traction (Pa)
  101. * Ecro1 : Courbes d'ecrouissage (Pa)
  102. Trac1 = vide nuage ;
  103. Ecro1 = vide nuage ;
  104. * A 20 degC :
  105. T1 = 20. ;
  106. lept1 = prog 0.3459 1.1599 5.2129 20.2847 ;
  107. lept1 = 1.e-2 * lept1 ;
  108. lsig1 = prog 287.33 314.94 419.42 560.97 ;
  109. lsig1 = 1.e6 * lsig1 ;
  110. trac20 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 1 ;
  111. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac20) ;
  112. ymT1 = ipol ym1 T1 ;
  113. lepp2 = lept1 - (lsig1 / ymT1) ;
  114. Ecro20 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 1 ;
  115. Ecro20 = prol line Ecro20 0. ;
  116. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro20) ;
  117. * A 200 degC :
  118. T1 = 200. ;
  119. lept1 = prog 0.3077 1.1257 5.1816 20.2556 ;
  120. lept1 = 1.e-2 * lept1 ;
  121. lsig1 = prog 198.16 231.36 334.1 470.24 ;
  122. lsig1 = 1.e6 * lsig1 ;
  123. trac200 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 2 ;
  124. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac200) ;
  125. ymT1 = ipol ym1 T1 ;
  126. lepp2 = lept1 - (lsig1 / ymT1) ;
  127. Ecro200 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 2 ;
  128. Ecro200 = prol line Ecro200 0. ;
  129. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro200) ;
  130. * A 300 degC :
  131. T1 = 300. ;
  132. lept1 = prog 0.2977 1.1137 5.1740 20.2558 ;
  133. lept1 = 1.e-2 * lept1 ;
  134. lsig1 = prog 172.47 200.62 307.12 451.42 ;
  135. lsig1 = 1.e6 * lsig1 ;
  136. trac300 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 3 ;
  137. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac300) ;
  138. ymT1 = ipol ym1 T1 ;
  139. lepp2 = lept1 - (lsig1 / ymT1) ;
  140. Ecro300 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 3 ;
  141. Ecro300 = prol line Ecro300 0. ;
  142. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro300) ;
  143. * A 400 degC :
  144. T1 = 400. ;
  145. lept1 = prog 0.2939 1.1115 5.1755 20.2593 ;
  146. lept1 = 1.e-2 * lept1 ;
  147. lsig1 = prog 157.83 187.32 294.89 435.66 ;
  148. lsig1 = 1.e6 * lsig1 ;
  149. trac400 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 4 ;
  150. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac400) ;
  151. ymT1 = ipol ym1 T1 ;
  152. lepp2 = lept1 - (lsig1 / ymT1) ;
  153. Ecro400 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 4 ;
  154. Ecro400 = prol line Ecro400 0. ;
  155. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro400) ;
  156. * A 500 degC :
  157. T1 = 500. ;
  158. lept1 = prog 0.2948 1.1120 5.1765 20.2620 ;
  159. lept1 = 1.e-2 * lept1 ;
  160. lsig1 = prog 151.65 179.12 282.34 419.14 ;
  161. lsig1 = 1.e6 * lsig1 ;
  162. trac500 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 5 ;
  163. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac500) ;
  164. ymT1 = ipol ym1 T1 ;
  165. lepp2 = lept1 - (lsig1 / ymT1) ;
  166. Ecro500 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 5 ;
  167. Ecro500 = prol line Ecro500 0. ;
  168. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro500) ;
  169. * A 600 degC :
  170. T1 = 600. ;
  171. lept1 = prog 0.2960 1.1121 5.1730 20.2556 ;
  172. lept1 = 1.e-2 * lept1 ;
  173. lsig1 = prog 145.47 169.87 262.17 387.23 ;
  174. lsig1 = 1.e6 * lsig1 ;
  175. trac600 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 6 ;
  176. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac600) ;
  177. ymT1 = ipol ym1 T1 ;
  178. lepp2 = lept1 - (lsig1 / ymT1) ;
  179. Ecro600 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 6 ;
  180. Ecro600 = prol line Ecro600 0. ;
  181. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro600) ;
  182. * A 700 degC :
  183. T1 = 700. ;
  184. lept1 = prog 0.2956 1.1128 5.1485 20.2389 ;
  185. lept1 = 1.e-2 * lept1 ;
  186. lsig1 = prog 136.2 160.7 211.65 340.49 ;
  187. lsig1 = 1.e6 * lsig1 ;
  188. trac700 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 7 ;
  189. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac700) ;
  190. ymT1 = ipol ym1 T1 ;
  191. lepp2 = lept1 - (lsig1 / ymT1) ;
  192. Ecro700 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 7 ;
  193. Ecro700 = prol line Ecro700 0. ;
  194. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro700) ;
  195. * A 800 degC :
  196. T1 = 800. ;
  197. lept1 = prog 0.2980 1.1167 5.1529 20.2260 ;
  198. lept1 = 1.e-2 * lept1 ;
  199. lsig1 = prog 127. 151.75 198.75 293.75 ;
  200. lsig1 = 1.e6 * lsig1 ;
  201. trac800 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 8 ;
  202. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac800) ;
  203. ymT1 = ipol ym1 T1 ;
  204. lepp2 = lept1 - (lsig1 / ymT1) ;
  205. Ecro800 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 8 ;
  206. Ecro800 = prol line Ecro800 0. ;
  207. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro800) ;
  208. * A 900 degC :
  209. T1 = 900. ;
  210. lept1 = prog 0.3068 1.1273 5.1493 20.1566 ;
  211. lept1 = 1.e-2 * lept1 ;
  212. lsig1 = prog 115.37 137.5 161.25 169.12 ;
  213. lsig1 = 1.e6 * lsig1 ;
  214. trac900 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 11 ;
  215. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac900) ;
  216. ymT1 = ipol ym1 T1 ;
  217. lepp2 = lept1 - (lsig1 / ymT1) ;
  218. Ecro900 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 11 ;
  219. Ecro900 = prol line Ecro900 0. ;
  220. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro900) ;
  221. * A 1000 degC :
  222. T1 = 1000. ;
  223. lept1 = prog 0.2966 1.1009 5.1184 20.1227 ;
  224. lept1 = 1.e-2 * lept1 ;
  225. lsig1 = prog 78.75 82.25 96.5 100. ;
  226. lsig1 = 1.e6 * lsig1 ;
  227. trac1000 = (evol manu 'EPST' lept1 'SIG' lsig1) coul 10 ;
  228. Trac1 = Trac1 et (nuag comp 'T' T1 comp 'TRAC' trac1000) ;
  229. ymT1 = ipol ym1 T1 ;
  230. lepp2 = lept1 - (lsig1 / ymT1) ;
  231. Ecro1000 = (evol manu 'EPSP' lepp2 'SIG' lsig1) coul 10 ;
  232. Ecro1000 = prol line Ecro1000 0. ;
  233. Ecro1 = Ecro1 et (nuag comp 'T' T1 comp 'ECRO' Ecro1000) ;
  234. TBIB1 . 'TRAC' = Trac1 ;
  235. TBIB1 . 'ECRO' = Ecro1 ;
  236.  
  237. *trac0 = trac20 et trac200 et trac300 et trac400 et trac500 et trac600 et trac700 et trac800 et trac900 et trac1000 ;
  238. *ecro0 = ecro20 et ecro200 et ecro300 et ecro400 et ecro500 et ecro600 et ecro700 et ecro800 et ecro900 et ecro1000 ;
  239. *dess (trac0 et ecro0) ;
  240.  
  241. resp TBIB1 ;
  242. quit biblio ;
  243.  
  244. fins ;
  245. * Fin [1], "316L"
  246.  
  247. *------------------------------ 316L [2] ------------------------------*
  248.  
  249. * Proprietes thermomecaniques du 316L :
  250. * Camille Cambon, Issam Bendaoud, Sebastien Rouquette, Fabien Soulie.
  251. * "Influence of the first weld bead on strain and stress states in wire+arc additive manufacturing”.
  252. * The 12th International Seminar ”Numerical Analysis of Weldability",
  253. * Institute for Materials Science, Joining and Forming (IMAT),Sep 2018, Seggau, Austria.
  254. * hal-01954354 https://hal.archives-ouvertes.fr/hal-01954354
  255.  
  256. si (ent1 ega 2) ;
  257.  
  258. *---- THERMIQUE ---- :
  259.  
  260. * K1 : Conductivite thermique (W/m/K) :
  261. lt1 = prog 20. 100. pas 100. 1000. 1200. 1400. ;
  262. lk1 = prog 14. 15.2 16.6 17.9 19. 20.6 21.8 23.1 24.3 26. 27.3 29.9 60. ;
  263. K1 = evol manu 'T' lt1 'K' lk1 ;
  264. TBIB1 . 'K' = K1 ;
  265.  
  266. * Enth1 : Enthalpie volumique (J/m^3)
  267. lt1 = prog 0. pas 100. 1500. ;
  268. lenth1 = prog 0.983 1.36 1.76 2.19 2.62 3.06 3.51 3.96 4.43 4.92 5.42 5.92 6.44 6.97 9.51 10.1 ;
  269. lenth1 = 1.e9 * lenth1 ;
  270. Enth1 = evol manu 'T' lt1 'ENTH' lenth1 ;
  271. TBIB1 . 'ENTH' = Enth1 ;
  272.  
  273. * Tfus1 : Temperature de fusion (degC) :
  274. Tfus1 = 1450. ;
  275. TBIB1 . 'TFUS' = Tfus1 ;
  276.  
  277. * Qlat1 : Chaleur latente volumique de fusion (J/m^3)
  278. Qlat1 = 2.e9 ;
  279. TBIB1 . 'QLAT' = Qlat1 ;
  280.  
  281. *---- MECANIQUE ---- :
  282.  
  283. * Ym1 : module de Young (Pa) :
  284. lt1 = prog 20. 100. pas 100. 1200. ;
  285. lym1 = prog 197000. 191500. 184000. 176500. 168000. 160000. 151500. 142500. 130000. 108000. 81500. 32000. 7400. ;
  286. lym1 = 1.e6 * lym1 ;
  287. ym1 = evol manu T lt1 youn lym1 ;
  288. TBIB1 . 'YOUN' = ym1 ;
  289.  
  290. * Sy1 : limite d'elasticite (Pa)
  291. lt1 = prog 20. 100. pas 100. 1400. ;
  292. lsy1 = prog 287. 237. 198. 172. 157. 151. 145. 136. 127. 115. 79. 38. 24. 18. 2. ;
  293. lsy1 = 1.e6 * lsy1 ;
  294. sy1 = evol manu T lt1 SIGY lsy1 ;
  295. TBIB1 . 'SIGY' = sy1 ;
  296. ltsy1 = lt1 ;
  297.  
  298. * Alph1 : dilatation thermique (/K)
  299. lt1 = prog 20. 100. 300. 400. 600. 700. 800. 1000. 1400. ;
  300. lalph1 = prog 15.5 16.0 17.1 17.5 18.4 18.7 19.0 19.4 19.6 ;
  301. lalph1 = 1.e-6 * lalph1 ;
  302. alph1 = evol manu T lt1 ALPH lalph1 ;
  303. TBIB1 . 'ALPH' = alph1 ;
  304.  
  305. * H1 : module tangent d'elasticite (Pa)
  306. lt1 = prog 20. 700. pas 100. 1300. ;
  307. lh1 = prog 2400. 2400. 2350. 1500. 800. 725. 150. 10. ;
  308. lh1 = 1.e6 * lh1 ;
  309. H1 = evol manu T lt1 H lh1 ;
  310. TBIB1 . 'H' = H1 ;
  311.  
  312. * Ecro1 : Courbes d'ecrouissage :
  313. lt1 = ((lt1 et ltsy1) uniq) ordo ;
  314. nb1 = dime lt1 ;
  315. lep1 = prog 0. 1. ;
  316. ecro1 = vide nuage ;
  317. ic1 = 0 ;
  318. repe b1 nb1 ;
  319. ic1 = ic1 + 1 ;
  320. si (ic1 ega 9) ; ic1 = ic1 + 1 ; fins ;
  321. ti1 = extr lt1 &b1 ;
  322. syi1 = ipol sy1 ti1 ;
  323. hi1 = ipol H1 ti1 ;
  324. lmsi1 = prog syi1 (syi1+hi1) ;
  325. ecroi1 = evol manu epeq lep1 smeq lmsi1 ;
  326. ecroi1 = ecroi1 coul ic1 ;
  327. ecro1 = ecro1 et (nuag comp T ti1 comp ECRO ecroi1) ;
  328. fin b1 ;
  329. TBIB1 . 'ECRO' = ecro1 ;
  330.  
  331. resp TBIB1 ;
  332. quit biblio ;
  333.  
  334. fins ;
  335. * Fin [2], "316L"
  336.  
  337. * Reference ent1 n'existe pas pour mot1
  338. mess '***** La reference ' ' ' ent1 ' ne concerne pas ' ' ' mot1 ;
  339. saut 1 lign ;
  340. resp TBIB1 ;
  341. quit biblio ;
  342.  
  343. * Fin mot-cle "316L"
  344. fins ;
  345.  
  346. *----------------------------------------------------------------------*
  347. * MOT-CLE : 9Cr ODS *
  348. *----------------------------------------------------------------------*
  349.  
  350. si (ega mot1 '9Cr ODS') ;
  351. imot1 = 2 ;
  352.  
  353. * Initialisation table de sortie :
  354. TBIB1 = table ;
  355.  
  356. *----------------------------- 9Cr ODS [3] ----------------------------*
  357.  
  358. * Brendan Le Gloannec.
  359. * "Modifications microstructurales sous sollicitations thermomécaniques sévères :
  360. * application au soudage par résistance des gaines de combustibles en aciers ODS".
  361. * Thèse de doctorat.
  362. * Université de Bordeaux.
  363. * 2016.
  364.  
  365. * Numero reference bib. par defaut :
  366. si (ent1 ega 0) ; ent1 = 3 ; fins ;
  367.  
  368. si (ent1 ega 3) ;
  369.  
  370.  
  371. *--- Masse volumique [Kg/m3] :
  372. RHO_9ODS = 7760. ;
  373. TBIB1 . 'RHO' = RHO_9ODS ;
  374.  
  375.  
  376.  
  377. *--- Conductivite thermique [w/mm.K] :
  378. CONDTH_9ODS1 = EVOL MANU 'T' (PROG 2.5e+01 5e+01 1e+02 1.5e+02
  379. 2e+02 2.5e+02 3e+02 3.5e+02
  380. 4e+02 4.5e+02 5e+02 5.5e+02)
  381. 'K' (PROG 2.3e-02 2.27e-02 2.23e-02
  382. 2.36e-02 2.49e-02 2.54e-02 2.63e-02
  383. 2.6e-02 2.65e-02 2.71e-02 2.74e-02
  384. 2.72e-02) ;
  385. CONDTH_9ODS2 = EVOL MANU 'T' (PROG 6e+02 6.5e+02 7e+02 7.5e+02
  386. 8e+02 8.5e+02 9e+02 9.5e+02
  387. 1e+03 1.05e+03 1.1e+03 1.15e+03
  388. 1.18e+03 1.45e+03)
  389. 'K' (PROG 2.73e-02 2.65e-02 2.57e-02
  390. 2.14e-02 2.53e-02 4.44e-02 2.9e-02
  391. 2.65e-02 2.65e-02 2.65e-02 2.73e-02
  392. 2.82e-02 2.88e-02 3.28e-02) ;
  393. comm /!\ conversion [w/mm.K] -> [w/m.K] ;
  394. CONDTH_9ODS = 1.e3 * (CONDTH_9ODS1 + CONDTH_9ODS2) ;
  395. TBIB1 . 'K' = CONDTH_9ODS ;
  396.  
  397.  
  398.  
  399. *--- Capacite calorifique massique [J/Kg.K] :
  400. CAPAC_9ODS1 = EVOL MANU 'T' (PROG 2.5e+01 5.0e+01 1.0e+02 1.5e+02 2.0e+02
  401. 2.5e+02 3.0e+02 3.5e+02 4.0e+02
  402. 4.5e+02 5.0e+02 5.5e+02 7.0e+02
  403. 7.5e+02 8.0e+02 8.5e+02 9.0e+02)
  404. 'C' (PROG 4.4e+02 4.4e+02 4.4e+02 4.75e+02 5.1e+02
  405. 5.3e+02 5.6e+02 5.7e+02 6.0e+02
  406. 6.4e+02 6.8e+02 7.2e+02 9.5e+02
  407. 9.6e+02 7.8e+02 1.14e+03 6.8e+02) ;
  408. CAPAC_9ODS2 = EVOL MANU 'T' (PROG 9.5e+02 1.0e+03 1.05e+03 1.10e+03
  409. 1.15e+03 1.45e+03 1.46e+03 1.47e+03
  410. 1.48e+03 1.5e+03)
  411. 'C' (PROG 6.2e+02 6.2e+02 6.2e+02 6.4e+02
  412. 6.6e+02 7.95e+02 9.94e+03 9.942e+03
  413. 8.38e+02 8.38e+02) ;
  414. CAPAC_9ODS = (CAPAC_9ODS1 + CAPAC_9ODS2) ;
  415. TBIB1 . 'C' = CAPAC_9ODS ;
  416.  
  417.  
  418.  
  419. *--- Conductivite electrique 9Cr ODS [Ohm.mm]^-1 :
  420. CONDEL_9ODS = EVOL MANU 'T' (PROG 2.2e+01 6.7e+02 1.5e+03 1.6e+03)
  421. 'KD' (PROG 0.2e+04 1.0e+03 0.606e+03 0.606e+03) ;
  422. comm /!\ conversion [Ohm.mm]^-1 -> [Ohm.m]^-1 ;
  423. TBIB1 . 'KE' = 1.e3*CONDEL_9ODS ;
  424.  
  425.  
  426.  
  427. *--- Module d'Young (MPa) :
  428. YONG_9CrODS = EVOL MANU 'T' (PROG 2.e+01 1.2e+02 2.2e+02 4.0e+02 4.7e+02 6.15e+02 6.6e+02 7.6e+02
  429. 8.3e+02 9.6e+02 1.e+03 1.5e+03)
  430.  
  431. 'YOUN' (PROG 2.16e+5 2.1e+5 2.05e+5 1.9e+5 1.8e+5 1.6e+5 1.5e+5 1.2e+5
  432. 1.15e+5 1.15e+5 1.14e+5 1. ) ;
  433. comm /!\ conversion [MPa] -> [Pa] ;
  434. TBIB1 . 'YOUN' = 1.e6 * YONG_9CrODS ;
  435.  
  436.  
  437.  
  438. *--- Coefficient de Poisson :
  439. NU_9CrODS = EVOL MANU 'T' (PROG 2.e+01 1.45e+03 1.5e+03 )
  440. 'NU' (PROG 2.9e-01 2.9e-01 0.49e-01) ;
  441. comm /!\ : on prend une valeur constante car le choix de modelisation du comportement en phase liquide ;
  442. * n'est pas du ressort des donnees :
  443. TBIB1 . 'NU' = 0.29 ;
  444.  
  445.  
  446.  
  447. *--- Coeficient de dilatation thermique [1/K] :
  448. ALPH_9CrODS1 = EVOL MANU 'T'(PROG 2.e+01 1.e+02 1.5e+02 2.e+02 2.5e+02 3.e+02 3.5e+02 4.e+02 4.5e+02
  449. 5.e+02 5.5e+02 )
  450. 'ALPH' (PROG 1.01e-05 1.07e-05 1.1e-05 1.13e-05 1.17e-05 1.21e-05 1.24e-05 1.28e-05
  451. 1.31e-05 1.36e-05 1.39e-05 );
  452. ALPH_9CrODS2 = EVOL MANU 'T'(PROG 6.e+02 6.5e+02 7.e+02 7.5e+02 8.e+02 8.5e+02 9.5e+02
  453. 1.e+03 1.05e+03 1.1e+03 1.5e+03)
  454. 'ALPH' (PROG 1.42e-05 1.46e-05 1.5e-05 1.53e-05 1.57e-05
  455. 1.6e-05 -3.e-06 2.4e-05 2.4e-05 2.4e-05 2.91e-05) ;
  456. ALPH_9CrODS = ALPH_9CrODS1+ALPH_9CrODS2;
  457. TBIB1 . 'ALPH' = ALPH_9CrODS ;
  458.  
  459.  
  460.  
  461. *--- limite élastique [MPa]
  462. KK_9CrODS = EVOL MANU 'T' (PROG 2.e+01 4.e+02 5.e+02 6.e+02 6.5e+02 7.5e+02 9.5e+02 1.25e+03 1.45e+03 1.5e+03)
  463. 'KK' (PROG 1.083e+03 8.87e+02 7.03e+02 4.32e+02 1.96e+02 1.65e+02 1.e+02 2.2e+01 1. 1.);
  464. comm /!\ conversion [MPa] -> [Pa] ;
  465. KK_9CrODS = 1.e6 * KK_9CrODS ;
  466. TBIB1 . 'KK' = KK_9CrODS ;
  467.  
  468.  
  469.  
  470. *--- Coefficient d'ecrouissage isotrope a saturation Rmin & Rmax (Rmax = KK + Rmin) [MPa] lisse :
  471. RMIN_9CrODS = EVOL MANU 'T' (PROG 2.0e+01 4.e+02 5.e+02 6.e+02 7.5e+02 9.5e+02 1.45e+03)
  472. 'RMAX' (PROG 1.33e+02 6.6e+01 4.7e+01 4.3e+01 3.8e+01 1. 0.) ;
  473. comm /!\ conversion [MPa] -> [Pa] ;
  474. RMIN_9CrODS = 1.e6 * RMIN_9CrODS ;
  475. TBIB1 . 'RMIN' = RMIN_9CrODS ;
  476. TBIB1 . 'RMAX' = KK_9CrODS + RMIN_9CrODS ;
  477.  
  478.  
  479.  
  480. *--- Coefficient d'ecrouissage isotrope BR [MPa]
  481. BR_9CrODS = EVOL MANU 'T' (PROG 2.e+01 4.e+02 5.e+2 6.e+02 6.5e+02 7.5e+2 9.5e+02 1.50e+03)
  482. 'BR' (PROG 1.24e+02 1.6e+02 2.53e+02 1.26e+02 6.7e+01 1.08e+02 0. 0. ) ;
  483. comm /!\ conversion [MPa] -> [Pa] ;
  484. BR_9CrODS = 1.e6 * BR_9CrODS ;
  485. TBIB1 . 'BR' = BR_9CrODS ;
  486.  
  487.  
  488.  
  489. *--- Exposant viscosite N :
  490. N_9CrODS = EVOL MANU 'T' (PROG 2.e+01 5.e+02 6.5e+02 7.5e+02 9.5e+02 1.25e+03 1.45e+03 )
  491. 'N' (PROG 6.43e+00 6.43e+00 4.32e+00 2.77e+00 1.81e+01 1.136e+01 1.1360e+01) ;
  492. TBIB1 . 'N' = N_9CrODS ;
  493.  
  494.  
  495.  
  496. *--- Parametre viscosite K0 [MPa.s]
  497. K0_9CrODS = EVOL MANU 'T' (PROG 2.e+01 5.e+02 6.5e+02 7.5e+02 9.5e+02 1.25e+03 1.50e+03)
  498. 'K0' (PROG 3.11e+02 3.11e+02 3.03e+02 4.61e+02 1.412e+02 1.02e+02 1.02e+02 ) ;
  499. comm /!\ conversion [MPa] -> [Pa] ;
  500. K0_9CrODS = 1.e6 * K0_9CrODS ;
  501. TBIB1 . 'K0' = K0_9CrODS ;
  502.  
  503.  
  504.  
  505. resp TBIB1 ;
  506. quit biblio ;
  507.  
  508. fins ;
  509. *--- Fin [3], "9Cr ODS"
  510.  
  511.  
  512.  
  513. * Numero reference bib. ent1 n'existe pas pour mot1
  514. mess '***** La reference ' ' ' ent1 ' ne concerne pas ' ' ' mot1 ;
  515. saut 1 lign ;
  516. resp TBIB1 ;
  517. quit biblio ;
  518.  
  519. * Fin mot-cle "9Cr ODS"
  520. fins ;
  521.  
  522. *------------------------- Mot-cle non trouve -------------------------*
  523.  
  524. si (imot1 ega 0) ;
  525. mess '***** Pas de donnee disponible pour' ' ' mot1 ;
  526. saut 1 lign ;
  527. resp TBIB1 ;
  528. quit biblio ;
  529. fins ;
  530.  
  531. FINP ;
  532.  
  533.  
  534.  
  535.  

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