Skip to main content
5 of 5
added 225 characters in body
xzczd
  • 68.4k
  • 9
  • 174
  • 489

How to plot a surface given implicitly by 3 equations in 5 coordinate variables?

I have 3 implicit equations in 5 variables: $f_1(S, y_h, y_d, x_h, J)=0$, $f_2(S, y_h, y_d, x_h, J)=0$, and $f_3(S, y_h, y_d, x_h, J)=0$. These equations determine a 3D surface in $S-y_h-y_d$ coordinate system. The equations are given below.

M = 1;
roo = 0.01;
xd = 3;

f1[S_, yh_, yd_, xh_, J_]:= 2 M (xh^2 - (yh + 1)^2)/(xh^2 + (yh + 1)^2)^2 + 
  2 S ((xh - xd)^2 - (yh + yd)^2)/((xh - xd)^2 + (yh + yd)^2)^2 + 
  J/(2 yh) == 0,

f2[S_, yh_, yd_, xh_, J_]:= M*xh (yh + 1)/(xh^2 + (yh + 1)^2)^2 + 
  S (xh - xd) (yh + yd)/((xh - xd)^2 + (yh + yd)^2)^2 == 0,

f3[S_, yh_, yd_, xh_, J_]:= J*Log[2 yh*J/roo] + 2 M (yh + 1)/(xh^2 + (yh + 1)^2) + 
  2 S (yh + yd)/((xh - xd)^2 + (yh + yd)^2) - (Log[2/roo] + 1) == 0,

where $S, y_h, y_d, x_h, J$ are Reals, $yh>0$, and $yd>0$.

I am trying to obtain the surface in the $S-yh-yd$ coordinate system like the following image. How to plot it? enter image description here

What I have tried: For 1 equation in 3 variables: $f(S, y_h, y_d) = 0$, I can use ContourPlot3D to get the surface; For equations expressed in an explicit form: $S = S(x_h, J)$, $y_h = y_h(x_h, J)$, $y_d = y_d(x_h, J)$, I can use ParametricPlot3D. But I failed when I faced this issue introduced above. Please help me. Thanks a lot for your support!

Background Information

This problem is from the paper Prominence eruptions and coronal mass ejections triggered by newly emerging flux by J. Lin, T. G. Forbes, P. A. Isenberg.