//Chapter-3,Example 3_1,Page 3-19
clc()

//Given Data:
n1=1.61                 //Core index
n2=1.55                 //Cladding index

//Calculations:
NA=sqrt(n1^2-n2^2)      //Formula

printf('Numerical Aperture of Fibre is = %.3f ',NA)