laser.asv

matlab在通信原理中的应用

function luz=laser(u)
%======================================================
% LASER
%    Esta funcion permite expresar la entrada electrica en forma de corriente.
%O sea, llevar la entrada a un nivel optico.
%                             
%           Sigue la siguiente ecuacion:
%
%                               Pot_Emit (mW) = (hw/2q)(Nd)(I-Ith) =  Nd(I-Ith)
%         
%           Donde:  hw/2q (eV)       = 1 (Ref. SERWAY. Fisica Tomo II. McGraw Hill. Mexico,1997.)
%                        Nd  (mW/mA)  = Eficiencia del Laser. Depende del material.
%                        Ith  (mA)          = Corriente Umbral. Depende de la Temperatura y del Material.
%                                                    Sigue la sig. ecuacion:
%                                                                                    Ith=Io*e^(T/To)
%
%======================================================
%
%	AUTORES : Z. AGUI%O & D. STECKLER
%                       Universidad de Carabobo
%                       Valencia edo. Carabobo, VENEZUELA
%
%	FECHA     : Enero 2004
%	VERSION : 1.0
%
%======================================================
%	Realizado bajo MATLAB 6.5 Release 13/ Enero 2004 (DZ)
%======================================================
%
%Obtencion de Parameros del Bloque
B=([gcs,'/','Laser']);
tipo_senal=get_param(B,'sel');
frecuencia=get_param(B,'frec');
%
%Inicializacion de Variables
[a b]=size(u);
Nd=0;%Esta tomara valores tipicos dependiendo del tipo de laser.
Ith=0;% Corriente Threshold, tomara valores tipicos.
%
%
%======================================================
%
%Calculo dependiendo de los parametros obtenidos
%
switch (tipo_senal)
    
case 'STS-12/STM-4'  %622 Mbps
    switch (frecuencia)
        case '1330'
            Nd=0.5;
            Ith= 10;
        case '1550'
            Nd=0.25;
            Ith= 10;
    end
    
case 'STS-48/STM-16'   %2.5 Gbps
    switch (frecuencia)
        case '1330'
            Nd=0.25;
            Ith= 10;
        case '1550'
            Nd=0.22;
            Ith= 10;
    end
    
 case 'STS-192/STM-64'   %10 Gbps
     switch (frecuencia)
        case '1330'
            Nd=0.25;
            Ith= 9;
        case '1550'
            %Datasheet LUCENT
            Nd=0.2;
            Ith= 15;
    end

 case 'STS-768/STM-256'   %40 Gbps
    switch (frecuencia)
        case '1330'
            Nd=0.25;
            Ith= 9;
        case '1550'
            Nd=0.2;
            Ith= 15;
    end
    
end

for i=1:b
    Pot(i)=Nd*(Iop(i)-Ith); %Iop=u(:,:);
end

luz=Pot(:,:);

end
% [EOF] laser.m