# How can I plot a function (unidimensional) in a 3D plot

I would like to plot a figure like that using Mathematica. They figure are three plane wave ( cosine or sin ) all share and have the same coordinate origin. As you observe, the waves propagate along the XZ plane.

I tried to do it as in the following

f[n_, x_] := Sin[x (2.1 n)];

ParametricPlot3D[ Evaluate[Table[{x, n, f[n, x]}, {n, 3}]], {x, 0, 2 Pi}, {y, 0, 1}]

and using

ParametricPlot3D[{{Sin[2 x], 1, x}, {Sin[2.1 x ], 1, x}, {Sin[2.2 x], 1, x}}, {x, 0, 10}]

Unfortunately, the plots are so far to be similar and nice. Please, any comment will be welcome and thanks in advance.

• Unfortunately, the plots are so far to be similar and nice. I don't get it. What is the problem? Apr 18 '19 at 17:19
• Thank for your reply: The question is how to obtain a figure similar as the book?. Apr 19 '19 at 3:20

ParametricPlot3D[

waves = ParametricPlot3D[{{t x, Sin[t x], 0}, {0 , Sin[t x], t x }, {t x , Sin[t x], t x }}, {t, 0, Pi}, {x, 0, 4}]