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

Федеральное агентство по образованию

Филиал государственного образовательного учреждения Высшего профессионального образования

«Московский энергетический институт (Технический университет)»

в г.Смоленске

Кафедра высшей математики

Отчет

по лабораторной работе№3

Тема: "Построение графиков".

Студент: Дорофеева(9)Наталья(7)Алексеевна(10)

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

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

Смоленск, 2011

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

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

Выполнил студент Дорофеева(9)Наталья(7)Алексеевна(10)

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

Задание №1

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

> restart;

>plot([9*x+1,-7*x-5,10],x=-10...10,y=-12...12,title="Треугольник");

Ответ:Треугольник

Задание №2

Построить на одном рисунке графики функции и ее асимптот и . Установить следующие параметры: цвет основной линии – голубой, асимптот – красный (установлен по умолчанию, поэтому его можно не изменять); толщина основной линии – 3, асимптоты – обычной; масштаб по координатным осям – одинаковый. Сделать надписи: какая функция относится к какой линии. Указание: использовать для преобразования в текст формул команду convert, а для построения графиков и надписей команды textplot и display из пакета plots

> restart;

> with(plots):

p:=plot([x+2*arccot(x), x, x+2*Pi], x=-10..10, color=[blue,red,red],thickness=[3,1,1], scaling=CONSTRAINED):

tx1:=convert(x+2*arccot(x),string):

t1:=textplot ([1.5,2.5,tx1], font=[TIMES,ITALIC,12], align=RIGHT):

t2:=textplot ([5.5,5.5,"x"], font=[TIMES,ITALIC,12], align=RIGHT):

tx3:=convert(x+2*Pi,string):

t3:=textplot ([2,13,tx3], font=[TIMES,ITALIC,12], align=RIGHT):

display([p,t1,t2,t3]);

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

Задание №3

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

> restart;

> with(plots):

> eq:=x^2/81+y^2/49=1:

> el:=implicitplot(eq,x=-10..10,y=-12..12,color=green,thickness=3):

> eq1:=convert(eq,string):

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

> display([el,t2]);

Ответ:Эллипс

Задание №4

Построить график функции .

> restart;

> with(plots):

> eq:=(-1)^7*2*10*x-y^2=0:

> el:=implicitplot(eq,x=-10..10,y=-12..12,color=blue,thickness=3):

> eq1:=convert(eq,string):

> t2:=textplot([-4,6,"Парабола"], font=[TIMES,BOLD,12], align=LEFT):

> display([el,t2]);

Ответ: Парабола

Задание №5

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

> restart;

> plot:implicitplot3d((x^2)/81+(y^2)/49+(z^2)/100=1,x=-10..10,y=-12..12,z=-14..14,title="Эллипсоид");

Ответ:Эллипсоид

Задание №6

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

> restart;

> with(plots):implicitplot3d({(x^2)*1/81+(y^2)*1/49-(z^2)*1/100=0,9*x+7*y+10*z+5=0},x=-10..10,y=-12..12,z=-14..14,scaling=CONSTRAINED,title="Конус и плоскость");

Ответ: Конус и плоскость

Задание №7

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

> restart;

> plot([(9*x)/(7-10*(x^2))],x=-10..10,y=-12..12,color=magenta,thickness=2);