plotting – ParametricPlot3D with tube and arrow – Mathematica Stack Exchange

f[x_, y_] = x y/(x^2 + y^2);Show[ Plot3D[f[x, y], {x, -1, 1}, {y, -1, 1}, PlotStyle -> Opacity[0.5], MeshStyle -> Opacity[0.5], MeshFunctions -> Function[{x, y, z}, z], RegionFunction -> Function[{x, y, z}, x^2 + y^2 > 0.01], AxesLabel -> {“x”, “y”, “z”}, ViewPoint -> {2.3, -2.4, 0.7}], ParametricPlot3D[{t, 2 t, f[t, 2 t]}, {t, -1/2, -Sqrt[0.002]}, PlotStyle -> Directive[Red, Thickness[0.02]]] /. Line -> Composition[Arrow, Tube], Graphics3D[{ Blue, Arrow[Tube[{{1, 0, 0}, {0.1, 0, 0}}, 0.02]], Blue, Arrow[Tube[{{0, -1, 0}, {0, -0.1, 0}}, 0.02]] }] ]

Source: plotting – ParametricPlot3D with tube and arrow – Mathematica Stack Exchange

Advertisements