Hi Mario,
> (defun $g (x) (mfuncall '$exp (* x x)))
> (defun $h (x) (mfuncall '$sin (* x x)))
> (defun $f (x) (mfuncall '$erf (* x x)))
[...]
> (%o5) erf(0.01)
> (%i6) %,numer;
> (%o6) erf(0.01)
It appears the problem is that MEVAL doesn't treat $ERF the
same as %ERF in this context. I've filed a bug report:
http://sourceforge.net/tracker/index.php?func=detail&aid=1247549&group_id=4933&atid=104933
To solve the immediate problem, I find
:lisp (defun $f (x) (mfuncall '%erf (* x x)))
yields a numerical result as expected.
However you might want the argument to be (m* x x)
since that yields a meaningful result when x is
something other than a number.
Hope this helps,
Robert Dodier