Re: make matrix animate
- To: mathgroup at smc.vnet.net
- Subject: [mg24911] Re: make matrix animate
- From: "Hans Michel" <hans at dorsai.org>
- Date: Sun, 20 Aug 2000 01:34:59 -0400 (EDT)
- Organization: Michel Information Services
- References: <8nlidc$9h8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Borut
I only have a suggestion:
Try something like this.
a = {{1, 12, 3, 10}, {14, 5, 16, 7}, {11, 2, 9, 4}, {8, 15, 6, 13}};
ListDensityPlot[-Reverse[a], Frame -> False, Axes -> None]
And use the advance options such as Epilog or Prolog to place the numbers in
their squares.
Once you work out that part it would be a matter of outputing
Graphics[DensityGraphics]
Collecting the Graphics output for animation.
Hans
Borut L. <JustMyName at email.si> wrote in message
news:8nlidc$9h8 at smc.vnet.net...
> Helo,
>
> I made a function that has many matrices as output. It's in fact puzzle 15
> board, where in sequent matrices zero (blank space) moves
> left/right/up/down. Is there a way to make a graphical animation (like
> Do[Plot[...) with my output?
>
> Thanks a lot, Borut
>
>
>