[Maxima-discuss] series for bessel functions

[Dimiter P. <dim...@gm...>]

Dear all,

I am trying to extend series.lisp with Bessel J functions

This is how far am I

   ;; Bessel J function
  (defprop %bessel_j
    ((%sum) ((mtimes)
    ((mexpt) -1 *index)
    ((mexpt) ((mfactorial) *index )  -1)
((mexpt) ((%gamma) ( (mplus) *index sp2var 1 ))  -1)
    ((mexpt) var ((mplus) ((mtimes) 2 *index) sp2var))
((mexpt) 2 ((mtimes) ((mplus) ((mtimes) 2 *index) sp2var) -1 )) )
     *index 0 $inf)
  sp2)

How to get the second variable instead of 'var'?

best regards,

Dimiter