3 files changed, 75 insertions, 0 deletions
diff --git a/3710/CH9/EX9.1/Ex9_1.sce b/3710/CH9/EX9.1/Ex9_1.sce
new file mode 100644
index 000000000..c6ca9ffca
--- /dev/null
+++ b/3710/CH9/EX9.1/Ex9_1.sce
@@ -0,0 +1,38 @@
+//Example 9.1, Page Number 449
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+//Signal to Noise Ratio Calculation
+clc;
+//For Given P-I-N Diode
+q=0.6 //Quantam Efficiency
+l=1.3*(10**-6) //Wavelength in Meters
+i=3*(10**-9) //Reverse Bias Leakage Current in Ampere
+r=50 //Resistance in Ohm
+b=500*(10**6) //Bandwidth in Hertz
+P=10*(10**-6) //Optical Power in Watt
+e=1.6*(10**-19) //Charge of an Electron in Coulombs
+h=6.6*(10**-34) //Plancks Constant in meter square kilogram per second
+c=3*(10**8)  //Speed Of Light in meters per second
+k=1.38*(10**-23) //Boltzmann Constant in meter square kilogram per second square Kelvin
+c1=1*(10**-12) //Assumed Capacitance in Farad
+
+ip=(q*P*e*l)/(h*c)  //i is the Photogenerated current in Amperes
+disp(ip,"The Photogenereated Current in A is:");
+
+itotal=sqrt(2*(i+ip)*e*b) //itotal is the Total Shot Noise Current in Amperes
+disp(itotal," The Total shot noise Current in A is:");
+
+ij=sqrt(4*k*r*b*300)/r //ij is the Total Johnson Noise Current in Amperes
+disp(ij," The Total Johnson Noise Current in A is:");
+
+sn=(ip**2)/((itotal**2)+(ij**2)) //sn is the Signal to Noise Ratio in Decibel
+disp(sn," The Required Signal to Noise ratio in dB is:");
+
+rl=1/(2*%pi*c1*b) //rl is the optimum Load Resistance in ohms
+rl=fpround(rl,1)
+disp(rl," The Optimum Load Resistance in ohms:");
+
+ij2=sqrt(4*k*rl*b*300)/rl
+mprintf("\n  The Optimum Johnson Noise Current in A is reduced to:\n\n    %.2e\n",ij2)
+
+sn1=(ip**2)/((itotal**2)+(ij2**2))
+disp(sn1," The Signal to Noise Ratio increases to:");
diff --git a/3710/CH9/EX9.2/Ex9_2.sce b/3710/CH9/EX9.2/Ex9_2.sce
new file mode 100644
index 000000000..c8a3cbf80
--- /dev/null
+++ b/3710/CH9/EX9.2/Ex9_2.sce
@@ -0,0 +1,18 @@
+//Example 9.2, Page Number 462
+//Flux budget
+clc;
+
+to=0//The Transmitter Output in dBm
+rs=-50//The Receiver Sensitivity in dBm
+rm=50//The Required Margin in dBm
+
+//System Loss
+f=30//Fiber loss in db
+d=1//Detector Coupling Loss in db
+t=5//Total Splicing Loss (0.5 DB x 10) in db
+h=5//Headroom for Temperature range,ageing effects & Future Splices in db
+t=f+d+t+h  //The total power attenuation
+p=50-t
+
+mprintf("The total attenuation is:%d dB",t)
+mprintf("\nHence the excess power margin is 50 - %d =%d dB\n",t,p);
diff --git a/3710/CH9/EX9.3/Ex9_3.sce b/3710/CH9/EX9.3/Ex9_3.sce
new file mode 100644
index 000000000..17adf993d
--- /dev/null
+++ b/3710/CH9/EX9.3/Ex9_3.sce
@@ -0,0 +1,19 @@
+//Example 9.3, Page Number 474
+//The Function fpround(dependency) is used to round a floating point number x to n decimal places
+clc;
+n1=2.286 //The Ordinary Refractive Index 
+d=6*(10**-3) //Refractive Index Change
+n2=n1-d //Difference of the Two
+
+NA=sqrt((n1**2)-(n2**2))
+
+first=1/(4*NA)
+first=fpround(first,2)
+
+second=3/(4*NA)
+second=fpround(second,2)
+
+mprintf("The Requirement for Single Mode Behaviour becomes:\n");
+mprintf("\t%0.2f <= d/lambda <= %0.2f",first,second);//d=5*Lambda for suitable thickness design
+
+//The answer provided in the textbook for the higher region is wrong