在Mathematica中適合筆記本寬度ImageSize

Question

是否存在ImageSize參數，以便Graphics或Manipulate自動適合筆記本寬度。

Answer 1

約

Plot[Sin[x], {x, -5, 5}, ImageSize -> Full] 

編輯如何：或

Manipulate[ 
Show[ 
    { 
    Plot[Sin[alpha*x], {x, -5, 5}], 
    Plot[Cos[alpha*x], {x, -5, 5}] 
    }, 
    ImageSize -> Full 
    ], 
{alpha, 1, 2} 
] 

Answer 2

這裏是另一種選擇距交換機ACL解決方案：

width := 0.85Cases[NotebookGet[], (WindowSize -> {x_, _}) -> x] 
Plot[Sin[x], {x, -5, 5}, ImageSize -> {width, Automatic}] 

這種方法的缺點是在空間左（你有In[10]:=等）是不變的，不隨筆記本寬度而改變。所以上面使用的寬度的百分比將根據筆記本的寬度而變化。可以彌補這一點，但我不打算這樣做。然而，一旦你確定你的寬度並找到一個最佳位置，它應該是好的。

如果您需要明確提供尺寸/座標並且不能使用像Full這樣的選項，這非常有用。

Answer 3

對於兩個圖形對象並排使用ImageSize選項GraphicsRow

Manipulate[ 
GraphicsRow[{Show[{Plot[Sin[alpha*x], {x, -5, 5}], 
    Plot[Cos[alpha*x], {x, -5, 5}]}], 
    Show[{Plot[Sin[alpha*x], {x, -5, 5}], 
    Plot[Cos[beta*x], {x, -5, 5}]}]}, ImageSize -> Full], {alpha, 1, 
    2}, {beta, 1, 2}]