Почему окружность становится эллипсом?

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

Модератор: Admin

dims12
Сообщения: 37
Зарегистрирован: Чт янв 30, 2003 1:23 am

Почему окружность становится эллипсом?

Сообщение dims12 » Ср дек 22, 2010 8:17 pm

Пытаюсь нарисовать динамический рисунок с одновременной выдачей численной информацией и получаю круг, которые "плохо себя ведёт" -- иногда, при отпускании мышки, становится эллипсом. Искажение не затрагивает линии и локатора.

Почему так, не пойму? Если круг сам по себе, а не внутри списка, то всё нормально.

p = {1, 0};
Dynamic[
Grid[{
{
v = Normalize[p];
Graphics[{
Circle[{0, 0}, 1],
Line[{{0, 0}, v}],
Locator[Dynamic[p]]
},
PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> 500]
},
{ArcTan[v[[2]]/v[[1]]]}
}]
]