sustraetrama.m

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

function y = sustraetrama(u)
i=1; 
    while i<=50
        if isempty(find_system(gcs,'Name','ADD_DROP_(STS3)'))==1
            
            if isempty(find_system(gcs,'Name',['ADD_DROP_(STS3)',int2str(i)]))==0
                blk2=([gcs,'/','ADD_DROP_(STS3)',int2str(i)]);
                r=get_param(Blk2,'q');
                break
            end
        else
            Blk2=([gcs,'/','ADD_DROP_(STS3)']);
            r=get_param(Blk2,'q');
            break
        end
        i=i+1;
    end
[a b]=size(u);
tr=zeros(a,1376);
switch (r)
    case '3'
    tr=u(:,1:1376);
    case '2'
    tr(:,1:688)=u(:,1:688);
    tr(:,689:1376)=u(:,1377:2064);
    case '1'
    tr=u(:,689:2064);
end
y=tr;
end