Построение конических сечений.

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

Модератор: Admin

Anzhelika
Сообщения: 1
Зарегистрирован: Вс дек 08, 2013 5:04 pm

Построение конических сечений.

Сообщение Anzhelika » Вс дек 08, 2013 6:11 pm

Подскажите пожалуйста. Только начала работать с пакетом Mathematica, так что вопрос наверное глупый, но все же...

Необходимо построить конические сечения. Строим конус и произвольную плоскость:

Plot3D[{Sqrt[x^2 + y^2], -Sqrt[x^2 + y^2], 10 x + 5 y}, {x, -10, 10}, {y, -10, 10}, RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 100], BoxRatios -> Automatic, BoundaryStyle -> Thick]

Каким образом можно выделить именно сечение(точки пересечения двух графиков)? Условно говоря конус и плоскость бледно-голубые, а сечение выделить красным цветом?

Заранее благодарна за любую помощь.