interstm16.m

Matlab实现SONET/SDH光通信系统simulink仿真程序源代码

              %**********************************************
              %* Multiplexa bit a bit 16 STM-1 en un STM-16 * 
              %**********************************************



function [STS16]=interSTM16(u)

 [r,t]=size(u);
 e=zeros(r,t);
 s=1;
 i=1;

 while i<=(t)
   e(:,i)=u(:,s);       % columna 1
   i=i+1;
   e(:,i)=u(:,s+2160);  % columna 2
   i=i+1;
   e(:,i)=u(:,s+4320);  % columna 3
   i=i+1;
   e(:,i)=u(:,s+6480);  % columna 4
   i=i+1;
   e(:,i)=u(:,s+8640);   % columna 5
   i=i+1;
   e(:,i)=u(:,s+10800);  % columna 6
   i=i+1;
   e(:,i)=u(:,s+12960);  % columna 7
   i=i+1;
   e(:,i)=u(:,s+15120);  % columna 8
   i=i+1;
   e(:,i)=u(:,s+17280);  % columna 9
   i=i+1;   
   e(:,i)=u(:,s+19440);  % columna 10
   i=i+1;  
   e(:,i)=u(:,s+21600);  % columna 11
   i=i+1;  
   e(:,i)=u(:,s+23760);  % columna 12
   i=i+1;
   e(:,i)=u(:,s+25920);  % columna 13
   i=i+1;
   e(:,i)=u(:,s+28080);  % columna 14
   i=i+1;
   e(:,i)=u(:,s+30240);  % columna 15
   i=i+1;
   e(:,i)=u(:,s+32400);  % columna 16
   i=i+1;
   s=s+1;
   STS16=e;
end

end