The first example below seems OK. But, should I be expecting the different behaviour in the second example?


> restart:
> p := module() option package; export foo;
> foo:=proc(x) x; end proc;
> end module:

> foo := proc(x) cos(x); end proc:

> foo(3.2);
-0.9982947758

> p:-foo(3.2);
3.2

> evalhf(p:-foo(3.2)); # OK
3.20000000000000018

> restart:
> p := module() option package; export sin;
> sin:=proc(x) x; end proc;
> end module:

> sin(3.2);
-0.05837414343

> p:-sin(3.2);
3.2

> evalhf(p:-sin(3.2)); # ?
-0.0583741434275800858


acer


Please Wait...