voltage2current.asv

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

function I=voltage2current(V)
%==============================================
% voltage2current= Esta funcion permite transformar el valor del voltage de la entrada
%                           a corriente.
%==============================================
%
%	AUTORES : Z. AGUI%O & 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)
%==============================================
%
%
[a b]=size(V);
R=0;
Im=zeros(a,b);
%
blk=([gcs,'/','Laser']);
S=get_param(blk,'sel');
T=get_param(blk,'frec');
%
%
switch (T)
    case '1310'
        switch (S)
            case 'STS-12/STM-4'
                R=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            case 'STS-48/STM-16'
                R=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            otherwise
                R=36.6666666667;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.011;
        end
        
    case '1550'
        switch (S)
            case 'STS-12/STM-4'
                R=60;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            case 'STS-48/STM-16'
                R=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.012;
            otherwise
                R=31.4285714285;  %Las unidades de la resistencia son "Ohmios".
                Ibias=0.017;
        end
end

%%%%%%%%%%%%%%
for i=1:b
    if (V(i)>=1);
        Im(i)=Ibias + V(i)/R;
    else (V(i)==0);
        Im(i)=0.012;
                    end
                end
I=Im(:,:);

end
% [EOF] voltage2current.m