summaryrefslogtreecommitdiff
path: root/3547/CH10/EX10.7/EX10_7.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3547/CH10/EX10.7/EX10_7.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3547/CH10/EX10.7/EX10_7.sce')
-rw-r--r--3547/CH10/EX10.7/EX10_7.sce42
1 files changed, 42 insertions, 0 deletions
diff --git a/3547/CH10/EX10.7/EX10_7.sce b/3547/CH10/EX10.7/EX10_7.sce
new file mode 100644
index 000000000..ef8dc9d80
--- /dev/null
+++ b/3547/CH10/EX10.7/EX10_7.sce
@@ -0,0 +1,42 @@
+// Example 10.7
+// Calculation of the variance of (a) linear phase noise, (b) nonlinear phase noise at the receiver
+// Page no 477
+
+clc;
+clear;
+close;
+
+//Given data
+
+alpha=0.0461; // Loss coeffient
+na=20; // No of amplifiers
+L=80; // Amplifier spacing
+tb=25*10^-12; // Pulse width
+P=2*10^-3; // Peak power
+c=3*10^8; // Velocity of light
+lambda=1550*10^-9;
+n=1.5; // Spontaneous emission factor
+h=6.626*10^-34; // Planck constant
+r0=1.1*10^-3; // Nonlinear coefficient
+
+// a) linear phase noise at the receiver
+G=exp(alpha*L);
+f=c/lambda;
+R=h*f*(G-1)*n;
+E=P*tb;
+rl=(na*R)/(2*E);
+rl=rl*10^3;
+
+// (b) nonlinear phase noise at the receiver
+Le=(1-exp(-alpha*L))/alpha;
+rnl=((na-1)*na*(2*na-1)*R*E*r0^2*Le^2)/(3*tb^2);
+rnl=rnl*10^9;
+
+t=rl+rnl;
+
+//Displaying results in the command window
+printf("\n The linear phase noise at the receiver = %0.2f rad^2 ",rl);
+printf("\n The nonlinear phase noise at the receiver = %0.2f rad^2 ",rnl);
+printf("\n The total variance = %0.2f X 10^-3 rad^2 ",t);
+
+