Tag Info

New answers tagged

0

I propose using ListAnimate: plots = Table[Plot[Sin[n x], {x, 0, 10}], {n, 12}]; ListAnimate[plots, AnimationRunning -> False] This also lets you "play" the sequence and control the speed at which it is displayed. The option AnimationRunning -> False may be left out if you would like the plots to cycle automatically. You may also find use in ...


0

p = {0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 0.95, 0.99}; Manipulate[Plot[Sin[x + a x], {x, -2 Pi, 2 Pi}], {{a, p[[1]]}, p, LabeledSlider}] Manipulate[Plot[Sin[x + a x], {x, -2 Pi, 2 Pi}], {{a, p[[1]]}, p, Slider, Appearance -> "Labeled"}] gives the same result.


2

Here are 12: Manipulate[ myplotlist = {Plot[Sin[x], {x, 0, 5}], Plot3D[Cos[x y], {x, -1, 1}, {y, -2, 2}], ParametricPlot[{t, Cos[t^2]}, {t, 0, 4}], ListPlot[Table[RandomReal[], {20}]], ContourPlot[Cos[x] + Cos[y], {x, 0, 4 Pi}, {y, 0, 4 Pi}], StreamDensityPlot[{{-1 - x^2 + y, 1 + x - y^2}, Log[Norm[{-1 - x^2 + y, 1 + x - y^2}] + 1]}, ...


1

There are many ways to accomplish this. Here's one with three plots: plot = {Plot[Sin[x], {x, 0, 1}], Plot[Cos[x], {x, 0, 1}], Plot[Tan[x], {x, 0, 1}]}; Manipulate[plot[[t]], {t, 1, 3, 1}]


2

I really think that you should give more details about what you are looking for. As it is I had do a fair amount of guessing. Nevertheless, here is a demonstration that might give you ideas of how something like you are considering can be done SeedRandom[111]; With[{ words = "grumpy wizards make a toxic brew for the jovial queen" // StringSplit}, ...


3

showhide = Transpose@{#, ToExpression@#}&@{"Red", "Transparent"}; i = 1; f = Mod[#, 2] &; st = Blue; Panel[Column@{Row@{Slider[Dynamic@x], Dynamic@Style[x, st]}, Button["Set to " Dynamic@ToString@showhide[[1 + f@i, 1]], st = showhide[[1 + f[i++], 2]]]}]



Top 50 recent answers are included