Re: Mathematica Graphics

*To*: mathgroup at christensen.cybernetics.net*Subject*: [mg1820] Re: Mathematica Graphics*From*: kluge at seuss.cc.utexas.edu ()*Date*: Thu, 3 Aug 1995 23:51:34 -0400*Organization*: Computation Center, University of Texas

Jeff Benvenuti asks: >1)I can't save Mathematica graphics in files properly in order to get > them back afterwards on my HP screen. There are a number of ways to do this, one of the easiest is to use xv (a standard X utility) to grab a section of the screen (in this case your Mathematica graphic) and save it as a gif or jpeg. An image that is more useful for importing to many applicatins can be obtained by issuing the mathematica command: Display["!psfix -epsf > some_file.eps", some_mathematica_graphics_object] for example: In[1]:= Plot[Sin[x],{x,0,2 Pi}] In[2]:= Display["!psfix -epsf > sin.eps", %1] The eps file (sin.eps) can then be viewed with ghostscript, or utilized by a text processor such as TeX. >2)How can one Animate Graphics on a HP?,ie plot successively Mathematica > images as in a movie? The following is from a Mathematica graphics FAQ I am constructing at http://www-math.cc.utexas.edu/math/Mathematica/graphics/ Of course this is much clearer with the illustrations that are available at the above www site. ----------------------------------------------------------------------- Mathematica has a number of ways to generate animations. There are some features which they all have in common. Animation in Mathematica is accomplished by first generating a series of images, then displaying them in rapid succession. Let us start with the solution to a differential equation. In[1]:= Solution = DSolve[{ x''[t] + kd x'[t] + x[t] == 0, x[0] == 10, x'[0] == 0}, x[t], t] Out[1]:= 2 ((-kd - Sqrt[-4 + kd ]) t)/2) 5 kd {{x[t] -> E^ (5 - --------------) + 2 Sqrt[-4 + kd ] 2 ((-kd + Sqrt[-4 + kd ]) t)/2) 5 kd E^ (5 + --------------)}} 2 Sqrt[-4 + kd ] We now have an equation with two free parameters. This allows us to generate a series of graphs of x vs t, each with a differing value of kd. We then display those graphs as a movie. The first step is accomplished with: In[2]:= Table[Plot[x[t] /. Solution, {t,0,20}, PlotRange -> {-10, 10}, AxesLabel -> {Time, Amplitude}], {kd, 0, 3, .08}]; This generates a long series of graphs. The PlotRange was specified explicitly to maintain a constant verticle scale from frame to frame. To prepare this series of frames to become a movie double-click on the second cell bracket, the one that covers all the frames of the movie. This will colapse the frames into a single cell. To play such a colapsed set of frames as a movie, double click on the top image. You will have to wait a bit for the movie to start, especially if there are a large number of frames. --------------------------------------------------------------------------- Alex Kluge http://www-math.cc.utexas.edu/~kluge/