summaryrefslogtreecommitdiff
path: root/3506/CH9
diff options
context:
space:
mode:
Diffstat (limited to '3506/CH9')
-rw-r--r--3506/CH9/EX9.1/Ex_9_1.JPGbin0 -> 47045 bytes
-rw-r--r--3506/CH9/EX9.1/Ex_9_1.sce20
-rw-r--r--3506/CH9/EX9.1/exp_9_1.sce20
-rw-r--r--3506/CH9/EX9.2/Ex_9_2.JPGbin0 -> 43651 bytes
-rw-r--r--3506/CH9/EX9.2/Ex_9_2.sce14
-rw-r--r--3506/CH9/EX9.2/exp_9_2.sce14
-rw-r--r--3506/CH9/EX9.3/Ex_9_3.JPGbin0 -> 46536 bytes
-rw-r--r--3506/CH9/EX9.3/Ex_9_3.sce24
-rw-r--r--3506/CH9/EX9.3/exp_9_3.sce24
9 files changed, 116 insertions, 0 deletions
diff --git a/3506/CH9/EX9.1/Ex_9_1.JPG b/3506/CH9/EX9.1/Ex_9_1.JPG
new file mode 100644
index 000000000..c62af2968
--- /dev/null
+++ b/3506/CH9/EX9.1/Ex_9_1.JPG
Binary files differ
diff --git a/3506/CH9/EX9.1/Ex_9_1.sce b/3506/CH9/EX9.1/Ex_9_1.sce
new file mode 100644
index 000000000..2e377fad7
--- /dev/null
+++ b/3506/CH9/EX9.1/Ex_9_1.sce
@@ -0,0 +1,20 @@
+//Optical Fiber communication by A selvarajan
+//example 9.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=1.3*1e-6//wavelength in m
+c=3*1e8//velocity of light in m/s
+SNRoutdB=30//signal to noise ratio at outputin dB
+SNRout=10^(SNRoutdB/10);//signal to noise ratio at output normal scale
+new=c/lambda;//frequency in Hz
+h=6.6e-34;//plancks constant
+P=0.5e-3;//Input power in W
+NFdB=4//noise figure in dB
+NF=10^(NFdB/10);//noise figure in normal scale
+SNRin=NF*SNRout//signal to noise ratio at input normal scale
+delta_Be=P/(2*h*new*SNRin);//receiver bandwidth in Hz
+mprintf('Signal to noise ratio at Input=%f',SNRin)
+mprintf('\nReciever bandwidth is=%fx10^14Hz',delta_Be/1e14);// division by 1e14 to convert the unit from Hz to 10^14 Hz
+// The answer given in textbook is wrong
diff --git a/3506/CH9/EX9.1/exp_9_1.sce b/3506/CH9/EX9.1/exp_9_1.sce
new file mode 100644
index 000000000..2e377fad7
--- /dev/null
+++ b/3506/CH9/EX9.1/exp_9_1.sce
@@ -0,0 +1,20 @@
+//Optical Fiber communication by A selvarajan
+//example 9.1
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+lambda=1.3*1e-6//wavelength in m
+c=3*1e8//velocity of light in m/s
+SNRoutdB=30//signal to noise ratio at outputin dB
+SNRout=10^(SNRoutdB/10);//signal to noise ratio at output normal scale
+new=c/lambda;//frequency in Hz
+h=6.6e-34;//plancks constant
+P=0.5e-3;//Input power in W
+NFdB=4//noise figure in dB
+NF=10^(NFdB/10);//noise figure in normal scale
+SNRin=NF*SNRout//signal to noise ratio at input normal scale
+delta_Be=P/(2*h*new*SNRin);//receiver bandwidth in Hz
+mprintf('Signal to noise ratio at Input=%f',SNRin)
+mprintf('\nReciever bandwidth is=%fx10^14Hz',delta_Be/1e14);// division by 1e14 to convert the unit from Hz to 10^14 Hz
+// The answer given in textbook is wrong
diff --git a/3506/CH9/EX9.2/Ex_9_2.JPG b/3506/CH9/EX9.2/Ex_9_2.JPG
new file mode 100644
index 000000000..4904ad8dc
--- /dev/null
+++ b/3506/CH9/EX9.2/Ex_9_2.JPG
Binary files differ
diff --git a/3506/CH9/EX9.2/Ex_9_2.sce b/3506/CH9/EX9.2/Ex_9_2.sce
new file mode 100644
index 000000000..c310c23b0
--- /dev/null
+++ b/3506/CH9/EX9.2/Ex_9_2.sce
@@ -0,0 +1,14 @@
+//Optical Fiber communication by A selvarajan
+//example 9.2
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+PASE=1e-3;//amplified spontaneous emission power in W
+Gdb=20;//optical amplifier gain in dB
+G=10^(Gdb/10);//optical amplifier gain in normal scale
+delta_newbynew=5e-6;//fractional bandwidth
+h=6.6e-34;//planck's constant
+ns=PASE/((G-1)*h/delta_newbynew);//noise factor
+mprintf('noise factor is=%fx10^21',ns/1e21);// division by 1e21 to convert the unit from Hz to 10^21 Hz
+// The answer given in textbook is wrong
diff --git a/3506/CH9/EX9.2/exp_9_2.sce b/3506/CH9/EX9.2/exp_9_2.sce
new file mode 100644
index 000000000..c310c23b0
--- /dev/null
+++ b/3506/CH9/EX9.2/exp_9_2.sce
@@ -0,0 +1,14 @@
+//Optical Fiber communication by A selvarajan
+//example 9.2
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+PASE=1e-3;//amplified spontaneous emission power in W
+Gdb=20;//optical amplifier gain in dB
+G=10^(Gdb/10);//optical amplifier gain in normal scale
+delta_newbynew=5e-6;//fractional bandwidth
+h=6.6e-34;//planck's constant
+ns=PASE/((G-1)*h/delta_newbynew);//noise factor
+mprintf('noise factor is=%fx10^21',ns/1e21);// division by 1e21 to convert the unit from Hz to 10^21 Hz
+// The answer given in textbook is wrong
diff --git a/3506/CH9/EX9.3/Ex_9_3.JPG b/3506/CH9/EX9.3/Ex_9_3.JPG
new file mode 100644
index 000000000..4a83210b1
--- /dev/null
+++ b/3506/CH9/EX9.3/Ex_9_3.JPG
Binary files differ
diff --git a/3506/CH9/EX9.3/Ex_9_3.sce b/3506/CH9/EX9.3/Ex_9_3.sce
new file mode 100644
index 000000000..42f2ad35a
--- /dev/null
+++ b/3506/CH9/EX9.3/Ex_9_3.sce
@@ -0,0 +1,24 @@
+//Optical Fiber communication by A selvarajan
+//example 9.3
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+L=50//link length in Km
+Fiber_loss=0.2//fiber loss in dB/Km
+Req_Gain=Fiber_loss*L//required Gain
+Fn1db=5//Noise figure in dB
+Fn2db=5//Noise figure in dB
+Fn3db=5//Noise figure in dB
+Fn1=10^(Fn1db/10);//Noise figure in normal scale for all amplifiers
+Fn2=10^(Fn2db/10);//Noise figure in normal scale for all amplifiers
+Fn3=10^(Fn3db/10);//Noise figure in normal scale for all amplifiers
+G1=10^(Req_Gain/10)//gain in normal scale
+G2=10^(Req_Gain/10)//gain in normal scale
+Fneff=Fn1+(Fn2/G1)+(Fn3/(G1*G2));//Effective noise figure
+SNRindb=30;//Signal to noise ratio at input in dB
+SNRout=10^(SNRindb/10)/Fneff;//Signal to noise ratio at output in dB
+SNRoutdb=10*log10(SNRout);
+mprintf("Required Gain=%f",Req_Gain)
+mprintf("\nEffective noise figure=%f",Fneff)
+mprintf("\nSignal to noise ratio at output =%f dB",SNRoutdb)
diff --git a/3506/CH9/EX9.3/exp_9_3.sce b/3506/CH9/EX9.3/exp_9_3.sce
new file mode 100644
index 000000000..42f2ad35a
--- /dev/null
+++ b/3506/CH9/EX9.3/exp_9_3.sce
@@ -0,0 +1,24 @@
+//Optical Fiber communication by A selvarajan
+//example 9.3
+//OS=Windows XP sp3
+//Scilab version 5.5.1
+clc;
+clear all;
+L=50//link length in Km
+Fiber_loss=0.2//fiber loss in dB/Km
+Req_Gain=Fiber_loss*L//required Gain
+Fn1db=5//Noise figure in dB
+Fn2db=5//Noise figure in dB
+Fn3db=5//Noise figure in dB
+Fn1=10^(Fn1db/10);//Noise figure in normal scale for all amplifiers
+Fn2=10^(Fn2db/10);//Noise figure in normal scale for all amplifiers
+Fn3=10^(Fn3db/10);//Noise figure in normal scale for all amplifiers
+G1=10^(Req_Gain/10)//gain in normal scale
+G2=10^(Req_Gain/10)//gain in normal scale
+Fneff=Fn1+(Fn2/G1)+(Fn3/(G1*G2));//Effective noise figure
+SNRindb=30;//Signal to noise ratio at input in dB
+SNRout=10^(SNRindb/10)/Fneff;//Signal to noise ratio at output in dB
+SNRoutdb=10*log10(SNRout);
+mprintf("Required Gain=%f",Req_Gain)
+mprintf("\nEffective noise figure=%f",Fneff)
+mprintf("\nSignal to noise ratio at output =%f dB",SNRoutdb)
generated by cgit (git 2.34.1) at 2024-12-19 12:34:22 +0000