Re: More Epilogs

• To: mathgroup at smc.vnet.net
• Subject: [mg23696] Re: [mg23654] More Epilogs
• From: BobHanlon at aol.com
• Date: Mon, 29 May 2000 12:24:25 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```In a message dated 5/28/2000 11:30:03 PM, mitterma at linz.vai.co.at writes:

>does anyone know how to combine 2 plots with 2 epilogs in a Show command??
>
>
>p1=Plot[Sin[x], {x,0,2 Pi}, Epilog-> {PointSize[0.05],Hue[1],Point[{0,1}]},
>DisplayFunction->Identity];
>p2=Plot[Cos[x], {x,0,2 Pi}, Epilog-> {PointSize[0.05],Hue[1],Point[{0,0}]},
>DisplayFunction->Identity];
>Show[p1,p2,DisplayFunction->\$DisplayFunction]
>
>unfortunately only one Epilog is plotted.
>

p1 = Plot[Sin[x], {x, 0, 2 Pi},
Epilog -> {PointSize[0.05], Hue[1], Point[{0, 1}]},
DisplayFunction -> Identity];

p2 = Plot[Cos[x], {x, 0, 2 Pi},
Epilog -> {PointSize[0.05], Hue[1], Point[{0, 0}]},
DisplayFunction -> Identity];

Show[{p1, p2},
Epilog  -> Join[Epilog /. AbsoluteOptions[p1, Epilog],
Epilog /. AbsoluteOptions[p2, Epilog]],
DisplayFunction -> \$DisplayFunction];

Bob

BobHanlon at aol.com

```

• Prev by Date: [Q] accuracy control in eq. solving?
• Next by Date: Re: How can I make a relation between two lists
• Previous by thread: Re: More Epilogs
• Next by thread: RE: More Epilogs