实验07(光纤传感器的位移测量及数值误差分析实验)实验报告.docx

: .
实验报告：实验07
(光纤传感器的位移测量及数值误差分析实验)
实验一：光纤传感器位移特性实验有无系统误差
%不同公式计算标准差比较法sigema1=0;
sigema2=0;
u=0;
fori=1:N%贝塞尔公式sigemal二sigema1+vO(i)A2;
endsigema1=sqrt(sigema1/(N-1))fori=1:N%别捷尔斯公式sigema2=sigema2+abs(v0(i));
endsigema2=*sigema2/sqrt(N*(N-1))u=sigema2/sigema1-1
if(abs(u)>=(2/sqrt(N-1)))fprintf('怀疑测量列中存在系统误差\n');
elsefprintf('不确定测量列中是否存在系统误差\n');
end运行结果
-…----_
'&
3. 利用Matlab语句（或C语言），用罗曼诺夫斯基准则和格罗布斯准则判别有无粗大误差
%罗曼诺夫斯基法则判断是否存在粗大误差
j=1;%以下开始去除粗大误差
fori=1:Nif(i==8)
i=i+1;continue
elsel1(j)=l(i);
j=j+1;end
endN1=length(l1);
v1=l-mean(⑴;%去除粗大误差数据后的残差列Averagae_lmnfsj二mean(l1);%去除粗大误差数据后的算术平均值Standard_lmnfsj=0;
fori=1:N1Standard_lmnfsj二Standard_lmnfsj+v1(i)^2;
end
Standard」mnfsj=sqrt(Standard_lmnfsj/(N1-1));%去除粗大误差数据后的标准差if((abs(l(8)-Averagae_lmnfsj)-*Standard_lmnfsj)>0)fprintf('测量列中存在粗大误差，第8项数据存在粗大误差\n');
elsefprintf('测量列中不存在粗大误差\n');
end
运行结果
Standard_lmnfsj=
测量列中存在粗大误差，第8项数据存在粗大误差
%格布罗斯法则判断是否存在粗大误差
l1=sort(l);
N=length(l);
Average_gbls=mean(l);
Standard_gbls=0;
fori=1:NStandard_gbls二Standard_gbls+v0(i)^2;
end
Standard_gbls=sqrt(Standard_gbls/(N-1));%未去除粗大误差数据的标准差%检查g1
g1=(Average_gbls-l1(1))/Standard_gbls;%g(1)
%检查gngn=(l1(N)-Average_gbls)/Standard_gbls;%g(n)if(g1>=)fprintf('第一项测量值含有粗大误差\n');
fprintf('现在去除该项，