• Erf


     
    ERF

    返回误差函数在上下限之间的积分。

    如果该函数不可用,并返回错误值 #NAME?,请安装并加载“分析工具库”加载宏。

    1. 在“工具”菜单上,单击“加载宏”。
    2. 在“可用加载宏”列表中,选中“分析工具库”框,再单击“确定”。
    3. 如果必要,请遵循安装程序中的指示。

    语法

    ERF(lower_limit,upper_limit)

    Lower_limit   ERF 函数的积分下限。

    Upper_limit   ERF 函数的积分上限。如果省略,ERF 将在零到下限之间进行积分。

    说明

    • 如果下限是非数值型,函数 ERF 返回错误值 #VALUE!。
    • 如果下限是负值,函数 ERF 返回错误值 #NUM!。
    • 如果上限是非数值型,函数 ERF 返回错误值 #VALUE!。
    • 如果上限是负值,函数 ERF 返回错误值 #NUM!。

      公式

      公式

    示例

    如果您将示例复制到空白工作表中,可能会更易于理解该示例。

    创建空白工作簿或工作表。

    1. 请在“帮助”主题中选取示例。不要选取行或列标题。

      从帮助中选取示例。

      从帮助中选取示例。
    2. 按 Ctrl+C。
    3. 在工作表中,选中单元格 A1,再按 Ctrl+V。
    4. 若要在查看结果和查看返回结果的公式之间切换,请按 Ctrl+`(重音符),或在“工具”菜单上,指向“公式审核”,再单击“公式审核模式”。
     
    1
    2
    3
    A B
    公式 说明(结果)
    =ERF(0.74500) 误差函数在 0 与 0.74500 之间的积分值 (0.707929)
    =ERF(1) 误差函数在 0 与 1 之间的积分值 (0.842701)

    VBA中使用时,可按下面方式调用:

    Sub macro1()
    MsgBox Application.Run("atpvbacs.xla!erf", 1)
    End Sub

    对于X<=1,可使用如下自定义函数:

    Function erf(ByVal x As Single) As Single
    Dim i As Long, b(9) As Double
    b(0) = 1
    erf = x
    For i = 1 To 9
    b(i) = b(i - 1) * (2 * i + 1)
    erf = erf + 2 ^ i * x ^ (2 * i + 1) / b(i)
    Next
    erf = erf * Exp(-x * x) / Sqr(Atn(1))
    End Function
    Sub macro1()
    MsgBox erf(1)
    End Sub

    上述代码返回 0.8427008

     

     

     

        
     
     
  • 相关阅读:
    AtCoder Beginner Contest 167
    AtCoder Beginner Contest 166
    AtCoder Beginner Contest 165
    AtCoder Beginner Contest 164
    AtCoder Beginner Contest 163
    AtCoder Beginner Contest 162
    AtCoder Beginner Contest 161
    AtCoder Beginner Contest 160
    AtCoder Beginner Contest 159
    自定义Mybatis自动生成代码规则
  • 原文地址:https://www.cnblogs.com/fengju/p/6336245.html
Copyright © 2020-2023  润新知