2
$\begingroup$

I would like to see some limits and plots of the Hypergeometric2F1 function in Mathematica 13.0. I don't have experience with hypergeometric functions, but need to compute the following limit and plot the inverse of this function:

g[x_]:=Sqrt[(x^2 (2/3 - a + b))/(-(2/3) + a)]Hypergeometric2F1[1/2, 1/(2 + 3 a - 3 b), 1 + 1/(2 + 3 a - 3 b), -((f x^(2 + 3 a - 3 b) (2/3 - a + b))/(-(2/3) + a))]

where a,b and f are positive values and a>b.

 With[{a = 1.3, b = 0.7, f = 0.001}, 
 ContourPlot[Sqrt[(x^2 (2/3 - a + b))/(-(2/3) + a)]Hypergeometric2F1[1/2, 1/(2 + 3 a -3 b), 1 + 1/(2 + 3 a - 3 b), -((f x^(2 + 3 a - 3 b) (2/3 - a + b))/(-(2/3) + a))] == t, {t, 1, 2}, {x, 1, 2}, AspectRatio -> Automatic, FrameLabel -> {t, x}]]
$\endgroup$
1
  • $\begingroup$ Please note, that you state that you need the computation of a limit but you don't mention which limit that is. $\endgroup$
    – bmf
    Commented Apr 30, 2022 at 19:01

1 Answer 1

3
$\begingroup$

enter image description here

  Block[{a = 1.3, b = 0.7, f = .01, ps = {1, 2}, eqns}, 
  eqns[p_] := (Sqrt[(x^2 (2/3 - a + b))/(-(2/3) + a)]) Hypergeometric2F1[1/2, 1/(2 + 3 a - 3 b), 1 + 1/(2 + 3 a - 3 b), -((f x^(2 + 3 a - 3 b) (2/3 - a + b))/(-(2/3) + a))] == p t;
  ContourPlot[Evaluate[eqns /@ ps], {t, 0.1, 5}, {x, 0.1, 100},AspectRatio -> 1, FrameLabel -> {t, x}, PlotLegends -> StringTemplate["p = ``"] /@ ps]]
$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.