95 lines
3.5 KiB
Go
95 lines
3.5 KiB
Go
|
package basic
|
|||
|
|
|
|||
|
|
import (
|
|||
|
|
"math"
|
|||
|
|
"testing"
|
|||
|
|
)
|
|||
|
|
|
|||
|
|
// ΔT 命名模型的契约：已发表锚点、分段连续性、实测段优先的混合语义与模型标记。
|
|||
|
|
|
|||
|
|
func TestDeltaTModelPublishedAnchors(t *testing.T) {
|
|||
|
|
resetTimeScaleState(t)
|
|||
|
|
check := func(name string, year, want, tolerance float64) {
|
|||
|
|
t.Helper()
|
|||
|
|
if got := DeltaT(year, false); math.Abs(got-want) > tolerance {
|
|||
|
|
t.Fatalf("%s ΔT(%.5f)=%.6f, want %.6f±%g", name, year, got, want, tolerance)
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if !SetDeltaTModel(DeltaTModelEspenakMeeus2006, false) {
|
|||
|
|
t.Fatal("Espenak–Meeus 模型应可安装")
|
|||
|
|
}
|
|||
|
|
check("E-M", 2017.64, 70.34, 0.01)
|
|||
|
|
check("E-M", 2024.27, 74.03, 0.01)
|
|||
|
|
check("E-M", 2100, 202.7, 0.05)
|
|||
|
|
|
|||
|
|
if !SetDeltaTModel(DeltaTModelMS2004, false) {
|
|||
|
|
t.Fatal("M&S2004 模型应可安装")
|
|||
|
|
}
|
|||
|
|
check("M&S2004", -500, 17203.7, 0.05)
|
|||
|
|
check("M&S2004", 2100, 230.9, 0.05)
|
|||
|
|
|
|||
|
|
if !SetDeltaTModel(DeltaTModelEspenakMeeus2006, false) {
|
|||
|
|
t.Fatal("Espenak–Meeus 模型应可安装")
|
|||
|
|
}
|
|||
|
|
// 分段边界：原表各段是独立拟合的，边界处本身留有台阶（实测最大 ≤0.3 s，1600 处约 0.25 s），
|
|||
|
|
// 这里只守住这个量级，用来抓 Horner 展开之类的结构性错误。
|
|||
|
|
for _, knot := range []float64{-500, 500, 1600, 1700, 1800, 1860, 1900, 1920, 1941, 1961, 1986, 2005, 2050, 2150} {
|
|||
|
|
before, after := DeltaT(knot-1e-6, false), DeltaT(knot+1e-6, false)
|
|||
|
|
if diff := math.Abs(after - before); diff > 0.3 {
|
|||
|
|
t.Errorf("分段边界 %.0f 台阶过大：%.6f vs %.6f（差 %g）", knot, before, after, diff)
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
func TestDeltaTModelKeepsObservedSpan(t *testing.T) {
|
|||
|
|
resetTimeScaleState(t)
|
|||
|
|
jd := JDCalc(2026, 3, 1)
|
|||
|
|
observed := DeltaT(jd, true)
|
|||
|
|
|
|||
|
|
if !SetDeltaTModel(DeltaTModelEspenakMeeus2006, true) {
|
|||
|
|
t.Fatal("Espenak–Meeus 模型应可安装")
|
|||
|
|
}
|
|||
|
|
if got := DeltaT(jd, true); math.Abs(got-observed) > 1e-12 {
|
|||
|
|
t.Fatalf("实测段应优先：got %.9f, want %.9f", got, observed)
|
|||
|
|
}
|
|||
|
|
pure := DeltaTModelSeconds(DeltaTModelEspenakMeeus2006, jd, false)
|
|||
|
|
if math.Abs(pure-observed) < 5 {
|
|||
|
|
t.Fatalf("纯模型值 %.3f 应与实测 %.3f 明显不同（否则测不到混合语义）", pure, observed)
|
|||
|
|
}
|
|||
|
|
if model, keep := GetDeltaTModel(); model != DeltaTModelEspenakMeeus2006 || !keep {
|
|||
|
|
t.Fatalf("模型标记 = (%q, %v)", model, keep)
|
|||
|
|
}
|
|||
|
|
future := JDCalc(2100, 1, 1)
|
|||
|
|
if got, want := DeltaT(future, true), DeltaTModelSeconds(DeltaTModelEspenakMeeus2006, future, false); math.Abs(got-want) > 1e-9 {
|
|||
|
|
t.Fatalf("表外应走模型：got %.9f, want %.9f", got, want)
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// SMH2016 混合档必须与内置默认逐位一致。
|
|||
|
|
if !SetDeltaTModel(DeltaTModelSMH2016, true) {
|
|||
|
|
t.Fatal("SMH2016 模型应可安装")
|
|||
|
|
}
|
|||
|
|
if got := DeltaT(jd, true); got != observed {
|
|||
|
|
t.Fatalf("SMH2016 混合档 %.9f 与内置默认 %.9f 不一致", got, observed)
|
|||
|
|
}
|
|||
|
|
if got := DeltaT(future, true); got != DefaultDeltaTv2(future, true) {
|
|||
|
|
t.Fatalf("SMH2016 混合档表外 %.9f 与内置默认 %.9f 不一致", got, DefaultDeltaTv2(future, true))
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
// 手工注入的任意函数标记为 manual；恢复 nil 回到内置默认。
|
|||
|
|
SetDeltaTFn(func(float64, bool) float64 { return 0 })
|
|||
|
|
if model, keep := GetDeltaTModel(); model != DeltaTModelManual || keep {
|
|||
|
|
t.Fatalf("手工注入标记 = (%q, %v)", model, keep)
|
|||
|
|
}
|
|||
|
|
SetDeltaTFn(nil)
|
|||
|
|
if model, keep := GetDeltaTModel(); model != DeltaTModelDefault || !keep {
|
|||
|
|
t.Fatalf("恢复默认标记 = (%q, %v)", model, keep)
|
|||
|
|
}
|
|||
|
|
if SetDeltaTModel(DeltaTModel("nope"), true) {
|
|||
|
|
t.Fatal("未知模型应被拒绝")
|
|||
|
|
}
|
|||
|
|
if model, _ := GetDeltaTModel(); model != DeltaTModelDefault {
|
|||
|
|
t.Fatalf("被拒绝后模型不应改动，got %q", model)
|
|||
|
|
}
|
|||
|
|
}
|