Re: Help with Mathematica 7.0

• To: mathgroup at smc.vnet.net
• Subject: [mg96663] Re: Help with Mathematica 7.0
• From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
• Date: Thu, 19 Feb 2009 03:35:34 -0500 (EST)
• Organization: Uni Leipzig
• References: <gngk0r\$jj8\$1@smc.vnet.net>

```Hi,

Strip = With[{s =
0.0}, {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 - .394 t}]}, Boxed -> False,
PlotRange -> {{-1.8, 1.5}, {-1, 1}, {-1.3, 1.3}}], {t, 0, 1,
0.05}];

Export["Conductor.gif", circuit]

??

Regards
Jens

Tim Brophy wrote:
> Hello All,
>
> In Mathematica 5.2 and earlier I could create a Notebook like:
>
> << Graphics`
> \$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: pfa2pfb
• Next by Date: Re: Help with Mathematica 7.0
• Previous by thread: Re: Help with Mathematica 7.0
• Next by thread: Re: Help with Mathematica 7.0