summaryrefslogtreecommitdiff
path: root/752/CH12/EX12.13.3/12_13_3.sce
blob: 536d6fbd6aca7f02488f3db079db5bb71389c4a6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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');