Найдено 2 результата

Евгений Поляков
Сб июл 10, 2010 4:09 pm
Форум: Mathematica
Тема: Три конических сечения на одной картинке
Ответы: 2
Просмотры: 2633

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

Прошу не смеяться. Хотя... почему бы и нет. Всё построил. Посмеялся сам. Извините за беспокойство. 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}, PlotSt...
Евгений Поляков
Пт июл 09, 2010 2:04 pm
Форум: Mathematica
Тема: Три конических сечения на одной картинке
Ответы: 2
Просмотры: 2633

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

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