1 CLEAR 5 REM ITERACION DE PUNTO FIJO 10 PRINT "ITERACION DE PUNTO FIJO" 20 PRINT "-----------------------" 30 IF INKEY$="" THEN 30 40 CLS 50 PRINT "DEFINE LA FUNCION X=F(X) DESPEJANDO X FALSAMENTE EN LA LINEA 245" 55 PRINT "DEFINE LA FUNCION DX=F'(X) DESPEJANDO X FALSAMENTE EN LA LINEA 210" 60 IF INKEY$="" THEN 60 70 PRINT "INTRODUCE EL ERROR DESEADO:"; 80 INPUT D 90 PRINT "INTRODUCE NUM. MAX. DE ITERACIONES:"; 100 INPUT I 110 J=0 120 A$="DIVERGE" 130 CLS 140 PRINT "INTRODUCE X0:"; 150 INPUT X 210 DX= 220 IF DX<1 THEN A$="CONVERGE" ELSE GOTO 400 230 J=J+1 240 Z=X 245 X= 247 IF ABS(Z-X)I THEN 350 250 PRINT "X(";J;")=";X;"-->";A$ 260 GOTO 210 350 PRINT "SOLUCION X=";Z;"EN";J;"ITERACIONES":END 400 PRINT "NO EXISTE SOLUCION.";A$ 410 END