This code gives me two sets of concentric circles with respective radii of 2n
and 2n-1
:
With[{n = 5}, Show[Graphics[
({{Circle[{0, 0}, 2*#1]}, {Circle[{0, 0},
2*#1 - 1]}} & ) /@ Range[n]], Axes -> True]]
I would like alternating circles to be red and blue. I don't want to change anything else. But I can't figure out where to insert a PlotStyle
instruction...
Any suggestions?