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 > > > >