function [ I ] = TargetCurrent( V, elon_rate)
%Returns Current that cooresponds to specified Voltage
%disp(['elon_rate = ' num2str(elon_rate)]);
%disp(['sign(elon_rate) = ' num2str(sign(elon_rate))]);

global scale;
global fudge;

%if (sign(elon_rate) == 1)  %Elongating
%    I = V/20;  %Example case, 20 ohm line
%else  %Retracting
%    I = V/40;
%end
%scale = 0.7;
%fudge = 0.6;
    I = BuoyVIController_V1( V, scale, fudge, sign(elon_rate) );
%disp(['I in TargetCurrent = ' num2str(I)]);
%disp(['elon_rate in TargetCurrent = ' num2str(elon_rate)]);

%disp(['Eff R = ',num2str(V/I)]);
end

