function [x,X,k] = sekantna(f,x0,x1,tol,N)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% [x,X,k] = sekantna(f,df,x0,tol,N) izvede sekantno metodo za funkcijo f
% pri zacetnima priblizkoma x0 in x1 (iteracija se ustavi, ce je dosezena toleranca tol ali
% maksimalno stevilo korakov N)
%------------------------------------------------------------------------
%Vhodni podatki:
% f ........ funkcija, ki ji iscemo niclo
% x0, x1 ... zacetna priblizka
% tol ...... zahtevana toleranca
% N ........ najvecje stevilo dovoljenih korakov iteracije
%-------------------------------------
%Izhodni podatki:
% x ........ priblizek za niclo
% X ........ vektor dimenzije (k+1)x1 vmesnih priblizkov
% k ........ stevilo korakov iteracije
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

X = [x0 x1];
k = 0;
while k < N
    k = k+1;
    X(k+2) = X(k+1) - f(X(k+1))*(X(k+1)-X(k))/(f(X(k+1)) - f(X(k)));
    if abs(X(k+2)-X(k+1)) < tol
        break
    end
end

x = X(end);
end