%TCH/FS信道的外編碼
function u=T_FS_EX_EN(d)
%截短循環碼的外編碼
d1=zeros(1,53);
d1=d(1:50);
d1(51:53)=ones(1,3);
rold=[0,0,0];
rnew=[0,0,0];
for i=1:53
   rnew(1)=mod(d1(i)+rold(3),2);
   rnew(2)=mod(d1(i)+rold(1)+rold(3),2);
   rnew(3)=rold(2);
   rold=rnew;
end
p=rnew;
%重排并加尾比特
u=zeros(1,189);
u(1:91)=d(1:2:181);
u(92:94)=p(3:-1:1);   %此處調換次序非常重要！
u(95:185)=d(2:2:182);
u(186:189)=zeros(1,4);