tA11))
dz = (Val (txtA11) * Val (txtA22) * Val (txtB3) + Val (txtA12) * Val (txtB2) * Val (txtA31) + Val (txtA21) * Val (txtA32) * Val (txtB1) - Val (txtB1) * Val (txtA22) * Val (txtA31) - Val (txtA12) * Val (txtA21) * Val (txtB3) - Val (txtB2) * Val (txtA32) * Val (txtA11))
txtMKX.Text = (dx/ds)
txtMKY.Text = (dy/ds)
txtMKZ.Text = (dz/ds)
txtMOMX.Text = (((Val (txtA22) * Val (txtA33) - Val (txtA23) * Val (txtA32))/ds) * Val (txtB1) + ((Val (txtA13) * Val (txtA32) - Val (txtA12) * Val (txtA33))/ds) * Val (txtB2) + ((Val (txtA12) * Val (txtA23) - Val (txtA13) * Val (txtA22))/ds) * Val (txtB3))
txtMOMY.Text = (((Val (txtA23) * Val (txtA31) - Val (txtA21) * Val (txtA33))/ds) * Val (txtB1) + ((Val (txtA11) * Val (txtA33) - Val (txtA13) * Val (txtA31))/ds) * Val (txtB2) + ((Val (txtA13) * Val (txtA21) - Val (txtA11) * Val (txtA23))/ds) * Val (txtB3))
txtMOMZ.Text = (((Val (txtA21) * Val (txtA32) - Val (txtA22) * Val (txtA31))/ds) * Val (txtB1) + ((Val (txtA12) * Val (txtA31) - Val (txtA11) * Val (txtA32))/ds) * Val (txtB2) + ((Val (txtA11) * Val (txtA22) - Val (txtA12) * Val (txtA21))/ds) * Val (txtB3))
End If
If Val (txtA11) = 0 Then
Dim gg As Byte
gg = MsgBox ("Вирішити дану систему методом Гауса неможливо. Поміняйте рівняння місцями, і спробуйте знову ", 48," Коефіцієнт при х у першому рівнянні дорівнює 0 ")
Else
s1 = ((Val (txtB3) * Val (txtA11)) - (Val (txtB1) * Val (txtA31)))
s2 = ((Val (txtA22) * Val (txtA11)) - (Val (txtA12) * Val (txtA21)))
s3 = ((Val (txtB2) * Val (txtA11)) - (Val (txtB1) * Val (txtA21)))
s4 = ((Val (txtA32) * Val (txtA11)) - (Val (txtA12) * Val (txtA31)))
s5 = ((Val (txtA33) * Val (txtA11)) - (Val (txtA12) * Val (txtA31)))
s6 = s2
s7 = ((Val (txtA23) * Val (txtA11)) - (Val (txtA13) * Val (txtA21)))
s8 = s4
s12 = s1 * s2
s34 = s3 * s4
s56 = s5 * s6
s78 = s7 * s8
sh = s12 - s34
sz = s56 - s78
If sz = 0 Then
Dim з As Byte
з = MsgBox ("Ділити на нуль не можна.", 48, "Помилка")
Else
txtMGZ.Text = (sh/sz)
End If
sy1 = s3
sy2 = s2
sy3 = ((Val (txtA23) * Val (txtA11)) - (Val (txtA13) * Val (txtA21)))
sy4 = s2
sy12 = (sy1)/(sy2)
sy34 = (sy3)/(sy4)
txtMGY.Text = ((sy12) - ((Sy34) * (sh/sz)))
sx1 = ((Val (txtB1))/(Val (txtA11)))
sx2 = ((Val (txtA13))/(Val (txtA11)))
sx3 = ((Val (txtA12))/(Val (txtA11)))
txtMGX.Text = ((sx1) - ((Sx2) * (sh/sz)) - ((sx3) * ((sy12) - ((sy34) * (sh/sz)))))
End If
End Sub
Private Sub cmdExit_Click ()
Dim a As Byte
a = MsgBox (" Хочете вийти ?", 33, " Вихід ")
If a = 1 Then
End
End If
End Sub
В
Користь запровадження розрахунків.
Величезне кількість чисельних методів ставить актуальною завданням не стільки створення нових, скільки дослідження та класифікацію старих, виявлення кращих. Аналіз впливу помилок показав, що між кращими методами немає принципової різниці з точки зору стійкості до помилок округлення. Створення потужних комп'ютерів істотно послабило значення відмінності між методами (у таких характеристиках, як обсяг необхідної пам'яті, кількість арифметичних операцій). У цих умови найбільш переважними стають ті методи, які не дуже відрізняються від кращих за швидкістю і зручності реалізації на комп'ютерах, дозволяють вирішувати широке клас задач як добре, так і погано обумовлених і давати при цьому оцінку точності обчислювального рішення.
У MathCAD і Excel чисельні методи являють собою ті ж самі загальноприйняті ручні розрахунки, але виконувати не людиною, а комп'ютером, що знижує можливість помилки до нуля. Програма на Visual Basic набагато спрощує завдання. З допомогою одного разу створеної програми можна розв'язувати системи лінійних рівнянь, вводячи мінімум значень. Також ця програма може бути використана не тільки вами, а й простими користувачами.
В
III. Література
1) М. Додж, К. Кіната, К. Стінсон "Ефективна робота в Microsoft Excel 97", видавництво "Пітер"; Санкт-Петербург, 1998р.
2) Є.К . Овчаренка, О.П. Ільїна, Є.В. Балибердін "Фінансов...
