Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.

Topic: Epilog/Prolog and Show Question
Replies: 1   Last Post: Sep 19, 2012 4:57 AM

 David Park Posts: 1,551 Registered: 5/19/07
Re: Epilog/Prolog and Show Question
Posted: Sep 19, 2012 4:57 AM

Dan,

It has to do with the strange way that Show combines Options from the
various plots. Put all of the Epilog material in a single Epilog in the Show
statement. Essentially, that Epilog preempts any of the Plot Epilogs.

bb = Plot[Sin[x], {x, 0, 30}]
Show[bb, Epilog -> {Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]],
Inset[Graphics[Circle[]]]}]

I'm not certain what your objective is with the graphics, but it could be
done much more simply and intuitively with the Presentations Application.

<<Presentations`

Draw2D[
{Draw[Sin[x], {x, 0, 30}],
Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]],
Inset[Graphics[Circle[]]]},
AspectRatio -> 1/GoldenRatio,
Frame -> True]

Or even more simply without Inset:

Draw2D[
{Draw[Sin[x], {x, 0, 30}],
Circle[{5 \[Pi], 0}, Offset[70]],
Disk[Scaled[{0.2, 0.2}], Offset[70]]},
AspectRatio -> 1/GoldenRatio,
Frame -> True]

David Park
djmpark@comcast.net
http://home.comcast.net/~djmpark/index.html

From: Dan O'Brien [mailto:danobrie@gmail.com]

Can someone explain why Show drops the original Inset Circle[]? And how I
could make it not forget?

aa = Plot[Sin[x], {x, 0, 30}, Epilog -> Inset[Graphics[Circle[]]]] Show[aa,
Epilog -> Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]]]

bb = Plot[Sin[x], {x, 0, 30}, Epilog -> Inset[Graphics[Circle[]]]] Show[bb,
Epilog -> Inset[Graphics[Disk[{.4, .4}]], Scaled[{.2, .2}]]]