Clc
Clear
X0=input(‘x=’)
While(abs fx(x0)>.01)
X1=x0-fx(x0)-dfx(x0)
X0=x1
End
Disp x0
*****************************************
function fx(a)
a+a^3-2*sgrt(a)-6
--------------------------------
function dfx(a)
1+3*a^2-1/sqrt(a)