Question

如何用VB解这个方程？？方程比较复杂，望大神指导，谢谢谢谢谢谢谢谢！！！

方程是：b*n*H*a+RT*((m+n)*ln((m+n*b)/(m+n*b+n*b*a))+n*b*a*ln(n*b*a/( m+n*b+n*b*a))=0
H = 42200
m = 56
n = 4
R = 8.314
T = 298.15
b = 1119
求a
实在抱歉公式漏掉半个括号，正确的是 b*n*H*a+RT*[(m+n)*ln((m+n*b)/(m+n*b+n*b*a))+n*b*a*ln(n*b*a/( m+n*b+n*b*a))]=0 。

Answer 1

根本就无解，H，b过大

，是不是检查一下公式，只有a接近0时，方程也接近零。

追问

你能把编的程序代码发我一下吗？
刚发现，我写的方程漏掉了半个括号，应该是b*n*H*a+RT*[(m+n)*ln((m+n*b)/(m+n*b+n*b*a))+n*b*a*ln(n*b*a/( m+n*b+n*b*a))]=0
RT是乘以后面的所有，不是只有中间的一项，你再帮我看一下，谢谢谢谢谢谢谢谢！！！。

追答

RT=?

追问

RT=8.314*298.15, 公式也可以写成b*n*H*a+8.314*298.15*[(m+n)*ln((m+n*b)/(m+n*b+n*b*a))+n*b*a*ln(n*b*a/( m+n*b+n*b*a))]=0

方便把编的程序代码发我吗？谢谢谢谢谢谢谢谢！！

追答

Private Sub Command1_Click()
Dim a As Single, H As Single, m As Single
Dim n As Single, R As Single, T As Single
Dim b As Single, x As Single
Dim i As Integer

H = 42200
m = 56
n = 4
R = 8.314
T = 298.15
b = 1119
For i = 1 To 25 Step 5
a = i
Print b * n * H * a + 8.314 * 298.15 * ((m + n) * Log((m + n * b) / (m + n * b + n * b * a)) + n * b * a * Log(n * b * a / (m + n * b + n * b * a)))
Next
End Sub

追问

好的 谢谢谢谢谢谢谢谢！！！

追答

明白了吧，此方程无解。

追问

但是这个不是求得a值吧，这个是计算的 b * n * H * a + 8.314 * 298.15 * ((m + n) * Log((m + n * b) / (m + n * b + n * b * a)) + n * b * a * Log(n * b * a / (m + n * b + n * b * a)))的值。
那个。。其实a的取值范围应该在0-1之间.。

追答

Private Sub Command1_Click()
Dim a As Single, H As Single, m As Single
Dim n As Single, R As Single, T As Single
Dim b As Single, x As Single
Dim i As Integer
 
H = 42200
m = 56
n = 4
R = 8.314
T = 298.15
b = 1119
For i = 1 To 200 Step 15
a = i / 200
Print b * n * H * a + 8.314 * 298.15 * ((m + n) * Log((m + n * b) / (m + n * b + n * b * a)) + n * b * a * Log(n * b * a / (m + n * b + n * b * a)))
Next
End Sub
你再看看这个，就算是零到一之间也不可能。
只有a，无限接近零时，结果才靠近零。

追问

谢谢谢谢，如果H=24194，能用那个Do loop until 语句吗，不用这个for 循环，让循环的次数更多点。如果H=24194，对应的a应该是0.00233.

追答

如果，H=24194，可能有解。一般解方程使用二分法，定点迭代法和牛顿切线法，都可以。你这个使用二分法可能简单点，牛顿切线法需求对函数进行求导。

Private Sub Command1_Click()
Dim a As Single, H As Single, m As Single
Dim n As Single, R As Single, T As Single
Dim b As Single, x As Single
Dim i As Integer
  
H = 24194
m = 56
n = 4
R = 8.314
T = 298.15
b = 1119
For i = 1 To 200 Step 15
a = i / 20000
Print b * n * H * a + 8.314 * 298.15 * ((m + n) * Log((m + n * b) / (m + n * b + n * b * a)) + n * b * a * Log(n * b * a / (m + n * b + n * b * a)))
Next
End Sub

你试试这个，已经出现负值，就有解了。

二分法
Private Sub Command2_Click()
Dim a As Single, H As Single, m As Single
Dim n As Single, R As Single, T As Single
Dim b As Single, x As Single, y As Single, z As Single
Dim i As Integer, d As Single, f As Single
  x = 0.0000001
  y = 0.1
H = 24194
m = 56
n = 4
R = 8.314
T = 298.15
b = 1119
Do
a = (x + y) / 2
z = y - x
d = b * n * H * a + 8.314 * 298.15 * ((m + n) * Log((m + n * b) / (m + n * b + n * b * a)) + n * b * a * Log(n * b * a / (m + n * b + n * b * a)))
If d > 0 Then y = a
If d < 0 Then x = a
i = i + 1
If i > 100 Then Exit Do
Loop Until z < 0.000001
Print a; "  "; i; "  "; z
End Sub

Answer 2

病情分析：
知道尿酸过高,首先就是要找出引起尿酸升高的原因,而不是盲目用药,才能拟出正确的治疗方向
指导意见：

.例如肥胖,药物〔如阿司匹林,抗肺结核药物,利尿剂等〕,血液疾病,肿瘤或肾功能不佳等,这些会引起尿酸升高的原因去除之后,通常尿酸值会回复正常.无症状高尿酸血症患者〔即从未有痛风关节炎发作或尿酸成分之尿路结石〕,通常并不需要药物治疗,可以注意一下食物控制,只有极少数患者需要用药,可向内科医师或风湿病专家请教.

追问

呃。。。这个是啥？？？？