8 files changed, 86 insertions, 0 deletions
diff --git a/3557/CH4/EX4.1/Ex4_1.sce b/3557/CH4/EX4.1/Ex4_1.sce
new file mode 100644
index 000000000..523f44447
--- /dev/null
+++ b/3557/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,5 @@
+//Example4.1//
+rCu=0.128;//nm //atomic radius of copper
+rNi=0.125;//nm //atomic radius of nickel
+d=((rCu-rNi)/rCu)*100
+mprintf("d = %f percent (<15percent)",d)
diff --git a/3557/CH4/EX4.2/Ex4_2.sce b/3557/CH4/EX4.2/Ex4_2.sce
new file mode 100644
index 000000000..27c200330
--- /dev/null
+++ b/3557/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,13 @@
+//Example4.2//
+a=4;//body-centered cubic as given in table 3.3
+b=sqrt(3); //body-centered cubic as given in table 3.3
+c=1;// as we take R common from the equation
+ri=(1/2)*(a/b)-c
+mprintf("ri = %f R",ri)
+//from the appendix 2, R=0.124nm giving
+R=0.124;//nm //atomic radius of iron
+ri1=ri*R
+mprintf("\nri1 = %f nm",ri1)
+rC=0.077;//nm //atomic radius of carbon from the appendix 2
+R1=rC/ri1
+mprintf("\nR1 = %f ",R1)
diff --git a/3557/CH4/EX4.3/Ex4_3.sce b/3557/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..987c5cde0
--- /dev/null
+++ b/3557/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,10 @@
+//Example4.3 //
+a=2.70*10^6;//g/m^3 //density of aluminium
+b=26.98;//g // atomic mass 
+c=0.602*10^24;//atoms //atomic mass unit
+at=a/(b/c)
+mprintf("at = %e atoms m^-3",at)
+//Then density of vacant sites will be
+d=2.29*10^-5;//atom^-1 //fraction of aluminium sites vacant at 400 degree celsius
+v=d*at
+mprintf("\nv= %e m^-3",v)
diff --git a/3557/CH4/EX4.4/Ex4_4.sce b/3557/CH4/EX4.4/Ex4_4.sce
new file mode 100644
index 000000000..2ca484e35
--- /dev/null
+++ b/3557/CH4/EX4.4/Ex4_4.sce
@@ -0,0 +1,15 @@
+//Example4.4//
+//(a)
+RFe=0.124;//nm //atomic radius of iron
+r=2*RFe
+mprintf("r = %f nm",r)
+//(b)
+RAl=0.143;//nm //atomic radius of Aluminium
+r1=2*RAl
+mprintf("\nr1 = %f nm",r1)
+//(c)
+a=2;//given
+RO=0.132;//nm // Ionic radius of Oxygen
+b=cosd(30);//given
+r2=2*(a*RO)*(b)
+mprintf("\nr2 = %f nm",r2)
diff --git a/3557/CH4/EX4.5/Ex4_5.sce b/3557/CH4/EX4.5/Ex4_5.sce
new file mode 100644
index 000000000..cb3b40b1f
--- /dev/null
+++ b/3557/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,8 @@
+//Example 4.5//
+
+b=0.286;//nm // repeat distance between the adjacent atoms
+t=2;// degree //Given
+a=1;// rad 
+c=57.3;//degree
+D=b/(t*(a/c))
+mprintf("D = %f nm",D)
diff --git a/3557/CH4/EX4.6/Ex4_6.sce b/3557/CH4/EX4.6/Ex4_6.sce
new file mode 100644
index 000000000..d1e59f89d
--- /dev/null
+++ b/3557/CH4/EX4.6/Ex4_6.sce
@@ -0,0 +1,17 @@
+//Example 4.6//
+a=3.98;//in.^2 // area of region
+b=100;//grain density
+c=300;//grain density
+A100=a*(b/c)^2
+mprintf("A100 = %f in^2",A100)
+//Then the grain density becomes
+d=32;//grains
+N=d/A100
+mprintf("\nN = %f grains/in^2",N)
+i=2;//from the equation
+e=log(N);
+f=log(i);
+j=1;//from the equation
+G=(e/f)+j
+mprintf("\nG = %f \nor \n G=7+",G)
+
diff --git a/3557/CH4/EX4.7/Ex4_7.sce b/3557/CH4/EX4.7/Ex4_7.sce
new file mode 100644
index 000000000..c30739484
--- /dev/null
+++ b/3557/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,7 @@
+//Example 4.7//
+
+a=0.74;//APF for the fcc metal structure
+b=8.84;//g/cm^3 //density of thin film of nickel
+c=8.91;//g/cm^3;// density of normal nickel
+APF=a*(b/c)
+disp(APF)
diff --git a/3557/CH4/EX4.8/Ex4_8.sce b/3557/CH4/EX4.8/Ex4_8.sce
new file mode 100644
index 000000000..f77a3b3ec
--- /dev/null
+++ b/3557/CH4/EX4.8/Ex4_8.sce
@@ -0,0 +1,11 @@
+//Example 4.8//
+a=0.404;//nm //lattice parameter
+b=1;// lowest-angle
+d111=a/sqrt(b^2+b^2+b^2)
+mprintf("d111 = %f nm",d111)
+l=3.7*10^-3;//nm //nanometer
+c=2;//given
+thetha=asind(l/(c*d111))
+mprintf("\nthetha = %f degree",thetha)
+t=2*thetha
+mprintf("\nt = %f degree",t)