blob: 4512a5b5a3c2cec717059226eb09a6d3609d604b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
clc;
clear all;
n1 = 1.50; // Refractive index of core
n2 = 1.45 ; // Refractive index of cladding
delta = (n1-n2)/n1; // Relative refractive index
NA = n1*sqrt(2*delta)
disp('',NA,'The numerical aperture is')
ia = asind(NA);// Acceptance angle
disp('Degrees',ia,'The acceptace angle is')
thetac = asind(n2/n1);// Critical Angle
disp('Degress',thetac,'The critical angle of fiber is')
// Slight variation in the answer of critical angle as compared to book... Checked in calculator... Book's mistake
|
