Ummi

pesan_kirim=randint(7,1)
t=poly2trellis(3,[3 7]);
codeword=convenc(pesan_kirim,t)
N=length(codeword);
noise=zeros(N,1);
noise([3,5],1)=1
ncoden=xor(codeword,noise)
noisecode=fix(ncoden);
tb=4;
delay=tb;
pesan_terima_bernoise=vitdec(noisecode,t,tb,'cont','soft',tb-3) %decoder
cek=[pesan_kirim pesan_terima_bernoise]
[jml_biterr,ratio_biterr]=biterr(pesan_terima_bernoise,pesan_kirim)
pesan_terima_bernoise=pesan_terima_bernoise(delay+1:end);
figure(1)
subplot(4,1,1)
stem(pesan_kirim,'r')
title('5 bit')
xlabel('pesan kirim')
subplot(4,1,2)
stem(codeword,'g')
xlabel('codeword tanpa noise')
subplot(4,1,3)
stem(noisecode,'g')
xlabel('codeword dengan noise')
subplot(4,1,4)
stem(pesan_terima_bernoise,'b')
xlabel('pesan terima')

pesan_kirim2=randint(7,1)
t2=poly2trellis(3,[3 7]);
codeword2=convenc(pesan_kirim2,t2)
N2=length(codeword2);
noise2=zeros(N2,1);
noise2([3,5],1)=1
ncoden2=xor(codeword2,noise2)
noisecode2=fix(ncoden2);
tb2=4;
delay=tb2;
pesan_terima_bernoise2=vitdec(noisecode2,t2,tb2,'cont','soft',tb2-3) %decoder
cek2=[pesan_kirim2 pesan_terima_bernoise2]
[jml_biterr2,ratio_biterr2]=biterr(pesan_terima_bernoise2,pesan_kirim2)
pesan_terima_bernoise2=pesan_terima_bernoise2(delay+1:end);
figure(2)
subplot(4,1,1)
stem(pesan_kirim2,'r')
title('7 bit')
xlabel('pesan kirim')
subplot(4,1,2)
stem(codeword2,'g')
xlabel('codeword tanpa noise')
subplot(4,1,3)
stem(noisecode2,'g')
xlabel('codeword dengan noise')
subplot(4,1,4)
stem(pesan_terima_bernoise2,'b')
xlabel('pesan terima')