Ошибочный график

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

Модератор: Admin

Markiyan Hirnyk
Сообщения: 1294
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Ошибочный график

Сообщение Markiyan Hirnyk » Сб янв 05, 2019 11:36 pm

Команда

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

restart; with(RealDomain):
plot(abs(cot(2*x)^2+8*sqrt(-cot(2*x))-3)-abs(cot(2*x)^2-8*sqrt(-cot(2*x))-3), x = 0 .. (1/2)*Pi, numpoints = 2500, view = [0 .. (1/2)*Pi, -1 .. 5], thickness = 3, discont);
 

строит ошибочный график: на отрезке

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

RealRange(0,Pi/4)

функция не определена, ибо подкоренные выражения отрицательны (а в 0 не определены). Правильный график рисует

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

restart; Student[Calculus1]:-FunctionPlot(abs(cot(2*x)^2+8*sqrt(-cot(2*x))-3)-abs(cot(2*x)^2-8*sqrt(-cot(2*x))-3), x = 0 .. (1/2)*Pi, view = [0 .. (1/2)*Pi, -10 .. 10]);
, однако стрелки слишком длинные. Если задать функцию в операторной форме, то результат верный.

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

restart; with(RealDomain):
plot(x-> abs(cot(2*x)^2+8*sqrt(-cot(2*x))-3)-abs(cot(2*x)^2-8*sqrt(-cot(2*x))-3) , 0 .. (1/2)*Pi, numpoints = 2500, view = [0 .. (1/2)*Pi, -1 .. 5], thickness = 3, discont);