Контрольная работа: Розв’язання задач з елементарної математики в пакеті Maple-8

Використаємо пакет plottools – пакет для створення та роботи з графічними об’єктами. Команда curve([[x1,y1],[x2,y2],…,[xn,yn],options) задає криву координатами своїх точок. Крива відображається лінійними сегментами, що з’єднують сусідні точки. Команда display відображає вивід графічних команд на екран.

> with(plottools): w:=curve([[1,0],[0,1],[-1,0],[0,-1],[1,0]],color=black, linestyle=1, thickness=2): plots[display](w);

7.2 Задача 7.2 (вар. №6)

Зобразити наступні геометричні фігури згідно ескізу рис.7.2 вихідних даних.

Розв’язання.

> with(plottools): u:=curve([[0,0],[1,-1],[0,-1],[-1,0],[0,1],[1,1],[0,0]],color=green, linestyle=1, thickness=2): plots[display](u);

8. Завдання №8

8.1 Задача 8.1 (вар. №6)

Розвязати рівняння 2-ї степені

Розв’язання.

> x-7+(x-6)^2/3=(x+4)^2/2-(x+2)*(x+6)/4;

Задаємо рівняння eq

> eq:=x-7+(x-6)^2/3-(x+4)^2/2-(x+2)*(x+6)/4=0;

Розв'язуємо рівняння eq відносно змінної x

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

Зробимо перевірку: підставляємо розв'язок у вихідне рівняння й одержуємо 0

> evalf(subs(x=-54/5-6/5*sqrt(71),x-7+(x-6)^2/3-(x+4)^2/2-(x+2)*(x+6)/4));

Далі підставляємо розв'язок у вихідне рівняння, одержуємо 0

> evalf(subs(x=-54/5+6/5*sqrt(71),x-7+(x-6)^2/3-(x+4)^2/2-(x+2)*(x+6)/4));

Відповідь:

8.2 Задача 8.2 (вар. №6)

Розв’язати рівняння 2-ї степені