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

---
 752/CH12/EX12.13.1/12_13_1.sce | 11 +++++++++++
 752/CH12/EX12.13.3/12_13_3.sce | 14 ++++++++++++++
 752/CH12/EX12.13.4/12_13_4.sce | 16 ++++++++++++++++
 752/CH12/EX12.4.1/12_4_1.sce   | 11 +++++++++++
 752/CH12/EX12.4.2/12_4_2.sce   |  9 +++++++++
 752/CH12/EX12.4.3/12_4_3.sce   | 12 ++++++++++++
 752/CH12/EX12.5.1/12_5_1.sce   | 13 +++++++++++++
 752/CH12/EX12.9.1/12_9_1.sce   |  8 ++++++++
 8 files changed, 94 insertions(+)
 create mode 100755 752/CH12/EX12.13.1/12_13_1.sce
 create mode 100755 752/CH12/EX12.13.3/12_13_3.sce
 create mode 100755 752/CH12/EX12.13.4/12_13_4.sce
 create mode 100755 752/CH12/EX12.4.1/12_4_1.sce
 create mode 100755 752/CH12/EX12.4.2/12_4_2.sce
 create mode 100755 752/CH12/EX12.4.3/12_4_3.sce
 create mode 100755 752/CH12/EX12.5.1/12_5_1.sce
 create mode 100755 752/CH12/EX12.9.1/12_9_1.sce

(limited to '752/CH12')

diff --git a/752/CH12/EX12.13.1/12_13_1.sce b/752/CH12/EX12.13.1/12_13_1.sce
new file mode 100755
index 000000000..a6a18b689
--- /dev/null
+++ b/752/CH12/EX12.13.1/12_13_1.sce
@@ -0,0 +1,11 @@
+clc;
+//page no 451
+//problem no 12.13.1
+//A 8 bit codewords
+Pbec=0.01;n=8;i=3;
+Pi=(Pbec^i)*((1-(Pbec))^(n-i));
+Cin=(factorial(n))/(factorial(i)*factorial(n-i));
+Pin=Cin*Pi;
+P_in=Cin*Pbec^i
+disp(Pin,'Pin=','The probability of a received codeword');
+disp(P_in,'P_in');
\ No newline at end of file
diff --git a/752/CH12/EX12.13.3/12_13_3.sce b/752/CH12/EX12.13.3/12_13_3.sce
new file mode 100755
index 000000000..536d6fbd6
--- /dev/null
+++ b/752/CH12/EX12.13.3/12_13_3.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 454
+//problem no 12.13.3
+SN_dB=9;
+SNR=10^(SN_dB/10);
+PbeU=1/2 * (1-erf(sqrt(SNR)));
+BERu=PbeU;
+disp(BERu,'a)The bit error probability');
+n=10;k=n-1;
+r=k/n;
+SNR1=r*SNR;
+PbeC=1/2 * (1-erf(sqrt(SNR1)));
+BERc=(n-1)*PbeC^2;
+disp(BERc,'b)The bit error probability');
\ No newline at end of file
diff --git a/752/CH12/EX12.13.4/12_13_4.sce b/752/CH12/EX12.13.4/12_13_4.sce
new file mode 100755
index 000000000..515147f96
--- /dev/null
+++ b/752/CH12/EX12.13.4/12_13_4.sce
@@ -0,0 +1,16 @@
+clc;
+//page no 457
+//problem no 12.13.4
+//Tx link 
+SN_dB=8;
+SNR=10^(SN_dB/10);
+//a)Determination of bit error rate
+PbeU=0.5*(1-erf(sqrt(SNR)));
+BER_U=PbeU;
+disp(BER_U,'a)The bit-error rate is');
+//b)new bit error rate
+n=15;k=11;t=1;r=k/n;
+SNR_n=r*SNR;
+PbeC=0.5*(1-erf(sqrt(SNR_n)));
+BER_C=((factorial(n-1))*PbeC^(t+1))/((factorial(t))*(factorial(n-t-1)));
+disp(BER_C,'The new bit error rate is');
\ No newline at end of file
diff --git a/752/CH12/EX12.4.1/12_4_1.sce b/752/CH12/EX12.4.1/12_4_1.sce
new file mode 100755
index 000000000..18a95e609
--- /dev/null
+++ b/752/CH12/EX12.4.1/12_4_1.sce
@@ -0,0 +1,11 @@
+clc;
+//page no 419
+// problem no 12.4.1
+//a binary polar waveform with following specifications are given
+Vs_Vn=4;//SNVR
+a=erf(4/sqrt(2));
+b=erfc(4/sqrt(2));
+Pbe=1/2 * b;// bit error probability
+disp(a);
+disp(b);
+disp(Pbe,'The bit error probability');
\ No newline at end of file
diff --git a/752/CH12/EX12.4.2/12_4_2.sce b/752/CH12/EX12.4.2/12_4_2.sce
new file mode 100755
index 000000000..bef067f0a
--- /dev/null
+++ b/752/CH12/EX12.4.2/12_4_2.sce
@@ -0,0 +1,9 @@
+clc;
+//page no 420
+//problem no 12.4.2
+//a binary unipolar waveform with following specifications are given
+A=4;//max value of received signal voltage
+Vn=0.5;//rms noise voltage
+Vth=2;//Threshold voltage for the comparator
+Pbe=1/2 * b;// bit error probability
+disp(Pbe,'The bit error probability');
\ No newline at end of file
diff --git a/752/CH12/EX12.4.3/12_4_3.sce b/752/CH12/EX12.4.3/12_4_3.sce
new file mode 100755
index 000000000..d925f0ae2
--- /dev/null
+++ b/752/CH12/EX12.4.3/12_4_3.sce
@@ -0,0 +1,12 @@
+clc;
+//page no 421
+//problem no 12.4.3
+SNR=9;//SNR in dB
+//conversion of dB to power ratio
+p=10^(9/10);
+// for Polar
+Pbe1=1/2 * erfc(sqrt(7.94/2));
+disp(Pbe1);
+// for Unipolar
+Pbe2=1/2 * erfc(sqrt(7.94)/2);
+disp(Pbe2);
\ No newline at end of file
diff --git a/752/CH12/EX12.5.1/12_5_1.sce b/752/CH12/EX12.5.1/12_5_1.sce
new file mode 100755
index 000000000..7effec386
--- /dev/null
+++ b/752/CH12/EX12.5.1/12_5_1.sce
@@ -0,0 +1,13 @@
+clc;
+//page no 423
+//problem no 12.5.1
+// binary unipolar signal is given
+Pavg=6*10^-12;//in W
+d=0.02*10^-6;//pulse duration in sec
+T=550;//equivalent noise temp in K
+Eb=Pavg*d;//avg energy per pulse
+No=1.38*10^-23 *T;
+r=Eb/No;
+//Bit error probability is 
+Pbe=1/2 * erfc(sqrt(r/2));
+disp(Pbe,'The bit error probability');
\ No newline at end of file
diff --git a/752/CH12/EX12.9.1/12_9_1.sce b/752/CH12/EX12.9.1/12_9_1.sce
new file mode 100755
index 000000000..316e96b6d
--- /dev/null
+++ b/752/CH12/EX12.9.1/12_9_1.sce
@@ -0,0 +1,8 @@
+clc;
+//page no 435
+//problem no 12.9.1
+ENR=10;// energy to noise density ratio
+Pbe1=1/2 * erfc(sqrt(ENR/2));
+disp(Pbe1,'a)The bit error probability');
+Pbe2=1/2 * %e^-(ENR/2);
+disp(Pbe2,'b)The bit error probability');
\ No newline at end of file
-- 
cgit