VB解二元多次方程组

来源:百度知道 编辑:UC知道 时间:2024/05/26 18:42:19
(nA)^(-B)=60
(mA)^(-B)=100
输入m,n值就可以计算出A,B值,各位高手帮帮忙啊

Private Sub Command1_Click()
m = Val(Text1)
n = Val(Text2)
If m = n Or m = 0 Or n = 0 Then
MsgBox "m,n 数据有错,请重新输入!"
Else
b = Log(6 / 10) / Log(m / n)
a = Exp(-Log(100) / b) / m
Text3 = a
Text4 = b
End If
End Sub

1、这是超越方程,不是多次方程。
2、可以使用松弛迭代法来求解(其关键在于或者要手工输入初始估计值)。具体方法,晚上讨论。