function [V] = ivandermonde(varargin)
%
% VANDERMONDE Gera uam matriz de Vandermonde.
%       
%       VANDERMONDE(v, t) gera uma matriz de Vandermonde a partir do
%       vetor v com t colunas

vetor = varargin{1};

if (nargin < 2) 
    n = size(vetor);
else 
    n = varargin{2};
end

m = length(vetor);
V(:, n) = ones(m,1);
V(:, n - 1) = vetor;
if (n > 2)
    for j = n - 2:-1:1
        V(:, j) = V(:, j + 1) .* vetor;
    end
end