Re: make matrix animate
- To: mathgroup at smc.vnet.net
- Subject: [mg24921] Re: make matrix animate
- From: "P.J. Hinton" <paulh at wolfram.com>
- Date: Sun, 20 Aug 2000 01:35:12 -0400 (EDT)
- Organization: Wolfram Research, Inc.
- Sender: owner-wri-mathgroup at wolfram.com
On 19 Aug 2000, Borut L. wrote:
> 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?
Here is a possible approach for your problem, if your matrices contain
character data.
matrixPicture[mat_?MatrixQ, opts___?OptionQ] :=
Graphics[Text[DisplayForm[MakeBoxes[MatrixForm[mat]]], {0, 0}],
TextStyle -> {opts}]
This example generates several matrices as a sequence of graphics, which
may be animated just like any other group of Graphics style cells.
Scan[Show,
Table[matrixPicture[{{i, i^2}, {i^3, i^4}}, FontSize -> 36], {i, 7}]]
If you are dealing with a matrix of colors, you are better off using the
Raster[] or RasterArray[] primitives. See the Cellular Automata notebook
in the online demos to see one could write some visualization functions
for this purpose.
FrontEndExecute[
FrontEnd`HelpBrowserLookup[
"GettingStarted",
"Cellular Automata"
]
]
--
P.J. Hinton
User Interface Programmer paulh at wolfram.com
Wolfram Research, Inc.