1 files changed, 23 insertions, 0 deletions
diff --git a/1026/CH12/EX12.1/Example12_1.sce b/1026/CH12/EX12.1/Example12_1.sce
new file mode 100755
index 000000000..08cbacac9
--- /dev/null
+++ b/1026/CH12/EX12.1/Example12_1.sce
@@ -0,0 +1,23 @@
+//chapter12,Example12_1,pg 357
+
+n1=1.53//refractive index
+
+n2=1.5
+
+lam=1*10^-6//wavelength
+
+a=50*10^-6
+
+NA=sqrt((n1^2)-(n2^2))
+
+V=((2*%pi*a)*NA)/lam
+
+printf("normalised frequency\n")
+
+printf("V=%.2f ",V)
+
+M=(V^2)/2
+
+printf("\ntotal no. of guided mode\n")
+
+printf("M=%.2f",M)
+\ No newline at end of file