diff options
Diffstat (limited to '1586/CH4/EX4.3/EXP4_3.sce')
| -rw-r--r-- | 1586/CH4/EX4.3/EXP4_3.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/1586/CH4/EX4.3/EXP4_3.sce b/1586/CH4/EX4.3/EXP4_3.sce new file mode 100644 index 000000000..96c30452e --- /dev/null +++ b/1586/CH4/EX4.3/EXP4_3.sce @@ -0,0 +1,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:")
|