summaryrefslogtreecommitdiff
path: root/401/CH13/EX13.4/Example13_4.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /401/CH13/EX13.4/Example13_4.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '401/CH13/EX13.4/Example13_4.sce')
-rwxr-xr-x401/CH13/EX13.4/Example13_4.sce22
1 files changed, 22 insertions, 0 deletions
diff --git a/401/CH13/EX13.4/Example13_4.sce b/401/CH13/EX13.4/Example13_4.sce
new file mode 100755
index 000000000..860e83aad
--- /dev/null
+++ b/401/CH13/EX13.4/Example13_4.sce
@@ -0,0 +1,22 @@
+//Example 13.4
+//Program to calculate the minimum incoming power level
+
+clear;
+clc ;
+close ;
+
+//Given data
+K=1; //CONSTANT FOR HETERODYNE DETECTION
+Z=1; //CONSTANT FOR FSK MODULAION SCHEME
+eeta=1; //*100 percent - QUANTUM EFFICIENCY
+Bt=400*10^6; //bps - TRANSMISSION RATE
+BER=10^(-9); //BIT ERROR RATE
+h= 6.626*10^(-34); //J/K - PLANK's CONSTANT
+c=2.998*10^8; //m/s - VELOCITY OF LIGHT IN VACCUM
+Lambda=1.55*10^(-6); //metre - OPERATING WAVELENGTH
+
+//Minimum incoming peak power level
+Ps=(erfinv(1-2*BER))^2*2*h*c*Bt/Lambda; //erfc(x)=1-erf(x)
+
+//Displaying the Result in Command Window
+printf("\n\n\t Minimum incoming peak power level is %0.1f nW or %0.1f dBm.",Ps/10^(-9),10*log10(Ps/(1*10^(-3)))); \ No newline at end of file