14 files changed, 132 insertions, 0 deletions
diff --git a/3822/CH9/EX9.1/Ex9_1.jpg b/3822/CH9/EX9.1/Ex9_1.jpg
new file mode 100644
index 000000000..76bf3cb2f
--- /dev/null
+++ b/3822/CH9/EX9.1/Ex9_1.jpg
diff --git a/3822/CH9/EX9.1/Ex9_1.sce b/3822/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..ae12fa6a8
--- /dev/null
+++ b/3822/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,19 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 91
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+L1=2;//length of fiber in m
+L2=0.002;//length of fiber cutback in Km for testing
+VF=2.1;//output voltage of photodetector in volts at lambda = 0.85um
+lamda=0.85e-6//wavelength in m
+VN=10.5;//output voltage for 2m cutback fiber length at wavelength 0.85um in volts
+
+a=10/(L1-L2);
+b=log10(VN/VF);
+alphadB=a*b;//attenuation per Kilometer in dB/km at wavelength 0.85um
+mprintf("The attenuation per Kilometer at wavelength 0.85um is=%.2f dB/Km",alphadB);
diff --git a/3822/CH9/EX9.2/Ex9_2.jpg b/3822/CH9/EX9.2/Ex9_2.jpg
new file mode 100644
index 000000000..75d8d398f
--- /dev/null
+++ b/3822/CH9/EX9.2/Ex9_2.jpg
diff --git a/3822/CH9/EX9.2/Ex9_2.sce b/3822/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..8a0691b88
--- /dev/null
+++ b/3822/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,18 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.2
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+L1=1.5;//length of optical fiber in Km
+L2=0.002;//length of fiber cutback in Km
+Pn=50.1;//output power in microwatts for the full link length
+Pf=385.4;//output power in microwatts for fiber cutback
+
+a=10/(L1-L2);
+b=log10(Pf/Pn);
+alphadB=a*b;//attenuation per Kilometer in dB/km at wavelength 1.1um
+mprintf("The attenuation per Kilometer at wavelength 1.1um is=%.2f dB/Km",alphadB);
diff --git a/3822/CH9/EX9.3/Ex9_3.jpg b/3822/CH9/EX9.3/Ex9_3.jpg
new file mode 100644
index 000000000..59a80b0b0
--- /dev/null
+++ b/3822/CH9/EX9.3/Ex9_3.jpg
diff --git a/3822/CH9/EX9.3/Ex9_3.sce b/3822/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..1f1fd7521
--- /dev/null
+++ b/3822/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,23 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.3
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+L=1.2//link length in Km
+Gama_o=12.7;//optical output pulse of 3dB width in nanoseconds
+Gama_i=0.4;//optical input pulse of 3dB width in nanosseconds
+
+q=(Gama_o)^2;
+w=(Gama_i)^2;
+e=q-w;
+u=sqrt(e);
+v=1.2;
+Gama_3dB=u/v;//3dB pulse dispersion for the fibre in ns/Km
+mprintf("\n The 3dB pulse dispersion for the fibre is=%.2f ns/Km",Gama_3dB);
+Bopt=0.44/(Gama_3dB*1e-9);//fibre bandwidth length productmultiplication by 1e-9 as gama is in nsKm
+mprintf("\n The fibre bandwidth length product is=%.2f MHzKm",Bopt/1e6); //multiplication by 1e6 to convert unit from Hz to MHz
+//the answer vary due to rounding
diff --git a/3822/CH9/EX9.4/Ex9_4.jpg b/3822/CH9/EX9.4/Ex9_4.jpg
new file mode 100644
index 000000000..3a2ba90c9
--- /dev/null
+++ b/3822/CH9/EX9.4/Ex9_4.jpg
diff --git a/3822/CH9/EX9.4/Ex9_4.sce b/3822/CH9/EX9.4/Ex9_4.sce
new file mode 100644
index 000000000..b15f36903
--- /dev/null
+++ b/3822/CH9/EX9.4/Ex9_4.sce
@@ -0,0 +1,17 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.4
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+alpham=26.1;//angular limit of far field pattern in degrees
+NA=sind(alpham);//numerical aperture 
+L=16.7;//length of picture in cm
+
+AB=(L/2)/[tand(alpham)];//distance from the screen in cm
+mprintf("The numerical appertur is=%.2f ",NA);
+mprintf("\nThe distance from the screen is=%.2f cm",AB);
+//th answer vary due to rounding
diff --git a/3822/CH9/EX9.5/Ex9_5.jpg b/3822/CH9/EX9.5/Ex9_5.jpg
new file mode 100644
index 000000000..95a73ef83
--- /dev/null
+++ b/3822/CH9/EX9.5/Ex9_5.jpg
diff --git a/3822/CH9/EX9.5/Ex9_5.sce b/3822/CH9/EX9.5/Ex9_5.sce
new file mode 100644
index 000000000..44dca193c
--- /dev/null
+++ b/3822/CH9/EX9.5/Ex9_5.sce
@@ -0,0 +1,17 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.5
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+A=6.0;//measured output pattern size in cm
+D=10.0;//distance between the screen and fibre face in cm
+
+q=(A)^2;
+w=4*D^2;
+u=sqrt(q+w);
+NA=A/u;//numerical aperture
+mprintf("The numerical aperture is=%.2f",NA);
diff --git a/3822/CH9/EX9.6/Ex9_4_1.jpg b/3822/CH9/EX9.6/Ex9_4_1.jpg
new file mode 100644
index 000000000..626bb1336
--- /dev/null
+++ b/3822/CH9/EX9.6/Ex9_4_1.jpg
diff --git a/3822/CH9/EX9.6/Ex9_4_1.sce b/3822/CH9/EX9.6/Ex9_4_1.sce
new file mode 100644
index 000000000..acb6feacc
--- /dev/null
+++ b/3822/CH9/EX9.6/Ex9_4_1.sce
@@ -0,0 +1,16 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.6
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+dphibydt=4;//angula velocity of roatng mirror in rad/sec
+L=0.1;//distance between mirror and the detector in meter
+We=250;//shadow pulse width in micrometer;
+
+dsbydt=L*dphibydt;
+d0=We*[dsbydt];//outer diameter of the fiber in micrometer
+mprintf("The outer diameter of the fiber is=%.2f um",d0);
diff --git a/3822/CH9/EX9.7/Ex9_5_1.jpg b/3822/CH9/EX9.7/Ex9_5_1.jpg
new file mode 100644
index 000000000..eef31aaa8
--- /dev/null
+++ b/3822/CH9/EX9.7/Ex9_5_1.jpg
diff --git a/3822/CH9/EX9.7/Ex9_5_1.sce b/3822/CH9/EX9.7/Ex9_5_1.sce
new file mode 100644
index 000000000..4e6359ab8
--- /dev/null
+++ b/3822/CH9/EX9.7/Ex9_5_1.sce
@@ -0,0 +1,22 @@
+
+//OptoElectronics and Fibre Optics Communication, by C.K Sarkar and B.C Sarkar
+//Example 9.7
+//OS=Windows 10
+////Scilab version Scilab 6.0.0-beta-2(64 bit)
+clc;
+clear;
+
+//given
+P1=100;//power at the input in microwatts
+P2=83.2;//power at the output in microwatts
+P3=35.5;//power at the ouput after connector in microwatts
+L=1.8;//length of the added fibre in Km
+alpha=1.5;//fiber attenuation in dB/L;
+
+//case 1:
+Ls=-10*log10(P2/P1);//insertion loss of connector in dB
+mprintf("\n The insertion loss of connector is=%.2f dB",Ls);
+
+//case 2:
+deltaLs=-10*log10(P3/P1)-Ls-alpha*L;//excess loss of the connector
+mprintf("\n The excess loss of connector is=%.2f dB",deltaLs);