From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2414/CH13/EX13.7/Ex13_7.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 2414/CH13/EX13.7/Ex13_7.sce

(limited to '2414/CH13/EX13.7')

diff --git a/2414/CH13/EX13.7/Ex13_7.sce b/2414/CH13/EX13.7/Ex13_7.sce
new file mode 100755
index 000000000..4c6882d17
--- /dev/null
+++ b/2414/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,25 @@
+clc;
+close();
+clear();
+//page no 455
+//prob no. 13.7
+//data from ex 13.6
+M=2^6;
+Pr=200*10^-15;   //W
+R=8*10^6;   //bits/s    (changed)
+Eb=Pr/R;
+
+k=1.38*10^-23;   //Boltzmann cons
+Ti=300;  //K
+Te=425;  //K
+Tsys=Ti+Te;
+nsys=k*Tsys;                 
+//mprintf('  Noise power spectral density ,nsys=%.0f*10^-20 W/Hz \n',nsys*10^20);
+rho=Eb/nsys;
+mprintf(' Bit energy , rho=%.1f  \n',rho);
+rhodB=10*log10(rho);
+mprintf(' Bit energy in db, rho,dB=%.2f dB \n',rhodB);
+
+Pe=1.3*10^-2;
+SNout=1.5*M^2/(1+4*M^2*Pe);
+mprintf(' \n (S/N)output=%.2f (or %0.2f  dB) \n',SNout,10*log10(SNout));
-- 
cgit