function belovesesmodszer(hh)
%% Az ágyúgolyó feladat megoldása 
%
%  Feltevések:
%     v  vízszintes irányban konstans sebességgel halad a golyó
%     g  a függõleges mozgásra csak a gravitáció hat

%% Ekkor a feladat alakja:
%
%  Y''(x)=-g/v^2, x\in(0,L)
%  Y(0)=0 és Y(L)=yL
%
%% Bemenõ paraméterek listája
%
%    h  lépésköz

%% Használt jelölések
%    L  a golyó levegõben töltött ideje
%   yL  a golyó esésének helye
%    v  a konstans sebességi érték

%% Viszonyítási alapok 20 és 50 értékek között

 global L yL h;
    
    L = 10;	    
    yL = 0;	
    h = hh;
    clf;
    hold on;
    for dy = 20:10:30
	y = agyu(dy);
	text(L+.2,y,sprintf('y\047(0)=%g',dy), 'FontSize',14);
    end
    for dy = 70
	y = agyu(dy);
	text(L+.2,y,sprintf('y\047(0)=%g',dy), 'FontSize',14);
    end
    %  10^{-4} toleranciával megközelítjük a pontos értéket
    dy = szelomodszer(20,30,1e-4,yL);
    
%% Plottolás

    y = agyu(dy);
    text(L+.2,y,sprintf('y\047(0)=%g',dy), 'Color','r', 'FontSize',15);
    
    set(gca, 'FontSize', 12);
    line([L L],[-400 400], 'Color','k');
    line([L L],[yL yL], 'Color','r', 'Marker','o', 'LineWidth',2);
    xlabel('méter', 'FontSize',18);
    ylabel('magasság', 'FontSize',18);
    title(sprintf('Belövéses módszer'), 'FontSize',14);
    line([0 L], [yL yL], 'Color','r');
    return;
    
  %% Szelõmódszer a gyökkereséshez  
    function x = szelomodszer(x1,x2,tol,yL) 
    y1 = agyu(x1)-yL;
    y2 = agyu(x2)-yL;
    while abs(x2-x1)>tol
	fprintf('(%g,%g) (%g,%g)', x1, y1, x2, y2);
	x3 = x2-y2*(x2-x1)/(y2-y1);
	y3 = agyu(x3)-yL;
	x1 = x2;
	y1 = y2;
	x2 = x3;
	y2 = y3;
    end
    x = x2;
    return;