RE: Dynamic Show in Manipulate

*To*: mathgroup at smc.vnet.net*Subject*: [mg94063] RE: [mg94041] Dynamic Show in Manipulate*From*: "David Park" <djmpark at comcast.net>*Date*: Thu, 4 Dec 2008 07:12:51 -0500 (EST)*References*: <3853415.1228302997655.JavaMail.root@m02>

Michael, This is a case where Manipulate is difficult (although maybe someone has a method) but it is very easy to construct an efficient dynamic display using the Presentations package. This uses Version 7 where VectorPlot replaces the routine in the VectorFieldPlots package. Needs["Presentations`Master`"] background=VectorPlot[{1,Cos[x]},{x,-5,5},{y,-5,5}]//DrawGraphics; Module[ {k = 1}, panelpage[ {phrase["k: ", Slider[Dynamic[k], {1, 10}], Spacer[5], InputField[Dynamic[k], FieldSize -> {4, 1.2}]], Draw2D[ {Gray, background, Red, Thick, Dynamic@Draw[Cos[x], {x, -5, -5 + k}]}, Frame -> True, ImageSize -> 300]}, Style["Dynamic Curve on Background", 16], paneWidth -> All ] ] I made the background vector plot gray and the curve Red and Thick. The k Slider and the alternative InputField for k appear at the top. Only the curve is Dynamic and the slider works instantaneously without redrawing the background plot. David Park djmpark at comcast.net http://home.comcast.net/~djmpark From: Michael Hsieh [mailto:JiaYow at gmail.com] Hello! I have a seemingly simple problem here, but somehow can't figure out a solution: I compute a Plot of a Differential Equation, with variable x-ranges, and want to show the graphic with a VectorFieldPlot as background. Unfortunately, within Manipulate, the static VectorFieldPlot and the whole Differential Equation are reevaluated anytime I move the slide bar. This makes the whole movie very very slow. Is there a way to "tell" Show that the VectorFieldPlot is just a background and doesn't need to be reevaluated every time? I tried Dynamic Settings, and Background Settings, but nothing really works: Below a code snippet to give you a better idea of what I mean: -- Code (copypaste-able directly into M6 nb) Needs["VectorFieldPlots`"] pl1 = VectorFieldPlot[{1, Cos[x]}, {x, -5, 5}, {y, -5, 5}]; Manipulate[ pl2 = Plot[Cos[x], {x, -5, -5 + k}, PlotRange -> {-5, 5}, PerformanceGoal -> "Speed" ]; Show[pl1, pl2, PlotRange -> {-5, 5} ] , {{k, 1, "k"}, 1, 10}, TrackedSymbols :> {k}] -- End of Code As you can see, this simple example with Cos(x) is already quite slow...when using more graphics options (eg colors) and more complicated functions, the movie just becomes much too slow, especially when considering that the actual effort isn't that big. I even tried to pre-calculate an array of pictures and just print them out in the Manipulate eg Array[[k]], but even this is slow. Does anyone have an idea how to speed this up? Thanks in advance! Regards Michael Hsieh