5 files changed, 105 insertions, 0 deletions
diff --git a/2216/CH6/EX6.1/ex_6_1.sce b/2216/CH6/EX6.1/ex_6_1.sce
new file mode 100755
index 000000000..aab9f619b
--- /dev/null
+++ b/2216/CH6/EX6.1/ex_6_1.sce
@@ -0,0 +1,11 @@
+// Example 6.1:refractive index
+clc;
+clear;
+close;
+format('v',5)
+l=0.47;//in db
+nf=10^((l/-10));//
+x=poly(0,"x");
+p=1+-2.22*x+x^2;//
+y=roots(p);//
+disp(y(1,1),"refractive index is")
diff --git a/2216/CH6/EX6.2/ex_6_2.sce b/2216/CH6/EX6.2/ex_6_2.sce
new file mode 100755
index 000000000..5bde9cc0c
--- /dev/null
+++ b/2216/CH6/EX6.2/ex_6_2.sce
@@ -0,0 +1,29 @@
+// Example 6.2:loss
+clc;
+clear;
+close;
+disp("part (a)")
+format('v',5)
+dya=0.1;//
+n1=1.50;//refrative index
+na=1;//
+k1=n1/n1;//
+k2=1;//
+nf=((16*(n1)^2)/((n1+1)^4));//
+nlat=(2/(3.14))*(acos(dya/2)-(dya/2)*(1-(dya/2)^2)^(1/2));//
+nt=nf*nlat;//
+lt=(-10*log10(nt));//in dB
+disp(lt,"insertion loss at the joint in dB is")
+disp("part (b)")
+format('v',6)
+dya=0.1;//
+n1=1.50;//refrative index
+na=1;//
+k1=n1/n1;//
+k2=1;//
+nf=((16*(n1)^2)/((n1+1)^4));//
+nlat=(2/(%pi))*(acos(dya/2)-(dya/2)*(1-(dya/2)^2)^(1/2));//
+nt=k2*nlat;//
+lt=(-10*log10(nt));//in dB
+disp(lt,"insertion loss at the joint in dB is")
+
diff --git a/2216/CH6/EX6.3/ex_6_3.sce b/2216/CH6/EX6.3/ex_6_3.sce
new file mode 100755
index 000000000..85aa9ebe3
--- /dev/null
+++ b/2216/CH6/EX6.3/ex_6_3.sce
@@ -0,0 +1,23 @@
+// Example 6.3:loss
+clc;
+clear;
+close;
+format('v',5)
+d=100;//micro meter
+dx=0;//
+dy=3;//in micro mete
+dth=3;//in degree
+dthr=dth*(%pi/180);//
+dya=0.02;//
+n1=1.48;//refrative index
+na=1;//
+k1=n1/n1;//
+k2=1;//
+nf=((16*(n1)^2)/((n1+1)^4));//
+nlat=(2/(%pi))*(acos(dy/100)-(dy/100)*(1-(dy/100)^2)^(1/2));//
+NA=n1*(sqrt(2*dya));//
+nang=((1-(na*dthr)/(%pi*NA)));//
+nt=nf*nlat*nang;//
+lt=(-10*log10(nt));//in dB
+disp(lt,"total loss in dB is")
+
diff --git a/2216/CH6/EX6.4/ex_6_4.sce b/2216/CH6/EX6.4/ex_6_4.sce
new file mode 100755
index 000000000..bb894d831
--- /dev/null
+++ b/2216/CH6/EX6.4/ex_6_4.sce
@@ -0,0 +1,18 @@
+// Example 6.4:loss
+clc;
+clear;
+close;
+format('v',8)
+d1=80;//micro meter
+na1=0.25;//
+alpha1=2;//
+d2=60;//in micro meter
+na2=0.21;//
+alpha2=1.9;//
+ncd=(d2/d1)^2;//
+nna=(na2/na1)^2;//
+nalpha=((1+(2/alpha1))/(1+((2/alpha2))));//
+nt=ncd*nna*nalpha;//
+lt=(-10*log10(nt));//in dB
+disp(lt,"total loss in dB is")
+
diff --git a/2216/CH6/EX6.5/ex_6_5.sce b/2216/CH6/EX6.5/ex_6_5.sce
new file mode 100755
index 000000000..a688f1cc0
--- /dev/null
+++ b/2216/CH6/EX6.5/ex_6_5.sce
@@ -0,0 +1,24 @@
+// Example 6.5:loss
+clc;
+clear;
+close;
+format('v',5)
+d1=60;//micro meter
+na1=0.25;//
+alpha1=2.1;//
+d2=50;//in micro meter
+na2=0.20;//
+alpha2=1.9;//
+ncd=(d2/d1)^2;//
+nna=(na2/na1)^2;//
+nalpha1=1;//
+nalpha=((1+(2/alpha1))/(1+((2/alpha2))));//
+ncd1=1;//
+nna1=1;//
+nt=ncd*nna*nalpha1;//
+ltf=(-10*log10(nt));//in dB
+nt1=ncd1*nna1*nalpha;//
+ltb=(-10*log10(nt1));//in dB
+disp(ltf,"total loss forward direction in dB is")
+format('v',6)
+disp(ltb,"total loss backward direction in dB is")