3
$\begingroup$

I have a dynamic plot. I want to set an initial image size and then be able to resize it by dragging with the mouse. When the image is updated, I want to maintain the "dragged" size.

A naive attempt with a simplified example:

Slider[Dynamic[n], {0, 5}]
Dynamic[Plot[n (x - n)^2, {x, 0, 5}, ImageSize -> Large]]

It sets ImageSize->Large. I can resize the plot by select and dragging, but as soon as I change n with the slider, the plot is evaluated and the size reverts to Large.

So how can I apply setting ImageSize->Large only as an initial condition and keep the "dragged" size as n changes?

Thanks in advance for your expert help!

Improve this question
$\endgroup$
3
$\begingroup$

Edit: In order to set initial values in a dynamical system one has to use DynamicModule.

Anyway, if you now change slightly your code in the following way:

Slider[Dynamic[n], {0, 5}]
DynamicModule[{p1 = 200}, 
Dynamic[Plot[n (x - n)^2, {x, 0, 5}, ImageSize -> Dynamic[p1]]]]

the image should remember its size.

Improve this answer
$\endgroup$
  • 1
    $\begingroup$ So it seems you can drop the ImageSizeCache rule as far as I can tell, since Mathematica will put it in automatically. I played a little and found that Mathematica automatically updates p1 as I resize the plot window with the mouse. I never would have thought of that! $\endgroup$ – Michael Jul 13 '14 at 17:53
  • $\begingroup$ @Michael Yup, this makes the code much nicer. $\endgroup$ – Gregory Rut Jul 13 '14 at 17:58
0
$\begingroup$

Is this what you are looking for?

Manipulate[
 Plot[n (x - n)^2, {x, 0, 5}, ImageSize -> $size], {n, 0, 
      1}, {{$size, 550}, 100, 1000}]

On my system, Large ~ 550, so I chose that as the starting point.

Improve this answer
$\endgroup$
  • $\begingroup$ Thanks. I'm not looking for a second slider. I want to be able to use select and drag with the mouse to resize. $\endgroup$ – Michael Jul 13 '14 at 16:03
  • $\begingroup$ I'm still unclear. Ignoring my $size slider for a moment, you can click & drag the plot and changing the value of n won't reset the size. Is that what you want? $\endgroup$ – bobthechemist Jul 13 '14 at 17:09
  • $\begingroup$ Yes! Problem now solved. $\endgroup$ – Michael Jul 13 '14 at 18:00
0
$\begingroup$

How is this?

Slider[Dynamic[n, (imgs = Automatic; n = #) &], {0, 5}]

enter image description here

imgs = 400;
Dynamic[Plot[n (x - n)^2, {x, 0, 5},
  ImageSize -> imgs]]

enter image description here

Improve this answer
$\endgroup$
  • $\begingroup$ It doesn't work for me. Changing n reverts the plot to some small size. $\endgroup$ – Michael Jul 13 '14 at 18:08
  • $\begingroup$ You can change some code running order. I have changed like over that...don't you want to do that... $\endgroup$ – Junho Lee Jul 13 '14 at 18:13

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.