matlab dado

%hammingov kod
clear all; clc;
B = [1 0 1 0 1 0 1];
P = [1 2 4];

%am, tista h7 matrika je bla napacna, H matrika je bla pa kul. Ampak:
%zejnska na videu ni prstevala tistih prvih bitov (tam kodr je delala vprasaje)
%zatu je zdej spodn H napisan tak de se drzi navodil iz videa:
%p1 = ? + 3ti + 5ti + 7mi
%p2 = ? + 3ti + 6ti + 7mi
%p3 = ? + 5ti + 6ti + 7mi

H = [
 0 0 1 0 1 0 1 0;
 0 0 1 0 0 1 1 0;
 0 0 0 0 1 1 1 0;
 1 1 1 1 1 1 1 1
];

%|gorna H matrika vsebuje se razsiritev na 8 bitov, spodna pa je za 7 (istu kot za 8, sam de zadnj stolpc im vrstico vn vrzemo.
H7 = H(1:3,1:7)

%Lazji nacin, kak uzamema prvih sedm bitov iz vektorja B(1:7)
%vektorji so ponavad navpicni pr mnozenju (spoun se matematike 2),
% matrike pa so kvadratne al pa bl dolge kot visoke, zato pr H ni '
B7 = B(1:7)'
rac=mod(H7*B7,2)

%p-biti
%de uzames 1,2,4 bit iz Bja lahk nrdis tu trik B([1 2 4])
napaka=xor(rac',B(P))
D=napaka*P'