Question

如何用mathematica画同心圆？语法越简单越好

因为要画一百个同心圆，大致如图

Answer 1

代码：

n = 0.3;

ParametricPlot[{{v Cos[u], v Sin[u]}, {n Cos[u] + 1, 

   n Sin[u] + 1}, {(3 n)/4 Cos[u] + 1, (3 n)/4 Sin[u] + 

    1}, {(2 n)/4 Cos[u] + 1, (2 n)/4 Sin[u] + 1}, {(1 n)/4 Cos[u] + 

    1, (1 n)/4 Sin[u] + 1}}, {u, 0, 2 Pi}, {v, 1, 3}, 

 AspectRatio -> 1, PlotRange -> All]

 

具体参数：n表示小圆的半径，v 的范围表示同心圆的个数。

你可以根据你的需要来设定参数。

Answer 2

图为100个同心圆

比如画十个同心圆：

PolarPlot[Table[i, {i, 1, 10}], {th, 0, 2 \[Pi]}]