不知道！我想开店当老板，就去尝试了945. (code)'============================================================
' RobustAlphaBetaGamma.vb
' α-β-γ 跟踪器 + 动态 3σ 限幅
' 已处理：空队列 / 零方差 / 负阈值 / 数值溢出
'============================================================
Imports System.Collections.Generic
Imports System.Linq ' 低版本需引用 System.Core.dll
Public Class RobustAlphaBetaGamma
'--------------------- 可调参数 ---------------------------
Public Alpha As Double ' 位置修正系数
Public Beta As Double ' 速度修正系数
Public Gamma As Double ' 加速度修正系数
Public HistoryLen As Integer
'--------------------- 内部状态 ---------------------------
Private x As Double ' 滤波值
Private v As Double ' 速度
Private a As Double ' 加速度
Private ReadOnly residuals As New Queue(Of Double)()
'----------------------------------------------------------
' 构造函数（默认保守值）
'----------------------------------------------------------
Public Sub New(Optional alpha As Double = 0.001,
Optional beta As Double = 0.0001,
Optional gamma As Double = 0.00001,
Optional historyLen As Integer = 50)
Me.Alpha = alpha
Me.Beta = beta
Me.Gamma = gamma
Me.HistoryLen = historyLen
End Sub
'----------------------------------------------------------
' 每来一个新样本调用一次，返回滤波后的值
'----------------------------------------------------------
Public Function Update(raw As Double) As Double
' 1. 预测
Dim xPred As Double = x + v + 0.5 * a
Dim vPred As Double = v + a
Dim aPred As Double = a
' 2. 残差
Dim residual As Double = raw - xPred
' 3. 动态阈值（防零 / 防负 / 防空）
Dim threshold As Double = GetDynamicThreshold()
' 4. 限幅：残差被限制在 [-threshold, +threshold]
Dim useResidual As Double = Math.Max(-threshold,
Math.Min(threshold, residual))
' 5. 更新状态
x = xPred + Alpha * useResidual
v = vPred + Beta * useResidual
a = aPred + Gamma * useResidual
' 6. 保存残差
residuals.Enqueue(residual)
If residuals.Count > HistoryLen Then residuals.Dequeue()
Return x
End Function
'----------------------------------------------------------
' 计算 3σ 阈值（防零、防负、防空队列）
'----------------------------------------------------------
Private Function GetDynamicThreshold() As Double
Const MIN_THRESHOLD As Double = 0.001
Const MIN_SAMPLES As Integer = 3
If residuals.Count < MIN_SAMPLES Then Return 1.0
Dim arr = residuals.ToArray()
Dim avg As Double = arr.Average()
Dim var As Double = arr.Select(Function(val) (val - avg) ^ 2).Average()
If var < 0 Then var = 0 ' 防负
Dim std As Double = Math.Sqrt(var)
If std = 0 Then std = 0.001 ' 防零
Return Math.Max(MIN_THRESHOLD, 3.0 * std)
End Function
End Class
(/code)
' RobustAlphaBetaGamma.vb
' α-β-γ 跟踪器 + 动态 3σ 限幅
' 已处理：空队列 / 零方差 / 负阈值 / 数值溢出
'============================================================
Imports System.Collections.Generic
Imports System.Linq ' 低版本需引用 System.Core.dll
Public Class RobustAlphaBetaGamma
'--------------------- 可调参数 ---------------------------
Public Alpha As Double ' 位置修正系数
Public Beta As Double ' 速度修正系数
Public Gamma As Double ' 加速度修正系数
Public HistoryLen As Integer
'--------------------- 内部状态 ---------------------------
Private x As Double ' 滤波值
Private v As Double ' 速度
Private a As Double ' 加速度
Private ReadOnly residuals As New Queue(Of Double)()
'----------------------------------------------------------
' 构造函数（默认保守值）
'----------------------------------------------------------
Public Sub New(Optional alpha As Double = 0.001,
Optional beta As Double = 0.0001,
Optional gamma As Double = 0.00001,
Optional historyLen As Integer = 50)
Me.Alpha = alpha
Me.Beta = beta
Me.Gamma = gamma
Me.HistoryLen = historyLen
End Sub
'----------------------------------------------------------
' 每来一个新样本调用一次，返回滤波后的值
'----------------------------------------------------------
Public Function Update(raw As Double) As Double
' 1. 预测
Dim xPred As Double = x + v + 0.5 * a
Dim vPred As Double = v + a
Dim aPred As Double = a
' 2. 残差
Dim residual As Double = raw - xPred
' 3. 动态阈值（防零 / 防负 / 防空）
Dim threshold As Double = GetDynamicThreshold()
' 4. 限幅：残差被限制在 [-threshold, +threshold]
Dim useResidual As Double = Math.Max(-threshold,
Math.Min(threshold, residual))
' 5. 更新状态
x = xPred + Alpha * useResidual
v = vPred + Beta * useResidual
a = aPred + Gamma * useResidual
' 6. 保存残差
residuals.Enqueue(residual)
If residuals.Count > HistoryLen Then residuals.Dequeue()
Return x
End Function
'----------------------------------------------------------
' 计算 3σ 阈值（防零、防负、防空队列）
'----------------------------------------------------------
Private Function GetDynamicThreshold() As Double
Const MIN_THRESHOLD As Double = 0.001
Const MIN_SAMPLES As Integer = 3
If residuals.Count < MIN_SAMPLES Then Return 1.0
Dim arr = residuals.ToArray()
Dim avg As Double = arr.Average()
Dim var As Double = arr.Select(Function(val) (val - avg) ^ 2).Average()
If var < 0 Then var = 0 ' 防负
Dim std As Double = Math.Sqrt(var)
If std = 0 Then std = 0.001 ' 防零
Return Math.Max(MIN_THRESHOLD, 3.0 * std)
End Function
End Class
(/code)
944.
就是一些开发方面的东西，可能很快就不支持了。比如：
-
Win8.1：2023 年 1 月，停止支持。
-
Chrome：2023 年 2 月，不支持 Win8.1-。Electron 程序应该类似。
-
Visual Studio：2023 年 8 月，不支持 Win8.1-。
-
Msys2：2022 年 11 月，不支持 Win8-。2024 年 2 月，不支持 Win8.1-。
-
Android Studio：至少 2025 年 5 月，已不支持 Win8.1-。
-
Go：2023 年 8 月，不支持 Win8.1-。
-
Rust：2024 年 5 月，不支持 Win8.1-。
-
QT：2020 年 9 月，不支持 Win8.1-。
-
Flutter：2024 年 5 月，不支持 Win8.1-。
941. Windows 10 (business editions), version 22H2 (updated June 2025) (x64) - DVD (Chinese-Simplified)
文件：zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso
大小：6.31GB
MD5：F6380C9FFF21FF84E7F9849587ECB66B
SHA1：B8619CE73991446F59B6ED52B9E83D0CC95CB581
SHA256：ACA849B125F922CBDC081757EC0A469893269A5EF9FEAC1337AF0F8ACFEBBD28
ed2k://|file|zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso|6773796864|6E64913D4105623A7D6E4F02B6964E62|/
magnet:?xt=urn:btih:bfaa6500980e33668edf1f522bdd20fa1e0c40e1&dn=zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso&xl=6773796864
文件：zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso
大小：6.31GB
MD5：F6380C9FFF21FF84E7F9849587ECB66B
SHA1：B8619CE73991446F59B6ED52B9E83D0CC95CB581
SHA256：ACA849B125F922CBDC081757EC0A469893269A5EF9FEAC1337AF0F8ACFEBBD28
ed2k://|file|zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso|6773796864|6E64913D4105623A7D6E4F02B6964E62|/
magnet:?xt=urn:btih:bfaa6500980e33668edf1f522bdd20fa1e0c40e1&dn=zh-cn_windows_10_business_editions_version_22h2_updated_june_2025_x64_dvd_2f9aa9bc.iso&xl=6773796864