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

【摘要】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     必需。 分母自由度。