summaryrefslogtreecommitdiff
path: root/3753/CH5/EX5.11
diff options
context:
space:
mode:
Diffstat (limited to '3753/CH5/EX5.11')
-rw-r--r--3753/CH5/EX5.11/Ex5_11.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/3753/CH5/EX5.11/Ex5_11.sce b/3753/CH5/EX5.11/Ex5_11.sce
new file mode 100644
index 000000000..59409b312
--- /dev/null
+++ b/3753/CH5/EX5.11/Ex5_11.sce
@@ -0,0 +1,17 @@
+//Example 5.11, Page number 5.30
+
+clc;clear;close
+
+// variable declaration
+n1=1.480 //unitless
+n2=1.465 //unitless
+V=2.405 //unitless
+lamda=850*10**-9 // in m
+
+// Calculations
+delta=(n1**2-n2**2)/(2*n1**2) //unitless
+a=(V*lamda*10**-9)/(2*%pi*n1*sqrt(2*delta)) // in m
+
+// Results
+printf("delta = %.2f",(delta))
+printf("\nCore radius,a = %.2f micro-m",(a*10**15))