3828/CH1/EX1.11/Ex1_11.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

//Chapter 1 : Wave Optics

clear;

//Variable declaration
lamda1=6000*10**-8           
lamda2=4500*10**-8
R=90                 //Radius of curvature
n=3

//Calculation
dn=sqrt(4*n*lamda1*R)

//Result
mprintf("Diameter of the nth ring= %0.4f cm" ,dn)