blob: 96c30452ee16b59b7ac138478418b97ba5e48748 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
clc;funcprot(0);//EXAMPLE 4.3
// Initialisation of Variables
a01=0.2866;............//The Lattice parameter of BCC in nm
a02=0.3571;............//The Lattice parameter of FCC in nm
r=0.071;............//Radius of carbon atom in nm
ni1=12;..........//No. of interstitial sites per unit cell for BCC
ni2=4;...........//No. of interstitial sites per unit cell for FCC
//CALCULATIONS
Rb=(sqrt(3)*a01)/4;.......//Radius of iron atom in nm
Ri1=sqrt(0.3125*a01^2)-Rb;.......// Interstitial Radius of iron atom in nm
Rf=(sqrt(2)*a02)/4;.........//the radius of the iron atom in nm
Ri2=(a02-(2*Rf))/2;................//the radius of the interstitial site in nm
%C1=(ni1/(ni1+2))*100;...........//The atomic percentage of carbon contained in the BCC iron in percent
%C2=(ni2/(ni2+4))*100;...........//The atomic percentage of carbon contained in the FCC iron in percent
disp(Rb,"Radius of iron atom in nm")
disp(Ri1,"Interstitial Radius of iron atom in nm:")
disp(Rf,"the radius of the iron atom in nm:")
disp(Ri2,"the radius of the interstitial site in nm:")
disp(%C1,"The atomic percentage of carbon contained in BCC iron in percent:")
disp(%C2,"The atomic percentage of carbon contained in FCC iron in percent:")
|
