function y = absmin(a,b)

if a*b < 0 
  y = 0;
elseif abs(a) < abs(b)
    y = a;
else
    y = b;
end