4

how we can obtain a 2D projection of 3D plot. I would to have a plot like this : enter image description here PS: the plot is a publication paper.

Radia B
  • 41
  • 3

1 Answers1

6
ClearAll[f, functions]
f[u_] := {u, (1 - u) Sin[10 u], (1 - u) Cos[10 u]/3};

plotrange = 4;
padding = .5;

Construct three additional functions replacing $i^{th}$ coordinate of f[u] with a constant corresponding to the plane of projection:

functions[u_] := Prepend[f[u]][
  MapThread[ReplacePart[f[u], # -> #2 (plotrange + padding)] &, 
    {{1, 2, 3}, {-1, 1, -1}}]]

ParametricPlot3D[Evaluate@functions[u], {u, -Pi, Pi}, PlotStyle -> Thick, BoxRatios -> {1, 1, 1}, PlotPoints -> 100, PlotRange -> plotrange, PlotRangePadding -> padding, Boxed -> {Back, Bottom, Left}]

enter image description here

See also:

  1. How to project 3d image in the planes xy, xz, yz?
  2. Ellipsoid and its projections
  3. How to show the projections of 3D orbit on the three primary planes
kglr
  • 394,356
  • 18
  • 477
  • 896