Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: More Epilogs

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

In a message dated 5/28/2000 11:30:03 PM, mitterma 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}]},
>p2=Plot[Cos[x], {x,0,2 Pi}, Epilog-> {PointSize[0.05],Hue[1],Point[{0,0}]},
>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];


BobHanlon at

  • 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