diff options
Diffstat (limited to '1958/CH7/EX7.4')
| -rwxr-xr-x | 1958/CH7/EX7.4/Chapter7_example4.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/1958/CH7/EX7.4/Chapter7_example4.sce b/1958/CH7/EX7.4/Chapter7_example4.sce new file mode 100755 index 000000000..83546b64d --- /dev/null +++ b/1958/CH7/EX7.4/Chapter7_example4.sce @@ -0,0 +1,13 @@ +clc
+clear
+//Input data
+r=1.5//Refractive index of the material of a thin lens
+f=-20//Focal length of the lens in cm
+rx=-6//Ratio of radii of curvature of lens
+
+//Calculations
+r1=1/((1/f)/((r-1)*(1-(1/rx))))//Radius of curvature of convergent lens in cm
+r2=(rx*r1)//Radius of curvature of divergent lens in cm
+
+//Output
+printf('Radii of curvature of lens are %3.2f cm and %i cm',r1,r2)
|