% function current
% compute current felt by sharks and fish
function X = current(ZZ);
X = zeros(size(ZZ));
% X = ZZ*sqrt(-1);
% X = 3*X ./ (abs(X)) - ZZ/2;