summaryrefslogtreecommitdiff
path: root/1949/CH1/EX1.19/1_19.sce
blob: afa7e527d9352b8290d9eb579331407da0a8374a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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)