Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: How to combine Dynamic graphics in Show?

• To: mathgroup at smc.vnet.net
• Subject: [mg105510] Re: [mg105506] How to combine Dynamic graphics in Show?
• From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
• Date: Sun, 6 Dec 2009 01:30:00 -0500 (EST)
• References: <200912051135.GAA10896@smc.vnet.net>

Hi,

you should really read some of the tutorials and look at sample code. In
your example here you have to put the PlotRange in the Show

ver = VerticalSlider[Dynamic[maxy], {0.1, 10}];
p0 = ListPlot[Range[10]];
p1 = Plot[Cos[x], {x, 0, 10}];
Row[{ver, 
  Dynamic@Show[p1, p0, ImageSize -> 200, 
    PlotRange -> {Automatic, {-maxy, maxy}}]}]

is that what you tried?

Cheers
Patrick

On Sat, 2009-12-05 at 06:35 -0500, Nasser M. Abbasi wrote:
> Ver 7.
> 
> Hello;
> 
> Without the use of DynamicModule[], just some simple code.
> 
> I have one Plot and one ListPlot, and I wanted to combine them. Ofcourse I 
> can use Show[], but when one of the above objects is Dynamics, I can't do 
> that. I tried many things, and so far, no success.
> 
> This is what I have and what I tried:
> 
> -------------------
> v = VerticalSlider[Dynamic[maxy], {0.1, 4}, Appearance -> "LeftArrow"];
> p0 = ListPlot[Range[10]];
> p1 = Dynamic[Plot[Cos[x], {x, -Pi, Pi}, PlotRange -> {{-Pi, Pi}, {-maxy, 
> maxy}}]];
> 
> Row[{ver, p1, p0}]
> -------------------
> 
> The above works, but p1 and p0 are not combined.
> 
> But I wanted to combine p1 and p0 into ONE graphics, except now this will 
> not work as p1 is dynamics. I tried
> 
> Row[{ver, Show[p1, p0]}]
> Row[{ver, Dynamic@Show[p1, p0]}]
> 
> I really thought Dynamic[Show[....]] will do it?
> 
> tried few other things....I need to read more about Dynamics, but meanwhile 
> in case I do not see it, any idea how this can be done?
> 
> Notice that  p0 is a ListPlot and not a Plot. Else I would have been able to 
> simply use one Dynamic at Plot[...] to combine the plots and not even need 
> Show[], like this (assuming the second plot is Cos[x])
> 
> v = VerticalSlider[Dynamic[maxy], {0.1, 4}, Appearance -> "LeftArrow"];
> p1 = Dynamic[Plot[{Cos[x], Sin[x]}, {x, -Pi, Pi}, PlotRange -> {{-Pi, Pi}, 
> {-maxy, maxy}}]];
> Row[{ver, p1}]
> 
> and this would have worked.
> 
> So, how to combine Dynamic graphics objects?
> 
> thanks
> --Nasser
> 
> 

• References:
  • How to combine Dynamic graphics in Show?
    • From: "Nasser M. Abbasi" <nma@12000.org>