Numerical Methods With Vba Programming Books Pdf File Here

Function NewtonRaphson(x0 As Double, tol As Double, maxIter As Integer) As Double Dim x As Double Dim f As Double Dim df As Double x = x0 For i = 1 To maxIter f = x ^ 2 - 2 df = 2 * x x = x - f / df If Abs(f) < tol Then NewtonRaphson = x Exit Function End If Next i NewtonRaphson = x End Function This code defines a function NewtonRaphson that takes an initial guess x0 , a tolerance tol , and a maximum number of iterations maxIter as inputs. The function returns the root of the equation x^2 - 2 = 0 using the Newton-Raphson method.