11 lines
149 B
Mathematica
11 lines
149 B
Mathematica
|
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;
|
||
|
|
|