function [out1,out2,out3]=Carrier_recover(datain,length_sym);
for i=1:length_sym
    for k=1:62
        temp((i-1)*128+k+66)=datain((i-1)*128+k);
    end
    for k=63:128
        temp((i-1)*128+k-62)=datain((i-1)*128+k);
    end
end

for i=1:length_symbol
    
    guard((i-1)*10+1)=temp((i-1)*128+6);
    guard((i-1)*10+2)=temp((i-1)*128+7);
    guard((i-1)*10+3)=temp((i-1)*128+8);
    guard((i-1)*10+4)=temp((i-1)*128+9);
    guard((i-1)*10+5)=temp((i-1)*128+10);
    guard((i-1)*10+6)=temp((i-1)*128+124);
    guard((i-1)*10+7)=temp((i-1)*128+125);
    guard((i-1)*10+8)=temp((i-1)*128+126);
    guard((i-1)*10+9)=temp((i-1)*128+127);
    guard((i-1)*10+10)=temp((i-1)*128+128);
    
    for k=1:12
        ploit((i-1)*10+k)=temp((i-1)*128+11+(k-1)*10+1);
    end
    
    data((i-1)*100+1)=temp((i-1)*128+11);
    data((i-1)*100+100)=temp((i-1)*128+123);
    
    for k=1:9  % 從1到9  
        data((i-1)*100+k+12)=temp((i-1)*128+13);
    end
    
    for k=10:18  % 從10到18
        data((i-1)*100+k+13)=temp((i-1)*128+23);
    end
    
    for k=19:27  % 從19到27
        data((i-1)*100+k+14)=temp((i-1)*128+33);
    end
    
    for k=28:36  % 從28到36
        data((i-1)*100+k+15)=temp((i-1)*128+43);
    end
    
    for k=37:45  % 從37到45
        data((i-1)*100+k+16)=temp((i-1)*128+53);
    end
    
    for k=46:49  % 從46到49
        data((i-1)*100+k+17)=temp((i-1)*128+63);
    end
    
    for k=50:53  % 從50到53
        data((i-1)*100+k+18)=temp((i-1)*128+68);
    end
    
    for k=54:62  % 從54到62
        data((i-1)*100+k+19)=temp((i-1)*128+73);
    end
    
    for k=63:71  % 從63到71
        data((i-1)*100+k+20)=temp((i-1)*128+83);
    end
    
    for k=72:80  % 從72到80
        data((i-1)*100+k+21)=temp((i-1)*128+93);
    end
    
    for k=81:89  % 從81到89
        data((i-1)*100+k+22)=temp((i-1)*128+103);
    end
    
    for k=90:98  % 從90到98
        data((i-1)*100+k+1)=temp((i-1)*128+113);
    end
end
out1=data;
out2=guard;
out3=ploit;