summaryrefslogtreecommitdiff
path: root/1949/CH1/EX1.20/1_20.sce
blob: 4e1ef55c11b3bfdfc35354c0c2b4dce71ea41809 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Chapter-1,Example 1_20,Page 1-45
clc()

//Given Data:
n=10             //10th dark ring
D10=0.6*10^-2    //Diameter of ring
lam=6*10^-7      //wavelength of light
u=4/3            //Refractive index of water


//Calculations:
//As Dn^2=4*n*R*lam/u
R=D10^2*u/(4*n*lam)    //Radius of curvature of the lens
printf('Radius of curvature of the lens is =%.1f m \n',R)