sustraetrama.m

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

function y = sustraetrama(u)


if isempty(find_system(gcs,'Name','ADD'))~=1
   blk2bbbb=([gcs,'/','ADD']);
   rbbbb=get_param(blk2bbbb,'adddrop');
   [a b]=size(u);
   
trbbbb=zeros(a,1376);
switch (rbbbb)
    case '3'
    trbbbb=u(:,1:1376);
    case '2'
    trbbbb(:,1:688)=u(:,1:688);
    trbbbb(:,689:1376)=u(:,1377:2064);
    case '1'
    trbbbb=u(:,689:2064);
    otherwise
    trbbbb=u(:,689:2064);
end
y=trbbbb;
else
end

if isempty(find_system(gcs,'Name','ADD1'))~=1
   blk21b=([gcs,'/','ADD1']);
   r1b=get_param(blk21b,'adddrop');
   [a b]=size(u);

tr1b=zeros(a,1376);
switch (r1b)
    case '3'
    tr1b=u(:,1:1376);
    case '2'
    tr1b(:,1:688)=u(:,1:688);
    tr1b(:,689:1376)=u(:,1377:2064);
    case '1'
    tr1b=u(:,689:2064);
    otherwise
    tr1b=u(:,689:2064);
end
y=tr1b;
else
end
end
% if isempty(find_system(gcs,'Name','ADD_DROP_(STS3)2'))~=1
%    blk22b=([gcs,'/','ADD_DROP_(STS3)2']);
%    r2b=get_param(blk22b,'drop');
%    [a b]=size(u);
% tr2b=zeros(a,1376);
% switch (r2b)
%     case '3'
%     tr2b=u(:,1:1376);
%     case '2'
%     tr2b(:,1:688)=u(:,1:688);
%     tr2b(:,689:1376)=u(:,1377:2064);
%     case '1'
%     tr2b=u(:,689:2064);
% end
% y=tr2b;
% end
% 
% if isempty(find_system(gcs,'Name','ADD_DROP_(STS3)3'))~=1
%    blk23b=([gcs,'/','ADD_DROP_(STS3)3']);
%    r3b=get_param(blk23b,'drop');
%    [a b]=size(u);
% tr3b=zeros(a,1376);
% switch (r3b)
%     case '3'
%     tr3b=u(:,1:1376);
%     case '2'
%     tr3b(:,1:688)=u(:,1:688);
%     tr3b(:,689:1376)=u(:,1377:2064);
%     case '1'
%     tr3b=u(:,689:2064);
% end
% y=tr3b;
% end
% 
% if isempty(find_system(gcs,'Name','ADD_DROP_(STS3)4'))~=1
%    blk24b=([gcs,'/','ADD_DROP_(STS3)4']);
%    r4b=get_param(blk24b,'drop');
%    [a b]=size(u);
% tr4b=zeros(a,1376);
% switch (r4b)
%     case '3'
%     tr4b=u(:,1:1376);
%     case '2'
%     tr4b(:,1:688)=u(:,1:688);
%     tr4b(:,689:1376)=u(:,1377:2064);
%     case '1'
%     tr4b=u(:,689:2064);
% end
% y=tr4b;
% end
%end