diff options
Diffstat (limited to '1586/CH9/EX9.1/EXP9_1.sce')
| -rw-r--r-- | 1586/CH9/EX9.1/EXP9_1.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/1586/CH9/EX9.1/EXP9_1.sce b/1586/CH9/EX9.1/EXP9_1.sce new file mode 100644 index 000000000..3e0184395 --- /dev/null +++ b/1586/CH9/EX9.1/EXP9_1.sce @@ -0,0 +1,18 @@ +clc;funcprot(0);//EXAMPLE 9.1
+// Initialisation of Variables
+deltaT=236;.......//Typical Undercooling for HomogeneousNucleation from the table 9-1 for cooper
+Tm=1358;.......//Freezing Temperature from the table 9-1 for cooper in degree celsius
+deltaH=1628;.......// Latent Heat of Fusion from the table 9-1 for cooper in J/cm^3
+sigma1=177*10^-7;.....//Solid-Liquid Interfacial Energyfrom the table 9-1 for cooper in J/cm^2
+a0=3.615*10^-8;......//The lattice parameter for FCC copper in cm
+//CALCULATIONS
+r=(2*sigma1*Tm)/(deltaH*deltaT);......//Critical Radius of copper in cm
+V=a0^3;....//Volume of FCC unit cell of copper in cm^3
+V2=(4/3)*%pi*r^3;....//Critical volume of FCC copper
+N=V2/V;......//The number of unit cells in the critical nucleus
+Nc=4*round(N);......//Since there are four atoms in each unit cell of FCC metals
+disp(r*10^8,"Critical Radius of copper in cm:")
+disp(V,"Volume of FCC unit cell of copper in cm^3:")
+disp(V2,"Critical volume of FCC copper :")
+disp(round(N),"The number of unit cells in the critical nucleus :")
+disp(Nc,"Since there are four atoms in each unit cell of FCC metals:")
|