X=.8;%Xn-1
Xn=X;%Xn
x=0;%Xn+1
f=(X.^5)+(.9*X.^4)-(1.62*X.^3)-(1.458*X.^2)+(.6561*X)+.59049
x = Xn - ((Xn.^5)+(.9*Xn.^4)-(1.62*Xn.^3)-(1.458*Xn.^2)+(.6561*Xn)+.59049)/((5*Xn.^4)+(3.6*Xn.^3)-(4.86*Xn.^2)-(2.916*Xn)+.6561);
D = x - Xn
for i = 1:1:7
    i
    Xn = X - ((X.^5)+(.9*X.^4)-(1.62*X.^3)-(1.458*X.^2)+(.6561*X)+.59049)/((5*X.^4)+(3.6*X.^3)-(4.86*X.^2)-(2.916*X)+.6561)
    f=(Xn.^5)+(.9*Xn.^4)-(1.62*Xn.^3)-(1.458*Xn.^2)+(.6561*Xn)+.59049
    x = Xn - ((Xn.^5)+(.9*Xn.^4)-(1.62*Xn.^3)-(1.458*Xn.^2)+(.6561*Xn)+.59049)/((5*Xn.^4)+(3.6*Xn.^3)-(4.86*Xn.^2)-(2.916*Xn)+.6561);
    D = x-Xn
    R = (x-Xn)/(Xn-X)
    X=Xn;    
end