insertatrama12a.m

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

function ty = insertatrama12a(u)

if isempty(find_system(gcs,'Name','ADD_DROP_(STS12)'))~=1

    Blk2=([gcs,'/','ADD_DROP_(STS12)']);
    h=get_param(Blk2,'s');
     
[a b]=size(u);
z=zeros(a,8640);
switch (h)
     case '12'
     z=u;
     case '11'
     z(:,1:7200)=u(:,1:7200);
     z(:,7201:7920)=u(:,7921:8640);
     z(:,7921:8640)=u(:,7201:7920);
     case '10'
     z(:,1:6480)=u(:,1:6480);
     z(:,6481:7200)=u(:,7921:8640);
     z(:,7201:8640)=u(:,6481:7920);
     case '9'
     z(:,1:5760)=u(:,1:5760);
     z(:,5761:6480)=u(:,7921:8640);
     z(:,6481:8640)=u(:,5761:7920);
     case '8'
     z(:,1:5040)=u(:,1:5040);
     z(:,5041:5760)=u(:,7921:8640);
     z(:,5761:8640)=u(:,5041:7920);
     case '7'
     z(:,1:4320)=u(:,1:4320);
     z(:,4321:5040)=u(:,7921:8640);
     z(:,5041:8640)=u(:,4321:7920);
     case '6'
     z(:,1:3600)=u(:,1:3600);
     z(:,3601:4320)=u(:,7921:8640);
     z(:,4321:8640)=u(:,3601:7920);
     case '5'
     z(:,1:2880)=u(:,1:2880);
     z(:,2881:3600)=u(:,7921:8640);
     z(:,3601:8640)=u(:,2881:7920);
     case '4'
     z(:,1:2160)=u(:,1:2160);
     z(:,2161:2880)=u(:,7921:8640);
     z(:,2881:8640)=u(:,2161:7920);
     case '3'
     z(:,1:1440)=u(:,1:1440);
     z(:,1441:2160)=u(:,7921:8640);
     z(:,2161:8640)=u(:,1441:7920);
     case '2'
     z(:,1:720)=u(:,1:720);
     z(:,721:1440)=u(:,7921:8640);
     z(:,1441:8640)=u(:,721:7920);
     case '1'     
     z(:,1:720)=u(:,7921:8640);
     z(:,721:8640)=u(:,1:7920);
end
ty=z;
end
if isempty(find_system(gcs,'Name','ADD_DROP_(STS12)1'))~=1

    Blk211=([gcs,'/','ADD_DROP_(STS12)1']);
    h11=get_param(Blk211,'s');
     
[a b]=size(u);
z11=zeros(a,8640);
switch (h11)
     case '12'
     z11=u;
     case '11'
     z11(:,1:7200)=u(:,1:7200);
     z11(:,7201:7920)=u(:,7921:8640);
     z11(:,7921:8640)=u(:,7201:7920);
     case '10'
     z11(:,1:6480)=u(:,1:6480);
     z11(:,6481:7200)=u(:,7921:8640);
     z11(:,7201:8640)=u(:,6481:7920);
     case '9'
     z11(:,1:5760)=u(:,1:5760);
     z11(:,5761:6480)=u(:,7921:8640);
     z11(:,6481:8640)=u(:,5761:7920);
     case '8'
     z11(:,1:5040)=u(:,1:5040);
     z11(:,5041:5760)=u(:,7921:8640);
     z11(:,5761:8640)=u(:,5041:7920);
     case '7'
     z11(:,1:4320)=u(:,1:4320);
     z11(:,4321:5040)=u(:,7921:8640);
     z11(:,5041:8640)=u(:,4321:7920);
     case '6'
     z11(:,1:3600)=u(:,1:3600);
     z11(:,3601:4320)=u(:,7921:8640);
     z11(:,4321:8640)=u(:,3601:7920);
     case '5'
     z11(:,1:2880)=u(:,1:2880);
     z11(:,2881:3600)=u(:,7921:8640);
     z11(:,3601:8640)=u(:,2881:7920);
     case '4'
     z11(:,1:2160)=u(:,1:2160);
     z11(:,2161:2880)=u(:,7921:8640);
     z11(:,2881:8640)=u(:,2161:7920);
     case '3'
     z11(:,1:1440)=u(:,1:1440);
     z11(:,1441:2160)=u(:,7921:8640);
     z11(:,2161:8640)=u(:,1441:7920);
     case '2'
     z11(:,1:720)=u(:,1:720);
     z11(:,721:1440)=u(:,7921:8640);
     z11(:,1441:8640)=u(:,721:7920);
     case '1'     
     z11(:,1:720)=u(:,7921:8640);
     z11(:,721:8640)=u(:,1:7920);
end
ty=z11;
end
if isempty(find_system(gcs,'Name','ADD_DROP_(STS12)2'))~=1

    Blk222=([gcs,'/','ADD_DROP_(STS12)2']);
    h22=get_param(Blk222,'s');
     
[a b]=size(u);
z22=zeros(a,8640);
switch (h22)
     case '12'
     z22=u;
     case '11'
     z22(:,1:7200)=u(:,1:7200);
     z22(:,7201:7920)=u(:,7921:8640);
     z22(:,7921:8640)=u(:,7201:7920);
     case '10'
     z22(:,1:6480)=u(:,1:6480);
     z22(:,6481:7200)=u(:,7921:8640);
     z22(:,7201:8640)=u(:,6481:7920);
     case '9'
     z22(:,1:5760)=u(:,1:5760);
     z22(:,5761:6480)=u(:,7921:8640);
     z22(:,6481:8640)=u(:,5761:7920);
     case '8'
     z22(:,1:5040)=u(:,1:5040);
     z22(:,5041:5760)=u(:,7921:8640);
     z22(:,5761:8640)=u(:,5041:7920);
     case '7'
     z22(:,1:4320)=u(:,1:4320);
     z22(:,4321:5040)=u(:,7921:8640);
     z22(:,5041:8640)=u(:,4321:7920);
     case '6'
     z22(:,1:3600)=u(:,1:3600);
     z22(:,3601:4320)=u(:,7921:8640);
     z22(:,4321:8640)=u(:,3601:7920);
     case '5'
     z22(:,1:2880)=u(:,1:2880);
     z22(:,2881:3600)=u(:,7921:8640);
     z22(:,3601:8640)=u(:,2881:7920);
     case '4'
     z22(:,1:2160)=u(:,1:2160);
     z22(:,2161:2880)=u(:,7921:8640);
     z22(:,2881:8640)=u(:,2161:7920);
     case '3'
     z22(:,1:1440)=u(:,1:1440);
     z22(:,1441:2160)=u(:,7921:8640);
     z22(:,2161:8640)=u(:,1441:7920);
     case '2'
     z22(:,1:720)=u(:,1:720);
     z22(:,721:1440)=u(:,7921:8640);
     z22(:,1441:8640)=u(:,721:7920);
     case '1'     
     z22(:,1:720)=u(:,7921:8640);
     z22(:,721:8640)=u(:,1:7920);
end
ty=z22;
end
end