function V=vander1(X,k)
% function V=vander1(X,k)
%  Creates a partial Vandermonde matrix from the data in X.
%  INPUT: A column vector (m x 1) X and a positive number k.
%  OUTPUT:  V is m x k, with powers of X.  The first col is X^(k-1)

[m,n]=size(X);
if n~=1
   X=X(:);
   fprintf('X is being made into a column vector.\n');
   [m,n]=size(X);
end
V=ones(m,k);

for j=1:k-1
 V(:,j)=X.^(k-j); 
end