% function current
% compute current felt by sharks and fish
function X = current(ZZ);
X = ZZ*sqrt(-1);
X = 3*X ./ max(abs(X),.01) - ZZ;