wolfram-mathematica - z 軸のみに parametricplot3d を追加する

Question

このパラメトリック プロットを z 軸にのみ追加しようとしています (現在、追加すると x、y、および z に展開されます)。この合計の効果は、正弦波の振幅の追加になります。これが私が今持っているものです。 http://imgur.com/j9hN7VR

これを実装するために使用しているコードは次のとおりです。

frequency = 1000;
speed = 13397.2441;
wavelength = speed/frequency;
s = (r - 2);
t = (r - 4);
u = (r - 6);
v = (r - 8); 
ParametricPlot3D[{{r*Cos[q] - 4, r*Sin[q], Sin[(2*Pi)/wavelength*(r)]},
  {s*Cos[q] - 2, s*Sin[q], Sin[(2*Pi)/wavelength*(s + wavelength/4 - 1)]},
  {t*Cos[q], t*Sin[q], Sin[(2*Pi)/wavelength*(t + wavelength/4 + 0.5)]},
  {u*Cos[q] + 2, u*Sin[q], Sin[(2*Pi)/wavelength*(u + wavelength/4 + 1.65)]},
  {v*Cos[q] + 4, v*Sin[q],  Sin[(2*Pi)/wavelength*(v + wavelength/4 + 3.5)]}},
  {r, 0, 25}, {q, 0, Pi}, PlotPoints -> 30, Mesh -> 20, PlotRange -> {{-25, 25}, {0, 35}, {-6, 6}}]

どんな提案でも大歓迎です！