Function SinusDevLimite(X as Double, n As Long) As Double Dim i As Long if n<>-1 then SinusDevLimite = (-1)^n * (X^n)/n + SinusDevLimite(X,n-1) else SinusDevLimite = 0 EndIf End Function
Private Function Sinus(ByVal X As Double, ByVal N As Integer) As Double Dim i As Integer Dim Fact As Long Dim Resultat As Double Resultat = 0 Fact = 1 For i = 1 To N Fact = Fact * i If i Mod 2 = 1 Then Resultat = Resultat + X ^ i / Fact Fact = -Fact End If Next Sinus = Resultat End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionX = X - (X \ (2 * PI)) * (2 * PI)