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 ?