%TCH/FS信道的外編碼
function u=T_SCH_EX_EN(d)
%截短循環碼的外編碼
d1=zeros(1,25);
d1=d(1:25);       
%和技術報告上有所差別，即沒有加上10個“1“比特。
%如果加上則在譯碼器端必須加上10個“1”比特，和給出的流程圖有所差別。
rold=[0,0,0,0,0,0,0,0,0,0];
rnew=[0,0,0,0,0,0,0,0,0,0];
for i=1:25
   rnew(1)=mod(d1(i)+rold(10),2);
   rnew(2)=rold(1);
   rnew(3)=mod(d1(i)+rold(2)+rold(10),2);
   rnew(4)=rold(3);
   rnew(5)=mod(d1(i)+rold(4)+rold(10),2);
   rnew(6)=mod(d1(i)+rold(5)+rold(10),2);
   rnew(7)=mod(d1(i)+rold(6)+rold(10),2);
   rnew(8)=rold(7);
   rnew(9)=mod(d1(i)+rold(8)+rold(10),2);
   rnew(10)=rold(9);
   rold=rnew;
end
p=rnew;
%重排并加尾比特
u=zeros(1,35);
u(1:25)=d(1:25);
u(26:35)=p(10:-1:1);