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

Reset to default
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$
2
  • 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, 2014 at 17:53
  • $\begingroup$ @Michael Yup, this makes the code much nicer. $\endgroup$
    – Grzegorz Rut
    Jul 13, 2014 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$
3
  • $\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, 2014 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, 2014 at 17:09
  • $\begingroup$ Yes! Problem now solved. $\endgroup$
    – Michael
    Jul 13, 2014 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$
2
  • $\begingroup$ It doesn't work for me. Changing n reverts the plot to some small size. $\endgroup$
    – Michael
    Jul 13, 2014 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, 2014 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.