On 8/10/08, Dieter Kaiser <drdieterkaiser at web.de> wrote:
> Perhaps the following code does it better:
>
> (let* ((arg (float arg)
> (order (float order)))
> (result (* (expt arg order)
> (expt (complex 0.0 arg) (- order))
> (bessel-j order (complex 0.0 arg))))
Unfortunately putting in this code (with a minor change --- I think
there is a parenthesis missing from the end of the first line)
doesn't seem to change the failed tests.
best
Robert Dodier