I just updated my Mathematica for Windows to 13.3 and when I tried to use the "Graphics MeshFindIntersections" command it doesn't seem to work. Have they replaced it with some other command or is it a bug in the new update?
Code used
T[rh_, Q_, P_] := 1/(4 \[Pi] rh) (1 + 8 \[Pi] P rh^2 - Q^2/rh^2)
M[rh_, Q_, P_] := rh/2 + (4 \[Pi] P rh^3)/3 + Q^2/(2 rh)
V[rh_] := 4/3 \[Pi] rh^3
S[rh_] := \[Pi] rh^2
G[rh_, Q_, P_] = Simplify[M[rh, Q, P] - (T[rh, Q, P] S[rh])];
{rc, Pc} =
SolveValues[{D[T[rh, Q, P], {rh, 2}] == 0,
D[T[rh, Q, P], rh] == 0}, {rh, P}][[2]];
Vc = V[rc]; Tc = T[rc, Q, Pc]; Gc = G[rc, Q, Pc];
T = t Tc; P = p Pc; rh = z rc; G = g Gc;
t[z_, p_] =
SolveValues[{T == 1/(4 \[Pi] rh) (1 + 8 \[Pi] P rh^2 - Q^2/rh^2)},
t][[1]];
g[z_, p_] =
SolveValues[{G == (3 Q^2)/(4 rh) + rh/4 - 2/3 P \[Pi] rh^3}, g][[1]];
pplt = ParametricPlot[Evaluate@{t[z, 0.5], g[z, 0.5]}, {z, 0, 10},
PlotRange -> {{0.6, 1.3}, {0.8, 1.3}}, AspectRatio -> 1]
ip = Graphics`Mesh`FindIntersections@pplt
T
is a function name and a parameter name! $\endgroup$