在mathematica中为给定的函数值和半径绘制轮廓圆答案

【问题标题】：Plotting contour circles in mathematica for a given function value and radius在mathematica中为给定的函数值和半径绘制轮廓圆
【发布时间】：2021-04-10 23:55:06
【问题描述】：

我对每个离散的 x 值都有一个 f(x) 的任意函数。该函数的值是圆对称的。我想使用 x 作为半径和 f(x) 的值作为该图的高度在数学中绘制这些圆。你能帮我吗？另外我不知道如何使用数字列表作为输入来绘制 3D 离散圆。我试过了

Plot3D[f*Exp[I*phi], {x, 0, 10}, {phi, 0, 2*Pi}]

或

ContourPlot[f*Exp[I*phi], {x, 0, 10}, {phi, 0, 2*Pi}]

什么都没有出现！

【问题讨论】：

标签： wolfram-mathematica

【解决方案1】：

试试这个

f[x_]:=x^2;
Show[
  Map[(x=#;ParametricPlot3D[{x*Cos[phi],x*Sin[phi],f[x]},{phi,0,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 将所有这些值组合成一个图。

【讨论】：

感谢您的回复。我已经尝试过了并且有效。你能帮我画出等高线图吗？我怎样才能在上面添加一个颜色条？
试试f[x_,y_]:=x^2+y^2; ContourPlot[f[x,y],{x,-4,4},{y,-4,4},Contours->{1,4,9,16},ContourLabels->True] 查看ContourPlot 的文档并单击橙色的详细信息和选项并阅读其中的每一行。也许这会帮助你理解这一点，看看你接下来需要做什么。