fcn_nr.m

function [y, deriv] = fcn_nr(x)
    y = x^4 - 5*x^3 - 124*x^2 + 380*x + 1200;
    deriv = 4*x^3 - 15*x^2 - 248*x + 380;