Skip to main content
Mathematica

Return to Question

Post Closed as "Duplicate" by Mr.Wizard
Tweeted twitter.com/#!/StackMma/status/613143614252822529
edited tags
Link
Karsten7
Karsten7
  • 27.6k
  • 5
  • 74
  • 135
deleted 37 characters in body; edited tags
Source Link
Karsten7
Karsten7
  • 27.6k
  • 5
  • 74
  • 135

Chech this example:

   SetOptions[Plot,ImagePadding -> {{50, 30}, {Automatic, Automatic}}];    
    Options[Plot, ImagePadding]    
    (*{ImagePadding -> {{50, 30}, {Automatic, Automatic}}}*)
    SetOptions[Grid, Dividers -> All, Alignment -> Left];
    Options[Grid, {Alignment, Dividers}]
    (*{Alignment -> Left, Dividers -> All}*)
    Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
            PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}]

enter image description here

However this works fine:

Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
    PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}, 
  Alignment -> Left, Dividers -> All]

Any idea why and any solutions?

Thanks

Chech this example:

   SetOptions[Plot,ImagePadding -> {{50, 30}, {Automatic, Automatic}}];    
    Options[Plot, ImagePadding]    
    (*{ImagePadding -> {{50, 30}, {Automatic, Automatic}}}*)
    SetOptions[Grid, Dividers -> All, Alignment -> Left];
    Options[Grid, {Alignment, Dividers}]
    (*{Alignment -> Left, Dividers -> All}*)
    Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
            PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}]

enter image description here

However this works fine:

Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
    PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}, 
 Alignment -> Left, Dividers -> All]

Any idea why and any solutions?

Thanks

Chech this example:

SetOptions[Plot,ImagePadding -> {{50, 30}, {Automatic, Automatic}}];    
Options[Plot, ImagePadding]    
 (*{ImagePadding -> {{50, 30}, {Automatic, Automatic}}}*)
SetOptions[Grid, Dividers -> All, Alignment -> Left];
Options[Grid, {Alignment, Dividers}]
 (*{Alignment -> Left, Dividers -> All}*)
Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
 PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}]

enter image description here

However this works fine:

Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
  PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}, 
  Alignment -> Left, Dividers -> All]

Any idea why and any solutions?

Thanks

Source Link
Basheer Algohi
Basheer Algohi
  • 20k
  • 1
  • 32
  • 78

SetOptions does not give expected result with Grid

Chech this example:

   SetOptions[Plot,ImagePadding -> {{50, 30}, {Automatic, Automatic}}];    
    Options[Plot, ImagePadding]    
    (*{ImagePadding -> {{50, 30}, {Automatic, Automatic}}}*)
    SetOptions[Grid, Dividers -> All, Alignment -> Left];
    Options[Grid, {Alignment, Dividers}]
    (*{Alignment -> Left, Dividers -> All}*)
    Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
            PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}]

enter image description here

However this works fine:

Grid[{{Plot[{Sin[x], Cos[x]}, {x, 0, 2}, 
    PlotLegends -> "Expressions"]}, {Plot[Exp[x], {x, 0, 10}]}}, 
 Alignment -> Left, Dividers -> All]

Any idea why and any solutions?

Thanks