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