getpk.m

802.11a phy layer protocol by myself

function Pk=getPk(Seed)
for i=1:127
    if Seed(4)==Seed(7)
        Pk(i)=1;
    else
        Pk(i)=-1;
    end
    for j=1:6
        Seed(8-j)=Seed(7-j);
    end
    Seed(1)=Pk(i);
end