summaryrefslogtreecommitdiff
path: root/1026/CH12/EX12.3/Example12_3.sce
blob: a42c3e83cc9f1446fff60ed685d0dc618d8ac547 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//chapter12,Example12_3,pg 357

NA=0.5

n1=1.54

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

printf("refractive index of cladding\n")

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

n=(n1-n2)/n1//relative change in refractive index of core

printf("\nrelative change refractive index of core\n")

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