%Convergance Criteria
Enr = 1e-8;
%Max iteration
imax = 100;
%Initial Guesses
t0 = 2.2;
t1 = 2.3;
t2 = 2.4;
for i = 1:imax
t = t0;
f = (2*sin(t^2))-(3*t*sin(t^2))+((t^2)*sin(t^2));
df = (4*t*cos(t^2))-(3*sin(t^2))-(6*(t^2)*cos(t^2))+(2*t*sin(t^2))+(2*(t^3)*cos(t^2));
dt = - f/df;
t0 = t + dt;
T = table(i,t,f,dt,t0);
if abs(dt/t) < Enr
break
end
end