统计-CPK计算方法(VB.NET)_用VB计算双筋代码 - CSDN文库

4星 · 超过85%的资源需积分: 16 26 浏览量更新于2023-03-16 评论 1 收藏 27KB DOCX 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Imports System.Math

''' <summary>

''' 初始参数设置

''' </summary>

''' <remarks>可引用、可继承</remarks>

Public Class cls_init_para

''' <summary>

''' 非数据阵列

''' </summary>

Protected Property δ As Boolean

''' <summary>

''' 检验型态

''' </summary>

Friend Property hy_t As hy_type

#Region "构造函数"

Public Sub New(ByVal x As Double(), Optional ByVal α# = 0.05, Optional ByVal hy_t As hy_type = hy_type.notequal)

δ = False : Me.x = x : Me.α = α : Me.hy_t = hy_t

End Sub

Public Sub New(ByVal n%, ByVal μ#, ByVal α#, ByVal hy_t As hy_type)

δ = True : Me.n = n : Me.μ = μ : Me.α = α : Me.hy_t = hy_t

End Sub

''' <summary>

''' 初始参数设置

''' </summary>

''' <param name="n">样本长度</param>

''' <param name="μ">样本均值</param>

''' <param name="σ">方差</param>

''' <remarks></remarks>

Public Sub New(ByVal n%, ByVal μ#, ByVal σ#, ByVal α#, ByVal hy_t As hy_type)

δ = True

Me.n = n : Me.μ = μ : Me.σ = σ : Me.α = α : Me.hy_t = hy_t

End Sub

Public Sub New(ByVal n#, ByVal k#, ByVal α#, ByVal hy_t As hy_type)

δ = True : Me.n = n : Me.k = k : Me.α = α : Me.hy_t = hy_t

End Sub

#End Region

''' <summary>

''' 坏品数

''' </summary>

Public Property k() As Integer

Private _α As Double

''' <summary>

''' 显著性水平

''' </summary>

Public Property α(Optional ByVal t As pr_type = 1) As Double

Get

'z 分布概率小←大，其它分布概率大←小

Select Case hy_t

Case hy_type.notequal

If t = 1 Then

Return _α

ElseIf t <> 0 Then

Return _α / 2

Else

Return 1 - _α / 2

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余6页未读，立即下载

评论6

zwjaizsr

2014-09-05

没什么需求，但可以看看

music_0000

粉丝: 38
资源: 9

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈