Блог

Я провел некоторые исследования, и общий совет заключается в изменении типа данных переменной, содержащей выражение, на Long или Ulong, но в любом случае я все равно получаю ту же ошибку. Я также попытался заключить выражение с помощью CInt() (или CLong()), чтобы заставить его вырезать десятичную часть, чтобы уменьшить длину вывода выражения, но ни то, ни другое не работает. Все это довольно запутанно. Любая помощь будет глубоко оценена. Блок кода, вызывающий ошибку, выглядит следующим образом;

  Vsf(i) = CInt((((0.91544 - 0.00166 * Angle(i) - 0.000002 * W - 0.054248 * 
 Superelevation(i) - Sidefrictionfactor) / 0.013939) * Radius(i)) ^ 0.5)

 Vro(i) = CInt((((1.04136 - 0.004528 * Angle(i) - 0.000004 * W - 0.338711 * Superelevation(i) - rolloverthreshold) / 0.014578) * Radius(i)) ^ 0.5)


Vmin(i) = CInt(Math.Min(Vsf(i), Vro(i)))
 

Я объявил VSf(), Vro() и Vmin() как целочисленные массивы. Я даже вложил вычислительное выражение в CInt() в надежде, что оно преобразует результат Vro (который вызывал ошибку арифметического переполнения) в целое число и, следовательно, не придется иметь дело с десятичными дробями, что привело бы к большему количеству цифр. Тем не менее, когда я навожу курсор на Vro (i), я вижу 4-значное целое число с десятичными дробями. Не знаю, почему это происходит.

Я разбил формулу на части, чтобы попытаться понять, в чем проблема. Все шло своим чередом до самого конца. Если значение, которое нужно увеличить до .5, является отрицательным числом, квадратный корень не дает числа. Я бы выполнил шаги формулы без ^.5 , а затем проверил наличие отрицательного числа.

 Private Sub OPCode()
    Dim Angle = 90.2
    Dim Radius = 100.2
    Dim Superelevation = 37.8
    Dim Sidefrictionfactor = 0.003
    Dim W = 0.00325
    Dim Vsf As Double
    Dim AngleMultiplication = 0.00166 * Angle
    Dim WMultiplication = 0.000002 * W
    Dim SuperelavationMultiplication = 0.054248 * Superelevation
    Dim SubtractResult = 0.91544 - AngleMultiplication - WMultiplication - SuperelavationMultiplication - Sidefrictionfactor
    Dim DivisionResult = SubtractResult / 0.013939
    Dim MultiplyByRadius = DivisionResult * Radius
    Debug.Print(MultiplyByRadius.ToString) 'With my made up values I get a negative number
    Vsf = MultiplyByRadius ^ 0.5 'You cannot get the square root of a negative number
    Debug.Print(Vsf.ToString) 'NaN
    Dim intVsf = CInt(Vsf) 'The Arithematic overflow error occurs here
End Sub