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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.4 из 5
Похожие ответы