4 files changed, 39 insertions, 0 deletions
diff --git a/377/CH3/EX3.1/3_1.sce b/377/CH3/EX3.1/3_1.sce
new file mode 100644
index 000000000..321c2a43a
--- /dev/null
+++ b/377/CH3/EX3.1/3_1.sce
@@ -0,0 +1,10 @@
+disp("E(r) = A*r^-6 + B*r^-12");
+disp("dE(r)/dr = 6*A*r^-7 - 12*B*r^-13");
+A=8*(10^-77);B=1.12*(10^133);
+r0=3.75;
+e=1.6*10^-19;
+Eb=((-A)*(r0^(-6)))+(B*(r0^(-12)));
+b=Eb*10^-126;
+printf('\n The value of binding energy is %f*10^-20J',b);
+c=b/e*10^-20;
+printf('\n The value of binding energy is %fJ',c);
diff --git a/377/CH3/EX3.2/3_2.sce b/377/CH3/EX3.2/3_2.sce
new file mode 100644
index 000000000..295d6e9f9
--- /dev/null
+++ b/377/CH3/EX3.2/3_2.sce
@@ -0,0 +1,11 @@
+a=0.095;b=0.181;
+c=a+b;  //say c=sum of radii of Na+ and Cl-
+d=c*10;
+Z1=1;
+Z2=-1;
+e=1.6;
+pi=3.14;
+f=8.85;  //say f=Є0
+Fa=-(Z1)*(Z2)*(e^2)/(4*pi*f*(d^2));
+printf('\n The force of attraction is %f*10^-6 N',Fa);
+printf('\n The force of repulsion is -%f*10^-6 N',Fa);
+\ No newline at end of file
diff --git a/377/CH3/EX3.3/3_3.sce b/377/CH3/EX3.3/3_3.sce
new file mode 100644
index 000000000..9cbb3c7b8
--- /dev/null
+++ b/377/CH3/EX3.3/3_3.sce
@@ -0,0 +1,12 @@
+disp("F*(a^(n+1))/n");
+F=3.02;
+n=9;
+a=2.76;
+b=F*(a^(n+1))/n;
+Z1=1;Z2=-1;e=1.6;f=8.85;pi=3.14;
+printf('\n The value of b is %f*(10^-109) (Nm)^10',b);
+E1=(Z1*Z2*(e^2)/(4*pi*f*a));
+e1=E1*10^3;
+E2=(b/(a^n));
+E=e1+E2;
+printf('\n The net potentila energy of NaCl is %f*(10^-19)',E);
+\ No newline at end of file
diff --git a/377/CH3/EX3.4/3_4.sce b/377/CH3/EX3.4/3_4.sce
new file mode 100644
index 000000000..726d85eb3
--- /dev/null
+++ b/377/CH3/EX3.4/3_4.sce
@@ -0,0 +1,6 @@
+disp(" % ionic character = (1-exp((-1/4)*(Xa-Xb)^2))*100");
+Xa1=1.8;Xb1=2.2;Xa2=1.7;Xb2=2.5;
+a = (1-exp((-1/4)*((Xa1-Xb1)^2)))*100;
+b = (1-exp((-1/4)*((Xa2-Xb2)^2)))*100;
+printf('\n For GaAs,percent ionic character=%f',a);
+printf('\n For ZnSe,percent ionic character=%f',b);
+\ No newline at end of file