fotodiodo.asv

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

function curr=fotodiodo(luz)
%======================================================
% FOTODIODO
%    Esta funcion permite expresar la entrada optica en forma de corriente.
%O sea, llevar la entrada a un nivel electrico.
%                             
%           Sigue la siguiente ecuacion:
%
%                               I (mA)=Pot_Rec/R
%         
%           Donde:  Pot_Rec  (mW)  = Potencia que llega al fotodetector.Depende del tipo de senal y 
%                                                    de la longitud de onda.
%                        R  (mW/mA)     = Responsividad del Fotodetector. Depende del tipo de material
%                                                    de que este hecho el fotodetector. 
%                                                                                    
%======================================================
%
%	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
BK=([gcs,'/','Fotodetector']);
tipo_senal=get_param(BK,'selSS');
frecuencia=get_param(BK,'frecSS');
%
%Inicializacion de Variables
[a b]=size(luz);
I=zeros(a,b);
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*(u(i)-Ith); %u(:,:)=Iop;
end

curr=Pot(:,:);

end
% [EOF] laser.m