1026/CH12/EX12.4/Example12_4.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

//chapter12,Example12_4,pg 358

NA=0.5

n1=1.48

n2=sqrt((n1^2)-(NA^2))

printf("refractive index of cladding\n")

printf("n2=%.2f ",n2)

alpha=asin(NA)

alpha=alpha*(180/%pi)

printf("\nacceptance angle\n")

printf("alpha=%.2f deg",alpha)