对实验数据进行统计检验时正确的顺序是什么为什么这样安排

对实验数据进行统计检验时正确的顺序是什么为什么这样安排,第1张

先进行可疑数据的取舍,再进行F检验,在F检验通过后,最后进行t检验

因为测量结果最终追求准确度,准确的前提是精密度好,精密度的前提是数据可靠.如果数据不可靠(有错误测量或者严重偏差的数据),必须剔除不可靠的数据.----可疑取舍/舍弃商检查其次进行精密度检查(如果数据太离散,精密度不够,其均值是没有参考意义的)-----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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/11145106.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-13
下一篇 2023-05-13

发表评论

登录后才能评论

评论列表(0条)

保存