interbyte4stm1.m

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

function [e]=interbyte4STM1(u)

              %**********************************************
              %* Multiplexa byte a byte 4 STM-1 en un STS-4 * 
              %**********************************************

%   1 -----)\              
%   2 -----) \
%   3 -----) / --- ... columnas 4 3 2 1
%   4 -----)/         
[r,t]=size(u);
e=zeros(r,t);
s=1;s1=1;s3=1;
i=1;s2=1;
while i<=(t)
h=1; q=1; x=1; n=1;
  while h<=8 
    e(:,i)=u(:,s1);
    i=i+1;
    h=h+1;
    s1=s1+1;
  end
  while q<=8
    e(:,i)=u(:,s2+2160);
    i=i+1;
    q=q+1;
    s2=s2+1;
  end
  while x<=8  
    e(:,i)=u(:,s3+4320);
    i=i+1;
    x=x+1;
    s3=s3+1;
  end
  while n<=8  
    e(:,i)=u(:,s+6480);
    i=i+1;
    n=n+1;
    s=s+1;
  end
end
end