1 files changed, 13 insertions, 0 deletions
diff --git a/1949/CH1/EX1.19/1_19.sce b/1949/CH1/EX1.19/1_19.sce
new file mode 100755
index 000000000..afa7e527d
--- /dev/null
+++ b/1949/CH1/EX1.19/1_19.sce
@@ -0,0 +1,13 @@
+//Chapter-1,Example 1_19,Page 1-45
+clc()
+
+//Given Data:
+D5=0.336*10^-2       //Diameter of 5th ring
+D15=0.59*10^-2       //Diameter of 15th ring
+lam=5.89*10^-7       //wavelength of light
+p=10                 //n=5,n+p=15
+
+//Calculations:
+//(Dn+p)^2-Dn^2=4*p*lam*R/u
+R=((D15)^2-D5^2)/(4*p*lam)    //Radius of curvature of the lens
+printf('Radius of curvature of the lens is =%.3f m \n',R)