Информатика на Maple / лаба 3

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ МОСКОВСКИЙ ЭНЕРГЕТИЧЕСКИЙ ИНСТИТУТ (ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)

филиал в г. Смоленске

КАФЕДРА ВЫСШЕЙ МАТЕМАТИКИ

Лабораторная работа № 3

Построение графиков

Студент: Борисова(8) Наталья(7) Александровна(13)

Группа: БА1-10

Преподаватель: Волкова Ю. Е.

Смоленск 2011

Файл с заданиями лабораторной работы №3 сохранён под именем Борисова_3

Контрольные задания

Задание 1 Построить треугольник, стороны которого образуют прямые , и .

> restart;

> plot([8*x+1,-7*x-5,13],x=-5..5,y=-15..15);

Ответ:

Задание№2.

Построить на одном рисунке графики функции y=x+2arcctgx и её асимптот y=x и y=x+2(Pi). установить следующие параметры: цвет основной линии - голубой, асимптот - красный (установлен по умолчанию, поэтому его можно не изменять); толщина основной линии - 3, асимптот - обычная, масштаб по координатным осям одинаковый. Сделать надписи: какая функция к какой линии относится.

> restart;

> eq2:=x:eq3:=x+2*(Pi):el:=plot({x+2*arccot(x)}, x=-8..8, y=-8..8, scaling=CONSTRAINED,

color=blue, thickness=3):

as:=plot([x,x+2*(Pi)], x=-8..8,

color=red, scaling=CONSTRAINED, thickness=2):

eq1:=convert(eq,string):

t1:=textplot([1.5,2.5,eq1], font=[TIMES,

ITALIC, 10], align=RIGHT):

t2:=textplot([-7,-5,eq2], font=[TIMES,

ITALIC, 10], align=RIGHT):t3:=textplot([-4,3.5,eq3], font=[TIMES,

BOLD,10], align=LEFT):

display([as,el,t1,t2,t3]);

Ответ: график функции арккотангенса

Задание №3

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

> restart;

with(plots):

eq:=x^2/8^2-y^2/7^2=1:

el:=implicitplot(eq,x=-9..9,y=-15..15,color=green,thickness=3):

eq1:=convert(eq,string):

t2:=textplot([8,5,"Эллипс"], font=[TIMES,BOLD,15], align=RIGHT):

display([el,t2]);

Ответ:

Задание№4. Построить график функции .

> restart;

> plot(sqrt((-1)^7*(2*13*x)), x=-20..20, y=-20..20, title="y^2=(-1)^7*(2*13*x)");

Ответ: ветвь параболы

Задание№5. Построить график поверхности и определить ее вид .

• with(plots): implicitplot3d({(x^2/8^2)+(y^2/7^2)+(-1)^8*(z^2/13^2)=1}, x=-20..20, y=-20..20,z=-20..20);

Ответ: шар

Задание№6. Построить в одной системе координат графики поверхностей и и определить их вид. Пользуясь возможностями Maple, настроить оптимальное изображение.

• with(plots): implicitplot3d({x^2/8^2+y^2/7^2-z^2/13^2=0,8*x+7*y+13*z+5=0 }, x=-20..20, y=-20..20,z=-20..20);

Ответ: гиперболический конус

7. Построить график функции на оптимальном промежутке.

> plot(8*x/(7-13*x^2), x=-3..3,y=-3..3, labels=[x,y],

labelfont=[TIMES,ITALIC,12],color=blue, thickness=2);

Ответ: