Die Integrale ∫∞0dx(a+bxc)d(e+fxg)h∫0∞dx(a+bxc)d(e+fxg)h\int_0^\infty \frac{\mathrm{d}x}{( a+bx^c)^d(e+fx^g)^h} und ∫∞0xe(a+bxc)ddx∫0∞xe(a+bxc)ddx\int_0^\infty \frac{x^e} {(a+bx^c)^d}\mathrm{d}x

Ich interessiere mich für uneigentliche Integrale rationaler Funktionen. Das habe ich zum Beispiel gefunden

0 D X ( A + B X C ) D = Γ ( 1 C + 1 ) Γ ( D 1 C ) Γ ( D ) A D 1 C B 1 C
für A , B , C , D C so gewählt, dass das Integral konvergiert. Gibt es eine Möglichkeit, dies weiter zu verallgemeinern, um den Wert von zu finden?
0 D X ( A + B X C ) D ( e + F X G ) H  oder  0 X e ( A + B X C ) D D X

Die zweite ist mit der Beta-Funktion ziemlich trivial, ähnlich wie bei der, bei der Sie das Ergebnis gefunden haben. Ich glaube, der erste wird keine anständige geschlossene Form haben.
Für den ersten, hör auf zu träumen!

Antworten (2)

Dank des Kommentars von Zacky habe ich die Antwort auf das zweite Integral gefunden, indem ich die Beta-Funktion verwendet habe, insbesondere die Integraldefinition

B ( X , j ) = 0 T X 1 ( 1 + T ) X + j D T
Lösung geben
0 X e ( A + B X C ) D D X = A e + 1 C Γ ( e + 1 C ) Γ ( D e + 1 C ) A D B e + 1 C C Γ ( D )

Konzentrieren wir uns auf das erste Integral. Wir nehmen an, dass A , B , e Und F sind positive reelle Zahlen und das C , G , D Und H sind alle positiven ganzen Zahlen größer gleich eins. Ausgangspunkt ist die Partialbruchzerlegung:

1 A + B X C = 1 B C ( B A ) C 1 C e ich π C ( C 1 ) P = 0 C 1 ( 1 ) 2 P C X ( A B ) 1 / C e ich π 2 P + 1 C
Schreiben Sie nun eine weitere Kopie des obigen mit ( A , B , C ) ersetzt werden durch ( e , F , G ) jeweils und dann Multiplizieren des Originals mit der Kopie ergibt:
1 A + B X C 1 e + F X G = e ich π ( 1 C 1 G + 2 ) ( B A ) 1 1 C ( F e ) 1 1 G B C F G P = 0 C 1 Q = 0 G 1 ( 1 X e ich π ( 2 P + 1 ) C ( A B ) 1 C 1 X e ich π ( 2 Q + 1 ) G ( e F ) 1 G ) ( 1 ) 2 P C + 2 Q G e ich π ( 2 P + 1 ) C ( A B ) 1 C e ich π ( 2 Q + 1 ) G ( e F ) 1 G
Der obige Ausdruck eignet sich perfekt, um die Stammfunktion in Bezug auf zu finden X . Nachdem wir dies getan haben, werten wir das Integral bezüglich aus X von null bis unendlich und dann berechnen wir die A -Derivat ( D 1 ) mal und dann die e -Derivat ( H 1 ) mal. Nachdem wir dies getan haben, multiplizieren wir das Ganze mit ( 1 ) D + H / ( ( D 1 ) ! ( H 1 ) ! ) . Das gibt:
0 1 ( A + B X C ) D 1 ( e + F X G ) H D X = ( 1 ) D + H B C F G ( D 1 ) ! ( H 1 ) ! e ich π ( 1 C 1 G + 2 ) D 1 ξ D 1 H 1 η H 1 [ ( B ξ ) 1 1 C ( F η ) 1 1 G P = 0 C 1 Q = 0 G 1 ( Protokoll ( ξ B ) C + ich π ( 2 C Q + C 2 G P G ) C G + Protokoll ( η F ) G ) ( 1 ) 2 P C + 2 Q G e ich π ( 2 P + 1 ) C ( ξ B ) 1 C e ich π ( 2 Q + 1 ) G ( η F ) 1 G ] | ( ξ , η ) = ( A , e )
Es ist klar, dass das Ergebnis noch vereinfacht werden kann, indem man die Kettenregel der Differentiation anwendet.

For[count = 1, count <= 50, count++,
  {a, b, e, f} = RandomReal[{0, 10}, 4, WorkingPrecision -> 50];
  {c, g, d, h} = RandomInteger[{1, 10}, 4];
  I1 = NIntegrate[1/(a + b x^c)^d 1/(e + f x^g)^h, {x, 0, Infinity}, 
    WorkingPrecision -> 30];
  I2 = 1/(b c ) 1/(f g ) (-1)^(
    d + h)/((d - 1)! (h - 1)!) (D[
       Exp[-I Pi (2 - 1/c - 1/g)] (b/xi)^(1 - 1/c) (f/eta)^(1 - 1/g)
         Sum[( -1/c Log[ xi/b ] + 1/g Log[eta/f ] + (
            I \[Pi] (c - g - 2 g p + 2 c q))/(c g)) (-1)^(
          2 p/c + 2 q/g)/((xi/b)^(1/c)
             Exp[(I Pi (2 p + 1))/c] - (eta/f)^(1/g)
             Exp[(I Pi (2 q + 1))/g]), {p, 0, c - 1}, {q, 0, 
          g - 1}], {xi, d - 1}, {eta, h - 1}] /. {xi :> a, eta :> e});
  If[Abs[I2/I1 - 1] > 10^(-3), 
   Print["mismatch..", {a, b, e, f, c, g, d, h}]; Break[]];
  PrintTemporary[count];
  ];