diff options
Diffstat (limited to '3537/CH1/EX1.50/Ex1_50.sce')
| -rw-r--r-- | 3537/CH1/EX1.50/Ex1_50.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3537/CH1/EX1.50/Ex1_50.sce b/3537/CH1/EX1.50/Ex1_50.sce new file mode 100644 index 000000000..219c81360 --- /dev/null +++ b/3537/CH1/EX1.50/Ex1_50.sce @@ -0,0 +1,12 @@ +//Example 1_50
+clc();
+clear;
+//To find the radius of curvature of the plano convex lens
+lamda=6000 //units in angstroam
+lamda=6000*10^-8 //units in cm
+m=18
+Dm=0.65 //units in cm
+n=8
+Dn=0.35 //units in cm
+R=(Dm^2-Dn^2)/(4*lamda*(m-n))
+printf("Radius of curvature of the plano convex lens is %.0f cm",R)
|