Fix saving lists of arrays with recent versions of numpy
[qpms.git] / besseltransforms / vzor.m
blob0c1706e318e094f91d5666c017924eeb52d88784
1 $Assumptions = k >= 0 && k0 >= 0 && c >= 0 && n >= 0 ;
2 Simplify[Refine[Integrate[(1 - Exp[-c x])^\[Kappa] (k0 x)^(-q) Exp[
3     I k0 x] x BesselJ[n, k x], {x, 
4        0, \[Infinity]}], {\[Kappa] == kk, q == qq, n == nn}]]
5 Series[%, {k, \[Infinity], 10}]
6 Quit[ ]