Три конических сечения на одной картинке

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

Модератор: Admin

Евгений Поляков
Сообщения: 2
Зарегистрирован: Пт июл 09, 2010 1:47 pm
Откуда: СПб

Три конических сечения на одной картинке

Сообщение Евгений Поляков » Пт июл 09, 2010 2:04 pm

Только начинаю работать с Mathematic'oй 7. Прошу не смеяться. Хотя... почему бы и нет.

Построил конус.

Plot3D[Sqrt[{x^2 + y^2}], {x, -2, 2}, {y, -2, 2},
RegionFunction -> Function[{x, y, z}, x^2 + y^2 <= 4],
BoxRatios -> Automatic]

ТРЕБУЕТСЯ:

Добавить 2 круговых сечения и одно эллептическое так, чтобы в афелии эллипс касался верхнего круга, а в перигелии нижнего.

Заранее благодарен.

Евгений
"A theory that you can't explain to a bartender is probably no damn good." Rutherford

алексей_алексей
Сообщения: 1776
Зарегистрирован: Вс май 01, 2005 9:02 pm

Re: Три конических сечения на одной картинке

Сообщение алексей_алексей » Сб июл 10, 2010 9:10 am

Иногда пользуюсь пакетом на уровне хелпа. Вот картинка оттуда для случая нескольких графиков, может, пригодится…

Изображение

Евгений Поляков
Сообщения: 2
Зарегистрирован: Пт июл 09, 2010 1:47 pm
Откуда: СПб

Re: Три конических сечения на одной картинке

Сообщение Евгений Поляков » Сб июл 10, 2010 4:09 pm

Евгений Поляков писал(а):Прошу не смеяться. Хотя... почему бы и нет.


Всё построил. Посмеялся сам. Извините за беспокойство.

g1 := Plot3D[100 Sqrt[x^2 + y^2], {x, -5, 5}, {y, -5, 5}, Mesh -> 0];
g2 := Plot3D[360, {x, -5, 5}, {y, -5, 5} ,
PlotStyle -> Opacity[0.5], Mesh -> 0];
g3 := Plot3D[100, {x, -5, 5}, {y, -5, 5},
PlotStyle -> Directive[Opacity[1], Blue], Mesh -> 1];
g4 := Plot3D[159 - 56 x , {x, -5, 5}, {y, -5, 5},
PlotStyle -> Opacity[0.4], Mesh -> 50]; Show[g1, g2, g3, g4,
PlotRange -> {0, 390}]

Евгений
"A theory that you can't explain to a bartender is probably no damn good." Rutherford