blob: c2638745ea69fc97a2437514c2b6d6e45354f727 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
//Chapter 1 : Wave Optics
clear;
//Variable declaration
Dm=0.590 //diameter of ring 15
Dn=0.336 //diameter of ring 5
lamda=5890*10**-8
m=15
n=5
//Calculation
R=(Dm**2-Dn**2)/(4*lamda*(m-n))
//Result
mprintf("Radius of curvature= %0.1f cm",R)
|
