Witam
Potrzebuję wzoru na rozwinięcie funkcji sinus(x) w szereg - prawdopodobnie rekurencyjnego.
Mam gotowy program napisany do funkcji e^x, muszę go jedynie zmodyfikować. Oto kod:
Option Explicit
Dim Xp As Double, Xk As Double
Dim N As Long, I As Long, J As Long, Dx As Double
Dim F1 As Double, F2 As Double
Dim W As Double, E1 As Double, E2 As Double
Dim X As Double, Eps As Double
Sub Tanlicowanie()
Range(Cells(5, 1), Cells(1005, 8)).Clear
Xp = 0
[A1] = Xp
Xk = 5
[A2] = Xk
N = 100
[A3] = N
Eps = 0.001
[A4] = Eps
Dx = (Xk - Xp) / CInt(N)
For J = 0 To N Step 1
X = Xp + CDbl(J) * Dx
F2 = 1#
W = 1#
I = 0
Do
I = I + 1
W = W * X / CDbl(I)
F2 = F2 + W
Loop Until Abs(W) < Eps
F1 = Exp(X)
E1 = Abs(F1 - F2)
E2 = E1 / Abs(F1) * 100
Cells(5 + J, 1).Value = J
Cells(5 + J, 2).Value = X
Cells(5 + J, 3).Value = F1
Cells(5 + J, 4).Value = F2
Cells(5 + J, 5).Value = E1
Cells(5 + J, 6).Value = E2
Cells(5 + J, 7).Value = I
Next J
End Sub
Z góry proszę o pomoc.