sustraetrama12a.m

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

function y = sustraetrama12(u)
i=1;
    while i<=50
        if isempty(find_system(gcs,'Name','ADD_DROP_(STS12)'))==1
            
            if isempty(find_system(gcs,'Name',['ADD_DROP_(STS12)',int2str(i)]))==0
                blk2=([gcs,'/','ADD_DROP_(STS12)',int2str(i)]);
                r=get_param(Blk2,'s');
                break
            end
        else
            Blk2=([gcs,'/','ADD_DROP_(STS12)']);
            r=get_param(Blk2,'s');
            break
        end
        i=i+1;
    end
[a b]=size(u);
tr=zeros(a,7568);
switch (r)
    case '12'    
      tr=u(:,1:7568);
    case '11'
      tr(:,1:6880)=u(:,1:6880);
      tr(:,6881:7568)=u(:,7569:8256);
    case '10'    
      tr(:,1:6192)=u(:,1:6192);
      tr(:,6193:7568)=u(:,6881:8256);
    case '9'    
      tr(:,1:5504)=u(:,1:5504);
      tr(:,5505:7568)=u(:,6193:8256);
    case '8'   
      tr(:,1:4816)=u(:,1:4816);
      tr(:,4817:7568)=u(:,5505:8256);
    case '7'   
      tr(:,1:4128)=u(:,1:4128);
      tr(:,4129:7568)=u(:,4817:8256);
    case '6'   
      tr(:,1:3440)=u(:,1:3440);
      tr(:,3441:7568)=u(:,4129:8256);
    case '5'    
      tr(:,1:2752)=u(:,1:2752);
      tr(:,2753:7568)=u(:,3441:8256);
    case '4'    
      tr(:,1:2064)=u(:,1:2064);
      tr(:,2065:7568)=u(:,2753:8256);
    case '3'    
      tr(:,1:1376)=u(:,1:1376);
      tr(:,1377:7568)=u(:,2065:8256);
    case '2'
      tr(:,1:688)=u(:,1:688);
      tr(:,687:7568)=u(:,1377:8256);
    case '1'    
      tr(:,1:7568)=u(:,687:8256);
end
y=tr;
end