3537/CH7/EX7.9/Ex7_9.sce


1
2
3
4
5
6
7
8

//Example 7_9
clc();
clear;
//To calculate the angle of acceptance of a optical fiber
n1=1.563
n2=1.498
theta=asin(sqrt(n1^2-n2^2))*180/%pi
printf("The angle of acceptance is %.2f degrees",theta)