diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /539/CH10 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '539/CH10')
| -rwxr-xr-x | 539/CH10/EX10.1.a/Example_10_1a.sce | 22 | ||||
| -rwxr-xr-x | 539/CH10/EX10.1.b/Example_10_1b.sce | 25 | ||||
| -rwxr-xr-x | 539/CH10/EX10.2/Example_10_2.sce | 20 |
3 files changed, 67 insertions, 0 deletions
diff --git a/539/CH10/EX10.1.a/Example_10_1a.sce b/539/CH10/EX10.1.a/Example_10_1a.sce new file mode 100755 index 000000000..15c91ed5c --- /dev/null +++ b/539/CH10/EX10.1.a/Example_10_1a.sce @@ -0,0 +1,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
\ No newline at end of file diff --git a/539/CH10/EX10.1.b/Example_10_1b.sce b/539/CH10/EX10.1.b/Example_10_1b.sce new file mode 100755 index 000000000..04e505679 --- /dev/null +++ b/539/CH10/EX10.1.b/Example_10_1b.sce @@ -0,0 +1,25 @@ +//Activation Free Energy
+
+clear;
+clc;
+
+printf("\tExample 10.1\n");
+
+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("\n\tPart B");
+a=0.413*10^-9; // in m Unit Cell edge length
+
+//unit cells per paticle
+u_c=4*%pi*r^3/(3*a^3);
+
+printf("\nUnit cells per paricle are : %d",u_c);
+printf("\nIn FCC there are 4 atoms per unit cell.\n");
+
+printf("\nTotal no. of atoms per critical nucleus are : %d\n",int(u_c)*4);
+
+//End
\ No newline at end of file diff --git a/539/CH10/EX10.2/Example_10_2.sce b/539/CH10/EX10.2/Example_10_2.sce new file mode 100755 index 000000000..33ffe94dc --- /dev/null +++ b/539/CH10/EX10.2/Example_10_2.sce @@ -0,0 +1,20 @@ +//Determination the rate of recrystallization
+
+clear;
+clc;
+
+printf("\tExample 10.2\n");
+n=5;
+y=0.3;
+t=100; //in min
+
+
+k=-log(1-y)/t^n;
+
+thalf=(-log(1-0.5)/k)^(1/n);
+
+rate=1/thalf;
+
+printf("\nRate is %.2e (min)^-1\n",rate);
+
+//End
\ No newline at end of file |