제가 지금 cosx함수를 다항함수로 표현하는것을 vba로 짜보고 있는데

 

Function f(x, es, maxit)


iter = 2

sol = 1

Do

solold = sol

sol = sol + ((-1) ^ (iter + 1)) * (x ^ iter / WorksheetFunction.Fact(iter))

iter = iter + 2

If sol <> 0 Then

ea = Abs((sol - solold) / sol) * 100

End If

If es <= ea Or iter >= maxit Then Exit Do

Loop

End Function

무엇이 하자가 있는지 값을 입력하면 오류는 뜨지는 않는데 다 0이 나오네요

 

지적 바랍니다.

 

 

cosx=1-x^2/2!+x^4/4!-x^6/6!+ .........