将曲线展开为圆形等高线图

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}]]

我希望这会有所帮助。