Wolfram mathematica 在mathematica中绘制给定函数值和半径的等高线圆

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

或

什么也没出现

试试这个

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的特定数字列表，您可以将

范围[1,10]

替换为

{5,7,3/2,1.8}

---

Map函数为x的每个离散值创建了一个ParametericPlot3D，然后Show将所有这些值合并到一个绘图中。

谢谢您的回复。我已经试过了，效果很好。你能帮我做等高线图吗？我怎样才能给它添加一个颜色条呢；ContourPlot[f[x，y]，{x，-4,4}，{y，-4,4}，ContourPlot->{1,4,9,16}，ContourLabels->True]查看

ContourPlot

的文档，单击橙色的详细信息和选项，阅读其中的每一行。也许这会帮助你理解这一点，看看你下一步需要做什么。

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

f[x_]:=x^2;
Show[
  Map[(x=#;ParametricPlot3D[{x*Cos[phi],x*Sin[phi],f[x]},{phi,0,2Pi}])&,Range[1,10]],
  PlotRange->All
]