1 files changed, 16 insertions, 0 deletions
diff --git a/3828/CH1/EX1.19/Ex1_19.sce b/3828/CH1/EX1.19/Ex1_19.sce
new file mode 100644
index 000000000..c5af9cc6f
--- /dev/null
+++ b/3828/CH1/EX1.19/Ex1_19.sce
@@ -0,0 +1,16 @@
+//Chapter 1 : Wave Optics
+
+clear;
+
+//Variable declaration
+lamda=5.9*10**-7
+r=5.2*10**-3           //radius of ring
+n=10
+
+//Calculation
+R=(r**2)/(n*lamda)
+t=(n*lamda)/2/10**-6
+
+//Result
+mprintf("(i)Radius of curvature R= %f m" ,R)
+mprintf("\n(ii)Thickness of air film t= %.2f*10**-6 m" ,t)