如何使用填充PolarPlot？

解答动态

• 

  您的问题在本文中用各种方法得到了全面的回答。
  简单解决方案 1-使用PolarPlot生成图形并将其存储在变量
  =PolarPlot[{1，1+1/10sin[10t]}，{t，0，2pi}]； 2-提取图形线的用例（它将给出两条线的列表，以便应用Flatten）并从中创建多边形。（本质上重叠区域将被忽略，因此它将只显示中间的区域）然后应用Graphics
  
  =Graphics[{Gray，Opacity[.25]，多边形@展平[案例[ [[1]]，行[x]->；x，无穷大]，1]}]； 3-使用显示进行绘图两者：
  Show[ ，
  ]
  
• 

  pp=PolarPlot[{1，1+1/10 Sin[10 t]}，{t，0，2 Pi}，PlotStyle-gt；{LightRed，FilledCurve[Cases[pp，\u Line，All]]}]
  在每条曲线和产地：
  pp/。l_Line:gt；厚，ImageSize-gt；{不透明度[.5]，{随机颜色[]，填充曲线@#}gt；{Opacity[.5]，{RandomColor[]，FilledCurve@#}gt；{Opacity[.5]，{RandomColor[]，FilledCurve@#}gt；quot；]
  
• 

  Clear[quot；] 由于PolarPlot不使用填充选项，因此使用RegionPlot填充区域。
  Clear[x，y]显示[PolarPlot[{1，1+1/10 Sin[10 t]}，{t，0，2 Pi}]，RegionPlot[{（1+1/10 Sin[10 ArcTan[x，y]]）^2lt；=1，1lt；=（1+1/10 Sin[10 ArcTan[x，y]]）^2}，{x，-1.1，1}，{y，-1.1，1.1}，绘图点-gt；5，边界样式->；无]]
  
• End