vb.net - 将大数传递给函数时系统溢出

Question

我正在尝试编写一个程序来模拟太阳系，并将大量数字传递给一个函数来计算引力。有问题的代码行是：

Earth.ptyForce = CalculateForce(Earth.ptyMass, Sun.ptyMass, dblSeparation)

在哪里：

• Earth.ptyMass等于5.9736 * 10 ^ 24
• Sun.ptyMass等于1.989 * 10 ^ 30
• dblSeparation仅等于300并在函数内部进行缩放。

我刚刚得到一个系统溢出，我怀疑这是因为数字太大，有什么办法解决这个问题吗？我考虑过只将较小的数字传递给函数并扩大它们，但如果可能的话，我宁愿避免这样做。

以防万一它需要CalculateForce函数如下：

Public Function CalculateForce(ByVal intMass1 As Integer, ByVal intMass2 As Integer, ByVal dblDistance As Double)
    dblDistance *= dblDistanceScalar
    Return dblGravitationalConstant * intMass1 * intMass2 / dblDistance ^ 2
End Function

该错误具体为：

System.OverflowException: '算术运算导致溢出。'

标签： vb.netstack-overflow

Answer 1

你的数字太大了，10^30 大于 2^32 读这个：

https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/data-types/numeric-data-types