
- •Математичні моделі в сапр: методичні вказівки до лабораторних робіт
- •Передмова до методичних вказівок
- •1.Лабораторна робота EvalExpr на тему "Знаходження похибок обчислень"
- •Теоретичні питання.
- •Приклад виконання роботи EvalExpr
- •Варіанти індивідуальних завдань до роботи EvalExpr
- •2.Лабораторна робота DetKram на тему “Розв’язання слр за формулами Крамера”
- •Теоретичні питання
- •Приклад виконання роботи DetKram
- •Варіанти індивідуальних завдань до роботи DetKram
- •Допоміжні матеріали до роботи DetKram Інструкція користувачу до додатку InteractiveDet
- •Приклад змісту вхідного файла Det.Inp:
- •Вихідні файли програми.
- •Натискання клавіші “Введення з файлу”.
- •Натискання клавіші “Зменшити у рядку”.
- •Натискання клавіші “Зменшити у стовпці”.
- •Натискання клавіші “Зменшити розміри”.
- •Завершення роботи додатку.
- •3.Лабораторна робота InvMatr на тему “Розв’язання слр за методом оберненої матриці”
- •Теоретичні питання
- •Приклад виконання роботи InvMatr
- •Варіанти індивідуальних завдань до роботи InvMatr
- •Допоміжні матеріали до роботи InvMatr Програма AdjMatr
- •Інструкція користувачу до додатку InteractiveAdjMatr
- •4.Лабораторна робота Gauss на тему „Наближене розв`язання слр методами виключення невідомих”
- •Теоретичні питання
- •Приклад виконання роботи Gauss
- •2В. Обчислення компонент вектора нев’язки.
- •3A. Знаходження наближеної оберненої матриці за методом Гауса.
- •3B. Знаходження компонент наближеного розв’язку .
- •3C. Знаходження компонент вектору нев’язки
- •5. Знаходження міри обумовленості головної матриці системи.
- •Варіанти індивідуальних завдань до роботи Gauss
- •Додаткові матеріали до роботи Gauss Програма NormVect знаходження різних норм вектора
- •Програма NormMatr знаходження різних норм матриці
- •Процедура g3v33l4
- •Модуль GaussRow
- •Iнструкцiя користувачу до програми InteractiveGauss
- •5.Лабораторна робота LinSysIt на тему “Ітераційні методи розв’язання слр”
- •Теоретичні питання
- •Приклад виконання роботи LinSysIt
- •Варіанти індивідуальних завдань до роботи LinSysIt
- •Допоміжні матеріали до роботи LinSysIt Програма NormForm
- •Програма SysIter
- •Програма Zeidel
- •6.Лабораторна робота TransEq на тему "Розв'язання трансцендентних рівнянь з одним невідомим"
- •Теоретичні питання
- •Приклад виконання роботи TransEq
- •Розрахункова таблиця знаходження кореня
- •Розрахункова таблиця знаходження кореня
- •Розрахункова таблиця знаходження кореня
- •Уточнення відокремленого кореня за методом простих ітерацій.
- •Розрахункова таблиця знаходження кореня рівняння за методом простих ітерацій
- •Розрахункова таблиця знаходження кореня рівняння за методом простих ітерацій
- •Варіанти індивідуальних завдань до роботи TransEq
- •Додаткові матеріали до роботи TransEq Інструкція користувачу для роботи з додатком TranscEq
- •Робота з додатком TranscEq
- •7.Лабораторна робота NonLinSys на тему „Розв’язання систем нелінійних рівнянь”
- •Теоретичні питання
- •Приклад виконання роботи NonLinSys
- •Розрахункова таблиця знаходження роз'вязку
- •Варіанти індивідуальних завдань до роботи NonLinSys
- •Допоміжні матеріали до роботи NonLinSys Інструкція користувачу для роботи з програмою Newton2
- •Текст програми Newton2
- •Текст модуля Funct
- •Текст модуля NewtonS
- •8.Лабораторна робота SelfEq на тему ”Знаходження характеристичного рівняння”
- •Теоретичні питання
- •Приклад виконання роботи SelfEq
- •Варіанти індивідуальних завдань до роботи SelfEq
- •9.Лабораторна робота SelfVect на тему “Знаходження власних векторів”
- •Теоретичні питання.
- •Приклад виконання роботи SelfVect
- •Варіанти індивідуальних завдань до роботи SelfVect
- •Література
Текст модуля NewtonS
unit NewtonS; {модуль з iтерацiйною процедурою NewtonStep}
Interface {NewtonS}
uses Funct;
{крок двовимiрного методу Ньютона}
procedure NewtonStep(x,y:real;var dx,dy:real;var OK:boolean);
implementation {NewtonS}
{крок двовимiрного методу Ньютона}
procedure NewtonStep(x,y:real;var dx,dy:real;var OK:boolean);
var Delta,Delta1,Delta2:real;
begin {NewtonStep}
Delta:=Fx(x,y)*Gy(x,y)-Gx(x,y)*Fy(x,y);
if Delta=0
then OK:=false
else begin {OK:=true}
OK:=true;
Delta1:=F(x,y)*Gy(x,y)-G(x,y)*Fy(x,y); Delta2:=Fx(x,y)*G(x,y)-Gx(x,y)*F(x,y);
dx:=-Delta1/Delta; dy:=-Delta2/Delta;
end; {OK:=true}
end; {NewtonStep}
end. {NewtonS}
8.Лабораторна робота SelfEq на тему ”Знаходження характеристичного рівняння”
Завдання. Для заданої квадратної матриці записати характеристичний визначник, знайти відповідне характеристичне рівняння за методом Левер’є і знайти наближено всі дійсні корені характеристичного рівняння.
Хід виконання. Для заданої квадратної матриці:
Записати відповідний характеристичний визначник і знайти відповідне характеристичне рівняння за методом Левер’є;
Здійснити перевірку знайденого характеристичного рівняння, знаходячи характеристичне рівняння безпосередньо за означенням;
Знайти границі розташування коренів характеристичного рівняння (метод кільця) і знайти наближено всі корені (дійсні та комплексні) характеристичного рівняння;
Знайти кратність знайдених коренів характеристичного рівняння;
Оформити звіт та захистити лабораторну роботу.
Теоретичні питання
Власні значення квадратної матриці і відповідні власні вектори.
Характеристичний визначник і характеристичне рівняння (вікове рівняння) квадратної матриці.
Теорема Гамільтона-Келі.
Формули Ньютона для симетричних сум
.коренів полінома.
Різні методи знаходження характеристичного рівняння (Данілевського, Крилова, Левер'є, невизначених коефіцієнтів).
Означення точного і наближеного коренів алгебраїчного рівняння.
Теорема Гауса. Головна теорема алгебри.
Два визначення кратних коренів алгебраїчного рівняння.
Приклад виконання роботи SelfEq
Лабораторна робота SelfEq на тему ‘Знаходження характеристичного рівняння квадратної матриці і його дійсних коренів’
Варіант 100. Виконав студент групи БІТ-04, Мороз Олексій Васильович. Дата виконання: 15.12.2003.
Завдання.
Для квадратної
матриці
записати характеристичний визначник,
знайти відповідне характеристичне
рівняння за методом Левер’є і знайти
наближено всі дійсні корені характеристичного
рівняння.
Виконання роботи.
Запис характеристичного визначника.
.
Знаходження характеристичного рівняння. За методом Левер’є треба, по-перше, знайти степені матриці до четвертого степеня і знайти відповідні сліди: Тому послідовно знаходимо:
1)
,
;
2)
,
;
3)
,
Тому, за формулами Ньютона:
Отже,
Перевірка:
Так як
то як наслідок маємо наступні корені
характеристичного рівняння
Зауваження. Якщо невідомий розклад характеристичного многочлена на елементарні множники, то треба написати програму відокремлення дійсних коренів цього многочлена і провести уточнення відокремлених коренів з заданою точністю.
Висновки до лабораторної роботи. Нами знайдено характеристичне рівняння за методом Левер'є і всі його дійсні корені.