clear all;
function y=vecteraverage(a)
%向量元素的平均值
%語(yǔ)法：vecteraverage(a)，其中a為輸入向量；
%當(dāng)輸入非法是，給出錯(cuò)誤信息；
[m,n]=size(a);
if(~((m==1)|n==1))|(m==1&n==1)%判斷輸入是否為向量
    error('Input mest be a vecter')%給出錯(cuò)誤信息。
end
y=sum(a)/length(a);