AW: More Epilogs
- To: mathgroup at smc.vnet.net
- Subject: [mg23679] AW: [mg23654] More Epilogs
- From: Wolf Hartmut <hwolf at debis.com>
- Date: Mon, 29 May 2000 12:24:07 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
-----Ursprüngliche Nachricht-----
Von: F. Mittermayr [SMTP:mitterma at linz.vai.co.at]
Gesendet am: Montag, 29. Mai 2000 05:09
An: mathgroup at smc.vnet.net
Betreff: [mg23654] More Epilogs
Hi,
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.
Thnx for any ideas
F. Mittermayr
you might like to try
Show[p1, p2, Epilog -> (Epilog /. Rest /@ List @@@ {p1, p2}),
DisplayFunction -> $DisplayFunction]
-- Hartmut Wolf