Private Function H(t As Single, x As Single) As Single '溴化锂水溶液焓-浓度方程(焓)
Dim a(4) As Single, b(4) As Single, c(4) As Single
a(0) = -121.189: a(1) = 16.7809: a(2) = -0.517766: a(3) = 6.31755 * 10 ^ (-3): a(4) = -2.60914 * 10 ^ (-4)
b(0) = 0.671458: b(1) = 1.01548 * 10 ^ (-2): b(2) = -5.41941 * 10 ^ (-4): b(3) = 6.82514 * 10 ^ (-6): b(4) = -2.80048 * 10 ^ (-8)
c(0) = 1.23744 * 10 ^ (-3): c(1) = -7.74557 * 10 ^ (-5): c(2) = 1.94305 * 10 ^ (-6): c(3) = -2.01424 * 10 ^ (-8): c(4) = 6.5288 * 10 ^ (-11)
H = 0
For i = 0 To 4
H = H + a(i) * x ^ i + t * b(i) * x ^ i + t ^ 2 * c(i) * x ^ i
Next i
End Function![图片说明](https://img-ask.csdn.net/upload/201905/28/1559033182_787462.jpg)
![图片说明](https://img-ask.csdn.net/upload/201905/28/1559033205_465217.jpg)