MathGroup Archive 2010

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

Search the Archive

Re: How to combine graphics pimitives and Plot function?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg107048] Re: [mg107011] How to combine graphics pimitives and Plot function?
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Mon, 1 Feb 2010 06:14:01 -0500 (EST)
  • Reply-to: hanlonr at cox.net

pts = Sort[{#, Sin[#]} & /@
    RandomReal[{-10 Pi, 10 Pi}, {100}]];

Plot[Sin[x], {x, -10 Pi, 10 Pi},
 Epilog -> {Red, Point[pts]}]

Show[Plot[Sin[x], {x, -10 Pi, 10 Pi}],
 Graphics[{Red, Point[pts]}]]

Plot[Sin[x], {x, -10 Pi, 10 Pi},
 Epilog -> {Red, Line[pts]}]

Show[Plot[Sin[x], {x, -10 Pi, 10 Pi}],
 Graphics[{Red, Line[pts]}]]


Bob Hanlon

---- a boy <a.dozy.boy at gmail.com> wrote: 

=============
points = RandomReal[{-1, 1}, {100, 2}]
Graphics[{Red, Line[points], Plot[Sin[x], {x, -10 Pi, 10 Pi}]},
 Axes -> True]

The code doesn't work. how to draw them together? ImageCompose ?



  • Prev by Date: Re: How to combine graphics pimitives and Plot function?
  • Next by Date: Re: How to combine graphics pimitives and Plot function?
  • Previous by thread: Re: How to combine graphics pimitives and Plot function?
  • Next by thread: Re: How to combine graphics pimitives and Plot function?