function [t,z] =murtof(P)
%Tekee murtoviivafunktion y(x) käyttäjän ampumista P pisteestä.
%
%[x,y]=murtof(7)
h=figure; hold on, grid on
axis([-10,10,-10,10])
eval(['title(''Ammu ' num2str(P) ' pistettä'')']);
for k=1:P
g(k,:)=ginput(1);
plot(g(k,1),g(k,2),'k*')
end

x=g(:,1);y=g(:,2);
[x,j]=sort(x);y=y(j);
[x,j,~] = unique(x);y=y(j);
x=[-10,x',10]';ka=(y(1)+y(end))/2;y=[ka,y',ka]';
t=linspace(-10,10,1000);
z=interp1(x,y,t);
plot(t,z)

axesObjs = get(h, 'Children');
dataObjs = get(axesObjs, 'Children');
legend([dataObjs(1)],'funktio')
end

