weedta.m

matlab 电子测量 包括误差分析的很多函数

function [x1 x2 aa]=weedta(x,index,p)
% 判别异常数据
% index 1莱特准则 2肖维纳准则 
% 3格布拉斯准则 p=1 0.95;p=2 0.99
if index<3  % 容错技术
    p=1;
end
aa=1;
x1=x;
while(aa==1)
    [x1 x2 aa]=weeddata(x1,index,p);
end
fprintf('删除异常数据后均值为：\n');
disp(mean(x1));
fprintf('删除异常数据后方差为：\n');
disp(std(x1));