9 files changed, 122 insertions, 0 deletions
diff --git a/3557/CH2/EX2.1/Ex2_1.sce b/3557/CH2/EX2.1/Ex2_1.sce
new file mode 100644
index 000000000..819e2089a
--- /dev/null
+++ b/3557/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,16 @@
+// Example 2.1//
+d= 8.93;//g/cm^3 // density of copper
+a=63.55;//amu // atomic mass of copper
+//The volume sampled
+c=1;//mew meter //deep cylinder in the surface of solid copper
+e=2;//given
+f=1;//cm //centimeter
+g=10^4;//mew m
+vs=(%pi*(c/e)^2)*(1/10^4)^3//Volume sampled formula
+mprintf(" vs = %e cm^3",vs)
+//Thus, the number of atoms sampled
+a1=8.93;//g/cm^3
+b=0.602*10^24;//atoms//Avogadro's number
+c1=63.55;//g
+ns=a1*vs*b/c1
+mprintf("\n ns = %e atoms",ns)
diff --git a/3557/CH2/EX2.10/Ex2_10.sce b/3557/CH2/EX2.10/Ex2_10.sce
new file mode 100644
index 000000000..94a54857e
--- /dev/null
+++ b/3557/CH2/EX2.10/Ex2_10.sce
@@ -0,0 +1,8 @@
+//Example 2.10//
+a=2;//Given
+b=370;//kJ/mol //Bond energy
+c=680;//kJ/mol //Bond energy
+r=a*b
+mprintf("r = %i kJ/mol",r)
+re=r-c
+mprintf("\nre = %i kJ/mol",re)
diff --git a/3557/CH2/EX2.12/Ex2_12.sce b/3557/CH2/EX2.12/Ex2_12.sce
new file mode 100644
index 000000000..9c9c32649
--- /dev/null
+++ b/3557/CH2/EX2.12/Ex2_12.sce
@@ -0,0 +1,12 @@
+//Example 2.12//
+kr=16.16*10^-135;// J m^12 //constant of attraction
+ka=10.37*10^-78;//J m^6 //constant of replusion
+a0=(2*(kr/ka))^(1/6)
+mprintf("a0 = %e m = 0.382nm  (As 1 nano = 10^-9)",a0)
+a1=0.382*10^-9;//meter
+E=-(ka/a1^6)+(kr/a1^12)
+mprintf("\nE = %e J",E)
+a=-1.66*10^-21;//J/bond
+b=(0.602*10^24);// bonds/mole
+Eb=a*b
+mprintf("\nEb = %e J/mol  = 0.999 kJ/mol (As 10^3gram = 1Kilogram)",Eb)
diff --git a/3557/CH2/EX2.2/Ex2_2.sce b/3557/CH2/EX2.2/Ex2_2.sce
new file mode 100644
index 000000000..4e76dc358
--- /dev/null
+++ b/3557/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,9 @@
+//Example 2.2//
+a=24.31;//g //atomic mass of Mg (in gram)
+a1=16.00;//g //atomic mass of O (in gram)
+m=a+a1;// mass of 1 mol of MgO
+mprintf("m = %f g ",m)
+v=22.37;//mm //Volume
+b=10^-3;//cm^3/mm^3
+d=m/(v^3*b)
+mprintf("\nd = %f g/cm^3",d)
diff --git a/3557/CH2/EX2.3/Ex2_3.sce b/3557/CH2/EX2.3/Ex2_3.sce
new file mode 100644
index 000000000..acbd5bb4e
--- /dev/null
+++ b/3557/CH2/EX2.3/Ex2_3.sce
@@ -0,0 +1,10 @@
+//Example 2.3//
+d= 1.74;// g/cm^3 //density of Mg
+a= 24.31;//amu //atomic mass of Mg
+v=a/d;// volume of 1 mol
+mprintf("v = %f cm^3/mol",v)
+c=10;//mm/cm
+e= (v)^(1/3);//cm //edge of cube
+//mprintf("\ne = %f cm",e)
+e1=e*c
+mprintf("\ne1 = %f mm",e1)
diff --git a/3557/CH2/EX2.5/Ex2_5.sce b/3557/CH2/EX2.5/Ex2_5.sce
new file mode 100644
index 000000000..5f28436a0
--- /dev/null
+++ b/3557/CH2/EX2.5/Ex2_5.sce
@@ -0,0 +1,19 @@
+// Example 2.5//
+
+rna=0.098;//nm // Ionic radius of Sodium (From appendix 2)
+rcl=0.181;//nm // Ionic radius of Cholrine (From Appendix 2)
+a0=rna+rcl
+mprintf("a0 = %f nm",a0)
+k0=9*10^9;//V m/C //Proportionality constant
+z1=0.16*10^-18;//C //coloumb //valence of charged ion
+z2=0.16*10^-18;//C //coloumb //valence of charged ion
+q=1;// charge of single electron
+q1=-1;//charge of single electron
+a1=0.278*10^-9;//nm// separation distance between the centers of th ions
+FC=-(k0*q*z1*q1*z2)/(a1^2)
+mprintf("\nFC = %e N",FC)
+// Nothing that 1V C=1J, we obtain
+
+//(b) Because FC+FR =0
+FR=-FC
+mprintf("\nFR = %e N",FR)
diff --git a/3557/CH2/EX2.6/Ex2_6.sce b/3557/CH2/EX2.6/Ex2_6.sce
new file mode 100644
index 000000000..9a1327761
--- /dev/null
+++ b/3557/CH2/EX2.6/Ex2_6.sce
@@ -0,0 +1,15 @@
+//Example 2.6//
+rNa=0.098//nm // Ionic radius of Sodium (From appendix 2)
+rO=0.132//nm // // Ionic radius of Oxygen (From appendix 2)
+a0=rNa+rO//nm
+mprintf("a0 = %f nm",a0)
+k0=9*10^9;//m/C // proportionality constant
+q=1;//charge of single electron
+z1=0.16*10^-18;//C //valence of the charged ions
+z2=0.16*10^-18;//C //valence of the charged ions
+q1=-2;//charge of single electron
+a1=0.231*10^-9;//nm //separation distance between the centers of th ions
+Fc=-(k0*q*z1*q1*z2)/(a1)^2
+mprintf("\nFc = %e N",Fc)
+Fr=-Fc
+mprintf("\n Fr = %e N",Fr)
diff --git a/3557/CH2/EX2.7/Ex2_7.sce b/3557/CH2/EX2.7/Ex2_7.sce
new file mode 100644
index 000000000..517b72418
--- /dev/null
+++ b/3557/CH2/EX2.7/Ex2_7.sce
@@ -0,0 +1,6 @@
+//Example 2.7//
+
+a=sqrt(3);// Given //By formula
+b=1;//Given
+r=a-b
+disp(r)
diff --git a/3557/CH2/EX2.8/Ex2_8.sce b/3557/CH2/EX2.8/Ex2_8.sce
new file mode 100644
index 000000000..aa1b72592
--- /dev/null
+++ b/3557/CH2/EX2.8/Ex2_8.sce
@@ -0,0 +1,27 @@
+//Example2.8//
+//From Appendix 2
+rAl=0.057;//nm //Ionic radius of Aluminium
+rB=0.02;//nm //Ionic radius of Boron
+rCa=0.106;//nm //Ionic radius of Calcium
+rMg=0.078;//nm// Ionic radius of Magnesium
+rSi=0.039;//nm //Ionic radius of Silicon
+rTi=0.064;//nm //Ionic radius of Titanium
+rO=0.132//nm //Ionic radius of Oxygen
+r=rAl/rO
+mprintf("r = %f ",r)
+//For B2O3
+r1=rB/rO
+mprintf("\nr1 = %f ,giving CN=2",r1)
+//For CaO
+r2=rCa/rO
+mprintf("\nr2 = %f ,giving CN=8",r2)
+//For MgO
+r3=rMg/rO
+mprintf("\nr3 = %f ,giving CN=6",r3)
+//For SiO2
+r4=rSi/rO
+mprintf("\nr4 = %f ,giving CN=4",r4)
+//For TiO2
+r5=rTi/rO
+mprintf("\nr5 = %f ,giving CN=6",r5)
+mprintf("\nThe coordination number for the cation is obtain from Table 2.1")