print contador;
contador = contador + 1
if (contador > 10) quit;
r(x) = f(a) + df(a)*(x-a)
set xrange [a-1:a+3]
plot f(x), r(x),0
a = a - f(a)/df(a)
print "f(",a,") = ", f(a)
print "Aperte enter para continuar!"
pause -2
if (contador <= 10) load "exer04_01_042.gnuplot"; else quit
quit