txisichannel.m

safsdrghfydjg kukugilihg b nmvhjtdyewrtwert

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

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

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

c=Interleaver(MPO,b);
    
[dum,r1]=RSC(c,FB,G);
r=Polar([c' r1']);