【求助】 如何使用ParametricPlot3D画圆柱径向振动位移图?
mathematica吧
全部回复
仅看楼主
level 3
前情提示,观以下两个链接的帖子联想到自己的问题;
链接1:https://zhidao.baidu.com/question/1832677274954394380
链接2:https://tieba.baidu.com/p/4093245267?pid=77170175789&cid=0#77170175789
背景:最近做了一篇圆柱壳非线性振动的问题,我想画出圆柱壳表面振动径向(柱坐标下的径向r方向)位移云图,但是不知道怎么画出来;由于我本身的计算程序偏长,故此处贴出一个简单的由chatgpt生成的圆柱壳振动程序作为例子:
此程序生成的三维云图不是所需要的径向振动位移云图,请问如何修改呢?
Clear["Global`*"];
radius = 1; (*圆柱体的半径*)
height = 3; (*圆柱体的高度*)
amplitude = 0.1; (*振幅*)
frequency = 5; (*频率*)
vibrationFunction[v_] := amplitude Sin[frequency v]; (*振动位移函数*)
ParametricPlot3D[{(1 + vibrationFunction[v]) Cos[
u], (1 + vibrationFunction[v]) Sin[u], v}, {u, 0, 2 Pi}, {v, 0,
height},
ColorFunction -> Function[{x, y, z, u, v}, ColorData["Rainbow"][v]],
ColorFunctionScaling -> False, PlotPoints -> 100, Boxed -> False,
Axes -> False, Mesh -> None, Lighting -> "Neutral"]
2023年05月10日 06点05分 1
吧务
level 10
SliceDensityPlot3D
2023年05月15日 19点05分 2
吧务
level 10
CHATGPT在MMA上的训练资料较少,经常凭空捏造函数,新手不宜采信。
2023年05月15日 19点05分 3
吧务
level 15
插一句,虽然和LZ的需求有所区别,但是对于位移可视化,13.0新增的 VectorDisplacementPlot 和 VectorDisplacementPlot3D 也是值得考虑的函数。
2023年06月03日 03点06分 4
1