summaryrefslogtreecommitdiff
path: root/1946/CH2/EX2.26/Ex_2_26.sce
blob: a6597e43f8f480d3e9a629db4915d800fcd7d9fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Example 2.26:Number of guided modes
clc;
clear;
close;
n1=1.5;//Core Refractive Index
d= 0.013;// Cange in core-cladding refractive index
alpha=1.90;//  index profile
a=20;//Core radius in micro meters
h=1.55;//wavelngth in micro meters
Mg= round((alpha/(alpha+2))*((n1*2*%pi*a)/h)^2 *d);
Vc=2.405*sqrt(1+2/alpha);
disp(Mg,"Number of guided modes are")
disp(Vc," normalised frequency")