MathGroup Archive 2000

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

Search the Archive

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