tctxandchannel.m

safsdrghfydjg kukugilihg b nmvhjtdyewrtwert

function [r]=TCTxAndChannel(a,S,FB,G,MPI,MPO)

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

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

M=3*M;

for k=1:K
    c(:,k)=Interleaver(MPO,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