voltage2current.asv

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

                Iop55=0.03-Ibias55;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias55=0.011;
                Iop55=0.03-Ibias55;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR55)
            case 'STS-12/STM-4'
                Ibias55=0.012;
                Iop55=0.02-Ibias55;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias55=0.012;
                Iop55=0.035-Ibias55;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias55=0.02;
                Iop55=0.065-Ibias55;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB55,'Iop',num2str(Iop55));
 set_param(LB55,'Ibias',num2str(Ibias55));
end

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

    LB66=([gcs,'/','Laser6']);
    LR66=get_param(LB66,'sel'); 
    LM66=get_param(LB66,'frec');
    
    
    switch (LM66)
    case '1310'
        switch (LR66)
            case 'STS-12/STM-4'
                Ibias66=0.012;
                Iop66=0.02-Ibias66;  %Las unidades de la resistencia son "Amperes".
            case 'STS-48/STM-16'
                Ibias66=0.012;
                Iop66=0.03-Ibias66;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias66=0.011;
                Iop66=0.03-Ibias66;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR66)
            case 'STS-12/STM-4'
                Ibias66=0.012;
                Iop66=0.02-Ibias66;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias66=0.012;
                Iop66=0.035-Ibias66;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias66=0.02;
                Iop66=0.065-Ibias66;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB66,'Iop',num2str(Iop66));
 set_param(LB66,'Ibias',num2str(Ibias66));
end

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

    LB77=([gcs,'/','Laser7']);
    LR77=get_param(LB77,'sel'); 
    LM77=get_param(LB77,'frec');
    
    
    switch (LM77)
    case '1310'
        switch (LR77)
            case 'STS-12/STM-4'
                Ibias77=0.012;
                Iop77=0.02-Ibias77;  %Las unidades de la resistencia son "Amperes".
            case 'STS-48/STM-16'
                Ibias77=0.012;
                Iop77=0.03-Ibias77;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias77=0.011;
                Iop77=0.03-Ibias77;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR77)
            case 'STS-12/STM-4'
                Ibias77=0.012;
                Iop77=0.02-Ibias77;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias77=0.012;
                Iop77=0.035-Ibias77;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias77=0.02;
                Iop77=0.065-Ibias77;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB77,'Iop',num2str(Iop77));
 set_param(LB77,'Ibias',num2str(Ibias77));
end

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

    LB88=([gcs,'/','Laser8']);
    LR88=get_param(LB88,'sel'); 
    LM88=get_param(LB88,'frec');
    
    
    switch (LM88)
    case '1310'
        switch (LR88)
            case 'STS-12/STM-4'
                Ibias88=0.012;
                Iop88=0.02-Ibias88;  %Las unidades de la resistencia son "Amperes".
            case 'STS-48/STM-16'
                Ibias88=0.012;
                Iop88=0.03-Ibias88;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias88=0.011;
                Iop88=0.03-Ibias88;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR88)
            case 'STS-12/STM-4'
                Ibias88=0.012;
                Iop88=0.02-Ibias88;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias88=0.012;
                Iop88=0.035-Ibias88;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias88=0.02;
                Iop88=0.065-Ibias88;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB88,'Iop',num2str(Iop88));
 set_param(LB88,'Ibias',num2str(Ibias88));
end

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

    LB99=([gcs,'/','Laser9']);
    LR99=get_param(LB99,'sel'); 
    LM99=get_param(LB99,'frec');
    
    
    switch (LM99)
    case '1310'
        switch (LR99)
            case 'STS-12/STM-4'
                Ibias99=0.012;
                Iop99=0.02-Ibias99;  %Las unidades de la resistencia son "Amperes".
            case 'STS-48/STM-16'
                Ibias99=0.012;
                Iop99=0.03-Ibias99;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias99=0.011;
                Iop99=0.03-Ibias99;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR99)
            case 'STS-12/STM-4'
                Ibias99=0.012;
                Iop99=0.02-Ibias99;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias99=0.012;
                Iop99=0.035-Ibias99;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias99=0.02;
                Iop99=0.065-Ibias99;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB99,'Iop',num2str(Iop99));
 set_param(LB99,'Ibias',num2str(Ibias99));
end

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

    LB100=([gcs,'/','Laser10']);
    LR100=get_param(LB100,'sel'); 
    LM100=get_param(LB100,'frec');
    
    
    switch (LM100)
    case '1310'
        switch (LR100)
            case 'STS-12/STM-4'
                Ibias100=0.012;
                Iop100=0.02-Ibias100;  %Las unidades de la resistencia son "Amperes".
            case 'STS-48/STM-16'
                Ibias100=0.012;
                Iop100=0.03-Ibias100;  %Las unidades de la resistencia son "Amperes".
            otherwise
                Ibias100=0.011;
                Iop100=0.03-Ibias100;  %Las unidades de la resistencia son "Amperes".
                
        end
        
    case '1550'
        switch (LR100)
            case 'STS-12/STM-4'
                Ibias100=0.012;
                Iop100=0.02-Ibias100;  %Las unidades de la resistencia son "Amperes".
                
            case 'STS-48/STM-16'
                Ibias100=0.012;
                Iop100=0.035-Ibias100;  %Las unidades de la resistencia son "Amperes".
                
            otherwise
                Ibias100=0.02;
                Iop100=0.065-Ibias100;  %Las unidades de la resistencia son "Amperes".
                
        end
    end

 set_param(LB100,'Iop',num2str(Iop100));
 set_param(LB100,'Ibias',num2str(Ibias100));
end

I=V;
end