3020/CH12/EX12.4/ex12_4.sce


1
2
3
4
5
6

clc;
clear all;
n1 = 1.60; // Refractive index of core
n2 = 1.50; // Refractice index of clad
NA = sqrt(n1^2-n2^2); // Numerical Aperture
disp('',NA,'The numerical aperture of fiber is')