Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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


  • Prev by Date: Re: Using VerticalSlider controls for Manipulate
  • 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