summaryrefslogtreecommitdiff
path: root/3651/CH8/EX8.11/11.sce
blob: 4e01908d3969ef12d69533c18a2c5853b9863320 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//variable declaration
n1=1.480
n2=1.465
V=2.405
lamda=850*10**-9

//Calculations
delta=(n1**2-n2**2)/(2*n1**2)
a=(V*lamda*10**-9)/(2*%pi*n1*sqrt(2*delta))

//Results
printf('delta =%0.3f \n',(delta))
printf('Core radius,a =%0.3f micro m\n',(a*10**15))