将曲线展开为圆形轮廓图

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

我希望这有助于。