Оптимизация размера файлов eps / pdf, сгенерированных системой Mathematica

Как оптимизировать размер файла eps или pdf, созданного Mathematica?

Обычно размер файла в 50-100 раз больше, чем должен быть (пример ниже Для некоторых приложений (например, размещение рисунка в публикации или даже больше - размещение его на большом плакате) мне нужны оси в векторной графике, поэтому использование растровой графики для всего - не лучший вариант для меня.

Каждое практическое решение (либо с настройкой правильных опций в Mathematica, либо с дальнейшим преобразованием в других приложениях) будет оценено по достоинству.

Например, следующий код, создающий фигуру eps:

plot = ListDensityPlot[
Table[Random[], {100}, {100}],
InterpolationOrder -> 0]

Export["testplot.eps", plot]
Export["testplot.pdf", plot]

создает файл eps размером 3,3 МБ и размером pdf 5 МБ (в Mathematica 7 в Mac OS X 10.6, если это имеет значение).

Для сравнения: график 3x3 с теми же осями имеет размер от 8 кбайт (pdf) до 20 кбайт (eps). 100x100 точек - это 30 кбайт в bmp (и немного меньше в png).

Проблема такая же для других типов графиков, с акцентом на ListPlot3D .