diff options
Diffstat (limited to '3411/CH2/EX2.6/Ex2_6.sce')
| -rw-r--r-- | 3411/CH2/EX2.6/Ex2_6.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3411/CH2/EX2.6/Ex2_6.sce b/3411/CH2/EX2.6/Ex2_6.sce new file mode 100644 index 000000000..6efa919fd --- /dev/null +++ b/3411/CH2/EX2.6/Ex2_6.sce @@ -0,0 +1,13 @@ +//Example 2_6
+clc();
+clear;
+//To Calculate the dispersive power of the grating
+n=4000
+e=1/n //units in cm
+k=3
+lamda=5000 //units in armstrongs
+lamda=lamda*10^-8 //units in cm
+theta=asin((k*lamda)/e)*(180/%pi) //units in degrees
+costheta=cos(theta*%pi/180)
+disppower=(k*n)/costheta
+printf("The dispersive power of the grating is %.f",disppower)
|