Иллюстрированный самоучитель по Mathematica 5

Построение графиков неявно заданных функций (функция ImplicitPlot пакета Graphics`ImplicitPlot`)

И вот еще один совсем "позорный" пример.

Иллюстрированный самоучитель по Mathematica 5 › Мультимедиа: геометрия, графика, кино, звук › Построение графиков неявно заданных функций (функция ImplicitPlot пакета Graphics`ImplicitPlot`)

А вот этот простенький пример считается неоправданно долго.

Иллюстрированный самоучитель по Mathematica 5 › Мультимедиа: геометрия, графика, кино, звук › Построение графиков неявно заданных функций (функция ImplicitPlot пакета Graphics`ImplicitPlot`)

Это поистине удивительно, потому что графики для всех сомножителей строятся очень быстро!

Предостережение. Заглянув в справочную систему, вы можете попытаться построить этот график так:

ImplicitPlot[x^2+y^2-25==0.16 x^2+y^2-4==0,
x^2+16y^2-96y+140==0,
4x^2-16x*Sign[x]+4y^2-16y+31==0,
{x,-20.20},
PlotPoints > 25];

Или так:

ImplicitPlot[x^2+y^2-25==0.16
x^2+y^2-4==0,
x^2+16y^2-96y+140==0,
4x^2-16x*Sign[x]+4y^2-16y+31==0,
{x,-20.20},{y,-20.20),
PlotPoints > 25];

Вы увидите, что ничего не произойдет! На самом деле вызов нужно записать вот так:

ImplicitPlot[{x^2+y^2-25==0.16
x^2+y^2-4= =0,
x^2+16y^2-96y+140==0,
4x^2-16x*Sign[x]+4y^2-16y+31==0},
{x,-20.20},
PlotPoints > 25];

Или так:

ImplicitPlot[{x^2+y^2-25==0.16
x^2+y^2-4==0,
x^2+16y^2-96y+140==0,
4x^2-16x*Sign[x]+4y^2-16y+31==0},
{x,-20.20},{y,-20.20),
PlotPoints > 25];

Фактически это построение графиков нескольких неявных функций. Мы этот случай рассмотрим чуть позднее.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.