% preg1, tema 6, test 2, 521230, S2, 2011

% cero de funcion en func2_tema2 y derivada en dfunc2_tema2 con newtonrd

x0 = [10;10];

maxit = 10;
[x,it] = newtonrd('func1_tema6','dfunc1_tema6',x0,1e-6,maxit);
if it ~= -1
    display('newton calculo aproximacion a cero de f')
    it
    x
    val = feval('func1_tema6',x);
    norm(val,inf)
else
    display('newton no pudo calcular aprox. a cero de f')
end
