能不能用VB或C#编一个程序帮我解这个方程式
a和b 为 Double型a*lg200+b=0.1
a*lg2208+b=400求 A和B 的值等于多少?如果变成了 a*lg32000+b=0.1
a*lg17000000+b=400
A和B的值又等于多少呢?能不能编个通用一点的谢谢大家
a和b 为 Double型a*lg200+b=0.1
a*lg2208+b=400求 A和B 的值等于多少?如果变成了 a*lg32000+b=0.1
a*lg17000000+b=400
A和B的值又等于多少呢?能不能编个通用一点的谢谢大家
Dim a As Double
Dim b As Double
Dim lg1 As Double
Dim lg2 As Double
lg1 = Text1
lg2 = Text2
a = (400 - 0.1) / (Log(lg2) / Log(10) - Log(lg1) / Log(10))
b = 0.1 - a * Log(lg1) / Log(10)
MsgBox a & ", " & b
End Sub
a*lg2208+b=400
推导
a=(400-0.1)/(lg2208-lg200)
b=0.1-a*lg200
############################lg200在vb里用log(200)/log(10)来实现
把
c1*a+c11*b=r1
c2*a+c22*b=r2
这个方程组人工算一下就得到通用算法
a=(r2c11-r1c22)/(c2c11-c1c22)
b=(r2c1-r1c2)/(c2c1-c1c2)