因为测量结果最终追求准确度,准确的前提是精密度好,精密度的前提是数据可靠.如果数据不可靠(有错误测量或者严重偏差的数据),必须剔除不可靠的数据.----可疑取舍/舍弃商检查其次进行精密度检查(如果数据太离散,精密度不够,其均值是没有参考意义的)-----F检验满足精密度之后最后才能进行准确性分析(就是有无显著性差异)-----t检验
窗体中两个文本框。两个按钮Private Sub Command1_Click()'产生按钮
If Len(Text1.Text) <>14 Then
MsgBox "输入的需要校验准考证号长度必须是14位"
Text1.Text = ""
Exit Sub
Else
For i = 1 To 14
If InStr(1, "0123456789", Mid(Text1.Text, i, 1)) = 0 Then
MsgBox "准考证号中不能有非数字"
Exit Sub
End If
Next
'以下产生验证数字,规则前10位数之和加11到14为数乘以相应位数之和,最后取尾数得到校验码。
'规则可以自己定义。怎么产生就怎么验证
Dim zsum As Integer
For i = 1 To 10
zsum = zsum + Mid(Text1.Text, i, 1)
Next i
Print zsum
For i = 11 To 14
zsum = zsum + Mid(Text1.Text, i, 1) * i
Print zsum
Next i
Text2.Text = Text1.Text &(zsum Mod 10)
End If
End Sub
Private Sub Command2_Click()'校验按钮
Dim zsum As Integer
For i = 1 To 10
zsum = zsum + Mid(Text2.Text, i, 1)
Next i
Print zsum
For i = 11 To 14
zsum = zsum + Mid(Text2.Text, i, 1) * i
Print zsum
Next i
If Mid(Text2.Text, 15, 1) = zsum Mod 10 Then
MsgBox "验证成功"
Else
MsgBox "校验错误"
Text2.Text = ""
End If
End Sub
见下:function f = p_judge(A,alpha)
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
[mu,sigma] = normfit(A)
p1 = normcdf(A,mu,sigma)
[H1,s1] = kstest(A,[A,p1],alpha)
n = length(A)
if H1 == 0
disp('该数据源服从正态分布。')
else
disp('该数据源不服从正态分布。')
end
if sum(A>0)>length(A)
phat = gamfit(A,alpha)
p2 = gamcdf(A,phat(1),phat(2))
[H2,s2] = kstest(A,[A,p2],alpha)
if H2 == 0
disp('该数据源服从γ分布。')
else
disp('该数据源不服从γ分布。')
end
end
if sum(A>0)>length(A)
lamda = poissfit(A,alpha)
p3 = poisscdf(A,lamda)
[H3,s3] = kstest(A,[A,p3],alpha)
if H3==0
disp('该数据源服从泊松分布。')
else
disp('该数据源不服从泊松分布。')
end
end
if sum(A>0)>length(A)
mu = expfit(A,alpha)
p4 = expcdf(A,mu)
[H4,s4] = kstest(A,[A,p4],alpha)
if H4 == 0
disp('该数据源服从指数分布。')
else
disp('该数据源不服从指数分布。')
end
end
[phat, pci] = raylfit(A, alpha)
p5 = raylcdf(A,phat)
[H5,s5] = kstest(A,[A,p5],alpha)
if H5 == 0
disp('该数据源服从rayleigh分布。')
else
disp('该数据源不服从rayleigh分布。')
end
paramEsts = laplfit(A, alpha)
p6 = laplcdf(A,paramEsts(1),paramEsts(2))
[H6,s6] = kstest(A,[A,p6],alpha)
if H6 == 0
disp('该数据源服从laplace分布。')
else
disp('该数据源不服从laplace分布。')
end
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)