Graph reduces size when clicked

Questions
,
1

I run into all the time… and have a moment to ask about it. Hopefully someone can clarify. When I execute the following code the first time, the output is a graph in a large size. Once I click the graph it becomes smaller. Even if I execute the code again… it does not go back to the larger size. I have to erase the output and then execute again to reproduce the larger size graph.

Axis3D[a_, b_, c_, d_, e_, f_] := Show[
  Graphics3D[{Arrowheads[.02], Arrow[{{0, 0, e}, {0, 0, f}}]}],
  Graphics3D[{Arrowheads[.02], Arrow[{{0, c, 0}, {0, d, 0}}]}],
  Graphics3D[{Arrowheads[.02], Arrow[{{a, 0, 0}, {b, 0, 0}}]}],
  Graphics3D[{Text["\!\(\*
StyleBox[\"x\",\nFontWeight->\"Plain\"]\)", {b*1.1, 0, 0}], 
    Text["y", {0, d*1.1, 0}], Text["z", {0, 0, f*1.1}]}], 
  Boxed -> False, ViewPoint -> {8, 4, 4},  ViewVertical -> {0, 0, 1}]
Axis3D[0, 3, 0, 3, 0, 9]

My question is, is this a setting that can be changed? Can I make my graphs default to the smaller size? I would like to have NO jump in size when I’m click through a notebook. Thank you in advance.

Mike

2

Hi Mike,

I don’t see the problem on my machine. MM10.2. - Windows 7
But you can set as example the ImageSize->{100,200}.

Axis3D[a_, b_, c_, d_, e_, f_] := 
 Show[Graphics3D[{Arrowheads[.02], Arrow[{{0, 0, e}, {0, 0, f}}]}], 
  Graphics3D[{Arrowheads[.02], Arrow[{{0, c, 0}, {0, d, 0}}]}], 
  Graphics3D[{Arrowheads[.02], Arrow[{{a, 0, 0}, {b, 0, 0}}]}], 
  Graphics3D[{Text["\!\(\*
     StyleBox[\"x\",\nFontWeight->\"Plain\"]\)", {b*1.1, 0, 0}], 
    Text["y", {0, d*1.1, 0}], Text["z", {0, 0, f*1.1}]}], 
  Boxed -> False,
  ImageSize -> {100, 200},
  ViewPoint -> {8, 4, 4}, ViewVertical -> {0, 0, 1}]
Axis3D[0, 3, 0, 3, 0, 9]
3

Thank you Jos! The issue appears when you have magnification set greater than 100%.

Thank you for the help with the example image option. I wasn’t aware of that. This gives me something to play with.

I was hoping to find an option that would allow me to disable the default image, and instead default to the image you get after the graph is clicked. This would solve my problem, as I have many animations with many different sizes.

4

Hi Michael,

For your information only. A further example with ImageSize->1.1{400,200}.

Regards,…Jos

Axis3D[a_, b_, c_, d_, e_, f_] := Show[
  Graphics3D[{Arrowheads[.02], Arrow[{{0, 0, e}, {0, 0, f}}]}]
  , Graphics3D[{Arrowheads[.02], Arrow[{{0, c, 0}, {0, d, 0}}]}]
  , Graphics3D[{Arrowheads[.02], Arrow[{{a, 0, 0}, {b, 0, 0}}]}]
  , Graphics3D[{Text["\!\(\*
          StyleBox[\"x\",\nFontWeight->\"Plain\"]\)", {b*1.1, 0, 0}]
    , Text["y", {0, d*1.1, 0}], Text["z", {0, 0, f*1.1}]}], 
  Boxed -> False
  , ImageSize -> 1.1 {400, 200}
  , ViewPoint -> {8, 4, 4}
  , ViewVertical -> {0, 0, 1}]
Axis3D[0, 3, 0, 3, 0, 9]