Re: Do command
- To: mathgroup at smc.vnet.net
- Subject: [mg120680] Re: Do command
- From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com>
- Date: Wed, 3 Aug 2011 07:08:20 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j18m27$slc$1@smc.vnet.net>
On Tue, 02 Aug 2011 12:12:07 +0100, DaleJenk
<dale.jenkins8 at deletegooglemail.com> wrote:
> I'm working my way through the 1999 edition of Mathematica Navigator and
> using Mathematica 7 Home Edition. The following command is supposed to
> bring
> up a plot but for some reason it doesn't.
>
> Do[Plot[Sin[x - c], {x, 0, 4 Pi, Pi/10}, Ticks -> None], {c, 0,
> 2 Pi - Pi/10, Pi/10}]
>
> Thanks for any help.
>
Do[
Print@Plot[Sin[x - c], {x, 0, 4 Pi}, Ticks -> None],
{c, 0, 2 Pi - Pi/10, Pi/10}
]
But this is probably more like what was intended:
Reap@Do[
Sow@Plot[Sin[x - c], {x, 0, 4 Pi}, Ticks -> None],
{c, 0, 2 Pi - Pi/10, Pi/10}
] // Flatten // ListAnimate