diff options
Diffstat (limited to '3651/CH8/EX8.11/11.sce')
| -rw-r--r-- | 3651/CH8/EX8.11/11.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3651/CH8/EX8.11/11.sce b/3651/CH8/EX8.11/11.sce new file mode 100644 index 000000000..4e01908d3 --- /dev/null +++ b/3651/CH8/EX8.11/11.sce @@ -0,0 +1,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))
|