Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

With reference to my earlier post:

Adding a point to an already existing graphic

I would like to add an outer circle to the whole drawing. This outer circle is a fixed one of radius 40. Something like this is helpful:

Graphics[Circle[{0, 0}, 40]]

But I do not know exactly where to put it in my code so that it remain a fixed circle in the background.

Thanks a lot...

share|improve this question
Does adding PlotRange->All help? (I cannot test at the moment). I think the problem is that show takes the options (including the plot range) is taken from the first argument, and that's too small to see the circle. Another thing you could do is to put the large circle first (because AFAICS it doesn't intersect with the RegionPlot anyway). – celtschk Mar 24 '12 at 16:42
If you posted actual working code showing the problem, the chances would be better that anyone understands what your problem is. – celtschk Mar 24 '12 at 17:29
up vote 2 down vote accepted

You need a large enough PlotRange, or

circ11 = Show[circ, Graphics[Circle[{0, 0}, 40]], PlotRange -> All]

Edit: are you referring to Heike's code? If so, you could simply replace her plot[t] function by something like:

plot[t_] := 
 Show[Graphics[{Circle[{0, 0}, 40], 
    Translate[Rotate[{circ[[1]], Point[{0, 0}]}, om2 t], centre[t]]}],
   If[Abs[t] <= $MachineEpsilon, {}, 
   ParametricPlot[centre[s], {s, 0, t}, PlotStyle -> {Black}]], 
  PlotRange -> {{-2 radius, 2 radius}, {-2 radius, 2 radius}}, 
  Axes -> True]

and the outer circle will be visible and not fixed.

share|improve this answer

Your Answer


By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.