数学模块

数学模块提供了执行数学计算和操作的函数集合。这些函数涵盖了从基本算术到高级数学运算的各种功能。

基本数学函数

绝对值和符号

• Abs - 返回数字的绝对值
• Sgn - 返回表示数字符号的整数

平方根和幂

• Sqr - 返回数字的平方根
• Exp - 返回e的幂
• Log - 返回自然对数

三角函数

• Sin - 返回角度的正弦值
• Cos - 返回角度的余弦值
• Tan - 返回角度的正切值
• Atn - 返回角度的反正切值

舍入和截断

舍入函数

• Round - 将数字舍入到指定的小数位数
• Fix - 返回数字的整数部分
• Int - 返回小于或等于数字的最大整数

随机数

随机数生成

• Rnd - 返回随机数
• Randomize - 初始化随机数生成器

使用示例

基本数学运算

Sub BasicMathOperations()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double

    num1 = 16
    num2 = -25

    ' 绝对值
    result = Abs(num2)
    MsgBox "|" & num2 & "| = " & result

    ' 平方根
    result = Sqr(num1)
    MsgBox "√" & num1 & " = " & result

    ' 符号函数
    result = Sgn(num2)
    MsgBox "sgn(" & num2 & ") = " & result
End Sub

三角函数计算

Sub TrigonometricCalculations()
    Dim angle As Double
    Dim sine As Double
    Dim cosine As Double
    Dim tangent As Double

    angle = 3.14159 / 4 ' π/4 弧度 (45度)

    sine = Sin(angle)
    cosine = Cos(angle)
    tangent = Tan(angle)

    MsgBox "角度: " & angle & " 弧度" & vbCrLf & _
           "sin(" & angle & ") = " & Format(sine, "0.0000") & vbCrLf & _
           "cos(" & angle & ") = " & Format(cosine, "0.0000") & vbCrLf & _
           "tan(" & angle & ") = " & Format(tangent, "0.0000")
End Sub

对数计算

Sub LogarithmicCalculations()
    Dim number As Double
    Dim naturalLog As Double
    Dim log10 As Double

    number = 100

    ' 自然对数
    naturalLog = Log(number)

    ' 以10为底的对数
    log10 = Log(number) / Log(10)

    MsgBox "ln(" & number & ") = " & Format(naturalLog, "0.0000") & vbCrLf & _
           "log10(" & number & ") = " & Format(log10, "0.0000")
End Sub

舍入操作

Sub RoundingOperations()
    Dim number As Double
    number = 3.7

    MsgBox "原始数字: " & number & vbCrLf & _
           "Round: " & Round(number) & vbCrLf & _
           "Fix: " & Fix(number) & vbCrLf & _
           "Int: " & Int(number)

    number = -3.7
    MsgBox "原始数字: " & number & vbCrLf & _
           "Round: " & Round(number) & vbCrLf & _
           "Fix: " & Fix(number) & vbCrLf & _
           "Int: " & Int(number)
End Sub

随机数生成

Sub RandomNumberGeneration()
    Dim i As Integer
    Dim randomNum As Double

    ' 初始化随机数生成器
    Randomize

    MsgBox "生成10个随机数:"

    For i = 1 To 10
        randomNum = Rnd()
        Debug.Print "随机数 " & i & ": " & Format(randomNum, "0.0000")
    Next i
End Sub

生成指定范围的随机数

Sub RandomInRange()
    Dim minValue As Integer
    Dim maxValue As Integer
    Dim randomInt As Integer
    Dim randomDecimal As Double

    minValue = 1
    maxValue = 100

    ' 生成指定范围的随机整数
    randomInt = Int((maxValue - minValue + 1) * Rnd() + minValue)

    ' 生成指定范围的随机小数
    randomDecimal = (maxValue - minValue) * Rnd() + minValue

    MsgBox "随机整数 (1-100): " & randomInt & vbCrLf & _
           "随机小数 (1.0-100.0): " & Format(randomDecimal, "0.00")
End Sub

数学常量

twinBASIC中可用的数学常量：

• π (Pi) - 可以使用4 * Atn(1)计算
• e - 可以使用Exp(1)计算

Sub MathConstants()
    Dim pi As Double
    Dim e As Double

    pi = 4 * Atn(1)
    e = Exp(1)

    MsgBox "π = " & Format(pi, "0.000000") & vbCrLf & _
           "e = " & Format(e, "0.000000")
End Sub

错误处理

Sub SafeMathOperations()
    On Error GoTo ErrorHandler

    Dim result As Double
    Dim input As Double

    input = -16

    ' 尝试计算负数的平方根
    result = Sqr(input)

    Exit Sub

ErrorHandler:
    Select Case Err.Number
        Case 5 ' 无效的过程调用
            MsgBox "错误: 不能计算负数的平方根", vbCritical
        Case Else
            MsgBox "数学错误 " & Err.Number & ": " & Err.Description, vbCritical
    End Select
End Sub

注意事项

• 角度单位 - 三角函数使用弧度而不是角度
• 精度限制 - 浮点数计算可能有精度限制
• 错误条件 - 某些数学运算在特定条件下会产生错误
• 性能考虑 - 复杂数学运算可能影响性能
• 随机数种子 - 使用Randomize确保不同的随机数序列

转换函数

角度和弧度转换

Sub AngleConversions()
    ' 角度转弧度
    Function DegreesToRadians(degrees As Double) As Double
        DegreesToRadians = degrees * (4 * Atn(1)) / 180
    End Function

    ' 弧度转角度
    Function RadiansToDegrees(radians As Double) As Double
        RadiansToDegrees = radians * 180 / (4 * Atn(1))
    End Function

    Dim angle As Double
    angle = 45

    MsgBox angle & " 度 = " & DegreesToRadians(angle) & " 弧度" & vbCrLf & _
           angle & " 弧度 = " & RadiansToDegrees(angle) & " 度"
End Sub

相关模块

• 字符串模块 - 数字格式化
• 日期时间模块 - 时间计算
• 财务模块 - 财务计算

NOTE

数学模块函数在twinBASIC中与VB6和VBA完全兼容，但提供了更好的错误处理和精度。