5 files changed, 65 insertions, 0 deletions
diff --git a/2780/CH6/EX6.1/Ex6_1.sce b/2780/CH6/EX6.1/Ex6_1.sce
new file mode 100755
index 000000000..ca1de6c58
--- /dev/null
+++ b/2780/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,18 @@
+clc
+//to calculate critical angle for core-cladding interface
+n1=1.5
+n2=1.45
+thetac=asind(n2/n1)
+theta1=90-thetac
+disp("critical angle for core-cladding interface is theta1="+string(theta1)+"degree")
+//to calculate acceptance angle in air for fibre and corresponding angle of obliquences
+na=1
+thetaa=asind(n1*0.26/na)
+disp("acceptance angle thetaa="+string(thetaa)+"degree")
+//to calculate numerical aperture
+NA=((n1+n2)*(n1-n2))^(1/2)
+disp("numerical aperture of fibre is NA="+string(NA)+"unitless")
+//to calculate % of light
+per=(NA)^2*100
+disp("% of light collected is per="+string(per)+"%")
+
diff --git a/2780/CH6/EX6.2/Ex6_2.sce b/2780/CH6/EX6.2/Ex6_2.sce
new file mode 100755
index 000000000..c6d57b588
--- /dev/null
+++ b/2780/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,10 @@
+clc
+//to calculate numerical aperture
+del=0.02 //relative refractive index difference between the core and the cladding of the fibre i.e. del=(n1-n2)/n1
+n1=1.46      //refractive index of core of W-step index fibre 
+n2=n1-del*n1
+NA=((n1+n2)*(n1-n2))^(1/2)
+disp("numerical aperture is NA="+string(NA)+"unitless")
+//to calculate critical angle at the core cladding interface within the fibre
+thetac=asind(n2/n1)
+disp("thetac="+string(thetac)+"degree")
diff --git a/2780/CH6/EX6.3/Ex6_3.sce b/2780/CH6/EX6.3/Ex6_3.sce
new file mode 100755
index 000000000..730ccb6e0
--- /dev/null
+++ b/2780/CH6/EX6.3/Ex6_3.sce
@@ -0,0 +1,18 @@
+clc
+//to calculate refractive index of the cladding
+a=35*10^-6 //core diameter in micrometre
+//formula is del=(n1-n2)/n1
+//we get
+del=1.5/100 
+n1=1.46 //refractive index of the fibre 
+lambda=0.85*10^-6 //wavelength in micrometer
+n2=n1-del*n1
+disp("refractive index is n2="+string(n2)+"unitless")
+//to calculate normalised frequency V number of the fibre
+V=(2*%pi*a*n1*0.173)/lambda
+disp("normalised frequency V number of the fibre is V="+string(V)+"unitless")
+//to calculate total number of guided modes in the fibre
+M=(V^2)/2
+disp("total number of guided modes in the fibre is M="+string(M)+"modes")
+
+
diff --git a/2780/CH6/EX6.4/Ex6_4.sce b/2780/CH6/EX6.4/Ex6_4.sce
new file mode 100755
index 000000000..90b091c79
--- /dev/null
+++ b/2780/CH6/EX6.4/Ex6_4.sce
@@ -0,0 +1,9 @@
+clc
+//to calculate cut-off wavelength of the fibre
+//(2*del)^(1/2)=(2*(n1-n2)/n1)^(1/2)=(0.005)^(1/2)=0.071
+a=5*10^-6 //radius in micrometre
+n1=1.46 //core refractive index in micrometre
+Vc=2.405 //cut-off value of V parametre for single mode operation
+//formula is LAMBDAc=(2*%pi*a*n1*(2*del)^(1/2))/Vc 
+lambdac=(2*%pi*a*n1*0.071)/Vc
+disp("cut-off wavelength is LAMBDAc="+string(lambdac)+"metre")
diff --git a/2780/CH6/EX6.5/Ex6_5.sce b/2780/CH6/EX6.5/Ex6_5.sce
new file mode 100755
index 000000000..abad1528f
--- /dev/null
+++ b/2780/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,10 @@
+clc
+//to calculate maximum and minimum value of phase constant
+lambda=0.8*10^-6 //wavelength in micrometre
+n1=1.6*10^-6 
+                   //refractive indices in micrometre
+n2=1.44*10^-6
+maximum=(2*%pi*n1)/lambda
+minimum=(2*%pi*n2)/lambda
+disp("maximum value of phase constant is maximum="+string(maximum)+"radian/micrometre")
+disp("minimum value of phase constant is minimum="+string(minimum)+"radian/micrametre")