function [h1,A] = bezier(A)
%Piirtää Bezier-käyrän
a=A(:,1);
b=A(:,2);
n=length(a)-1;
cx=zeros(1,n+1);
for k=0:n
cx=cx+a(k+1)*bernstein(n,k,0);
end

cy=zeros(1,n+1);
for k=0:n
cy=cy+b(k+1)*bernstein(n,k,0);
end

t=linspace(0,1);
X=polyval(cx,t);
Y=polyval(cy,t);
h1=plot(X,Y);
hold on
plot(a,b,'ro'); %tuosta voi ottaa merkin 'o' pois, jolloin saadaan murtoviiva datapisteiden kautta
%title('Bézier-käyrä')
%legend('Bézier-käyrä','kontrollipisteet')

end