咨询：如何在RPM突变时生成连续的正弦波（VBA实现）

你的核心问题在于原代码直接用绝对时间×当前RPM计算相位，当RPM突变时，相位会出现跳变，导致波形中断。要实现相位连续，需要累积相位增量，而不是每次重新计算绝对相位。

错误代码分析 #

你尝试的PhaseContinuity代码逻辑存在核心问题：

• 错误地将绝对时间计算的相位与之前的相位叠加，导致相位重复累积，逻辑混乱
• 相位调整的方向完全错误，没有基于时间增量来计算相位变化，反而破坏了相位的连续性

修正后的实现 #

下面的代码通过维护一个累积相位值，每次根据时间增量和当前RPM计算相位增量，确保RPM突变时相位连续：

Sub ContinuousSineWave()
    Dim i As Long, Stroke As Long
    Dim Pi As Double, cumulativePhase As Double
    Dim timeDelta As Double
    Dim Time As Variant, RPM As Variant, Wave As Variant
    
    Pi = WorksheetFunction.Pi()
    ' 读取工作表数据
    Time = Range(Cells(3, 9), Cells(3, 9).End(xlDown))
    RPM = Range(Cells(3, 10), Cells(3, 10).End(xlDown))
    Stroke = Cells(3, 7)
    Wave = Cells(3, 5).Resize(UBound(Time, 1), 1)
    
    ' 初始化累积相位
    cumulativePhase = 0
    
    For i = LBound(Time) To UBound(Time)
        If i > LBound(Time) Then
            ' 计算当前时间与上一个时间的差值
            timeDelta = Time(i, 1) - Time(i - 1, 1)
            ' 根据当前RPM计算相位增量：角频率(2π*RPM/60) × 时间增量
            cumulativePhase = cumulativePhase + (2 * Pi * RPM(i, 1) / 60) * timeDelta
        Else
            ' 第一个数据点直接用初始时间计算相位
            cumulativePhase = (2 * Pi * RPM(i, 1) / 60) * Time(i, 1)
        End If
        
        ' 计算正弦波值，振幅保持恒定
        Wave(i, 1) = 0.5 * Stroke * Sin(cumulativePhase)
    Next i
    
    ' 将计算结果写回工作表
    Cells(3, 5).Resize(UBound(Time, 1), 1) = Wave
End Sub

关键逻辑说明 #

• 累积相位cumulativePhase：每次迭代都会根据当前时间增量和RPM更新相位，确保相位是连续变化的，不会因为RPM突变而跳变
• 时间增量timeDelta：用当前时间减去上一个时间得到时间步长，以此计算当前RPM下的相位变化量
• 角频率转换：2 * Pi * RPM(i, 1) / 60将RPM（转/分钟）转换为角频率（弧度/秒），乘以时间增量得到相位增量

这样处理后，即使RPM发生突变，正弦波的相位会平滑过渡，保持波形的连续性，同时振幅始终恒定为0.5 * Stroke。

内容的提问来源于stack exchange，提问作者Fevzi