Wolfram mathematica 仅在z轴上添加ParametericPlot3D

Wolfram mathematica 仅在z轴上添加ParametericPlot3D,wolfram-mathematica,Wolfram Mathematica,我试着只在z轴上添加这个参数图(现在当我添加它时,它在x,y,z轴上展开),这个加和的效果是增加正弦波的振幅。这是我现在拥有的 下面是我用来实现它的代码: 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*P

我试着只在z轴上添加这个参数图(现在当我添加它时,它在x,y,z轴上展开),这个加和的效果是增加正弦波的振幅。这是我现在拥有的

下面是我用来实现它的代码:

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}}]

如有任何建议,将不胜感激

不幸的是,我找不到这个问题的答案,所以我最终只是在MATLAB中进行模拟,而是在整个字段(矩阵中)生成所有值,然后像我在这里尝试做的那样求和。

z
s之和相对应的
x,y
是什么?我不确定是否理解你的问题,但现在这张图绘制了5个不同的波,我希望z在每个节点(例如点(0,2))上求和,而不管x和y是什么。这有意义吗?难道你不能用普通的
x,y
重新参数化你的5个波吗?是的,我试过用相同的z分量(现在是所有z分量的总和)生成5个波,但它返回相同的图形,只是振幅更大。也许你可以通过修改我上面发布的代码来准确解释你的意思?