function result = base(ro)

% base(ro)
%
% Função básica das thin-plate splines, devolve zero se ro é igual
% a zero, ou ro * ro * log(ro) caso contrário (pág. 318 do livro,
% eq. 4.17).
%
% Referência:
%
% R. M. Cesar Jr. e L. F. Costa. "Shape Analysis and
% Classification". CRC Press, 2001, seção 4.9.6.

if (ro == 0)
  result = 0;
else
  result = ro ^ 2 * log(ro);
end


