// Part III (At, a, n); (fo, " n nТранспонірованная матриця: A n");
print_matr (At, n, fo); _matr (At, a, razn, n); (fo, " n nРазность транспон. та вихідної матриці: n n");
print_matr (razn, n, fo); (a2, razn, n);
fprintf (fo, " nПолученная різниця в квадраті: n n");
print_matr (a2, n, fo); _vm (a2, x1, nv, n); (fo, " nУмноженіе вектора 1/X на різницю в квадрате2: n n");
print_vect (nv, n, fo); = umnozh_sst (nv, d, n); (fo, " n nРезультат матричних операцій (константа):% f n n", rmo);
double Y = GetY (a, x, n); (fo, " n nРезультат комплексних перетворень: n nY =% f", Y);
fcloseall ();
}
4. КОНТРОЛЬНИЙ ПРИКЛАД
Всі розрахунки проведемо в MathCadе.
В В В В В В В В В В В В В
,
В В В В В В В В В В
Те, що вивела програма в файл при розмірності n = 2:
Матриця А:
.22756 -0.95023
.02825 -1.50060
Вектор X:
.02825 -0.95023
Вектор 1/X:
.97253 -1.05238
Вектор 1/D:
.39445 -0.66640
Транспонована матриця: A
.22756 -1.02825
.95023 -1.50060
Різниця транспон. і вихідної матриці:
.00000 -0.07802
.07802 0.00000
Отримана різниця в квадраті:
.00609 0.00000
.00000 -0.00609
Множення вектора 1/X на різницю в квадрате2:
.00592 0.00641
Результат матричних операцій (константа): 0.021746
Результат комплексних перетворень: = -0.950225
Як видно, програма всі кроки виконала вірно, це підтверджено ручним розрахунком.
ВИСНОВОК
В результаті виконаної курсової роботи можна зробити наступні висновок: розроблена коректно працююча програма, здатна вирішувати деякі інженерні завдання.
