blob: 9ef0d025b2b726279eca6859917f52437923d1a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
// Example 5.2;//difference between propogation constant and modal birefringence
clc;
clear;
close;
format('v',6)
disp("part (a)")
bl=10;//beat length in cm
h=1;//in micro meter
db=((2*%pi)/(bl*10^-2));//in m^-1
disp(db,"difference between propogation constant in m^-1")
disp("part (b)")
format('v',8)
mb=db*((h*10^-6)/(2*%pi));//modal birefringence
disp(mb,"modal birefringence is")
//answer is approximately equal to the answer in the book
|
