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