No BSD License
function x = frac(x) % function x = frac(x) % % 05.05.04 M.Penzkofer x = x-fix(x); if (x < 0) x = x+1; end
Contact us at files@mathworks.com