current2voltage.m

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

function Vo=current2voltage(u)
%==============================================
% current2voltage= Esta funcion permite transformar el valor de la corriente de entrada
% a voltage.
%==============================================
%
%	AUTORES : Z. AGUINO & D. STECKLER
%                       Universidad de Carabobo
%                       Valencia edo. Carabobo, VENEZUELA
%
%	FECHA     : Diciembre 2003
%	VERSION : 1.0
%
%==============================================
%	Realizado bajo MATLAB 6.5 Release 13/ Diciemdre 2003 (DZ)
%==============================================
%
%

%[c d]=size(u);
%Vo=zeros(c,d);

if isempty(find_system(gcs,'Name','Regenerator'))~=1
    
    Current2Voltaje1=([gcs,'/','Regenerator']);
    Senal=get_param(Current2Voltaje1,'sel');
    Frecuencia=get_param(Current2Voltaje1,'frec');
    
%==============================================

switch (Frecuencia)
    case '1310'
        switch (Senal)
            case 'STS-12/STM-4'
                Ro=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            case 'STS-48/STM-16'
                Ro=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            otherwise
                Ro=43.3333333333;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.011;
        end
        
    case '1550'
        switch (Senal)
            case 'STS-12/STM-4'
                Ro=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            case 'STS-48/STM-16'
                Ro=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            otherwise
                Ro=20;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.02;
        end
end

set_param(Current2Voltaje1,'Ibias',num2str(Ibias));
set_param(Current2Voltaje1,'Ro',num2str(Ro));
end

if isempty(find_system(gcs,'Name','Regenerator1'))~=1
    
    Current2Voltaje11=([gcs,'/','Regenerator1']);
    Senal11=get_param(Current2Voltaje11,'sel');
    Frecuencia11=get_param(Current2Voltaje11,'frec');
    
%==============================================

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

if isempty(find_system(gcs,'Name','Regenerator2'))~=1
    
    Current2Voltaje22=([gcs,'/','Regenerator2']);
    Senal22=get_param(Current2Voltaje22,'sel');
    Frecuencia22=get_param(Current2Voltaje22,'frec');
    
%==============================================

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

if isempty(find_system(gcs,'Name','Regenerator3'))~=1
    
    Current2Voltaje33=([gcs,'/','Regenerator3']);
    Senal33=get_param(Current2Voltaje33,'sel');
    Frecuencia33=get_param(Current2Voltaje33,'frec');
    
%==============================================

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

if isempty(find_system(gcs,'Name','Regenerator4'))~=1
    
    Current2Voltaje44=([gcs,'/','Regenerator4']);
    Senal44=get_param(Current2Voltaje44,'sel');
    Frecuencia44=get_param(Current2Voltaje44,'frec');
    
%==============================================

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

if isempty(find_system(gcs,'Name','Regenerator5'))~=1
    
    Current2Voltaje55=([gcs,'/','Regenerator5']);
    Senal55=get_param(Current2Voltaje55,'sel');
    Frecuencia55=get_param(Current2Voltaje55,'frec');
    
%==============================================

switch (Frecuencia55)
    case '1310'