Узнать PlotRange

Форум пользователей пакета Mathematica

Модератор: Admin

Andrey
Сообщения: 667
Зарегистрирован: Пн июн 10, 2002 2:05 pm

Узнать PlotRange

Сообщение Andrey » Ср сен 11, 2013 11:30 am

Mathematica 9 (9.0.1.0 32-bit)
пишем

Код: Выделить всё

gr1 = ListPlot[RandomReal[MultinormalDistribution[{0, 0}, {{1, 0}, {0, 1}}], 10]];
gr2 = Graphics[Circle[{2, 0}, 2]];
gr3 = Show[gr1, gr2, PlotRange -> All, AspectRatio -> Automatic]

хотелось бы узнать размах по осям картинки gr3. Попытка

Код: Выделить всё

Options[gr3]
дает свойства gr1, причем если поменять их местами

Код: Выделить всё

gr3 = Show[gr2, gr1, PlotRange -> All, AspectRatio -> Automatic]
то будут свойства gr2
Как получить свойства gr3?