function c=koderCRC(i)
g=[1 1 0 1]; %redosled po predavanjima g(x)=1+x+x^3
i=[0 0 0 i]; %prosirenje informacione reci i(x)*x^(n-k)
             %u prva tri bita se smestaju redundantni biti kodne reci
             %u preostala 4 bita su redom informacioni biti
G=fliplr(g); %redosled za matlab
I=fliplr(i);
[Q R]=deconv(I,G); %racuna se r(x) - redundantni biti
C=abs(rem(I+R,2)); %c(x) = i(x)*x^(n-k) + r(x)
                   %ubacuju se redundantni biti na prve tri lokacije kodne
                   %reci
c=fliplr(C);