1 files changed, 14 insertions, 0 deletions
diff --git a/3014/CH3/EX3.13/Ex3_13.sce b/3014/CH3/EX3.13/Ex3_13.sce
new file mode 100755
index 000000000..62561d2d8
--- /dev/null
+++ b/3014/CH3/EX3.13/Ex3_13.sce
@@ -0,0 +1,14 @@
+ clc
+//given that
+lambda = 1 //wavelength in angstrom
+h = 6.63e-34 // Planks constant
+m_e = 9.1e-31 // mass of electron in kg
+c = 3e8 // speed of light in m/sec
+theta = 90 // angle for longest passing wavelength
+printf("Example 3.13")
+d_lambda= h*(1-cos(theta*%pi/180))*1e10/(m_e*c) // calculation of wavelength shift in angstrom
+lambda_n = lambda+d_lambda // Calculation of recoiled electron wavelength
+d_E = h*c*(lambda_n-lambda)*1e10/(1.6e-19*lambda_n*lambda)// Calculation of recoiled electron energy in eV
+printf("\nWavelength shift is %f angstrom.",lambda_n)
+printf("\nEnergy of recoiled electron is %deV. \n\n\n",ceil (d_E))
+