current2voltage.asv

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

function Vo=current2voltage(Io)
%==============================================
% current2voltage= Esta funcion permite transformar el valor de la corriente de entrada
% a voltage.
%==============================================
%
%	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)
%==============================================
%
%
[c d]=size(Io);
Ro=0;
Vol=zeros(c,d);
blk=([gcs,'/','Laser']);
Senal=get_param(blk,'sel');
Frecuencia=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 (Io(i)>=Ibias);
        Vol(i)=(Io(i)-Ibias)*R;
    else (Io(i)==Ibias);
        Vol(i)=0;
    end
end
%%%%%%%%%%%%%%
        
end

Vo=Vol(:,:);

end