blob: 2fed9064e839b0c3e8a8978a140fcc0d6d524d5d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
//Example 3.13
//Program to determine fiber birefringence for given beat lengths
//(1)Lb = 0.7 mm
//(2)Lb = 80 m
clear;
clc ;
close ;
//Given data
lambda=1.3*10^(-6); //metre - OPERATING WAVELENGTH
//Part (1)
Lb1=0.7*10^(-3); //metre - BEAT LENGTH
Bf1=lambda/Lb1;
//Part (2)
Lb2=80; //metre - BEAT LENGTH
Bf2=lambda/Lb2;
//Displaying the Results in Command Window
printf("\n\n\t The fiber birefringence for Lb = 0.7 mm is %0.2f X 10^(-3) which is high.",Bf1/10^(-3));
printf("\n\n\t The fiber birefringence for Lb = 80 m is %0.2f X 10^(-8) which is low.",Bf2/10^(-8));
|
