Maclaurin series를 이용한 Exp(x) 함수 계산

 

 

Do ... Loop문을 이용한다.

Function MacExp(x)
    Const Precision = 0.000000000000001
    MacExp = 0
    term = 1
    k = 1
    Do While Abs(term) > Precision
        MacExp = MacExp + term
        Debug.Print k; term; MacExp
        term = term * x / k
        k = k + 1
        If k = 100 Then
            MsgBox "Loop aborted, k > 100"
            Exit Do
        End If
    Loop
End Function

Exp함수 maclauric_seires.xlsm

0.08MB