The following code:
Table[
Plot[Sin[a], {a, 0, i}, PlotRange -> {{i - 3600, i}, {-1, 1}},
ImageSize -> 800, AspectRatio -> 0.2, Frame -> True,
PlotRangePadding -> 0, GridLines -> Automatic,
FrameLabel -> {{Style["SOME TEXT - m", 13],
None}, {Style["Time - s", 13], Style["THE TITLE", 13, Bold]}},
Axes -> False],
{i, 1, 10000, 100}
]
Generates jumpy labels, ticks and frames:
How can I get a less vibrating plot (not referring to the plotted line itself...)
EDIT:
The following is closer to my real case, and ImagePadding
doesn't work:
Dynamic@ListLinePlot[Table[Sin[a], {a, i - 3600, i}],
PlotRange -> {{i - 3600, i}, {-1, 1}}, ImageSize -> 800,
AspectRatio -> 0.2, Frame -> True, PlotRangePadding -> 0,
GridLines -> Automatic, PlotStyle -> Thick,
FrameLabel -> {{Style["Something", 13],
None}, {Style["Time - s", 13], Style["SOMETHING", 13, Bold]}},
Axes -> False, ImagePadding -> 50]
Do[Pause[0.1]; i = a, {a, 10, 1000000}]
ImagePadding -> 50
:) $\endgroup$ – Kuba♦ Jul 5 '13 at 22:48GridLines-> None
andDo[Pause[0.01]; i = a, {a, 10, 1000000, 1}]
$\endgroup$ – DavidC Jul 6 '13 at 0:01