initial commit / add all books

8 files changed, 94 insertions, 0 deletions

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