From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3506/CH2/EX2.9/EX_2_9.JPG  | Bin 0 -> 144050 bytes
 3506/CH2/EX2.9/Exp_2_9.sce |  37 +++++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+)
 create mode 100644 3506/CH2/EX2.9/EX_2_9.JPG
 create mode 100644 3506/CH2/EX2.9/Exp_2_9.sce

(limited to '3506/CH2/EX2.9')

diff --git a/3506/CH2/EX2.9/EX_2_9.JPG b/3506/CH2/EX2.9/EX_2_9.JPG
new file mode 100644
index 000000000..32b9b5961
Binary files /dev/null and b/3506/CH2/EX2.9/EX_2_9.JPG differ
diff --git a/3506/CH2/EX2.9/Exp_2_9.sce b/3506/CH2/EX2.9/Exp_2_9.sce
new file mode 100644
index 000000000..c47664c6d
--- /dev/null
+++ b/3506/CH2/EX2.9/Exp_2_9.sce
@@ -0,0 +1,37 @@
+//Optical Fiber communication by A selvarajan
+//example 2.9
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+//given 
+lambda=1.3;//wavelength of operation in um
+n1=1.5;// refractive index of core
+n2=1.48;// refractive index of cladding
+k0=2*%pi/lambda;//constant in /m
+//case-1
+b=0.5//normalized propagation constant
+k0=2*%pi/lambda//constant
+beta=k0*sqrt(n2^2+b*(n1^2-n2^2))//propagation constant
+mprintf("Propagation constant=%frad/um",beta)//The answers vary due to round off error
+//case-2
+//given 
+lambda=1.3;//wavelength of operation in um
+n1=1.5;// refractive index of core
+n2=1.48;// refractive index of cladding
+k0=2*%pi/lambda;//constant in /m
+b=0.5//normalized propagation constant
+k0=2*%pi/lambda//constant
+b=(((n1+n2)/2)^2-n2^2)/(n1^2-n2^2)//normalized propagation constant
+mprintf("\nPropagation constant=%f ",b)//The answers vary due to round off error
+
+//case-3
+//given 
+lambda=1.3;//wavelength of operation in um
+n1=1.5;// refractive index of core
+n2=1.0;// refractive index of cladding
+k0=2*%pi/lambda;//constant in /m
+b=0.5//normalized propagation constant
+k0=2*%pi/lambda//constant
+beta=k0*sqrt(n2^2+b*(n1^2-n2^2))//propagation constant
+mprintf("\nPropagation constant=%f rad/um",beta)//The answers vary due to round off error
-- 
cgit