function ei=eyev(n,i)
%EYEV Internal function to generate unit vector
if i>n
disp('Error in eyev')
return
else
ei = zeros(n,1);ei(i)=1;
end;