Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

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  -------------
 ==================================================================



  • Prev by Date: Re: challenging integration
  • Next by Date: Re: Math3.0 OptionInspector | NotebookOptions | PrintingOptions | Headers --> all 'None' keeps printing headers. HELP
  • Previous by thread: Interpolated animation
  • Next by thread: pasting the outputs