interbyte16stm1.m

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

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

%   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 -----)    /
%  13 -----)   /
%  14 -----)  /
%  15 -----) /
%  16 -----)/

function [e]=interbyte16STM1(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;
 S12=1;
 S13=1;
 S14=1;
 S15=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;Q1=1;Q2=1;Q3=1;Q4=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+2160);  % columna 2
   i=i+1;
   s1=s1+1;
   Q=Q+1;
   end
   while W<=8
   e(:,i)=u(:,s2+4320);  % columna 3
   i=i+1;
   s2=s2+1;
   W=W+1;
   end
   while E<=8
   e(:,i)=u(:,s3+6480);  % columna 4
   i=i+1;
   s3=s3+1;
   E=E+1; 
   end
   while O<=8
   e(:,i)=u(:,s4+8640);   % columna 5
   i=i+1;
   s4=s4+1;
   O=O+1;
   end
   while D<=8
   e(:,i)=u(:,s5+10800);  % columna 6
   i=i+1;
   s5=s5+1;
   D=D+1;
   end
   while F<=8
   e(:,i)=u(:,s6+12960);  % columna 7
   i=i+1;
   s6=s6+1;
   F=F+1;
   end
   while G<=8
   e(:,i)=u(:,s7+15120);  % columna 8
   i=i+1;
   s7=s7+1;
   G=G+1;
   end
   while L<=8
   e(:,i)=u(:,s8+17280);  % columna 9
   i=i+1;
   s8=s8+1;
   L=L+1;
   end
   while Z<=8
   e(:,i)=u(:,s9+19440);  % columna 10
   i=i+1;
   s9=s9+1;
   Z=Z+1;
   end
   while C<=8  
   e(:,i)=u(:,s10+21600);  % columna 11
   i=i+1;
   s10=s10+1;
   C=C+1;
   end
   while V<=8
   e(:,i)=u(:,s11+23760);  % columna 12
   i=i+1;
   s11=s11+1;
   V=V+1;
   end
   while Q1<=8
   e(:,i)=u(:,s12+25920);  % columna 13
   i=i+1;
   s12=s12+1;
   Q1=Q1+1;
   end
    while Q2<=8
   e(:,i)=u(:,s13+28080);  % columna 14
   i=i+1;
   s13=s13+1;
   Q2=Q2+1;
   end
    while Q3<=8
   e(:,i)=u(:,s14+30240);  % columna 15
   i=i+1;
   s14=s14+1;
   Q3=Q3+1;
   end
    while Q4<=8
   e(:,i)=u(:,s15+32400);  % columna 16
   i=i+1;
   s15=s15+1;
   Q4=Q4+1;
   end
end
end