summaryrefslogtreecommitdiff
path: root/2183/CH6/EX6.14/Ex_6_14.sce
blob: 51cd9d3d48c13ec49acec76129b6615f39d797b4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
// Example 6.14 //coupling efficiency
clc;
clear;
close;
t=1;//
no=1;//
na=0.3;//
x=1;//assume
y=3/4;//
alpha=2;//
nc1=((t*(na/no)^2)*(alpha+(1-(y/x)^2)))/(alpha+2)*100;//
disp(nc1,"coupling efficiency for graded index fiber in (%)")