1 2 3 4 5 6 7 8
// Example 6.4.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")