Ajuste al ancho del portátil Tamaño de la imagen en Mathematica

Question

¿Hay un argumento para ImageSize tal que los gráficos o la manipulación se ajusten automáticamente al ancho del portátil?

Answer 1

¿Qué tal

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

EDIT: o

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

Answer 2

Aquí es otra opción aparte de la solución de Acl:

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

El inconveniente de este enfoque es que el espacio en el izquierda (donde tiene In[10]:=, etc.) es constante y no cambia con el ancho del portátil. Por lo tanto, el% del ancho que he usado anteriormente variará según el ancho de su computadora portátil. Es posible compensar eso, pero no voy a hacer eso. Sin embargo, una vez que arregle su ancho y encuentre un punto óptimo, debería ser bueno.

Esto es útil en casos en los que necesita proporcionar explícitamente las dimensiones/coordenadas y no puede usar una opción como Full.

Answer 3

Durante dos objetos gráficos al lado del otro utilice la opción ImageSize a 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}]