1

Maple 18 で次の積分を計算しようとしています。

int(BesselK(1, x)/x^3, x);

結果は次のとおりです。

(1/16)*MeijerG([[1], []], [[-1/2, -3/2], [0]], (1/4)*x^2)

ただし、上記の結果の導出を計算すると、同じ表現表現が得られませんでした。

diff((1/16)*MeijerG([[1], []], [[-1/2, -3/2], [0]], (1/4)*x^2), x)

=(1/8)*MeijerG([[], []], [[-1/2, -3/2], []], (1/4)*x^2)/x

MeijerG 関数の代わりに修正ベッセル関数で結果を表現するように Maple に指示するにはどうすればよいですか?

ありがとう！

4

1 に答える 1

2 
restart:

igrand := BesselK(1, x)/x^3;

                                 BesselK(1, x)
                       igrand := -------------
                                       3      
                                      x       

sol := int(igrand, x);

                1         /           [[-1  -3]     ]  1  2\
         sol := -- MeijerG|[[1], []], [[--, --], [0]], - x |
                16        \           [[2   2 ]     ]  4   /

dsol := convert( diff(sol,x), StandardFunctions );

                                   /       (1/2)\
                                   |   / 2\     |
                            BesselK\1, \x /     /
                    dsol := ---------------------
                                      3          
                                     x           

simplify(dsol) assuming x>=0;

                            BesselK(1, x)
                            -------------
                                  3      
                                 x
于 2015-05-20T12:19:32.853 に答える