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
链接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"]
