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

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

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

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

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

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

Отчет

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

Тема: “Функции в Maple. Операции оценивания. Решение уравнений и неравенств”.

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

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

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

Смоленск. 2011

Лабораторная работа №2«Структура окна Maple. Арифметические операции, числа, константы и стандартные функции. Элементарные преобразования математических выражений»

Выполнил студент: Дорофеева Н.А., группа БА1-10

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

Задание №1.Дано комплексное число . Найти его вещественную и мнимые части, модуль и аргумент.

a=9

b=7

> z:=(2*exp(I*Pi/9))^7;

> restart;

> evalc(Re(z));evalc(Im(z));

> restart;

> reablib(polar):polar(z);

Ответ:

Задание №2.Записать функцию в виде функционального оператора и вычислите ее значения при x=1, y=0 и при , .

c=10

> restart;

> f:=(x,y)->(arctan(x+y)/arctan(x-y))^10;

> f(1,0);

> f((1+sqrt(3))/2,(1-sqrt(3))/2);

_{Ответ: , .}

Задание №3.Записать функцию с помощью оператора присваивания и вычислите ее значение при x=d, y=1/d, используя команду подстановки subs.

a=9

b=7

c=10

> restart;

> f:=(x^9*y^7-x^7*y^9)/(x*y)^10;

> subs({x=d,y=1/d},f);

Ответ: _{, .}

Задание №4.Найти все точные решения системы в аналитическом виде.

a=9

b=7

c=10

> restart;

> eq:={x^2-9*x*y+7*y^2=0,x^2+y^2=10};

> _EnvExplicit:=true:

> s:=solve(eq,{x,y});

Ответ:

Задание №5.Найти все решения тригонометрического уравнения .

> restart;

> _EnvAllSolutions:=true:

> solve((sin(x))^4-(cos(x))^4=1/2,x);

Ответ:

Задание №6.Найти численное решение уравнения .

> restart;

> x:=fsolve(exp(x)=5*(1-x)^2,x);

Ответ: 0,4421407468

Задание №7.Решить неравенство .

> restart;

> s:=solve(2*(ln(x))^2-ln(x)<1,x):

> convert(s,radical);

_Ответ:

Задание №5.Найти все решения тригонометрического уравнения

> restart;

> _EnvAllSolutions:=true:

> solve((sin(x))^4-(cos(x))^4=1/2,x);

> simplify({x});

_Ответ:

Задание №7.Решить неравенство .

> restart;

> s:=solve(2*(ln(x))^2-ln(x)<1,x):

> convert(s,radical);

> solve(2*(ln(x))^2-ln(x)<1,{x});

_{Ответ :}

5