H.K.D.H. Bhadeshia,
Phase Transformations Group,
Department of Materials Science and Metallurgy,
University of Cambridge,
Cambridge, U.K.
Added to MAP: August 1999.
To calculate the activity coefficient for nitrogen in a steel weld.
Language: | FORTRAN |
Product form: | Source code |
SUBROUTINE MAP_STEEL_NITR(C,SI,MN,NI,MO,CR,V,F,AL,TI,CO, & NB,TA,W,ZR,CU) DOUBLE PRECISION C,SI,MN,NI,MO,CR,V,F,AL,TI,CO,NB,TA,W,ZR,CU
MAP_STEEL_NITR calculates the activity coefficient, f, using equation 3 in reference 1:
where xi are the concentrations of each element present and ei are the corresponding Wagner interaction parameters [2-4]. The elements aluminium, carbon, cobalt, chromium, copper, manganese, molybdenum, niobium, nickel, silicon, tantalum, titanium, vanadium, tungsten and zirconium are included in the summation. The interaction coefficient is used for calculating the nitrogen concentration in steel welds (see, for example, MAP_STEEL_NITY).
None.
No information supplied.
None.
DOUBLE PRECISION AL,TI,CO,NB,TA,W,ZR,CU DOUBLE PRECISION C,SI,MN,NI,MO,CR,V,F C WRITE(*,*) 'Input C, Si, Mn, Ni, Mo, Cr, V (wt%):' READ (*,*) C, SI, MN, NI, MO, CR, V WRITE(*,*) 'Input Al, Ti, Co, Nb, Ta, W, Zr, Cu (wt%):' READ (*,*) AL, TI, CO, NB, TA, W, ZR, CU CALL MAP_STEEL_NITR(C,SI,MN,NI,MO,CR,V,F,AL,TI,CO,NB,TA,W, & ZR,CU) WRITE (*,1) F STOP 1 FORMAT(' Activity coefficient = ',F7.4) END
Input C, Si, Mn, Ni, Mo, Cr, V (wt%): 0.05 0.5 1.0 0.0 0.0 0.5 0.5 Input Al, Ti, Co, Nb, Ta, W, Zr, Cu (wt%): 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
Activity coefficient = 0.8780
None.
activity coefficient, nitrogen, concentration, steel, weld, interaction coefficient
MAP originated from a joint project of the National Physical Laboratory and the University of Cambridge.
MAP Website administration / map@msm.cam.ac.uk