clc, clear
format long
x = [1 4 6 5]';
%x = [1 4 6]';
%x = [1 6]';
y = log(x);

xint = 2;
d2_Newtint(x,y,xint);