Re: Interpolated animation
- To: mathgroup at smc.vnet.net
- Subject: [mg13415] Re: Interpolated animation
- From: David Annetts <dannetts at laurel.ocs.mq.edu.au>
- Date: Thu, 23 Jul 1998 03:33:01 -0400
- Organization: CRCAMET/Macquarie University
- References: <6ouo7o$iuk@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi Alex,
> I'm doing the following:
>
> using 3DListPlot to get sequence of 3D plots (of matrices) on a grid.
> Then I'm using Animate to animate the sequence of 3D plots. As you
> know there is no option for animate to interpolate between the plots
> (at least in ver 2.2). Is there such an option in ver 3.0? If not,
> does anybody know where I can find such a package?
You might try Interpolating you data before you plot them. You can then
plot the variation with one of the interpolation variables. For
example,
If you have f[x, y, z] = Interpolation[<xrange>, <yrange>, <zrange>],
you can
plts = {};
Do[
tmp = Plot3D[f[x, y, z],
{xrange},
{yrange},
DisplayFunction->Identity
];
plts = AppendTo[plts, tmp],
{z, zmin, zmax, zdelta}
];
Animating a Show[plts, DisplayFunction->$DisplayFunction] gives you what
you're after. I guarentee there are more efficient ways to doing this
than AppendTo.
Regards,
Dave.
--
==================================================================
David Annetts _____________
http://www.ocs.mq.edu.au/~dannetts/ |C R C A M E T|
|-------------|
|_____ |
CRC for Australian Mineral |````` \ |
Exploration Technologies |`````/$\ |
Earth Sciences |````/$$$\____|
Macquarie University, NSW 2109 |```/$$$/.....|
AUSTRALIA |``/$$$/......|
phone: +(1-61-2) 9850 9280, fax (1-61-2) 9850 8366 -------------
==================================================================