Построение графиков неявно заданных функций (функция 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.16x^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.16x^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.16x^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];Фактически это построение графиков нескольких неявных функций. Мы этот случай рассмотрим чуть позднее.