Построить график неявно заданной функции

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

Модератор: Admin

kibcat
Сообщения: 4
Зарегистрирован: Вс ноя 13, 2016 10:41 pm
Откуда: г. Пенза

Построить график неявно заданной функции

Сообщение kibcat » Вс ноя 13, 2016 10:55 pm

Необходимо построить графики нескольких неявных функций(квадратные скобки это целая часть выражения)
Изображение
Изображение
Изображение
Изображение
Изображение

При попытке напрямую построить график пишет что слишком много уровней рекурсии

Код: Выделить всё

restart; with(plots);
x1 := 25; x2 := 250; y1 := 30; y2 := 220;
s1 := trunc((x1+abs(x1-x)+abs(x2-x))/x2)*trunc(x2/(x1+abs(x1-x)+abs(x2-x)));
s2 := trunc(x/x1)*trunc(x1/x)*trunc(x/x2)*trunc(x2/x);
m1 := trunc((y1+abs(y1-y(x))+abs(y2-y(x)))/y2)*trunc(y2/(y1+abs(y1-y(x))+abs(y2-y(x))));
s2 := trunc(y(x)/y1)*trunc(y1/y(x))*trunc(y(x)/y2)*trunc(y2/y(x));
y(x):=(y(x)*(s1*m2+s2*m1))/(s1*m2+s2*m1):
implicitplot(y(x), x = 0 .. x2, y = 0 .. y2);

Кто-нибудь знает как строить подобные графики?