Sin и Cos выводят неверные значения - VB
Формулировка задачи:
У меня значение, выводимое функцией Sin не совпадает со значением в справочнике. Может, есть алгоритм вычисления синуса и косинуса, отличный от того, которым пользуется VB?
Спасибо.
Решение задачи: «Sin и Cos выводят неверные значения»
textual
Листинг программы
Function SinM(ByVal x As Double, _ ByVal e As Double) As Double Dim s As Double, a As Double, n As Long, _ y As Double, pi2 As Double pi2 = 6.28318530717959 y = Abs(x) If y > pi2 Then y = y / pi2 y = (y - Int(y)) * pi2 End If If x < 0 Then y = -y s = 0: a = y: n = 1 Do s = s + a n = n + 2 a = -a * y * y / (n - 1) / n Loop Until Abs(a) < e SinM = s End Function Function CosM(ByVal x As Double, _ ByVal e As Double) As Double Dim s As Double, a As Double, n As Long, _ y As Double, pi2 As Double pi2 = 6.28318530717959 y = Abs(x) If y > pi2 Then y = y / pi2 y = (y - Int(y)) * pi2 End If s = 0: a = 1: n = 0 Do s = s + a n = n + 2 a = -a * y * y / (n - 1) / n Loop Until Abs(a) < e CosM = s End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д