Re: Help with Mathematica 7.0

*To*: mathgroup at smc.vnet.net*Subject*: [mg96656] Re: Help with Mathematica 7.0*From*: Bob F <deepyogurt at gmail.com>*Date*: Thu, 19 Feb 2009 03:34:18 -0500 (EST)*References*: <gngk0r$jj8$1@smc.vnet.net>

On Feb 18, 2: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 in http://web.me.com/timbrophy/physicsnow/current= m.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 I think this is one example of yours that works. There were several typo's in this example - are you sure this worked in 5.2?? The Table increment is t, but you use s as the value to add for the "strip", and you need to add the variable to just the "y" component of the vector (not the entire vector). And then it seems that the arrow is not correct for the N and S locations, ... BTW animated GIF's are the default according to the GIF document page in Mathematica now in V7 (so no need for the "ConversionOptions -> {"Loop" -> True}" Also, if you want to see what it kinda looks like in Mathematica, just add a "Show[circuit]" command after the Export[] command. That is how I figured out the problem that the variable should be added to just the y vector component. I made the current arrow red, and the field arrow green, but change it if you wish. Anyway here is what I came up with -- the gif file seems to display correctly when I view it with Safari on a Mac $FormatType = TraditionalForm; $TextStyle = {FontFamily -> "Times", FontSize -> 12}; Strip = {Polygon[{{-0.1, 0, 1}, {0.1, 0, 1}, {0.1, 0 + t, 0}, {-0.1, 0 + t, 0}}], Polygon[{{-0.1, 0 + t, 0}, {-0.1, 0, -1}, {0.1, 0, -1}, {0.1, 0 + t, 0}}]}; 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}}]}; arrowacross = {Arrowheads[Large], Arrow[{{0.8, .0, .2}, {-0.8, .0, .2}}]}; arrowup = {Arrowheads[Large], Arrow[{{0., -0.1, 1.}, {0., -0.1, -1.}}]}; circuit = Table[Show[ Graphics3D[{Magnet, Strip, Wire, Thick, Green, arrowacross, Red, arrowup}], Epilog -> {Text["S", {.402, .504}], Text["N", {.62, .47}], Red, Text["Current", {.7, 0.69 - .394 t}]}, Boxed -> False, PlotRange -> {{-1.8, 1.5}, {-1, 1}, {-1.3, 1.3}}], {t, 0, 1, 0.05}]; Export["Conductor.gif", circuit]; -Bob

**Follow-Ups**:**Re: Re: Help with Mathematica 7.0***From:*Tim Brophy <timbrophy@mac.com>