凯特勒科技 - 专注提供云SPC,MSA软件解决方案;设备集成+实时SPC+大屏+预警+设备控制定制化服务
全国服务电话:0755-28457327 邮箱地址:YunSpc@163.com

纯干货!MSA 量具R&R研究 P值计算函数 F.DIST.RT 源代码。

发布时间:2024-02-01 阅读数:475
【摘要】MSA 量具R&R研究中 P值计算需要用到两个数据集的(右尾)F 概率分布(变化程度)。 在Excel中,用函数 F.DIST.RT。

代码如下:

CREATE function [dbo].[Fun_SPC_FDISTRT](@F float,@m float,@n float)
returns float
begin

	declare @xx float
	declare @p float

	if (@m <= 0 or @n <= 0)
	begin
		set @p = -1
	end
	else if (@F > 0)
	begin
		set @xx = @F / (@F + @n / @m);
		set @p = dbo.Fun_SPC_betainc(@xx, @m / 2, @n / 2);
	end
	return (1 - @p)
end
GO

CREATE function [dbo].[Fun_SPC_betainc](@x float,@a float,@b float)
returns float
begin

	declare @y float
	declare @BT float
	declare @AAA float

    if (@x = 0 or @x = 1)
        set @BT = 0
    else
    begin
        set @AAA = dbo.Fun_SPC_betainc_gamma(@a + @b) - dbo.Fun_SPC_betainc_gamma(@a) - dbo.Fun_SPC_betainc_gamma(@b)
        set @BT = Exp(@AAA + @a * Log(@x) + @b * Log(1 - @x))
    end
    if (@x < (@a + 1) / (@a + @b + 2))
        set @y = @BT * dbo.Fun_SPC_beta_cf(@a, @b, @x) / @a
    else
        set @y = 1 - @BT * dbo.Fun_SPC_beta_cf(@b, @a, 1 - @x) / @b

    return @y

end

GO

X     必需。 用来计算函数的值;Deg_freedom1     必需。 分子自由度;Deg_freedom2     必需。 分母自由度。