# f pokhalo diagramja [a,b]-n, x0 kezdeti ertekbol, N iteracio
function cobweb(f,a,b,x0,N)

% egy abrara rajzolunk
hold on;

% fuggveny, es tengely
x = a : 0.01 : b;
plot(x, f(x), 'b'); # y = f(x)    fuggveny
plot(x, x,    'g'); # y = x       atlo
grid on;

# fixpont iteraciok
xn = x0;
for i = 1 : N
    
    % xn kiirasa
    disp(xn)
    
    % fuggvenyertek xn-ben
    fxn = f(xn);

    % atlo -> fgv fuggoleges vonal
    line([xn, xn], [xn, fxn], "color", 'k');
    
    % fgv -> atlo vizszintes vonal
    line([xn, fxn], [fxn, fxn], "color", 'k');
        
    % uj iteracio
    xn = fxn;
end

hold off;

endfunction