summaryrefslogtreecommitdiff
path: root/539/CH10/EX10.1.a/Example_10_1a.sce
blob: 15c91ed5cd87a5e0e161741cdb4ba2d112066430 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//Computation of Critical Nuclear Radius

clear;
clc;

printf("\tExample 10.1\n");

printf("\n\tPart A");
Hf=-1.16*10^9;  // in J/m^3  latent heat of fusion
Y=0.132;  // in J/m^2  Surface energy
Tm=1064+273;  // in K  Melting point of gold
T=1064+273-230;  // in K  230 is supercooling value

r=-2*Y*Tm/(Hf*(Tm-T));

printf("\nCritical Radius is : %.2f nm\n",r/10^-9);

G=16*%pi*Y^3*Tm^2/(3*Hf^2*(Tm-T)^2);

printf("\nActivation free energy is : %.2e J\n",G);

//end