interbyte12sts1.m

来自「matlab在通信原理中的应用」· M 代码 · 共 113 行

              %**********************************************
              %* Multiplexa byte a byte 12 STS-1 en un STS-12 * 
              %**********************************************

%   1 -----)\              
%   2 -----) \
%   3 -----)  \
%   4 -----)   \
%   5 -----)    \
%   6 -----)     \----\
%   7 -----)     /----/ columnas...12 9 6 3 11 8 5 2 10 7 4 1                
%   8 -----)    /
%   9 -----)   /
%  10 -----)  /
%  11 -----) /
%  12 -----)/
%

function [e]=interbyte12STS1(u)

 [r,t]=size(u);
 e=zeros(r,t);
 s=1;
 i=1;
 s1=1;
 s2=1;
 s3=1;
 s4=1;
 s5=1;
 s6=1;
 s7=1;
 s8=1;
 s9=1;
 s10=1;
 s11=1;
 while i<=(t)
   Q=1;W=1;H=1;E=1;O=1;D=1;G=1;F=1;L=1;Z=1;C=1;V=1;
   while H<=8
   e(:,i)=u(:,s);       % columna 1
   i=i+1;
   s=s+1;
   H=H+1;
   end
   while Q<=8
   e(:,i)=u(:,s1+720);  % columna 2
   i=i+1;
   s1=s1+1;
   Q=Q+1;
   end
   while W<=8
   e(:,i)=u(:,s2+1440);  % columna 3
   i=i+1;
   s2=s2+1;
   W=W+1;
   end
   while E<=8
   e(:,i)=u(:,s3+2160);  % columna 4
   i=i+1;
   s3=s3+1;
   E=E+1; 
   end
   while O<=8
   e(:,i)=u(:,s4+2880);   % columna 5
   i=i+1;
   s4=s4+1;
   O=O+1;
   end
   while D<=8
   e(:,i)=u(:,s5+3600);  % columna 6
   i=i+1;
   s5=s5+1;
   D=D+1;
   end
   while F<=8
   e(:,i)=u(:,s6+4320);  % columna 7
   i=i+1;
   s6=s6+1;
   F=F+1;
   end
   while G<=8
   e(:,i)=u(:,s7+5040);  % columna 8
   i=i+1;
   s7=s7+1;
   G=G+1;
   end
   while L<=8
   e(:,i)=u(:,s8+5760);  % columna 9
   i=i+1;
   s8=s8+1;
   L=L+1;
   end
   while Z<=8
   e(:,i)=u(:,s9+6480);  % columna 10
   i=i+1;
   s9=s9+1;
   Z=Z+1;
   end
   while C<=8  
   e(:,i)=u(:,s10+7200);  % columna 11
   i=i+1;
   s10=s10+1;
   C=C+1;
   end
   while V<=8
   e(:,i)=u(:,s11+7920);  % columna 12
   i=i+1;
   s11=s11+1;
   V=V+1;
   end
end

end