Re: Help with Mathematica 7.0
- To: mathgroup at smc.vnet.net
- Subject: [mg96666] Re: Help with Mathematica 7.0
- From: ragfield <ragfield at gmail.com>
- Date: Thu, 19 Feb 2009 03:36:07 -0500 (EST)
- References: <gngk0r$jj8$1@smc.vnet.net>
On Feb 18, 3:22 am, Tim Brophy <timbro... at mac.com> wrote: > 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}], Tex= t["S", > {.62, \ > .47}], Red, Arrow[{.53, .71}, {.53, .16}], > Text["Current", {.7, 0.69 - .394t}]}, Boxe= d -> 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 inhttp://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 First, Mathematica's syntax coloring shows that the variable "s" is not defined in your example, so give it a value. Second, when you look at the table of graphics you'll notice the pink background indicating there is an error. Mouse over the graphic to see the following error message in a tooltip: "Arrow argument should be a list of coordinates" So change Arrow[{.53, .71}, {.53, .16}] to Arrow[{{.53, .71}, {.53, .16}}] Finally, when you export you'll see the message: "Export::convoptobs: ConversionOptions are obsolete. See the GIF format page for available options." and on the GIF format reference page in the help viewer you'll notice the appropriate option is AnimationRepititions. So change the Export call to: Export["Conductor.gif",circuit,AnimationRepetitions->\[Infinity]] -Rob