function [] = Algoplot2( A, x )
%Algoplot plots fixed point algorithms

figure(1)
gri" 
format short
xaxis = linspace(min(x), max(x));
plot (xaxis,xaxis,':')
hold on
plot (xaxis,A(xaxis))


for i=1:(length(x)-1)
    
   p1 = [x(i) x(i)];
   p2 = [x(i) x(i+1)];
   dp = p2-p1;  
   
   quiver(p1(1),p1(2),dp(1),dp(2),0)
   %text(p1(1),p1(2), sprintf('(%.0f,%.0f)',i,i))
   %text(p2(1),p2(2), sprintf('(%.0f,%.0f)',i,i+1))
   
   
   p1 = [x(i) x(i+1)];
   p2 = [x(i+1) x(i+1)];
   dp = p2-p1;  
   
   quiver(p1(1),p1(2),dp(1),dp(2),0)
   %text(p2(1),p2(2), sprintf('(%.0f,%.0f)',i+1,i+1))
   
   hold on
   
end;
hold off
end