function vp = CalculezValProprii(d,s,m, tol)

if(m > length(d))
  m = length(d)
endif
vp = zeros(1, m)
  r = IntervaleValProprii(d,s,m)

  for k = 1:m

    Mvechi = 0
    Mnou = (r(k)+r(k+1))/2

    %while((norm(Mnou-Mvechi)/Mnou)<= tol)

   %   if((r(k)*Mnou) < 0)
    %    r(k+1) = Mnou
    %  elseif((r(k)*Mnou) > 0)
    %    r(k) = Mnou
    %   else
    %   vp(k) = Mnou
    %      break;
    %     endif
    %     Mvechi = Mnou
    %     Mnou = (r(k)+r(k+1))/2
    %  endwhile

  endfor

endfunction