New answers tagged

7

For completion I also post here my Wolfram Community answer. A direct translation of the code is not possible as that function does not exist (ListParametricPlot3D or so). But we can recreate the graphic "manually" by recreating the polygons, or rewrite the code to use ParametricPlot3D (preferred and nicer), I included both: t = 0; A = 2; c1 = 1; ...


13

As mentioned in the comment above, one should use ParametricPlot3D for the task: t = 0; A = 2; c1 = 1; c2 = 1; c = 1/25; omega = 2; With[{sinh = Sinh, cosh = Cosh, tanh = Tanh, sech = Sech}, P = ((2 sinh@(xi + omega t))/(3 cosh@(xi + omega t))) + ((5 sinh@(xi + omega t))/(6 cosh@(xi + omega t))^3) + 0.9; Q = -(sinh@(eta))/(cosh@(eta)); x = ...


Top 50 recent answers are included