Hong-Seok Yang,
Computational Metallurgy Laboratory,
Graduate Institute of Ferrous Technology,
Pohang University of Science and Technology,
Pohang, South Korea
MUCG46 has been enhanced in order to calculate martensite-start temperature including the effect of austenite grain size, stress and plastic strain in the austenite prior to its transformation.
Language: | FORTRAN |
Product form: | Source code |
PROGRAM MAP_STEEL_MUCG46B
DOUBLE PRECISION BDIF(40), BSH(40), BTEM(40), C(8), DFPRO(40), DDFTO(40),
& DT4(40), DXQ(40)
DOUBLE PRECISION A, A1, A44, AEQ, AFE, AFE44, AFEQ, AJ, AJ1, BS, CONST,
& CORR,CTEMP, DA44, DAFE44, DF441, DIFFT, ETEQ, ETEQ2, F, F44, FPRO,
& FPROA, FSON, FTO, GMAX, H, H1, MS, R, S, S1, SHEART, SLOPE, STRAIN, T,
& T10, T20, TEQ, TEQ2, V14, W, W1, WS, WS1, X, XA, X1, X44, XBAR, XEQ,
& XEQ2, XMS, XTO, XTO400
DOUBLE PRECISION MAP_STEEL_AFEG, MAP_STEEL_CG, MAP_STEEL_DAFEG,
& MAP_STEEL_DCG, MAP_STEEL_ENERGY, MAP_STEEL_FTO1, MAP_STEEL_WSFUN
INTEGER I, IK, IMAX, J1, J2, J5, J6, J8, J98, J99
The program is same with MUCG46 but calculates martensite-start temperature as a function of chemical composition, prior austenite grain size, external stress and pre-strain
Allowable composition ranges limited - see Description.
No information supplied.
None.
N/A - complete program
1 0.1 0 0.5 0 0 0 0 50 2 100 1
------------------------------------------------------------------------------------------------------------------------------- *******NUMBER 1 ********* C= 0.1000 SI= 0.0000 MN= 0.5000 NI= 0.0000 MO= 0.0000 CR= 0.0000 V= 0.0000 C= 0.0046 SI= 0.0000 MN= 0.0051 NI= 0.0000 MO= 0.0000 CR= 0.0000 V= 0.0000 Austenite Grain Size= 50. Applied Stress= 100. Pre-strain=0.00 CARBON CONTENT= 0.00463 T10= 0.010225 T20= -0.191722 WGAMMA= 8388. ------------------------------------------------------------------------------------------------------------------------------- FPRO FPROA GMAX CTEMP X NUCLEUS FSON XEQ XEQ50 FTO XTO X44 XTO400 SHEART DIFFT -3018. -3075. -3185. 200. 0.49E-08 -3145. 0.1975 0.1962 -2946. 0.0834 0.0615 0.0646 0.16E+05 0.23E+24 -2879. -2935. -3031. 220. 0.11E-07 -3005. 0.1920 0.1907 -2812. 0.0805 0.0592 0.0623 0.39E+04 0.13E+22 -2740. -2794. -2908. 240. 0.24E-07 -2865. 0.1864 0.1851 -2678. 0.0765 0.0574 0.0597 0.10E+04 0.11E+20 -2601. -2654. -2762. 260. 0.49E-07 -2726. 0.1808 0.1794 -2545. 0.0728 0.0549 0.0564 0.34E+03 0.14E+18 -2462. -2514. -2621. 280. 0.94E-07 -2587. 0.1749 0.1735 -2411. 0.0693 0.0524 0.0529 0.13E+03 0.26E+16 -2323. -2375. -2481. 300. 0.17E-06 -2447. 0.1690 0.1675 -2277. 0.0662 0.0499 0.0497 0.54E+02 0.68E+14 -2185. -2235. -2341. 320. 0.30E-06 -2308. 0.1629 0.1613 -2143. 0.0622 0.0474 0.0465 0.26E+02 0.24E+13 -2047. -2096. -2201. 340. 0.52E-06 -2169. 0.1566 0.1549 -2009. 0.0580 0.0449 0.0434 0.13E+02 0.11E+12 -1909. -1956. -2062. 360. 0.84E-06 -2029. 0.1501 0.1484 -1875. 0.0541 0.0423 0.0404 0.79E+01 0.64E+10 -1771. -1818. -1922. 380. 0.13E-05 -1890. 0.1435 0.1416 -1742. 0.0504 0.0398 0.0373 0.51E+01 0.47E+09 -1634. -1679. -1782. 400. 0.21E-05 -1751. 0.1365 0.1345 -1608. 0.0470 0.0372 0.0341 0.36E+01 0.43E+08 -1514. -1558. -1664. 420. 0.31E-05 -1629. 0.1301 0.1280 -1492. 0.0443 0.0354 0.0314 0.26E+01 0.45E+07 -1406. -1449. -1551. 440. 0.46E-05 -1520. 0.1239 0.1217 -1388. 0.0419 0.0340 0.0292 0.20E+01 0.56E+06 -1298. -1340. -1441. 460. 0.66E-05 -1411. 0.1176 0.1153 -1283. 0.0393 0.0326 0.0270 0.16E+01 0.82E+05 -1191. -1231. -1334. 480. 0.93E-05 -1302. 0.1111 0.1087 -1179. 0.0366 0.0313 0.0248 0.14E+01 0.14E+05 -1084. -1123. -1222. 500. 0.13E-04 -1192. 0.1044 0.1019 -1075. 0.0340 0.0300 0.0226 0.14E+01 0.27E+04 -977. -1015. -1112. 520. 0.17E-04 -1083. 0.0975 0.0948 -971. 0.0315 0.0287 0.0203 0.14E+01 0.62E+03 -871. -908. -1004. 540. 0.23E-04 -974. 0.0903 0.0874 -867. 0.0291 0.0275 0.0179 0.15E+01 0.16E+03 -765. -801. -894. 560. 0.31E-04 -866. 0.0828 0.0798 -763. 0.0269 0.0264 0.0152 0.19E+01 0.49E+02 -661. -695. -783. 580. 0.40E-04 -757. 0.0750 0.0717 -659. 0.0243 0.0248 0.0124 0.26E+01 0.17E+02 -556. -589. -673. 600. 0.52E-04 -648. 0.0668 0.0634 -555. 0.0218 0.0228 0.0095 0.40E+01 0.72E+01 -453. -484. -564. 620. 0.67E-04 -540. 0.0582 0.0545 -451. 0.0191 0.0220 0.0065 0.72E+01 0.36E+01 -352. -381. -462. 640. 0.84E-04 -432. 0.0492 0.0452 -347. 0.0162 0.0216 0.0032 0.15E+02 0.21E+01 -349. -378. -453. 660. 0.10E-03 -430. 0.0484 0.0444 -350. 0.0163 0.0303 0.0033 0.13E+02 0.64E+00 -274. -301. -370. 680. 0.13E-03 -349. 0.0411 0.0369 -273. 0.0144 ******** 0.0005 0.28E+02 0.43E+00 -209. -235. -298. 700. 0.16E-03 -279. 0.0345 0.0301 -206. 0.0124 ******** 0.0000 0.65E+02 0.32E+00 -155. -178. -237. 720. 0.19E-03 -217. 0.0285 0.0239 -149. 0.0105 ******** 0.0000 0.17E+03 0.27E+00 -109. -130. -180. 740. 0.23E-03 -164. 0.0230 0.0183 -100. 0.0088 ******** 0.0000 0.55E+03 0.28E+00 -71. -90. -134. 760. 0.27E-03 -118. 0.0182 0.0133 -57. 0.0072 ******** 0.0000 0.21E+04 0.35E+00 -41. -57. -92. 780. 0.32E-03 -80. 0.0140 0.0089 -20. 0.0058 ******** 0.0000 0.11E+05 0.59E+00 -19. -31. -57. 800. 0.37E-03 -47. 0.0103 0.0051 11. 0.0045 ******** 0.0000 0.11E+06 0.16E+01 -5. -12. -31. 820. 0.42E-03 -20. 0.0071 0.0018 0. 0.0033 ******** 0.0000 0.20E+07 0.78E+01 ***** FTO VERSUS TEMPERATURE **** WIDMANSTATTEN START TEMPERATURES 760. & 760. GROWTH LIMITED BAINITE START TEMP= 616. C MARTENSITE START TEMPERATURE= 517. C ------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------
MAP_STEEL_AXTO
MAP_STEEL_GMAAX
MAP_STEEL_OMEGA
MAP_STEEL_TTTT
MAP_STEEL_WSTINE
MAP_STEEL_AFEG
MAP_STEEL_CG
MAP_STEEL_DAFEG
MAP_STEEL_DCG
MAP_STEEL_ENERGY
MAP_STEEL_FTO1
MAP_STEEL_WSFUN
MAP_UTIL_ANALY
MAP_UTIL_REED
MAP_UTIL_REEDI
Widmanstatten, bainite, martensite, start temperature
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.