% 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;