5 REM METODO DE AITKEN 10 PRINT "METODO DE AITKEN" 20 PRINT "----------------" 30 IF INKEY$=" " THEN 30 40 PRINT "Xn-1= "; 50 INPUT X1 60 PRINT "Xn= "; 70 INPUT X2 80 PRINT "Xn+1= "; 85 INPUT X3 90 Y=X3-(((X3^2)-(2*X3*X2)+(X2^2)))/(X1-(2*X2)+X1) 100 PRINT "Xn+2= ";Y 110 IF INKEY$=" " THEN 110 120 END