6 files changed, 77 insertions, 0 deletions
diff --git a/3363/CH2/EX2.1/Ex2_1.sce b/3363/CH2/EX2.1/Ex2_1.sce
new file mode 100755
index 000000000..873b93004
--- /dev/null
+++ b/3363/CH2/EX2.1/Ex2_1.sce
@@ -0,0 +1,8 @@
+//Example 2.1, page 47
+clc
+P=1//power in j/s
+r=10^-10//Radius in m^2
+R=(P*%pi*r^2)/(4*%pi)//Rate at which energy falls in J/sec
+R_e=3.4*10^-19//in Joule, rate at energy removed
+t=R_e/R
+printf("\n Time required for energy to clear is %e sec",t)
+\ No newline at end of file
diff --git a/3363/CH2/EX2.2/Ex2_2.sce b/3363/CH2/EX2.2/Ex2_2.sce
new file mode 100755
index 000000000..a8d0fcdda
--- /dev/null
+++ b/3363/CH2/EX2.2/Ex2_2.sce
@@ -0,0 +1,9 @@
+//Example 2.2, page 49
+clc
+h=6.63*10^-34//Joule-sec
+vo=5.6*10^14
+w=h*vo
+printf("\npower is %e per sec",w)
+ev=(1/(1.6*10^-19))
+wo=w*ev
+printf("\nEnergy is %f ev",wo)
diff --git a/3363/CH2/EX2.3/EX2_3.sce b/3363/CH2/EX2.3/EX2_3.sce
new file mode 100755
index 000000000..eb84e93e8
--- /dev/null
+++ b/3363/CH2/EX2.3/EX2_3.sce
@@ -0,0 +1,10 @@
+//Example 2.3, Page no 50
+p=1//j/s
+r=1//radius in m
+h=6.63*10^-34//Joule-sec
+c=3*10^8//m/sec
+lambda=5.89*10^-7//m
+R=p/(4*%pi*r^2)
+E=(h*c)/lambda
+Rate_R=R*(1/E)
+printf("\nRate at which photons strike unit area of place %e photons/m^2-sec",Rate_R)
+\ No newline at end of file
diff --git a/3363/CH2/EX2.4/EX2_4.sce b/3363/CH2/EX2.4/EX2_4.sce
new file mode 100755
index 000000000..682bc7ebc
--- /dev/null
+++ b/3363/CH2/EX2.4/EX2_4.sce
@@ -0,0 +1,27 @@
+//Example 2.4, page 57
+clc
+disp('Part a')
+h=6.63*10^-34//Joule-sec
+c=3*10^8//m/sec
+m_o=9.11*10^-31//in kg
+
+delta_h=(h*(1-cosd(90)))/(m_o*c)
+printf("\n Compton shift is %e m",delta_h)
+disp('Part b')
+delta1=1*10^-10
+K=(h*c*delta_h)/(delta1*(delta1+delta_h))
+printf("\n X-ray beam is  %e Joule",K)
+delta2=1.88*10^-12
+K=(h*c*delta_h)/(delta2*(delta2+delta_h))
+printf("\n X-ray beam is  %e Joule",K)
+disp('Part c')
+E1=(h*c)/delta1
+E1_ev=(6.241509*10^18)*E1
+printf("\n X-ray energy is  %f ev",E1_ev)
+E2=(h*c)/delta2
+E2_ev=(6.241509*10^18)*E2
+printf("\n X-ray energy is  %f ev",E2_ev)
+Per1=(100*.295*10^3)/E1_ev
+Per2=(100*378*10^3)/E2_ev
+printf("\n Energy lost in percentage  %f ",Per1)
+printf("\n Energy lost in percentage  %f ",Per2)
diff --git a/3363/CH2/EX2.5/EX2_5.sce b/3363/CH2/EX2.5/EX2_5.sce
new file mode 100755
index 000000000..83502ec10
--- /dev/null
+++ b/3363/CH2/EX2.5/EX2_5.sce
@@ -0,0 +1,8 @@
+//Example2.5, page 61
+clc
+e=1.6*10^-19//in coul
+v=4*10^4//in V
+lambda=3*10^-11//in m
+c=3*10^8//m/sec
+h=(e*v*lambda)/c
+printf("\n Plancks constant is %e Joule-sec",h)
+\ No newline at end of file
diff --git a/3363/CH2/EX2.6/EX2_6.sce b/3363/CH2/EX2.6/EX2_6.sce
new file mode 100755
index 000000000..66ce9d8ac
--- /dev/null
+++ b/3363/CH2/EX2.6/EX2_6.sce
@@ -0,0 +1,15 @@
+//example 2.6, page 62
+clc
+e=1.6*10^-19//in coul
+B=2*10^-1//weber/m2
+r=2.5*10^-2//in m
+p=e*B*r
+printf("\n Momentum of electron %e Kg-m/sec",p)
+x=1.5//in Mev, ie c^2*p^2
+y=.51//in Mev
+E_minus=sqrt(x^2+y^2)
+E=2*E_minus//h*v
+h=6.63*10^-34//Joule-sec
+c=3*10^8//m/sec
+lambda=(h*c)/(10^6*E*1.6*10^-19)
+printf("\n Photons wavelength is %e m",lambda)
+\ No newline at end of file