txandchannel.m

safsdrghfydjg kukugilihg b nmvhjtdyewrtwert

function [r]=TxAndChannel(a,S,FB,G,MP)

s=size(a);
K=s(2);
M=s(1);

for k=1:K
    [v0,v1]=RSC(a(:,k),FB,G);
    j=1;
    for i=1:M
       b(j,k)=v0(i);
       b(j+1,k)=v1(i);
       j=j+2;
    end
end

M=2*M;

for k=1:K
    c(:,k)=Interleaver(MP,b(:,k))';
end

c=Polar(c);

for k=1:K
    for i=1:M
        SD(k,:,i)=c(i,k)*S(:,k);
    end
end

s=size(S);
N=s(1);
r=zeros(N,M);
for k=1:K
    r=r+TD2mtrx(SD,k,N,M);
end