如何解决在 mathematica 中为给定的函数值和半径绘制轮廓圆
我有一个任意函数 f(x) 和每个离散的 x 值。该函数的值是圆对称的。我想使用 x 作为半径和 f(x) 的值作为该图的高度在 mathematica 中绘制这些圆。你能帮我解决这个问题吗?另外我不知道如何使用数字列表作为输入来绘制 3D 离散圆。 我试过了
Plot3D[f*Exp[I*phi],{x,10},{phi,2*Pi}]
或
ContourPlot[f*Exp[I*phi],2*Pi}]
什么都没有显示!
解决方法
试试这个
f[x_]:=x^2;
Show[
Map[(x=#;ParametricPlot3D[{x*Cos[phi],x*Sin[phi],f[x]},{phi,2Pi}])&,Range[1,10]],PlotRange->All
]
我随意选择了一个 f[x] 并使用 {1,2,3,...10} 的列表来表示离散的 x 值。如果您有要用于 x 的特定数字列表,则可以将 Range[1,10]
替换为类似 {5,7,3/2,1.8}
的内容。
Map 函数为 x 的每个离散值创建了一个 ParametricPlot3D,然后 Show 将所有这些值组合成一个图。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。