Страница 1 из 1

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

Добавлено: Пт июл 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 круговых сечения и одно эллептическое так, чтобы в афелии эллипс касался верхнего круга, а в перигелии нижнего.

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

Евгений

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

Добавлено: Сб июл 10, 2010 9:10 am
алексей_алексей
Иногда пользуюсь пакетом на уровне хелпа. Вот картинка оттуда для случая нескольких графиков, может, пригодится…

Изображение

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}]

Евгений