

function v = ek(k, n)

% The k-th coordinate vector in the n-dimensional 
% Euclidean space.

v = zeros(n,1);
v(k) = 1;
