Информатика на Maple / лаба 3!!
.docФедеральное агентство по образованию
Филиал государственного образовательного учреждения Высшего профессионального образования
«Московский энергетический институт (Технический университет)»
в г.Смоленске
Кафедра высшей математики
Отчет
по лабораторной работе№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;
> with(plots):implicitplot3d({x^2/9^2+y^2/7^2+z^2/10^2=1},x=-10..10,y=-10..10,z=-10..10,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);