excel - VBA中的拉马努金函数

Question

我正在尝试通过使用 VBA 来实现 Ramanujan 函数。公式如下图所示。

我的代码是：

Function ramanuian(n)

    left_part = (Application.sqrt(8) / 9801)
    
    Dim temp As Double
    
    temp = 0
    
    For i = 0 To n
    
        middle_part = Application.Fact(4 * i) / Application.Power(Application.Fact(i), 4)
        right_part = (1103 + 26930 * i) / Application.Power(396, 4 * i)
        ramanuian_reciprocal = middle_part * right_part
        temp = temp + ramanuian_reciprocal
        
    Next
    
    ramanuian = 1 / (left_part * temp)

End Function

但是，当我在 Excel 中运行此公式时，它会显示 #Value！错误。我的代码有什么问题？

标签： excelvbahardy-ramanujan