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