1 files changed, 11 insertions, 0 deletions
diff --git a/2780/CH2/EX2.25/Ex2_25.sce b/2780/CH2/EX2.25/Ex2_25.sce
new file mode 100755
index 000000000..657da51b2
--- /dev/null
+++ b/2780/CH2/EX2.25/Ex2_25.sce
@@ -0,0 +1,11 @@
+clc
+//to calculate radius of curvature
+lambda=5900*10^-10 //wavelength in m
+n=10
+Dn=5*10^-3 // diameter of 10th dark ring in m
+R=Dn^2/(4*n*lambda)
+disp("the radius of curvature of the lens is R="+string(R)+"m")
+//to calculate thichness
+t=n*lambda/2
+disp("the thickness of the air film is t="+string(t)+"m")
+