clear
fx='-1.4*x^2+y+1';
fy='0.3*x';
x=1;
y=0;
h5=plot(x,y,'erasemode','none');
axis([-1.5 1.5 -0.5 0.5]);
xlabel('{\it x}_1','Fontsize',12)
ylabel('{\it x}_2','Fontsize',12)
set(gca,'Fontsize',12)
title('An orbit of the Henon map','Fontsize',12)
grid
hold on
%disp('Pause is in effect; enalarge the figure window and press any key')
%pause
for i=1:20000
f1(i)=eval(fx);
f2(i)=eval(fy);
x=f1(i);
y=f2(i);
set(h5,'xdata',x,'ydata',y);
drawnow;
hold on
end