// Example 7.6.a;//coupling efficiency
clc;
clear;
close;
NA=0.2;//numerical aperture
n=1.4;//refractive index
nc=(NA)^2;//coupling efficiency
disp(nc,"coupling efficiency is")