summaryrefslogtreecommitdiff
path: root/3710/CH9/EX9.3/Ex9_3.sce
blob: 17adf993df9b6455917d855f81fb25f22a033750 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Example 9.3, Page Number 474
//The Function fpround(dependency) is used to round a floating point number x to n decimal places
clc;
n1=2.286 //The Ordinary Refractive Index 
d=6*(10**-3) //Refractive Index Change
n2=n1-d //Difference of the Two

NA=sqrt((n1**2)-(n2**2))

first=1/(4*NA)
first=fpround(first,2)

second=3/(4*NA)
second=fpround(second,2)

mprintf("The Requirement for Single Mode Behaviour becomes:\n");
mprintf("\t%0.2f <= d/lambda <= %0.2f",first,second);//d=5*Lambda for suitable thickness design

//The answer provided in the textbook for the higher region is wrong