function [ I ] = TargetCurrent( V, elon_rate, F_Exct,F_Thres )
%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;
if(abs(F_exct) > F_thres)
  I = BuoyVIController_V1( V, scale, fudge, sign(elon_rate) );
else
  I = 18;  %Latched as it can be.
end

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