function P_dSource = P2S( dSource,subcaNUM) %把信號分散到子載波上

     temp = length(dSource);
     temp1 = mod(temp,subcaNUM);   %模運算   8
     if temp1 == 0          
        P_dSource = reshape(dSource,subcaNUM,temp/subcaNUM);
    else
        temp2 = subcaNUM - temp1;     %24
        padd  = dSource(1)*ones(temp2,1);
        dSource_padd = [dSource;padd];
        P_dSource = reshape(dSource_padd,subcaNUM,length(dSource_padd)/subcaNUM);
    end