t=0:0.01:1;
V=[1 2 4 4.6;1 3 -1 1.5];
hold on
plot(V(1,:),V(2,:),'-o');
n=size(V);
n=n(2);
hold off
s=size(t);
x=zeros(n,s(2));
y=zeros(n,s(2));
for i=1:n
    x(i,:)=bernstein(n-1,i-1,t)*V(1,i);
    y(i,:)=bernstein(n-1,i-1,t)*V(2,i);
end
hold on
a=sum(x);
b=sum(y);
hold on;
plot(a,b);
title('Polinomio de control frente a curva Bézier')
xlabel('Vx')
ylabel('Vy')
hold off