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: [mg96670] Re: Help with Mathematica 7.0
  • From: dh <dh at metrohm.com>
  • Date: Fri, 20 Feb 2009 05:45:39 -0500 (EST)
  • References: <gngk0r$jj8$1@smc.vnet.net> <gnj5hn$igl$1@smc.vnet.net>


Hi,

I just learned that the syntax of Arrow has changed. The following works:

Show[Graphics@Circle[], Epilog -> {Arrow[{{0, 0}, 0.5 {1, 1}}]}]

Daniel



dh wrote:

> Hi Tim,

> 

> it looks like version 7 does not allow "Arrow" in an epilog. try,e.g.:

> 

> Show[Graphics@Circle[], Epilog -> {Arrow[{0, 0}, 0.5 {1, 1}]}]

> 

> I think this is a bug you should report to Wolfram.

> 

> Daniel

> 

> 

> 

> Tim Brophy 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}], 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: Using VerticalSlider controls for Manipulate
  • Previous by thread: Re: Help with Mathematica 7.0
  • Next by thread: Re: Extract Integrate values