($ VersionNumber <6) Обрезка экспортированного изображения в Mathematica

Question

Это анимация, которую я сделал с помощью Mathematica .Как видно из выделенного изображения, поля слева и справа слишком широки.Я не хочу передавать изображение в другую программу только для обрезки, так что же мне делать, чтобы устранить пробелы?

Если посмотреть документацию, ImageMargins и ImageRegion были быхорошо за исключением того, что они относятся только к передней части.Итак, что мне делать?

Answer 1

Я думаю, вы найдете полезными эти две статьи (хотя первая предназначена для Mathematica 6, а вторая - для v.7):

Экспорт Pixel-Perfect Graphics в Mathematica

и

Пиксельная графика, пересмотренная .

Answer 2

Попробуйте использовать опцию PlotRegion.

Вот пример:

Plot[Sin[x], {x, 0, 10}, 
  Axes -> False, Frame -> True, 
  PlotRegion -> {{0.1, 0.9}, {0.1, 0.9}}]

Я протестировал это в v8 после выполнения <<Version5`Graphics`

Answer 3

Во-первых, я бы попробовал опцию PlotRangePadding для вашей функции Plot. Если выражение уже растеризовано, вы можете попробовать что-то вроде этого:

imagelist /. Raster[a_, rest___]:> Raster[Take[#, {10, -10}]& /@ a, rest]

Это должно отрубить 10 пикселей с каждой стороны. Инструменты обработки изображений в V7 довольно хороши, и если вы сможете, я думаю, вы найдете в обновлении очень выгодное вложение.