current2voltage.m

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

        switch (Senal55)
            case 'STS-12/STM-4'
                Ro55=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.012;
            case 'STS-48/STM-16'
                Ro55=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.012;
            otherwise
                Ro55=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.011;
        end
        
    case '1550'
        switch (Senal55)
            case 'STS-12/STM-4'
                Ro55=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.012;
            case 'STS-48/STM-16'
                Ro55=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.012;
            otherwise
                Ro55=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias55=0.02;
        end
end
set_param(Current2Voltaje55,'Ibias',num2str(Ibias55));
set_param(Current2Voltaje55,'Ro',num2str(Ro55));
end


if isempty(find_system(gcs,'Name','Regenerator6'))~=1
    
    Current2Voltaje66=([gcs,'/','Regenerator6']);
    Senal66=get_param(Current2Voltaje66,'sel');
    Frecuencia66=get_param(Current2Voltaje66,'frec');
    
%==============================================

switch (Frecuencia66)
    case '1310'
        switch (Senal66)
            case 'STS-12/STM-4'
                Ro66=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.012;
            case 'STS-48/STM-16'
                Ro66=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.012;
            otherwise
                Ro66=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.011;
        end
        
    case '1550'
        switch (Senal66)
            case 'STS-12/STM-4'
                Ro66=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.012;
            case 'STS-48/STM-16'
                Ro66=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.012;
            otherwise
                Ro66=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias66=0.02;
        end
end
set_param(Current2Voltaje66,'Ibias',num2str(Ibias66));
set_param(Current2Voltaje66,'Ro',num2str(Ro66));
end


if isempty(find_system(gcs,'Name','Regenerator7'))~=1
    
    Current2Voltaje77=([gcs,'/','Regenerator7']);
    Senal77=get_param(Current2Voltaje77,'sel');
    Frecuencia77=get_param(Current2Voltaje77,'frec');
    
%==============================================

switch (Frecuencia77)
    case '1310'
        switch (Senal77)
            case 'STS-12/STM-4'
                Ro77=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.012;
            case 'STS-48/STM-16'
                Ro77=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.012;
            otherwise
                Ro77=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.011;
        end
        
    case '1550'
        switch (Senal77)
            case 'STS-12/STM-4'
                Ro77=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.012;
            case 'STS-48/STM-16'
                Ro77=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.012;
            otherwise
                Ro77=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias77=0.02;
        end
end
set_param(Current2Voltaje77,'Ibias',num2str(Ibias77));
set_param(Current2Voltaje77,'Ro',num2str(Ro77));
end

if isempty(find_system(gcs,'Name','Regenerator8'))~=1
    
    Current2Voltaje88=([gcs,'/','Regenerator8']);
    Senal88=get_param(Current2Voltaje88,'sel');
    Frecuencia88=get_param(Current2Voltaje88,'frec');
    
%==============================================

switch (Frecuencia88)
    case '1310'
        switch (Senal88)
            case 'STS-12/STM-4'
                Ro88=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.012;
            case 'STS-48/STM-16'
                Ro88=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.012;
            otherwise
                Ro88=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.011;
        end
        
    case '1550'
        switch (Senal88)
            case 'STS-12/STM-4'
                Ro88=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.012;
            case 'STS-48/STM-16'
                Ro88=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.012;
            otherwise
                Ro88=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias88=0.02;
        end
end
set_param(Current2Voltaje88,'Ibias',num2str(Ibias88));
set_param(Current2Voltaje88,'Ro',num2str(Ro88));
end

if isempty(find_system(gcs,'Name','Regenerator9'))~=1
    
    Current2Voltaje99=([gcs,'/','Regenerator9']);
    Senal99=get_param(Current2Voltaje99,'sel');
    Frecuencia99=get_param(Current2Voltaje99,'frec');
    
%==============================================

switch (Frecuencia99)
    case '1310'
        switch (Senal99)
            case 'STS-12/STM-4'
                Ro99=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.012;
            case 'STS-48/STM-16'
                Ro99=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.012;
            otherwise
                Ro99=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.011;
        end
        
    case '1550'
        switch (Senal99)
            case 'STS-12/STM-4'
                Ro99=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.012;
            case 'STS-48/STM-16'
                Ro99=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.012;
            otherwise
                Ro99=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias99=0.02;
        end
end
set_param(Current2Voltaje99,'Ibias',num2str(Ibias99));
set_param(Current2Voltaje99,'Ro',num2str(Ro99));
end

if isempty(find_system(gcs,'Name','Regenerator10'))~=1
    
    Current2Voltaje100=([gcs,'/','Regenerator10']);
    Senal100=get_param(Current2Voltaje100,'sel');
    Frecuencia100=get_param(Current2Voltaje100,'frec');
    
%==============================================

switch (Frecuencia100)
    case '1310'
        switch (Senal100)
            case 'STS-12/STM-4'
                Ro100=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.012;
            case 'STS-48/STM-16'
                Ro100=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.012;
            otherwise
                Ro100=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.011;
        end
        
    case '1550'
        switch (Senal100)
            case 'STS-12/STM-4'
                Ro100=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.012;
            case 'STS-48/STM-16'
                Ro100=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.012;
            otherwise
                Ro100=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias100=0.02;
        end
end
set_param(Current2Voltaje100,'Ibias',num2str(Ibias100));
set_param(Current2Voltaje100,'Ro',num2str(Ro100));
end
Vo(:,:)=u(:,:);
end
%[EOF] current2voltage.m