diff options
Diffstat (limited to '2780/CH3/EX3.23/Ex3_23.sce')
| -rwxr-xr-x | 2780/CH3/EX3.23/Ex3_23.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/2780/CH3/EX3.23/Ex3_23.sce b/2780/CH3/EX3.23/Ex3_23.sce new file mode 100755 index 000000000..9100eabea --- /dev/null +++ b/2780/CH3/EX3.23/Ex3_23.sce @@ -0,0 +1,10 @@ +clc
+//to calculate dispersive power
+//differentiate grating equation ,we get dtheta/dlambda=n/((e+d)*costheta)
+n=2 //order
+eplusd=1/4000
+lambda=5000*10^-8 //wavelength in cm
+sintheta=n*lambda/(eplusd)
+costheta=sqrt(1-(sintheta)^2)
+dtheta=n/((eplusd)*costheta) //where dispersive power dtheta/dlambda=dtheta
+disp("dispersive power of he grating in the second order spectrum is dtheta="+string(dtheta)+"unitless")
|