initial commit / add all books

18 files changed, 198 insertions, 0 deletions

diff --git a/2183/CH6/EX6.1/Ex_6_1.sce b/2183/CH6/EX6.1/Ex_6_1.sce
new file mode 100755
index 000000000..0cb810bff
--- /dev/null
+++ b/2183/CH6/EX6.1/Ex_6_1.sce
@@ -0,0 +1,9 @@
+// Example 6.1 //inernal quantum efficiency

+clc;

+clear;

+close;

+tr=2.5;//radiative recombination time in milli second

+tnr=50;//non radiative recombination time in milli second

+t=(tr*tnr)/(tr+tnr);//Bulk recombination life time in millisecond

+nint= (t/tr)

+disp(nint*100,"inernal quantum efficiency is(%) ")

diff --git a/2183/CH6/EX6.10/Ex_6_10.sce b/2183/CH6/EX6.10/Ex_6_10.sce
new file mode 100755
index 000000000..bb3f412ad
--- /dev/null
+++ b/2183/CH6/EX6.10/Ex_6_10.sce
@@ -0,0 +1,9 @@
+// Example 6.10 //power coupled
+clc;
+clear;
+close;
+tha=15;//in degree
+po=1;//in micro watt
+nc=(sind(tha))^2;//
+pf=nc*po*10^-6;//in watts
+disp(pf*10^9,"power coupled in nW is")
diff --git a/2183/CH6/EX6.11/Ex_6_11.sce b/2183/CH6/EX6.11/Ex_6_11.sce
new file mode 100755
index 000000000..967e5c0db
--- /dev/null
+++ b/2183/CH6/EX6.11/Ex_6_11.sce
@@ -0,0 +1,13 @@
+// Example 6.11 //power coupled
+clc;
+clear;
+close;
+If=1.5;//in mA
+Vf=20;//in volts
+pin=If*Vf;//in Watts
+nint=2;//efficiency    
+tha=20;//in degree
+po=((nint/100)*pin);//in Watt
+nc=(sind(tha))^2;//
+pf=nc*po;//in Watts
+disp(pf*10^3,"power coupled in micro watts is")
diff --git a/2183/CH6/EX6.12/Ex_6_12.sce b/2183/CH6/EX6.12/Ex_6_12.sce
new file mode 100755
index 000000000..0d3879f58
--- /dev/null
+++ b/2183/CH6/EX6.12/Ex_6_12.sce
@@ -0,0 +1,7 @@
+// Example 6.12;//bandwidth
+clc;
+clear;
+close;
+tr=10;//in ns
+bw=(0.35/tr);//in MHz
+disp(bw*10^3,"bandwidth in MHz is")
diff --git a/2183/CH6/EX6.13/Ex_6_13.sce b/2183/CH6/EX6.13/Ex_6_13.sce
new file mode 100755
index 000000000..a22b9b043
--- /dev/null
+++ b/2183/CH6/EX6.13/Ex_6_13.sce
@@ -0,0 +1,14 @@
+// Example 6.13 //coupling efficiency
+clc;
+clear;
+close;
+t=1;//
+no=1;//
+na=0.3;//
+x=1;//assume
+y=1;//
+nc1=(t*(na/no)^2*(x/y)^2)*100;//
+alpha=2;//
+nc2=((t*(na/no)^2*(x/y)^2*(alpha/(alpha+2))))*100;//
+disp(nc1,"coupling efficiency for step index fiber in (%)")
+disp(nc2,"coupling efficiency for graded index fiber in (%)")
diff --git a/2183/CH6/EX6.14/Ex_6_14.sce b/2183/CH6/EX6.14/Ex_6_14.sce
new file mode 100755
index 000000000..51cd9d3d4
--- /dev/null
+++ b/2183/CH6/EX6.14/Ex_6_14.sce
@@ -0,0 +1,12 @@
+// Example 6.14 //coupling efficiency
+clc;
+clear;
+close;
+t=1;//
+no=1;//
+na=0.3;//
+x=1;//assume
+y=3/4;//
+alpha=2;//
+nc1=((t*(na/no)^2)*(alpha+(1-(y/x)^2)))/(alpha+2)*100;//
+disp(nc1,"coupling efficiency for graded index fiber in (%)")
diff --git a/2183/CH6/EX6.15/Ex_6_15.sce b/2183/CH6/EX6.15/Ex_6_15.sce
new file mode 100755
index 000000000..506c9a24d
--- /dev/null
+++ b/2183/CH6/EX6.15/Ex_6_15.sce
@@ -0,0 +1,9 @@
+// Example 6.15;//power coupled
+clc;
+clear;
+close;
+n1=1.48;//
+n2=1.46;//
+po=100;//in micro watts
+pin=((po*((n1^2-n2^2))));//in micro watts
+disp(pin,"power coupled in micro watts is")
diff --git a/2183/CH6/EX6.2/Ex_6_2.sce b/2183/CH6/EX6.2/Ex_6_2.sce
new file mode 100755
index 000000000..662d2f756
--- /dev/null
+++ b/2183/CH6/EX6.2/Ex_6_2.sce
@@ -0,0 +1,15 @@
+// Example 6.2//internal power level

+clc;

+clear;

+close;

+e=1.6*10^-19;//Electronic charge

+ht=6.62*10^-34;//Constt

+C=3*10^8;//speed light in m/s

+h=0.87*10^-6;//wavelength in meter

+tr=80;//radiative recombination time in nano second

+tnr=120;//non radiative recombination time in nano second

+t=(tr*tnr)/(tr+tnr);//Bulk recombination life time in nano second

+nint= (t/tr)

+i=40;//injected current in milli ampere

+Pint= (nint*((ht*C*i*10^-3)/(e*h)))*10^3;//internal power level in milli Watt

+disp(Pint,"internal power level in milli Watt")

diff --git a/2183/CH6/EX6.3.a/Ex_6_3_a.sce b/2183/CH6/EX6.3.a/Ex_6_3_a.sce
new file mode 100755
index 000000000..948a819b6
--- /dev/null
+++ b/2183/CH6/EX6.3.a/Ex_6_3_a.sce
@@ -0,0 +1,9 @@
+// Example 6.3.a//optical power emitted

+clc;

+clear;

+close;

+F=0.62;//transmission factore

+nx=3.6;//refractive index

+n=1;//refractive index of air

+Px=((F*n^2)/(4*nx^2));//optical power emitter

+disp("emiiter power in terms of power generated internally is "+string(Px)+" Pint")

diff --git a/2183/CH6/EX6.3.b/Ex_6_3_b.sce b/2183/CH6/EX6.3.b/Ex_6_3_b.sce
new file mode 100755
index 000000000..6b28a1e5b
--- /dev/null
+++ b/2183/CH6/EX6.3.b/Ex_6_3_b.sce
@@ -0,0 +1,11 @@
+// Example 6.3.b //external power efficiency
+clc;
+clear;
+close;
+F=0.62;//transmission factore
+nx=3.6;//refractive index
+n=1;//refractive index of air
+Px=((F*n^2)/(4*nx^2));//optical power emitter
+Pint=0.5;//
+NEP=(Px*Pint)*100;//
+disp(NEP,"external power efficiency in (%) is")
diff --git a/2183/CH6/EX6.4.a/Ex_6_4_a.sce b/2183/CH6/EX6.4.a/Ex_6_4_a.sce
new file mode 100755
index 000000000..685134a86
--- /dev/null
+++ b/2183/CH6/EX6.4.a/Ex_6_4_a.sce
@@ -0,0 +1,8 @@
+// Example 6.4.a //coupling efficiency

+clc;

+clear;

+close;

+NA=0.2;//numerical aperture

+n=1.4;//refractive index

+nc=(NA)^2;//coupling efficiency

+disp(nc,"coupling efficiency is")

diff --git a/2183/CH6/EX6.4.b/Ex_6_4_b.sce b/2183/CH6/EX6.4.b/Ex_6_4_b.sce
new file mode 100755
index 000000000..381865e9e
--- /dev/null
+++ b/2183/CH6/EX6.4.b/Ex_6_4_b.sce
@@ -0,0 +1,9 @@
+// Example 6.4.b //optical power loss

+clc;

+clear;

+close;

+NA=0.2;//numerical aperture

+n=1.4;//refractive index

+nc=(NA)^2;//coupling efficiency

+Loss=round(-(10*log10(nc)));//optical loss in dB

+disp(Loss,"optical loss in dB is")

diff --git a/2183/CH6/EX6.4.c/Ex_6_4_c.sce b/2183/CH6/EX6.4.c/Ex_6_4_c.sce
new file mode 100755
index 000000000..b8c774466
--- /dev/null
+++ b/2183/CH6/EX6.4.c/Ex_6_4_c.sce
@@ -0,0 +1,12 @@
+// Example 6.4.c //optical  loss
+clc;
+clear;
+close;
+NA=0.2;//numerical aperture
+n=1.4;//refractive index
+nc=(NA)^2;//coupling efficiency
+pe=0.012;//
+pc1=pe*nc;//
+Loss=round(-(10*log10(pc1)));//optical loss in dB
+disp(Loss,"optical loss in dB is")
+//answer is wrong in the text book
diff --git a/2183/CH6/EX6.5/Ex_6_5.sce b/2183/CH6/EX6.5/Ex_6_5.sce
new file mode 100755
index 000000000..b0c1149a2
--- /dev/null
+++ b/2183/CH6/EX6.5/Ex_6_5.sce
@@ -0,0 +1,12 @@
+// Example 6.5 //optical power 

+clc;

+clear;

+close;

+r=0.01;//fresenel reflection coefficient

+NA=0.15;//numeical apertrure

+Rd=30;//radiance in W sr-1 cm-2

+R=30*10^-4;//radis in centi meter

+A=(%pi*R^2);//area 

+Pc=(%pi*(1-r)*A*Rd*NA^2)*10^6;//optical power coupled in mincro watt

+disp(Pc,"optical power coupled in micro Watt is")

+// answer is wrong in the textbook

diff --git a/2183/CH6/EX6.6/Ex_6_6.sce b/2183/CH6/EX6.6/Ex_6_6.sce
new file mode 100755
index 000000000..8c8cb741a
--- /dev/null
+++ b/2183/CH6/EX6.6/Ex_6_6.sce
@@ -0,0 +1,12 @@
+

+// Example 6.6 //overall power conversion efficiency 

+clc;

+clear;

+close;

+Pc=200*10^-6;//Optical power in Watt

+If=25;//forward current in milli Ampere

+Vf=1.5;//forward voltage in Volts

+P=If*10^-3*Vf;//power in Watt

+npc=((Pc/P));//overall power conversion efficiency

+disp(npc*100,"overall power conversion efficiency in percentage")

+//answer is wrong in the textbook

diff --git a/2183/CH6/EX6.7/ex_6_7.sce b/2183/CH6/EX6.7/ex_6_7.sce
new file mode 100755
index 000000000..e78550724
--- /dev/null
+++ b/2183/CH6/EX6.7/ex_6_7.sce
@@ -0,0 +1,8 @@
+// Example 6.7:compare
+clc;
+clear;
+close;
+ioi=1/sqrt(2);//given
+ioi1=1/(2);//given/
+disp(ioi,"-3 dB electrical bandwidth point occur when Iout/Iin,=")
+disp(ioi1,"-3 dB optical bandwidth point occur when Iout/Iin,=")
diff --git a/2183/CH6/EX6.8/Ex_6_8.sce b/2183/CH6/EX6.8/Ex_6_8.sce
new file mode 100755
index 000000000..40a0fd0ec
--- /dev/null
+++ b/2183/CH6/EX6.8/Ex_6_8.sce
@@ -0,0 +1,16 @@
+// Example 6.8 //find output power and bandwidth

+clc;

+clear;

+close;

+Pdc=320*10^-6;//d.c. power in Watt

+f1=20*10^6;//frequency in hertz

+Ti=5*10^-9;//recombination life time in nano second

+Pe1=(Pdc/sqrt(1+(2*%pi*f1*Ti)^2))*10^6;

+f2=100*10^6;//frequency in hertz

+Pe2=(Pdc/sqrt(1+(2*%pi*f2*Ti)^2))*10^6;

+f=((sqrt(3))/(2*%pi*Ti));//in MHz

+fele=f*0.707;//

+disp(Pe1,"overall power in micro Watt when frequecy is 20 MHz")

+disp(Pe2,"overall power in micro Watt when frequecy is 80 MHz")

+disp(f*10^-6,"optical bandwidth in MHz is")

+disp(round(fele*10^-6),"electrical bandwidth in MHz is")

diff --git a/2183/CH6/EX6.9/Ex_6_9.sce b/2183/CH6/EX6.9/Ex_6_9.sce
new file mode 100755
index 000000000..ae1a2d5eb
--- /dev/null
+++ b/2183/CH6/EX6.9/Ex_6_9.sce
@@ -0,0 +1,13 @@
+// Example 6.9;//CW operating lifetime
+clc;
+clear;
+close;
+d=0.67;//
+bo=1.86*10^7;//in h^-1
+ea=1.67*10^-19;//
+k=1.38*10^-23;//
+t=290;//Kelvin
+x=((-ea)/(k*t));//
+be=((bo)*exp(-40));//in h^-1
+t=((-log(d))/be);//in hours
+disp(t,"CW operating lifetime in hours is")