Skip to main content
edited body
Source Link
Mariusz Iwaniuk
  • 16.5k
  • 1
  • 27
  • 46

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Edited 20.07.2023:

InverseLaplaceTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s, t] ==
 InverseLaplaceTransform[FoxHReduce[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s], s, t] == (
 Gamma[1 + 1/p] Inactive[
 FoxH][{{{0, 1}, {(-1 + p)/p, 1}}, {}}, {{{0, 1}}, {{-(1/p), 
  1}, {1, -1}}}, -(1/t)])/(
 t Gamma[1/p]) == ((-(1/t))^(-1/p) Gamma[(-1 + p)/p, -t])/(
 p t) == -(ExpIntegralE[1/p, -t]/p)

. Inverse Laplace Transform of FoxH function I use forumlaformula from book on page:51

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Edited 20.07.2023:

InverseLaplaceTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s, t] ==
 InverseLaplaceTransform[FoxHReduce[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s], s, t] == (
 Gamma[1 + 1/p] Inactive[
 FoxH][{{{0, 1}, {(-1 + p)/p, 1}}, {}}, {{{0, 1}}, {{-(1/p), 
  1}, {1, -1}}}, -(1/t)])/(
 t Gamma[1/p]) == ((-(1/t))^(-1/p) Gamma[(-1 + p)/p, -t])/(
 p t) == -(ExpIntegralE[1/p, -t]/p)

. Inverse Laplace Transform of FoxH function I use forumla from book on page:51

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Edited 20.07.2023:

InverseLaplaceTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s, t] ==
 InverseLaplaceTransform[FoxHReduce[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s], s, t] == (
 Gamma[1 + 1/p] Inactive[
 FoxH][{{{0, 1}, {(-1 + p)/p, 1}}, {}}, {{{0, 1}}, {{-(1/p), 
  1}, {1, -1}}}, -(1/t)])/(
 t Gamma[1/p]) == ((-(1/t))^(-1/p) Gamma[(-1 + p)/p, -t])/(
 p t) == -(ExpIntegralE[1/p, -t]/p)

. Inverse Laplace Transform of FoxH function I use formula from book on page:51

added 597 characters in body
Source Link
Mariusz Iwaniuk
  • 16.5k
  • 1
  • 27
  • 46

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Edited 20.07.2023:

InverseLaplaceTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s, t] ==
 InverseLaplaceTransform[FoxHReduce[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s], s, t] == (
 Gamma[1 + 1/p] Inactive[
 FoxH][{{{0, 1}, {(-1 + p)/p, 1}}, {}}, {{{0, 1}}, {{-(1/p), 
  1}, {1, -1}}}, -(1/t)])/(
 t Gamma[1/p]) == ((-(1/t))^(-1/p) Gamma[(-1 + p)/p, -t])/(
 p t) == -(ExpIntegralE[1/p, -t]/p)

. Inverse Laplace Transform of FoxH function I use forumla from book on page:51

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)

Edited 20.07.2023:

InverseLaplaceTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s, t] ==
 InverseLaplaceTransform[FoxHReduce[Hypergeometric2F1[1, 1/p, 1 + 1/p, s], s], s, t] == (
 Gamma[1 + 1/p] Inactive[
 FoxH][{{{0, 1}, {(-1 + p)/p, 1}}, {}}, {{{0, 1}}, {{-(1/p), 
  1}, {1, -1}}}, -(1/t)])/(
 t Gamma[1/p]) == ((-(1/t))^(-1/p) Gamma[(-1 + p)/p, -t])/(
 p t) == -(ExpIntegralE[1/p, -t]/p)

. Inverse Laplace Transform of FoxH function I use forumla from book on page:51

Source Link
Mariusz Iwaniuk
  • 16.5k
  • 1
  • 27
  • 46

Maybe:

FullSimplify[InverseMellinTransform[InverseLaplaceTransform[
MellinTransform[Hypergeometric2F1[1, 1/p, 1 + 1/p, s/a], a, q] // 
FunctionExpand, s, x], q, a] /. a -> 1]

(*-(ExpIntegralE[1/p, -x]/p) *)