entrama_sdh.asv

matlab在通信原理中的应用

function [sys]=Entrama_SDH(serial)
%
%================================================
%  Entrama_SDH = Esta funcion permite entramar la senal SDH que esta siendo transmitida,
%                            la cual llega en forma serial. 
%                       
%================================================
%
%	AUTORES : Z. AGUI%O & D. STECKLER
%                       Universidad de Carabobo
%                       Valencia edo. Carabobo, VENEZUELA
%
%	FECHA     : Enero 2004
%	VERSION : 1.0
%
%================================================
%	Realizado bajo MATLAB 6.5 Release 13/ Enero 2004 (DZ)
%================================================
%
[a b]=size(serial);
h=0;

curBlk=([gcs,'/','Entramador']);
Tipo_Senal=get_param(curBlk,'Senal_SDH');

switch (Tipo_Senal)
    case 'STM-1'
        y=b/19440; % 9*2160=19440
        trama=zeros(y*9,2160);  %  2160*1 trama=2160
        s=0;
        q=1;
for k=1:y
            trama(q,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+1,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+2,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+3,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+4,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+5,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+6,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+7,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            trama(q+8,1:2160)=serial(1,((1+s):(2160+s)));
            s=s+2160;
            q=q+9;
        end
        
    case 'STM-4'
        y=b/77760;  %  9*8640=77760
        trama=zeros(y*9,8640);  %  2160*4 tramas=8640
        s=0;
        q=1;
        for k=1:y
            trama(q,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+1,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+2,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+3,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+4,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+5,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+6,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+7,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            trama(q+8,1:8640)=serial(1,((1+s):(8640+s)));
            s=s+8640;
            q=q+9;
        end
        
    case 'STM-16'
        y=b/311040;  %  9*34560=311040
        trama=zeros(y*9,34560);  %  2160*16 tramas=34560
        s=0;
        q=1;
        for k=1:y
            trama(q,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+1,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+2,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+3,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+4,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+5,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+6,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+7,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            trama(q+8,1:34560)=serial(1,((1+s):(34560+s)));
            s=s+34560;
            q=q+9;
        end
        
    case 'STM-64'
        y=b/1244160;  %  9*138240=1244160
        trama=zeros(y*9,138240);  %  2160*64 tramas=138240
        s=0;
        q=1;
        for k=1:y
            trama(q,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+1,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+2,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+3,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+4,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+5,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+6,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+7,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            trama(q+8,1:138240)=serial(1,((1+s):(138240+s)));
            s=s+138240;
            q=q+9;
        end
        
    case 'STS-256'
        y=b/4976640;  %  9*552960=4976640
        trama=zeros(y*9,552960);  % 2610*256 tramas=552960
        s=0;
        q=1;
        for k=1:y
            trama(q,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+1,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+2,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+3,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+4,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+5,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+6,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+7,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            trama(q+8,1:552960)=serial(1,((1+s):(552960+s)));
            s=s+552960;
            q=q+9;
        end
        
end

sys=trama(:,:);

end
% [EOF] Entrama_SDH.m