diff options
Diffstat (limited to '1985/CH6/EX6.3')
-rwxr-xr-x | 1985/CH6/EX6.3/Chapter6_Example3.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/1985/CH6/EX6.3/Chapter6_Example3.sce b/1985/CH6/EX6.3/Chapter6_Example3.sce new file mode 100755 index 000000000..a4ef72ac8 --- /dev/null +++ b/1985/CH6/EX6.3/Chapter6_Example3.sce @@ -0,0 +1,12 @@ +clc
+clear
+//Input data
+C=[1.5145,1.5170,1.5230]//Refractive index of the crown glass for C,D and F line respectively
+F=[1.6444,1.6520,1.6637]//Refractive index of the flint glass for C,D and F line respectively
+
+//Calculations
+w1=(C(3)-C(1))/(C(2)-1)//Dispersive power of the first lens
+w2=(F(3)-F(1))/(F(2)-1)//Dispersive power of the second lens
+
+//Output
+printf('The dispersive power for crown glass is %3.4f \n The dispersive power for the flint glass is %3.5f',w1,w2)
|