Message Boards Message Boards

0
|
6391 Views
|
3 Replies
|
0 Total Likes
View groups...
Share
Share this post:

Graph reduces size when clicked

Michael McCain, Ventura College
Posted 9 years ago

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
POSTED BY: Michael McCain
3 Replies
Sort By:
POSTED BY: Michael McCain

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]
POSTED BY: Jos Klaps

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]
POSTED BY: Jos Klaps
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract