Here, I intend to plot a 3D picture of
with two implicit functions
where x, y, t, \xi, \eta, are variables. Of course, these variables can be constrained to certain interval that will guarantee the function to be well-posed.
How can I draw this one?
Cross-posted in https://mathematica.stackexchange.com/q/261815/1871
Sorry for the mistake, it does function.
Thank you for your reply.
With : t=1;
With[{t = 1}, ListPlot3D[ Flatten[Table[{x, y, func[\[Xi], \[Eta], t]} /. xyToXiEta[x, y, t], {x, -1, 1, 1/20}, {y, -1, 1, 1/20}], 2], BoxRatios -> {1, 1, 1}, Axes -> True, PlotRange -> {All, All, 2000 {-1, 1}}, AxesLabel -> {x, y, z}]]
Unfortunately,
NSolve[{x == \[Xi] - 1/2 Tanh[\[Xi] - 3/10 t] - Tanh[\[Xi] - 1/10 t] - 3/2 Tanh[\[Xi] + 1/10 t], y == \[Eta] - 3/2 Tanh[\[Eta]]}, {\[Xi], \[Eta]}, Reals]
does not function.
Thank you for your reply, it gives me a clue.
When t=0 the function you want to plot is identically zero.
t=0
