Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Export problem on complicated Animate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg114924] Export problem on complicated Animate
  • From: Canopus56 <canopus56 at yahoo.com>
  • Date: Thu, 23 Dec 2010 03:52:19 -0500 (EST)

Hi,

I am trying to generate animations related a simulation of the Ptolemaic solar system.  I have a complicated animation setup for which I cannot export to an shockwave or animated gif format using the method suggested in the Reference Guide: 

Export["Test1.swf", %] where % is the last animation run. 

Export command either aborts or creates a swf file that can be read, but which is locked on the first frame. 

The related animation command is printed below.  The full Mathematica7 notebook file can be found at: 

http://fisherka.csolutionshosting.net/20101221PtolemyParametricPlotsKaf.nb

Any tips for how to alternatively automatically generate an animated gif file would be appreciated.  I can generate individual static gifs and separately assemble them into an animated gif file using image processing software.  But with several animations, that may run between 100 to 200 frames, something I would to avoid. 

Thanks - Kurt 

Animate[ParametricPlot[{{d2*Cos[t + \[Theta] + esl], 
    d2*Sin[t + \[Theta] + esl]}, {epiTrichoidx[{d1, a1, b1, h1, 
      t + \[Theta]}], 
    epiTrichoidy[{d1, a1, b1, h1, t + \[Theta]}]}, {epiTrichoidx[{d3, 
      a3, b3, h3, (t + \[Theta])/ty3}], 
    epiTrichoidy[{d3, a3, b3, h3, (t + \[Theta])/ty3}]}}, {t, 0, 
   0.6} , Background -> Darker[Gray], AxesStyle -> {White, White}, 
  LabelStyle -> {White, (FontFamily -> "Helvetica")}, 
  PlotStyle -> {{Yellow, Thick}, {Red, Thick}, {Orange, Thick}},  
  PlotLabel -> "Sun, Mars, Jupiter Apparent Motions", 
  PerformanceGoal -> "Quality", 
  PlotRange -> {{-7, 7}, {-7, 7}}], {\[Theta], 0, 
  2*sp3*IntegerPart[ty3]*\[Pi]}, AnimationRate -> 2, 
 AnimationRunning -> True] 


      


  • Prev by Date: Re: Complete uninstall of Mathematica 6/7/8 on a Mac
  • Next by Date: Re: How to split a daily DateList by week?
  • Previous by thread: Re: Generic Button/Palette design pattern?
  • Next by thread: Using Extract where some indices are out of bounds (efficiently)