diff options
Diffstat (limited to '3014/CH3/EX3.12/Ex3_12.sce')
| -rwxr-xr-x | 3014/CH3/EX3.12/Ex3_12.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3014/CH3/EX3.12/Ex3_12.sce b/3014/CH3/EX3.12/Ex3_12.sce new file mode 100755 index 000000000..6aa91d8c9 --- /dev/null +++ b/3014/CH3/EX3.12/Ex3_12.sce @@ -0,0 +1,12 @@ + clc
+//given that
+lambda = 0.015 //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 = 60 // angle for longest passing wavelength
+printf("Example 3.12")
+d_lambda= h*(1-cos(theta*%pi/180))*1e10/(m_e*c) // calculation of wavelength shift in angstrom
+lambda_n = lambda+d_lambda
+
+printf("\n Wavelength shift is %f angstrom. \n\n\n",lambda_n)
|