Вычисление гиперболического косинуса через ряды

@dennes544 · Регистрация: 11.11.2015

Студворк — интернет-сервис помощи студентам

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

@The trick · 11.11.2015, 15:49

Visual Basic

Option Explicit
 
Private Sub Form_Load()
    Dim x As Single, y As Single
    
    AutoRedraw = True
    Scale (-10, 10)-(10, -10)
    Line (ScaleLeft, 0)-Step(ScaleWidth, 0)
    Line (0, ScaleTop)-Step(0, ScaleHeight)
    For x = ScaleLeft To ScaleLeft + ScaleWidth Step 0.001
 
        Me.Line -(x, cosh(x))
        
    Next
    
End Sub
 
Private Function cosh(ByVal x As Single, Optional ByVal e As Single = 0.0001) As Single
    Dim i As Long, f As Single, cx As Single, l As Single
    cosh = 1: f = 1: cx = 1
    Do
        i = i + 2: f = f * (i - 1) * i: cx = cx * x * x: l = cx / f
        cosh = cosh + l
    Loop While Abs(l) > e
End Function

@dennes544 0 / 0 / 0 Регистрация: 11.11.2015 Сообщений: 1
		1
	Вычисление гиперболического косинуса через ряды 11.11.2015, 14:44. Показов 1365. Ответов 1 Метки нет (Все метки) Здравствуйте! Помогите написать код для вычисления гиперболического косинуса через ряды с указанной точностью. Заранее спасибо! 0

	11.11.2015, 15:49

Опции темы