unit MyFuncs;

interface

function Phase(D: Extended): Extended;

implementation

function Phase(D: Extended): Extended;

begin
   Result:=Frac(D);
   if Result<0.0 then
      Result:=Result+1.0;
end;

end.