% Schematic6.m %
clear; clc; clf; x=linspace(-pi/2,pi/2,100); plot(x,1.2*sin(x/0.8)+0.4,'k-','linewidth',1.5)
hold on; plot([-2.1 2.8],[0 0],'k-','linewidth',1.0);
plot([-1.9 -1.9],[-1.3 2.1],'k-','linewidth',1.0); 
text(-0.32,0,'\bullet','fontsize',16)
text('Interpreter','latex','String','$$x$$','Position', [-0.3 -0.15],'FontSize',16)
text('Interpreter','latex','String','$$x_0$$','Position', [-1.15 0.1],'FontSize',16)
text(-1.1,-0.75,'\bullet','fontsize',16);
plot([-1.05 -1.05],[-0.75 0],'k--','linewidth',1)
plot([-1.5 1.2],[-1 0.25]+0.02,'k-','linewidth',1.0)
text('Interpreter','latex','String','$$(x_0,f(x_0))$$','Position', [-1.25 -1],'FontSize',14)
text('Interpreter','latex','String','Slope $$f^\prime(x_0)$$', 'Position',[1.3 0.3],'FontSize',14); 
plot([0.61 0.61],[1.2 0],'k--','linewidth',1.0); text(0.56,1.23,'\bullet','fontsize',16)
text('Interpreter','latex','String','$$x_1$$','Position', [0.54 -0.15],'FontSize',16)
text('Interpreter','latex','String','$$(x_1,f(x_1))$$','Position', [0.65 1.1],'FontSize',14)
plot([-0.9 1.2],[-0.3 1.9]-0.04,'k-','linewidth',1.0)
text('Interpreter','latex','String','Slope $$f^\prime(x_1)$$',...
    'Position', [-0.1 1.8],'FontSize',14)
text('Interpreter','latex','String','$$x_2$$','Position', [-0.74 0.15],'FontSize',16)
text('Interpreter','latex','String','$$y=f(x)$$','Position', [1.6 1.5],'FontSize',16)
axis image;axis([-2.55 3.8 -2.4 2.2]);...
axis off;print('-deps','fig_Newt.eps')
set(gcf,'PaperPositionMode','auto')
