b612
16c62a97d5
- 新增时标、ΔT 模型、质心时间与 UT1 支持 - 改进日月食、月掩、行星事件及路径边界计算 - 完善恒星三维自行与动态距离传播 - 扩展 SVG、GeoJSON、KML 输出与底层距离换算工具 - 整理中英文手册、示例资源及回归测试
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)
|
||
}
|
||
}
|