function vecplot(a,v)
% a -- 2 x n matriisi: Sarakkeet vektorien loppupisteet.
% v -- 2 x 1 sarakevekt: yhteinen alkupiste (opetus: Origo).
%
% Esim: 
% t=pi/3;R=[cos(t),-sin(t);sin(t),cos(t)];v=[.5;1];vecplot([v,R*v])
% axis([-1 1 0 1]);
% 
% clf;v=[1;0]
% w=v;w=R*w;vecplot([v,w]);axis([-1 1 -1 1]);hold on
% w=R*w;vecplot([v,w]); Iteroidaan tätä riviä.

if nargin < 2, v=[0;0]; end
[m,n]=size(a);
[k,l]=size(v);
if m~=2,
  error('a:n koko virheellinen'),
  return,
end;

if k~=2 | l~=1,
  error('v:n koko virheellinen')
  return
end;

x=(v*ones(1,2*n))';
x(2:2:2*n,:)=a';
y=x(:,2);
x=x(:,1);
plot(x,y,'r')

