function [z,alpha]=turbo_encode(x,N,g,puncture)
% clc
% clear
% puncture=0;
% N=10;
% g=[1 1 1;1 0 1];
% x=round(rand(1,N));
[alpha,S]=H_S_Random(N);  %%%% 交織
x1=x(alpha);
y(1,:)=x;
y(2,:) = rsc_encode(g, x);
y(3,:) = rsc_encode(g, x1);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if puncture==0
    for i=1:floor(N/2)        %%%% 刪余
        yy(2*i-1)=y(2,2*i-1);
        yy(2*i)=y(3,2*i);
    end
    z(1,:)=y(1,:);
    z(2,:)=yy;
elseif puncture==1                    %%%% 不刪余
    z=y;
end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
a=size(z);
z=reshape(z,1,a(1)*length(x));
z=2*z-1;