MathGroup Archive 2009

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

Search the Archive

Help with Mathematica 7.0

  • To: mathgroup at smc.vnet.net
  • Subject: [mg96640] Help with Mathematica 7.0
  • From: Tim Brophy <timbrophy at mac.com>
  • Date: Wed, 18 Feb 2009 04:22:44 -0500 (EST)

Hello All,

In Mathematica 5.2 and earlier I could create a Notebook like:

<< Graphics`
$FormatType = TraditionalForm;
$TextStyle = {FontFamily -> "Times", FontSize -> 12};
Strip = {Polygon[{{-0.1, 0, 1}, {
         0.1, 0, 1}, {0.1, 0, 0} + s, {-0.1, 0, 0} + s}],
             Polygon[{{-0.1, 0, 0} + s, {-0.1,
             0, -1}, {0.1, 0, -1}, {0.1, 0, 0} + s}]};
Magnet = {Cuboid[{-1, -0.5, -0.1}, {-0.2, 0.5, 0.1}],
         Cuboid[{0.2, -0.5, -0.1}, {1, 0.5, 0.1}]}
Wire = {Line[{{0, 0, -1}, {0, 0, -1.2}, {-1.4, 0, -1.2}, {-1.4,
             0, -0.2}}], Line[{{-1.2, 0, -0.2}, {-1.7, 0, -0.2}}], \
Line[{{-1.3, 0, 0}, {-1.6, 0, 0}}], Line[{{-1.4, 0, 0}, {-1.4, 0, 1},  
{-0.1,
           0, 1}}]};
circuit = Table[
     Show[Graphics3D[{Magnet,
         Strip, Wire}], Epilog -> {Text["N", {.402, .504}], Text["S",  
{.62, \
.47}], Red, Arrow[{.53, .71}, {.53, .16}],
               Text["Current", {.7, 0.69 - .394t}]}, Boxed -> False,
                PlotRange -> {{-1.8, 1.5}, {-1,
             1}, {-1.3, 1.3}}], {t, 0, 1, 0.05}];
Export["Conductor.gif", circuit, ConversionOptions -> {"Loop" -> True}]

to create animations as in http://web.me.com/timbrophy/physicsnow/currentm.html

In versions 6 and 7 the Table command does not produce all the files I  
need for the animated gifs. How can I do the same?

Manipulate is no good as I simply want gifs to demonstrate different  
aspects of Physics to my students.

Tim Brophy


  • Prev by Date: Re: Surface fitting error while using Fit
  • Next by Date: Re: Help with project needed
  • Previous by thread: Re: PlotStyle will not distribute over Table
  • Next by thread: Re: Help with Mathematica 7.0