9 lines
161 B
Mathematica
9 lines
161 B
Mathematica
|
function vertvec=vertical(vec)
|
||
|
|
%reshape input vector into row vector
|
||
|
|
|
||
|
|
if min(size(vec))>1
|
||
|
|
vertvec=[];
|
||
|
|
return
|
||
|
|
end
|
||
|
|
|
||
|
|
vertvec=reshape(vec,length(vec),1);
|