summaryrefslogtreecommitdiff
path: root/3669/CH14/EX14.5/5.sce
blob: d745a866c5c2fc2137c841469a1acb65544694da (plain)
1
2
3
4
5
6
7
8
9
10
11

//Variable declaration
D10=0.5*10**-2;     //diameter of 10th ring(m)
lamda=5900*10**-10;    //wavelength of light(m)
n=10;

//Calculation
R=D10**2/(4*n*lamda);     //radius of curvature(m)

//Result
printf('radius of curvature is %0.3f   m  \n',(R))