5 files changed, 56 insertions, 0 deletions
diff --git a/3363/CH4/EX4.1/Ex4_1.sce b/3363/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..3803a1d5f
--- /dev/null
+++ b/3363/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,12 @@
+//Example 4.1, Page 105
+clc
+disp('Part b')
+rho=9*10^9//in nt-m2/coul2
+e=1.6*10^-19//coul
+r=1*10^-10//in m
+k=(rho*e^2)/(r^3)//nt/m
+m=9.11*10^-31//in kg
+c=3*10^8//in m/s
+v=(1/(2*%pi))*sqrt(k/m)
+lambda=c/v
+printf("\n The wavelength is %e m ",lambda)
+\ No newline at end of file
diff --git a/3363/CH4/EX4.10/Ex4_10.sce b/3363/CH4/EX4.10/Ex4_10.sce
new file mode 100755
index 000000000..05b9a13d6
--- /dev/null
+++ b/3363/CH4/EX4.10/Ex4_10.sce
@@ -0,0 +1,14 @@
+//Example  4.10, Page 125
+clc
+//For Hydrogen atom
+R_o=109737//in cm
+m=1
+M=1836
+RH=(R_o)/(1+(m/M))
+printf("\n Spectrum line for Hydrogen occur at %f /cm ",RH)
+//For Deuterium atom
+R_o=109737//in cm
+m=1
+M=2*1836
+RD=(R_o)/(1+(m/M))
+printf("\n Spectrum line for Deuterium occur at %f /cm ",RD)
+\ No newline at end of file
diff --git a/3363/CH4/EX4.2/Ex4_2.sce b/3363/CH4/EX4.2/Ex4_2.sce
new file mode 100755
index 000000000..d36c68c63
--- /dev/null
+++ b/3363/CH4/EX4.2/Ex4_2.sce
@@ -0,0 +1,6 @@
+//Example 4.2, page 107
+clc
+disp('Part a')
+N=10^4//in rad, Number of atoms tarversed
+theta=(2*10^-2)/sqrt(N)
+printf("\n Average deflection %e rad ",theta)
+\ No newline at end of file
diff --git a/3363/CH4/EX4.6/Ex4_6.sce b/3363/CH4/EX4.6/Ex4_6.sce
new file mode 100755
index 000000000..67877d30a
--- /dev/null
+++ b/3363/CH4/EX4.6/Ex4_6.sce
@@ -0,0 +1,9 @@
+//Example 4.6, Page 120
+clc
+rho=9*10^9//in nt-m2/coul2 
+m=9.11*10^-31//in kg
+e=1.6*10^-19//coul
+h=1.05*10^-34//in j-sec
+E=-(rho*m*e^4)/(2*h^2)
+printf("\n Binding energy is %e Joule ",E)
+//Answer given in the book is wrong
+\ No newline at end of file
diff --git a/3363/CH4/EX4.9/Ex4_9.sce b/3363/CH4/EX4.9/Ex4_9.sce
new file mode 100755
index 000000000..41a147816
--- /dev/null
+++ b/3363/CH4/EX4.9/Ex4_9.sce
@@ -0,0 +1,15 @@
+//Example 4.9, page 124
+clc
+disp('Part a')
+mu=207//207*me
+M=1836//183*me
+u=(mu*M)/(mu+M)
+D=(1/u)*5.3*10^-11
+printf("\nMuon nucleus seperation is  %e m ",D)
+disp('Part b')
+E=-u*13.6
+printf("\n Binding energy is %f ev ",E)
+disp('Part c')
+R=109737//in cm
+lambda=(1/u)*(1/0.75)*(1/R)
+printf("\n Wavelength is %e cm ",lambda)