Курсовая работа: Численные методы решения систем линейных уравнений
3) Метод Гаусса.
| Метод Гаусса | ||||||
| x1 | x2 | x3 | x4 | |||
| 12 | -4 | 0 | 6 | 2 | ||
| A= | -4 | 21 | 5 | 3 | B= | 4 |
| -3 | 2 | -22 | 1 | -2 | ||
| -2 | -3 | 5 | 23 | 4 | ||
| 'A'= | -134088 | |||||
| 1,000 | -0,333 | 0,000 | 0,500 | 0,167 | ||
| -4,000 | 21,000 | 5,000 | 3,000 | 4,000 | ||
| -3,000 | 2,000 | -22,000 | 1,000 | -2,000 | ||
| -2,000 | -3,000 | 5,000 | 23,000 | 4,000 | ||
| 1,000 | -0,333 | 0,000 | 0,500 | 0,167 | ||
| 0,000 | 25,333 | 5,000 | 5,000 | 4,667 | ||
| 0,000 | 1,000 | -22,000 | 2,500 | -1,500 | ||
| 0,000 | -3,667 | 5,000 | 24,000 | 4,333 | ||
| 1,000 | -0,333 | 0,000 | 0,500 | 0,167 | ||
| 0,000 | 1,000 | 0,197 | 0,197 | 0,184 | ||
| 0,000 | 0,000 | -22,197 | 2,303 | -1,684 | ||
| 0,000 | 0,000 | 5,724 | 24,724 | 5,009 | ||
| 1,000 | -0,333 | 0,000 | 0,500 | 0,167 | ||
| 0,000 | 1,000 | 0,197 | 0,197 | 0,184 | ||
| 0,000 | 0,000 | 1,000 | -0,104 | 0,076 | ||
| 0,000 | 0,000 | 0,000 | 25,317 | 4,574 | ||
| x= | 0,120 | |||||
| 0,130 | ||||||
| 0,095 | ||||||
| 0,181 | ||||||
4) Листинг программы (Метод Крамера, Метод Гаусса, Метод обратной матрицы).
Begin VB . Form frmAriel
BorderStyle = 1 'Единственный Фиксированный
Caption = "Решение систем линейных уравнений"
ClientHeight = 6315
ClientLeft = 4365
ClientTop = 2430
ClientWidth = 7815
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 204
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
LinkTopic = " Форма 1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6315
ScaleWidth = 7815
Begin VB.TextBox txtMOMZ
Alignment = 2 ' Выравнивание по Центру
BeginProperty Font
Name = "Times New Roman"
Size = 15.75
Charset = 204