wolfram-mathematica - 将曲线展开为圆形等高线图

Question

上下文：两组数据，一组是半径，r，另一组是速度，v。v可以是正数和负数。以下代码

p1=ListLogLogPlot[Table[{r[[i]],v[[i]]},{i,1,number_of_data}]]; p2=ListLogLogPlot[Table[{r[[i]],-v[[i]]},{i,1,number_of_data}],PlotStyle->{Red}]; Show[p1,p2]

用于给出一条曲线，正负 v 均以对数坐标绘制。

问题：如何绘制圆形的等高线图，Log[r] 表示到圆心的距离，速度 (Log[v]) 根据 v 的符号显示为不同但连续变化的颜色和幅度？

Answer 1

你可以使用一个DensityPlot函数：

v[r_] := Sin[r]*r^2
DensityPlot[v[Norm[{x, y}]], {x, -5, 5}, {y, -5, 5}]

您可以通过两种方式处理表格数据。您可以插值并使用上述插值函数，也可以使用ListDensityPlot函数：

ListDensityPlot[Table[With[{r = RandomReal[{0, 4}], t = RandomReal[{0, 2 Pi}]}, 
    {r Cos[t], r Sin[t], v[r]}], {10^4}]]

我希望这有帮助。