Inverse Weierstrass elliptic function.
InverseWeierstrassP[p, {g2, g3}]
InverseWeierstrassP[2., {1, 2}]//Chop
→ {0.7150958141802457, -5.2915026221291654}Plot[InverseWeierstrassP[x, {1, 2}], {x, 2, 6}]
→ -Graphics-ComplexPlot3D[InverseWeierstrassP[z, {1, 2}], {z, -2 - 2I, 2 + 2I}, PlotLegends -> Automatic]
→ -Graphics3D-