Здравствуйте. Дали решить задачу: 1. функцию y на отрезке [а, b] с шагом h.
2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h.
Сравнить значения заданной функции и ее разложения.
Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по соответствующей рекуррентной формуле.
Код я написал, но программа ругается.
Function f(a)
t = 1
For i = 1 To a
t = ( i ^ 2 + 1 ) / t * i
Next i
f = t
End Function
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
e = Val(Text4)
ex = 2.718
For x = a To b Step h
s = 1
k = 1
y = (e^x + e^(-x)) / 2
Do
s = s + ((x / 2) ^ k) / f(k)
k = k + 1
Loop Until ((x / 2) ^ k) / f(k) < e
Picture1.Print x
Picture2.Print Format(y, "0.00000")
Picture3.Print Format(s, "0.00000")
Next x
End Sub
B правильно ли это вообще?
2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h.
Сравнить значения заданной функции и ее разложения.
Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по соответствующей рекуррентной формуле.
Код я написал, но программа ругается.
Function f(a)
t = 1
For i = 1 To a
t = ( i ^ 2 + 1 ) / t * i
Next i
f = t
End Function
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
e = Val(Text4)
ex = 2.718
For x = a To b Step h
s = 1
k = 1
y = (e^x + e^(-x)) / 2
Do
s = s + ((x / 2) ^ k) / f(k)
k = k + 1
Loop Until ((x / 2) ^ k) / f(k) < e
Picture1.Print x
Picture2.Print Format(y, "0.00000")
Picture3.Print Format(s, "0.00000")
Next x
End Sub
B правильно ли это вообще?
