       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)

```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?