入力   西暦 y, 月 m, 日 d                … 1901〜2100年（§3.9）
       性別 gender                       … 'male' | 'female'（大運と六親法の表示に使う）
       opts（任意。meishiki の第4引数）
         hour         … 出生時。0〜23 の整数（0 は有効）。未指定・null なら時柱は作らない
         zokanMonth   … 月支の蔵干の流派   'kantei'（既定）| 'A' | 'hongen'
         zokanYearDay … 年支・日支・時支の蔵干の流派  同上
         ijouSet      … 異常干支の説      '13'（既定）| '7'
出力   命式 a（§1.2）。そこから応用技を計算する

a = {
  date:     'YYYY-MM-DD',
  weekday:  '月'|'火'|'水'|'木'|'金'|'土'|'日',
  setsu:    { name, jst:'YYYY-MM-DD hh:mm', keika, isSetsuiriDay },   // 直前の節。keika＝節入り日を1日目とした経過日数
  pillars:  { year:P, month:P, day:P },
             // P = { kan, shi, kanshi, zokan, no, stages:{初元,中元,本元} }
             //   no＝六十干支の通し番号(1〜60)、zokan＝採用された蔵干、stages＝蔵干3段（無い段は null）
  stars:    { ancestor, north, center, south, east, west },         // 各 { label, pos, source, kan, star }
  starSet:  [星名…],      // stars を ancestor,north,center,south,east,west の順に見て、重複を除いたもの
  jusei:    { early, mid, late },                                    // 各 { label, source, shi, name, energy, unsei }
  juseiSet: [従星名…],    // early,mid,late の順で重複を除いたもの
  totalEnergy,            // 従星3つのエネルギーの合計（3〜36）
  gogyoDist, gogyoVariety,// 主星6つ(伴星を含む)の五行の個数
  tenchusatsu,            // 本人の天中殺（日柱から）   例 '申酉天中殺'
  tenchusatsuShi,         // その2支                      例 ['申','酉']
  tenchusatsuYear,        // 親の天中殺（年柱から）
  ijou:     { year, month, day },       // '通常'|'暗合'|'異常干支'|null
  nikkanGogyo, nisshiGogyo,
  moon,                   // その日の新月・満月 {kind:'新月'|'満月', time:'HH:MM'} か null
  hourPillar              // hour を渡したときだけ。{kan,shi,kanshi,shiIndex,zokan,stages,no,ijou,jusei,shusei}
}

 節入りテーブル ──┐
                ├─→ meishiki ─┬─→ 陽占(stars) ─┬─→ 定位置 / 才能 / 教育の星
 月相テーブル ───┘             │                ├─→ 六親法（蔵干の3段を使う）
                              ├─→ 従星(jusei) ──┴─→ 身強身弱 → 相性
                              ├─→ 天中殺 ──────────→ 大運天中殺 / 行運の天中殺 / 相性
                              ├─→ 数理法（stages と3支）
                              └─→ 行動領域（三柱の干支番号）
 祝日テーブル ─→ holiday ／ 干支＋節月 → 吉日 ／ すべて → search → buildReport

KAN = ['甲','乙','丙','丁','戊','己','庚','辛','壬','癸']          // index 0..9
SHI = ['子','丑','寅','卯','辰','巳','午','未','申','酉','戌','亥']  // index 0..11

六十干支 n = 0..59 :  KAN[n % 10] + SHI[n % 12]       // n=0 が甲子、n=59 が癸亥
通し番号 no = n + 1                                      // 1..60
kanshiIndex(kan, shi) = n   ただし  n%10 == KAN.indexOf(kan)  かつ  n%12 == SHI.indexOf(shi)
                        （そんな n が無い組み合わせ＝陰陽が合わないもの は存在しない）

GOGYO_KAN = { 甲:木, 乙:木, 丙:火, 丁:火, 戊:土, 己:土, 庚:金, 辛:金, 壬:水, 癸:水 }
GOGYO_SHI = { 子:水, 丑:土, 寅:木, 卯:木, 辰:土, 巳:火, 午:火, 未:土, 申:金, 酉:金, 戌:土, 亥:水 }
INYO_KAN  = { 甲:1, 乙:0, 丙:1, 丁:0, 戊:1, 己:0, 庚:1, 辛:0, 壬:1, 癸:0 }   // 1＝陽（甲丙戊庚壬）、0＝陰（乙丁己辛癸）。本書で「陽」「陰」と書くのはこの 1 と 0

SEI = ['木','火','土','金','水']            // 相生の順
sho(a, b)  := SEI[(SEI.indexOf(a)+1) % 5] == b     // a が b を生む   木→火→土→金→水→木
koku(a, b) := SEI[(SEI.indexOf(a)+2) % 5] == b     // a が b を剋す   木→土→水→火→金→木

KANGO = { 甲:己, 己:甲, 乙:庚, 庚:乙, 丙:辛, 辛:丙, 丁:壬, 壬:丁, 戊:癸, 癸:戊 }

十大主星 SHUSEI_LIST = ['貫索星','石門星','鳳閣星','調舒星','禄存星','司禄星','車騎星','牽牛星','龍高星','玉堂星']
  五行  STAR_GOGYO = { 貫索星:木, 石門星:木, 鳳閣星:火, 調舒星:火, 禄存星:土, 司禄星:土, 車騎星:金, 牽牛星:金, 龍高星:水, 玉堂星:水 }
  四柱推命の通変星との対応: 貫索=比肩 石門=劫財 鳳閣=食神 調舒=傷官 禄存=偏財 司禄=正財 車騎=偏官 牽牛=正官 龍高=偏印 玉堂=印綬

十二大従星 JUSEI_LIST = ['天報星','天印星','天貴星','天恍星','天南星','天禄星','天将星','天堂星','天胡星','天極星','天庫星','天馳星']

jdn(y, m, d):                       // グレゴリオ暦 → ユリウス日数（整数）
  a  = floor((14 - m) / 12)
  y2 = y + 4800 - a
  m2 = m + 12*a - 3
  return d + floor((153*m2 + 2)/5) + 365*y2 + floor(y2/4) - floor(y2/100) + floor(y2/400) - 32045

fromJdn(j):                         // ユリウス日数 → [y, m, d]
  a  = j + 32044
  b  = floor((4*a + 3) / 146097)
  c  = a - floor(146097*b / 4)
  d2 = floor((4*c + 3) / 1461)
  e  = c - floor(1461*d2 / 4)
  m2 = floor((5*e + 2) / 153)
  return [ 100*b + d2 - 4800 + floor(m2/10),
           m2 + 3 - 12*floor(m2/10),
           e - floor((153*m2 + 2)/5) + 1 ]

WEEKDAY = ['月','火','水','木','金','土','日']
weekday(y,m,d) = WEEKDAY[ mod(jdn(y,m,d), 7) ]
  // 検算: 2000-01-01 の jdn は 2451545。2451545 % 7 = 5 → '土'（実際に土曜日）

TABLE = { "1900": [ [日,時,分], …12個 ], "1901": […], …, "2100": […] }

SETSU_SHI  = ['丑','寅','卯','辰','巳','午','未','申','酉','戌','亥','子']   // index→月支
SETSU_NAME = ['小寒','立春','啓蟄','清明','立夏','芒種','小暑','立秋','白露','寒露','立冬','大雪']

findSetsu(y, m, d):        // 対象日「以前」で最も新しい節
  target = jdn(y,m,d)
  best = null
  for yy in [y-1, y]:
    rows = TABLE[yy]; if rows が無ければ continue
    for i in 0..11:
      j = jdn(yy, i+1, rows[i][0])           // その節の日（時刻は見ない）
      if j <= target and (best==null or j > best.jdn):
        best = { jdn:j, year:yy, monthIndex:i, day:rows[i][0], hh:rows[i][1], mm:rows[i][2],
                 shi:SETSU_SHI[i], name:SETSU_NAME[i] }
  return best

findNextSetsu(y, m, d):    // 対象日より「後」で最も近い節（同じ日は含まない）
  yy in [y, y+1] について i in 0..11: j = jdn(yy, i+1, rows[i][0]); if j > target and 最小なら採用
  // ⚠ y+1 のテーブルが無い 2100年12月7日（最後の大雪の日）以降は null になる（§3.9）

keika = jdn(y,m,d) - findSetsu(y,m,d).jdn + 1        // 節入り日を 1日目 として数える

kanshiYear(y, m, d):
  risshunJdn = jdn(y, 2, TABLE[y][1][0])        // その年の立春の日
  return  jdn(y,m,d) >= risshunJdn  ?  y  :  y-1

ky   = kanshiYear(y,m,d)
yidx = mod(ky - 4, 60)               // 西暦4年が甲子（n=0）
年干 = KAN[yidx % 10]   年支 = SHI[yidx % 12]    年柱の no = yidx + 1

月支 = findSetsu(y,m,d).shi

GOTORA = { 甲:丙, 己:丙, 乙:戊, 庚:戊, 丙:庚, 辛:庚, 丁:壬, 壬:壬, 戊:甲, 癸:甲 }    // 年干 → 寅月の月干
月干 = KAN[ ( KAN.indexOf(GOTORA[年干]) + mod(SHI.indexOf(月支) - 2, 12) ) % 10 ]
        // 寅=0, 卯=1, … 子=10, 丑=11 と数えたときの「寅から何番目か」を足す
月柱の no = kanshiIndex(月干, 月支) + 1

didx = mod(jdn(y,m,d) + 49, 60)        // 甲子 = 0
日干 = KAN[didx % 10]   日支 = SHI[didx % 12]    日柱の no = didx + 1

GOSO = { 甲:甲, 己:甲, 乙:丙, 庚:丙, 丙:戊, 辛:戊, 丁:庚, 壬:庚, 戊:壬, 癸:壬 }    // 日干 → 子の刻の時干（五鼠遁）

jichu(日干, hour):
  idx  = floor( ((hour + 1) % 24) / 2 )          // 23時台と0時台はどちらも idx=0（子）、1〜2時=丑 …
  時支 = SHI[idx]
  時干 = KAN[ (KAN.indexOf(GOSO[日干]) + idx) % 10 ]
  return { kan, shi, kanshi, shiIndex: idx }

zokan  = zokan(時支, keika, zokanYearDay)       // §3.7（keika は日柱と同じ）
stages = zokanStages(時支)
no     = kanshiIndex(時干, 時支) + 1
ijou   = ijouKanshi(時干+時支, ijouSet)         // §6
jusei  = jusei(日干, 時支).name                  // §4.3
shusei = shusei(日干, 時干)                      // §4.1

ZOKAN_KANTEI = {
  子: [[99,'癸']],
  丑: [[10,'癸'], [13,'辛'], [99,'己']],
  寅: [[ 8,'戊'], [15,'丙'], [99,'甲']],
  卯: [[99,'乙']],
  辰: [[10,'乙'], [13,'癸'], [99,'戊']],
  巳: [[ 6,'戊'], [15,'庚'], [99,'丙']],
  午: [[20,'己'], [99,'丁']],
  未: [[10,'丁'], [13,'乙'], [99,'己']],
  申: [[11,'戊'], [14,'壬'], [99,'庚']],
  酉: [[99,'辛']],
  戌: [[10,'辛'], [13,'丁'], [99,'戊']],
  亥: [[13,'甲'], [99,'壬']],
}

ZOKAN_A = {           // 四柱推命の月律分野蔵干に近い区分。書式は ZOKAN_KANTEI と同じ [上限日数, 干]
  子: [[ 9,'壬'], [99,'癸']],                  丑: [[ 9,'癸'], [12,'辛'], [99,'己']],
  寅: [[ 7,'戊'], [14,'丙'], [99,'甲']],        卯: [[10,'甲'], [99,'乙']],
  辰: [[ 9,'乙'], [12,'癸'], [99,'戊']],        巳: [[ 7,'戊'], [14,'庚'], [99,'丙']],
  午: [[10,'丙'], [19,'己'], [99,'丁']],        未: [[ 9,'丁'], [12,'乙'], [99,'己']],
  申: [[ 7,'戊'], [14,'壬'], [99,'庚']],        酉: [[10,'庚'], [99,'辛']],
  戌: [[ 9,'辛'], [12,'丁'], [99,'戊']],        亥: [[ 7,'戊'], [14,'甲'], [99,'壬']] }
ZOKAN_TABLES = { kantei: ZOKAN_KANTEI, A: ZOKAN_A }        // 'hongen' は表ではなく HONGEN を直接引く
HONGEN      = { 子:癸, 丑:己, 寅:甲, 卯:乙, 辰:戊, 巳:丙, 午:丁, 未:己, 申:庚, 酉:辛, 戌:戊, 亥:壬 }   // 本元だけ
zokan(shi, keika, variant):
  if variant == 'hongen': return HONGEN[shi]
  tbl = (variant == 'A') ? ZOKAN_A : ZOKAN_KANTEI          // 知らない名前は kantei
  for [lim, k] in tbl[shi]: if keika <= lim: return k
  return tbl[shi] の最後の行の干

zkY = zokan(年支, keika, zokanYearDay)
zkM = zokan(月支, keika, zokanMonth)
zkD = zokan(日支, keika, zokanYearDay)
zkH = zokan(時支, keika, zokanYearDay)        // 時柱があるとき

zokanStages(shi):
  kans = ZOKAN_KANTEI[shi] の各行の干
  3行 → { 初元:kans[0], 中元:kans[1], 本元:kans[2] }
  2行 → { 初元:null,    中元:kans[0], 本元:kans[1] }
  1行 → { 初元:null,    中元:null,    本元:kans[0] }

meishiki(y, m, d, opts):                                   // opts は省略可。キーは hour / zokanMonth / zokanYearDay / ijouSet
  assertInRange(y)                                        // §3.9
  hour = opts.hour                                        // 出生時 0〜23。null・未指定なら時柱なし（0 は有効）
  vm  = opts.zokanMonth   || 'kantei'
  vyd = opts.zokanYearDay || 'kantei'
  s0    = findSetsu(y,m,d)                                // §3.2
  keika = jdn(y,m,d) - s0.jdn + 1
  年柱 §3.3 ／ 月柱 §3.4 ／ 日柱 §3.5
  zkY,zkM,zkD §3.7.3
  banseiKan = KANGO[年干]                                   // 伴星（ご先祖様）の干
  stars = {  // §4.2
    ancestor: shusei(日干, banseiKan),  north: shusei(日干, 年干),  center: shusei(日干, zkM),
    south: shusei(日干, 月干),          east: shusei(日干, zkY),    west: shusei(日干, zkD) }
  jusei = { early: jusei(日干,年支), mid: jusei(日干,月支), late: jusei(日干,日支) }     // §4.3
  totalEnergy = early.energy + mid.energy + late.energy
  tenchusatsu     = TENCHUSATSU[ floor(didx/10) ]           // §5
  tenchusatsuYear = TENCHUSATSU[ floor(yidx/10) ]
  ijou = { year:  ijouKanshi(年干+年支, opts.ijouSet),       // §6。3つの柱にも時柱にも opts.ijouSet を渡す
           month: ijouKanshi(月干+月支, opts.ijouSet),
           day:   ijouKanshi(日干+日支, opts.ijouSet) }
  moon = moonPhaseOn(y,m,d)                                  // §18.3
  hourPillar = hour != null なら §3.6、なければ null

  date    = 'YYYY-MM-DD'（0詰め）          weekday = §2.4
  setsu   = { name: s0.name,
              jst:  pad4(s0.year) + '-' + pad2(s0.monthIndex + 1) + '-' + pad2(s0.day) + ' ' + pad2(s0.hh) + ':' + pad2(s0.mm),
              keika,
              isSetsuiriDay: (s0.jdn == jdn(y,m,d)) }        // keika == 1 と同じ意味

yearRange() = { min: 最初の年 + 1 = 1901, max: 最後の年 = 2100 }       // 参照実装では range()（Python の range と紛れるので本書ではこう書く）
assertInRange(y): y < 1901 or y > 2100 なら例外 '対応しているのは 1901年〜2100年です（節入りデータの範囲）。'

shusei(nikkan, target):
  ea = GOGYO_KAN[nikkan];  eb = GOGYO_KAN[target]
  same = (INYO_KAN[nikkan] == INYO_KAN[target])
  if ea == eb:        return same ? 貫索星 : 石門星      // 同じ五行            （比肩・劫財）
  if sho(ea, eb):     return same ? 鳳閣星 : 調舒星      // 日干が対象を生む    （食神・傷官）
  if koku(ea, eb):    return same ? 禄存星 : 司禄星      // 日干が対象を剋す    （偏財・正財）
  if koku(eb, ea):    return same ? 車騎星 : 牽牛星      // 対象が日干を剋す    （偏官・正官）
  if sho(eb, ea):     return same ? 龍高星 : 玉堂星      // 対象が日干を生む    （偏印・印綬）

目上   north    (北方)  … 年干                         → shusei(日干, 年干)
中心   center   (中央)  … 月支の蔵干（採用された zkM） → shusei(日干, zkM)
目下   south    (南方)  … 月干                         → shusei(日干, 月干)
社会   east     (東方)  … 年支の蔵干（zkY）            → shusei(日干, zkY)
配偶者 west     (西方)  … 日支の蔵干（zkD）            → shusei(日干, zkD)
ご先祖様 ancestor (左上) … 伴星。年干の干合相手          → shusei(日干, KANGO[年干])

 ┌────────────┬──────────┬────────────┐
 │ご先祖様(伴星)│ 目上(北)  │ 初年運(従星)│   初年運＝年支の従星
 ├────────────┼──────────┼────────────┤
 │ 配偶者(西)   │ 中心(中央)│ 社会(東)    │
 ├────────────┼──────────┼────────────┤
 │ 晩年運(従星) │ 目下(南)  │ 中年運(従星)│   中年運＝月支、晩年運＝日支の従星
 └────────────┴──────────┴────────────┘

starSet = stars を ancestor, north, center, south, east, west の順に走査して、星名の重複を除いたもの
gogyoDist[五行] = stars の6つ（伴星を含む）を STAR_GOGYO で五行に直した個数
                  ⚠ 個数が 0 の五行は**キーを作らない**（疎な辞書。例 {"土":1,"水":2,"金":1,"木":2}）。キーの並びは出た順（比較には関係しない）
gogyoVariety = gogyoDist のキー数

CHOSEI = { 甲:亥, 乙:午, 丙:寅, 丁:酉, 戊:寅, 己:酉, 庚:巳, 辛:子, 壬:申, 癸:卯 }     // 長生の位置
UNJUN  = ['長生','沐浴','冠帯','建禄','帝旺','衰','病','死','墓','絶','胎','養']

jusei(nikkan, shi):
  start = SHI.indexOf(CHOSEI[nikkan])
  pos   = SHI.indexOf(shi)
  step  = (INYO_KAN[nikkan] == 1) ? +1 : -1                  // 陽干（甲丙戊庚壬）は順行
  idx   = mod( (pos - start) * step, 12 )
  unsei = UNJUN[idx]
  return { name: JU_MAP[unsei][0], energy: JU_MAP[unsei][1], unsei }          // JU_MAP[十二運] = [従星名, 点]  例 JU_MAP['胎'] = ['天報星', 3]

early (初年運) = jusei(日干, 年支)     source: 年支      // オブジェクトは { label:'初年運', source:'年支', shi, name, energy, unsei }
mid   (中年運) = jusei(日干, 月支)     source: 月支      //               { label:'中年運', source:'月支', … }
late  (晩年運) = jusei(日干, 日支)     source: 日支      //               { label:'晩年運', source:'日支', … }
totalEnergy = early.energy + mid.energy + late.energy
juseiSet = early, mid, late の順で従星名の重複を除いたもの

TENCHUSATSU = ['戌亥天中殺','申酉天中殺','午未天中殺','辰巳天中殺','寅卯天中殺','子丑天中殺']
本人の天中殺   tenchusatsu     = TENCHUSATSU[ floor(didx / 10) ]       // didx＝日柱の n（0〜59）
親の天中殺     tenchusatsuYear = TENCHUSATSU[ floor(yidx / 10) ]       // yidx＝年柱の n

tenchusatsuShi = TENCHUSATSU_SHI[ tenchusatsu ]      // 例 ['申','酉']

IJOU_KANSHI = {
  甲戌:'通常', 乙亥:'通常', 戊戌:'通常', 庚子:'通常', 辛亥:'通常', 丁巳:'通常',
  辛巳:'暗合', 壬午:'暗合', 丁亥:'暗合', 丙戌:'暗合', 戊子:'暗合', 癸巳:'暗合', 己亥:'暗合' }
IJOU_KANSHI_7 = ['甲午','丁亥','戊子','己亥','辛巳','壬午','癸巳']       // 朱学院系の7個説（参考）

ijouKanshi(kanshi, set):
  if set == '7': return IJOU_KANSHI_7 に含まれるなら '異常干支'、なければ null
  return IJOU_KANSHI[kanshi] || null                                   // 既定の13個説

SHIGO = { 子:丑, 丑:子, 寅:亥, 亥:寅, 卯:戌, 戌:卯, 辰:酉, 酉:辰, 巳:申, 申:巳, 午:未, 未:午 }   // 支合
CHU   = { 子:午, 午:子, 丑:未, 未:丑, 寅:申, 申:寅, 卯:酉, 酉:卯, 辰:戌, 戌:辰, 巳:亥, 亥:巳 }   // 冲
SANGO = [['申','子','辰'], ['亥','卯','未'], ['寅','午','戌'], ['巳','酉','丑']]                    // 三合（半会に使う）
KEI3  = [['寅','巳','申'], ['丑','戌','未']]                                                       // 三刑
KEI2  = [['子','卯']]                                                                              // 相刑
JIKEI = ['辰','午','酉','亥']                                                                      // 自刑
GAI   = { 子:未, 未:子, 丑:午, 午:丑, 寅:巳, 巳:寅, 卯:辰, 辰:卯, 申:亥, 亥:申, 酉:戌, 戌:酉 }   // 害
HA    = { 子:酉, 酉:子, 丑:辰, 辰:丑, 寅:亥, 亥:寅, 卯:午, 午:卯, 巳:申, 申:巳, 未:戌, 戌:未 }   // 破

isou(a, b):          // 戻り値は「関係名」の配列。この順に追加する
  out = []
  if a == b:            out += [ JIKEI に a がある ? '自刑' : '比和' ]
  if SHIGO[a] == b:     out += ['支合']
  if CHU[a]   == b:     out += ['冲']
  for g in SANGO:       if a != b and a∈g and b∈g:   out += ['半会']
  for g in KEI3:        if a != b and a∈g and b∈g:   out += ['刑']
  for g in KEI2:        if a != b and a∈g and b∈g:   out += ['刑']
  if GAI[a]   == b:     out += ['害']
  if HA[a]    == b:     out += ['破']
  return out

isouInner(a) = {
  '日柱＋月柱': isou(日支, 月支),
  '日柱＋年柱': isou(日支, 年支),
  '月柱＋年柱': isou(月支, 年支) }

suurihou(a):
  shis = [年支, 月支, 日支]
  gen  = [年干, 月干, 日干]                              // 天干3つ
  for 柱 in [年柱, 月柱, 日柱]:                          // この順
    for 段 in ['初元','中元','本元']:
      if 柱.stages[段] != null:  gen.append(柱.stages[段])    // 無い段は飛ばす
  byKan = { 甲:0, …, 癸:0 }
  for k in gen:                                          // 同じ干が複数回出てもそのつど足す
    byKan[k] += Σ_{sh in shis} jusei(k, sh).energy        // k を「日干」とみなして、3つの支との従星の点を足す
  byGogyo = { 木:0, 火:0, 土:0, 金:0, 水:0 }             // ⚠ 5つの五行は**常にすべてキーを持つ**（該当が無ければ 0）。gogyoDist（疎）とは逆
  for k in 甲乙丙丁戊己庚辛壬癸:  byGogyo[GOGYO_KAN[k]] += byKan[k]
  total = Σ byKan
  return { byKan, byGogyo, total, genList: gen }

shinkyo(a):
  e = a.totalEnergy
  names = [early.name, mid.name, late.name]
  SHINKYO_STARS  = ['天将星','天禄星','天南星','天貴星']      // 参考集計（判定には使わない）
  SHINJAKU_STARS = ['天報星','天極星','天馳星','天胡星']
  strongCount = names のうち SHINKYO_STARS にあるものの数
  weakCount   = names のうち SHINJAKU_STARS にあるものの数
  hasTenshosei = names に '天将星' がある
  label = (e >= 25) ? '身強' : (e <= 14 ? '身弱' : '中庸')
  return { energy:e, strongCount, weakCount, hasTenshosei, label }

RYOIKI = [ { no:1, name:'第一領域', title:'守備安定', desc:'知性的だが感情的でもある' },
           { no:2, name:'第二領域', title:'伝達創造', desc:'情的で庶民性がある' },
           { no:3, name:'第三領域', title:'攻撃開拓', desc:'庶民性と合理性を併せ持つ' },
           { no:4, name:'第四領域', title:'習得知恵', desc:'合理的、理屈屋、知性豊か' } ]       // キーの名前と並びもこのとおり
ryoikiOf(no) = RYOIKI[ min(3, floor((no-1)/15)) ]      // 1〜15=第一(右上) 16〜30=第二(右下) 31〜45=第三(左下) 46〜60=第四(左上)

koudouRyoiki(a):
  points = [年柱, 月柱, 日柱] それぞれについて       // 各点は { label:'年柱'|'月柱'|'日柱', no, kanshi, shi, deg, ryoiki, x, y }
    no  = その柱の no           deg = (no - 1) * 6          // 1番が0度（真上）、時計回り
    rad = (deg - 90) * π / 180   x = cos(rad)   y = sin(rad)
    ryoiki = ryoikiOf(no)
  area  = | (p1.x-p0.x)*(p2.y-p0.y) - (p2.x-p0.x)*(p1.y-p0.y) | / 2     // 半径1の円に内接する三角形の面積
  ratio = area / π                                                         // 円に対する割合
  unique = 三点の no の種類数（重複を除く）
  sortedDegs = 三点の deg の重複を除いて昇順に並べたもの       // maxGap を出すためだけの中間変数。戻り値には入れない
  maxGap = sortedDegs が2つ以上なら、隣り合う(最後→最初は一周して) 角度差 mod 360 の最大値、1つ以下なら 0
  label  =  unique==1 ? '1点に集中（きわめて狭い）'
          : unique==2 ? '2点のみ（狭い）'
          : ratio >= 0.35 ? '広い'
          : ratio >= 0.18 ? 'ふつう'
          :                  '狭い'
  spread = 三点の ryoiki.name を points の順に重複を除いたもの
  return { points, area, ratio, unique: (no の種類数), maxGap, label, ryoiki: RYOIKI, spread }

gyoOf(i)  = floor(i / 2)             // 0木 1火 2土 3金 4水   （甲乙=木, 丙丁=火, 戊己=土, 庚辛=金, 壬癸=水）
yinOf(i)  = i % 2                    // 0=陽, 1=陰   ← INYO_KAN の「1=陽」と逆なので注意
mkKan(g, y) = mod(g, 5) * 2 + y      // 五行番号 g と陰陽 y から干の番号を作る
kangoOf(i)  = (i + 5) % 10           // 干合の相手（甲0↔己5, 乙1↔庚6, …）
koibitoOf(i) = let p = kangoOf(i); (p が偶数 ? p+1 : p-1)      // 「恋人の干」＝干合相手の陰陽を逆にした干

place = {}                              // 干 → 居場所のラベルの配列
for 柱 in [年, 月, 日]:
  if 柱 != 日:  place[柱.kan] += [柱の名前 + '干']                     // 年干・月干。⚠ 日干は入れない（自分だから）
  for 段 in ['初元','中元','本元']:
    if 柱.stages[段] != null:  place[柱.stages[段]] += [柱の名前 + '支の' + 段]    // 日柱の蔵干も入れる
has(k) = place に k がある

TEIICHI = { 母親: ['year','本元'], 父親: ['year','kan'], パートナー: ['day','本元'], 家系: ['month','本元'], 子供: ['month','kan'] }
            // [柱, 'kan'（その柱の天干）または 蔵干の段]。家系・子供は六親法の計算では引かない（表にだけある）
teiichiKan(誰): 母親 → 年柱の stages.本元
                父親 → 年柱の kan（年干）
                パートナー → 日柱の stages.本元
                （子供・家系は六親法の計算では使わない）

find(cands, teiichiFor):
  for i, c in cands:
    if has(KAN[c]):  return { real: KAN[c], level: (i==0 ? '理想どおり' : '第二優先') }
  if teiichiFor:
    t = teiichiKan(teiichiFor)
    if t != null and has(t):  return { real: t, level: '定位置' }
  return { real: null, level: 'なし' }

// ── 母親 ──
seibo = mkKan(gyoOf(di) + 4, 1 - yinOf(di))        // 正母＝日干を生む五行で、日干と陰陽が逆   → 主星は玉堂星
henbo = mkKan(gyoOf(di) + 4,     yinOf(di))        // 偏母＝同じ五行で陰陽が同じ               → 主星は龍高星
母親 = { ideal: KAN[seibo], …find([seibo, henbo], '母親') }

// ── 父親 ── 「実際に見つかった母の干」から辿る
mBase = 母親.real の番号（無ければ null）
父親 = mBase==null ? { ideal: KAN[kangoOf(seibo)], real:null, level:'なし' }
                   : { ideal: KAN[kangoOf(seibo)], …find([kangoOf(mBase), koibitoOf(mBase)], '父親') }
        // ideal は常に「理想の母(正母)の干合相手」。探す候補は「実際の母の干合相手」→「その恋人の干」

// ── 兄弟・姉妹 ── 代わりの干はとらない
sis = mkKan(gyoOf(di), 1 - yinOf(di))              // 姉妹＝同五行で陰陽が逆
兄弟 = { ideal: 日干,       real: has(日干) ? 日干 : null,       level: has(日干) ? '理想どおり' : 'なし' }
姉妹 = { ideal: KAN[sis],   real: has(KAN[sis]) ? KAN[sis] : null, level: has(KAN[sis]) ? '理想どおり' : 'なし' }

// ── 配偶者 ── 性別によらず日干の干合相手
パートナー = { ideal: KAN[kangoOf(di)], …find([kangoOf(di), koibitoOf(di)], 'パートナー') }

// ── 子供 ── 「実際に見つかった配偶者の干（妻の干）」が生じる干。定位置は使わない
wIdeal = kangoOf(di)
wReal  = パートナー.real の番号（無ければ null）
for 子 in ['男子供', '女子供']:
  girl  = (子 == '女子供')
  ideal = KAN[ mkKan(gyoOf(wIdeal)+1, girl ? yinOf(wIdeal) : 1 - yinOf(wIdeal)) ]    // 妻の理想の干が生じる干。妻と陰陽が同じ→女児、逆→男児
  子 = wReal==null ? { ideal, real:null, level:'なし' }
                   : { ideal, …find([ mkKan(gyoOf(wReal)+1, girl ? yinOf(wReal) : 1 - yinOf(wReal)) ], null) }

ROKUSHIN_ORDER = ['母親','父親','兄弟','姉妹','パートナー','男子供','女子供']
rows[i] = { key, star: shusei(日干, ideal), where: real の place を '・' で連結（real が無ければ ''）, ideal, real, level }      // この6キーだけ
return { self: 日干, rows }

keys = ['east','west','center','north','south']          // 社会・配偶者・中心・目上・目下 の順（伴星は含めない）
list = keys について { pos: stars[k].label, star: stars[k].star, gogyo: STAR_GOGYO[star] }

for r in list:                                           // r 自身との比較は「同じ要素」を除く（星の名前ではなく要素の同一性で除外）
  gives = list のうち r 以外で  koku(r.gogyo, o.gogyo)  となるものの数      // 自分が剋す
  takes = list のうち r 以外で  koku(o.gogyo, r.gogyo)  となるものの数      // 自分が剋される
  r.kokusu = gives + takes

max    = list の kokusu の最大値
talent = kokusu == max かつ max > 0 の要素の星名（list の順、重複を除く）    // 才能星

kMax = max(k)   kMin = min(k)
maxCount = kMax と等しい要素の数
second   = kMax 未満の要素のうち最大のもの（無ければ kMax）
kata =  kMax == 0                            → '無玄の型'
        kMax == kMin                         → '五宮同均の型'      （全部同じ・0以外）
        k[2]（中央）== kMax かつ maxCount==1  → '了殿の型'          （中央が単独で最大）
        maxCount == 1 かつ (kMax - second) >= 2 → '点欽の型'        （中央以外が単独で最大、次点と2以上の差）
        それ以外                              → '順殿の型'

isThink(g) = (g == '水' or g == '火')
eastWest   = isThink(list[0].gogyo) or isThink(list[1].gogyo)      // 社会・配偶者
center     = isThink(list[2].gogyo)                                 // 中心
northSouth = isThink(list[3].gogyo) or isThink(list[4].gogyo)      // 目上・目下
un =  center                               → '北天運'
      !eastWest and !northSouth            → '南天運'
      eastWest and northSouth              → '北天運'
      eastWest                             → '東天運'
      それ以外（northSouth のみ）           → '西天運'

TEIICHI_POS = {
  north:  { label:'目上（北方）',   gogyo:'水', line:'精神', stars:['龍高星','玉堂星'] },
  south:  { label:'目下（南方）',   gogyo:'火', line:'精神', stars:['鳳閣星','調舒星'] },
  east:   { label:'社会（東方）',   gogyo:'木', line:'現実', stars:['貫索星','石門星'] },
  center: { label:'中心（中央）',   gogyo:'土', line:'現実', stars:['禄存星','司禄星'] },
  west:   { label:'配偶者（西方）', gogyo:'金', line:'現実', stars:['車騎星','牽牛星'] } }

teiichi(a):
  rows = ['north','south','east','center','west'] の順に
         { key, label: TEIICHI_POS[key].label（例 '目上（北方）'）, line, gogyo(そのマスの五行), home(入るべき星), star(実際の星), starGogyo, ok: home に star がある }
  count  = ok の数          keys = ok のマスの key
  spirit = line=='精神' かつ ok の数（0〜2）    real = line=='現実' かつ ok の数（0〜3）
  return { rows, count, keys, spirit, real }

KYOUIKU_KANSHI = {
  甲戌: '木の干が、戌という土に根を張る形。まっすぐに育てる。',
  己未: '畑の土が、夏の温かい土に置かれる形。多くを慈しみ育てる。',
  癸丑: '雨露が、冬の終わりの土を潤す形。じっくりと才能を育む。' }

kyouiku(a):
  rows = [年柱, 月柱, 日柱, 時柱(あれば)] の順に、その柱の kanshi が KYOUIKU_KANSHI にあれば { pos:'年柱'|'月柱'|'日柱'|'時柱', kanshi, note }
  return { rows, count: rows.length, onDay: 日柱が rows にあるか }

INSEI = ['龍高星','玉堂星']        ROSEI = ['鳳閣星','調舒星']
KYOUIKU_PAIR = {
  '玉堂星+鳳閣星': { name:'正統派の教育者',         denshou:true,  note:'玉堂星で仕入れた正しい知識を、鳳閣星でわかりやすく自然に伝える。学校の先生にいちばん多いとされる王道の組み合わせ。' },
  '龍高星+調舒星': { name:'芸術・特殊分野の指導者', denshou:true,  note:'龍高星の体験から得た知恵と、調舒星の鋭い感性。一対一で相手の才能を極限まで引き出す、職人や芸術の世界の師匠の型。' },
  '玉堂星+調舒星': { name:'専門を掘り下げて伝える型', denshou:false, note:'玉堂星の体系的な知識を、調舒星の感性で磨いて出す。大人数に教えるより、書く・作る・批評するという形で伝わる。' },
  '龍高星+鳳閣星': { name:'体験させて伝える型',     denshou:false, note:'龍高星が自分でやってみたことを、鳳閣星が構えずに渡す。座学より、やらせてみて覚えさせる実践型の教え方が合う。' } }

kyouikuSei(a):
  insei = INSEI のうち a.starSet にあるもの（INSEI の順）     rosei = ROSEI のうち a.starSet にあるもの
          // a.starSet は人体図の**6つ（伴星＝ご先祖様を含む）**の星の集合。伴星なしの5つで見ない
  pairs = insei × rosei の全組（insei が外側のループ）で  key = insei + '+' + rosei  が KYOUIKU_PAIR にあるもの
          各要素は { key, insei, rosei, name, denshou, note }（KYOUIKU_PAIR[key] の中身に key・insei・rosei を足したもの）
  ok    = insei も rosei も1つ以上ある
  return { insei, rosei, pairs, ok }
  // ゴールデン（付録F）では pairs を key の文字列だけの配列に直してある

count = opts.count または 12
a     = meishiki(y, m, d, opts)
male  = gender が 'male' | 1 | '男' | '男性' のどれか。それ以外（'female'・未指定・空文字を含む）はすべて女性扱い

// ── 向き ──
yangYear = 年柱の天干が陽（甲・丙・戊・庚・壬）
forward  = (yangYear == male)              // 陽男・陰女 → 順行／陰男・陽女 → 逆行   （真偽値どうしの比較）

// ── 立運（最初の大運が始まる年齢） ──
target = jdn(y, m, d)
days   = forward ? (findNextSetsu(y,m,d).jdn - target)       // 順行：次の節入りまでの日数（節入り当日は含まれず、必ず1以上）
                 : (target - findSetsu(y,m,d).jdn)            // 逆行：前の節入りからの日数（節入り当日生まれは 0）
startAge = min( round(days / 3), 10 )                          // 3日＝1年。四捨五入。上限10

// ── 大運の並び ──
mIdx = kanshiIndex(月柱の干, 月柱の支)              // 0..59
for i in 0 .. count-1:
  step = forward ? (i + 1) : -(i + 1)                // 順行は月柱の次から、逆行は月柱の前から
  idx  = mod(mIdx + step, 60)                        // 負数でも 0..59 に収める
  kan  = KAN[idx % 10]     shi = SHI[idx % 12]
  age  = startAge + i * 10
  ju   = jusei(日干, shi)                             // 日干から見た、この大運の支の従星
  rows[i] = {
    age,
    year: y + age,                                    // 西暦＝生年＋年齢（誕生日は考慮しない）
    kanshi: kan + shi, kan, shi,
    shusei: shusei(日干, kan),                        // 日干から見た、この大運の干の主星
    jusei: ju.name, energy: ju.energy,
    tenchusatsu: TENCHUSATSU[ floor(idx / 10) ],      // この大運の干支が属する旬から出る天中殺（本人の天中殺とは別物）
    isDaiunTenchusatsu: 本人の天中殺の2支（a.tenchusatsuShi）に shi が含まれる,
    ijou: ijouKanshi(kan + shi, opts.ijouSet)
  }
return { forward, direction: forward ? '順行' : '逆行', startAge, daysToSetsu: days, rows }

me     = meishiki(birth.y, birth.m, birth.d, opts)       // 本人
target = meishiki(at.y,    at.m,    at.d,    opts)       // 見たい日（その日の三柱をそのまま使う）
dkan   = me の日干          mine = me.tenchusatsuShi      // 本人の天中殺の2支

row(label, kan, shi) = {
  label, kanshi: kan + shi, kan, shi,
  shusei: shusei(dkan, kan),
  jusei:  jusei(dkan, shi).name,   energy: jusei(dkan, shi).energy,   unsei: jusei(dkan, shi).unsei,
  isTenchusatsu: mine に shi が含まれる,
  ijou: ijouKanshi(kan + shi, opts.ijouSet)
}

return {
  tenchusatsu: me.tenchusatsu,   shi: mine,   nikkan: dkan,
  moon:  moonPhaseOn(at.y, at.m, at.d),
  year:  row('年運', target.年柱.kan, target.年柱.shi),        // 立春（日単位）で替わる年柱
  month: row('月運', target.月柱.kan, target.月柱.shi),        // 節入り（日単位）で替わる月柱
  day:   row('日運', target.日柱.kan, target.日柱.shi),
  hour:  at.hour が指定されていれば  row('時運', h.kan, h.shi)   （h = jichu(target の日干, at.hour)）
         指定が無ければ null
}

clamp(y)  = min(lim.max, max(lim.min, y))                    // 'year' だけ clamp する。他の unit は範囲外なら meishiki が例外を出す
末日      = その年月の日数（うるう年を考慮。Date は使わず jdn で数えてよい）
HOUR_SLOTS（代表の時刻 h, 範囲の文字列）の順序:
  [23,'23:00〜00:59'], [1,'01:00〜02:59'], [3,'03:00〜04:59'], [5,'05:00〜06:59'],
  [7,'07:00〜08:59'], [9,'09:00〜10:59'], [11,'11:00〜12:59'], [13,'13:00〜14:59'],
  [15,'15:00〜16:59'], [17,'17:00〜18:59'], [19,'19:00〜20:59'], [21,'21:00〜22:59']
return { unit, rows, nikkan: dkan, tenchusatsu: me.tenchusatsu, shi: mine, anchor }

ka = meA.日柱.kan     kb = meB.日柱.kan
ea = GOGYO_KAN[ka]    eb = GOGYO_KAN[kb]              // 日干の五行どうしを比べる

// ── 五行のかたち kind（ea≠eb のときは、生・剋のどれか一つが必ず成り立つ） ──
kind = ea == eb        → '同質'
       sho(ea, eb)     → '育てる'        // あなたが相手を生む
       sho(eb, ea)     → '支えられる'    // 相手があなたを生む
       koku(ea, eb)    → '動かす'        // あなたが相手を剋す
       それ以外         → '動かされる'    // 相手があなたを剋す
gogyoRel（説明用の文字列）=
       ea == eb     → '比和（同じ五行）'
       sho(ea,eb)   → 'あなたが相手を生む（' + ea + '生' + eb + '）'
       sho(eb,ea)   → '相手があなたを生む（' + eb + '生' + ea + '）'
       koku(ea,eb)  → 'あなたが相手を剋す（' + ea + '剋' + eb + '）'
       それ以外      → '相手があなたを剋す（' + eb + '剋' + ea + '）'

// ── 共通の星 ──
starsX = meX.stars を ancestor, north, center, south, east, west の順にたどった星名の集合（重複を除き、出た順を保つ。伴星を含む6つ分）
shared = starsA の順に並べて、starsB にも入っているもの

// ── 身強・身弱 ──
sa = shinkyo(meA)   sb = shinkyo(meB)                 // §9
skPair = sa.label と sb.label の '中庸' を '身強' に置き換え、 '身強×身弱' のように '×' でつなぐ

// ── 位相法 ──
pos = { '日柱どうし': isou(meA の日支, meB の日支),
        '月柱どうし': isou(meA の月支, meB の月支),
        '年柱どうし': isou(meA の年支, meB の年支) }    // isou は §7（A→B の順で渡す）
posAll   = pos['日柱どうし'] ++ pos['月柱どうし'] ++ pos['年柱どうし']      // 配列の連結（重複を残す）
uniqIsou = posAll から重複を除いたもの（出た順）

// ── 天中殺の絡み ──
tcsKey = meA.tenchusatsu == meB.tenchusatsu                       → 'same'
         meA.tenchusatsuShi に meB の日支 が含まれる                → 'bInA'    // 相手の日支があなたの天中殺に入る
         meB.tenchusatsuShi に meA の日支 が含まれる                → 'aInB'    // あなたの日支が相手の天中殺に入る
         それ以外                                                   → 'none'
         （判定は上から順。戻り値の tenchusatsu.bInA / aInB は排他にせず、それぞれ独立に真偽を入れる）

reading = [
  REL_TEXT[kind].desc,
  mode があり mode != 'general' かつ REL_MODE_TEXT[kind][mode] があれば それ、なければ ''     // 間柄別の見どころ
  TCS_TEXT[tcsKey],
  mode があり mode != 'general' かつ TCS_MODE_TEXT[tcsKey][mode] があれば それ、なければ ''
  SHINKYO_PAIR[skPair] があればそれ、なければ ''
  uniqIsou.map(x => ISOU_TEXT[x]) のうち値があるものを '。' でつないだ文字列       // 'general' でも付く
  shared.length > 0  ? '「' + shared.join('・') + '」を2人とも持っているので、その面では話が通じやすい'
                     : '持ち味が重ならないので、補い合う形になりやすい'
].filter(空文字でないもの)

{ kind, kindText: REL_TEXT[kind], reading,
  gogyo:        { a: ea, b: eb, relation: gogyoRel, same: ea == eb },
  tenchusatsu:  { a: meA.tenchusatsu, b: meB.tenchusatsu, same: (a == b),
                  bInA: meA.tenchusatsuShi に meB の日支 が含まれる,  aInB: meB.tenchusatsuShi に meA の日支 が含まれる },
  sharedStars:  shared,
  shinkyo:      { a: sa, b: sb },
  isou:         pos,
  isouSummary:  posAll が空でなければ uniqIsou を '・' でつないだ文字列、空なら 'なし',
  kango:        KANGO[ka] == kb               // 日干どうしが干合しているか
}

m = D_KIND[mode] があれば mode、なければ 'general'
titles = D_TITLES[m]

side(s)  = s.label == '身弱' ? '弱' : '強'            // 中庸は「強」に寄せる
skKey    = side(ai.shinkyo.a) + side(ai.shinkyo.b)     // '強強' | '強弱' | '弱強' | '弱弱'

tcsKey   = ai.tenchusatsu.same ? 'same' : ai.tenchusatsu.bInA ? 'bInA' : ai.tenchusatsu.aInB ? 'aInB' : 'none'

rels     = ai.isou['日柱どうし'] ++ ai.isou['月柱どうし'] ++ ai.isou['年柱どうし']
HARMONY  = ['支合','半会','比和']        TENSION = ['冲','刑','害','破','自刑']
bucket   = rels に TENSION の語が1つでもある → 'tension'
           else rels に HARMONY の語が1つでもある → 'harmony'
           else 'none'                                        // tension が harmony に優先する

bond     = [ ai.sharedStars.length ? D_BOND[m].yes(ai.sharedStars.join('・')) : D_BOND[m].no ]
           ai.kango が真なら  bond に D_BOND[m].kango を追加
friction = [ D_FRICTION[m][bucket] ]
           rels.length > 0 なら  '出ている関係は「' + (rels の重複を除いたものを '・' でつなぐ) + '」。' を追加

return [ { title: titles[0], body: D_KIND[m][ai.kind] },
         { title: titles[1], body: D_SK[m][skKey] },
         { title: titles[2], body: bond.join(' ') },          // 半角スペースでつなぐ
         { title: titles[3], body: friction.join(' ') },
         { title: titles[4], body: D_TCS[m][tcsKey] } ]

SETSUGETSU_SHI = ['寅','卯','辰','巳','午','未','申','酉','戌','亥','子','丑']    // 節月1〜12 の月支（1＝立春から）
setsugetsu = SETSUGETSU_SHI.indexOf(a.月柱.shi) + 1                              // 1..12。月柱は日単位の節入りで決まる（§3.2）
dayShi = a.日柱.shi     dayKanshi = a.日柱.kanshi

TENSHA = [ { months:[1,2,3],   kanshi:'戊寅', season:'春' }, { months:[4,5,6],   kanshi:'甲午', season:'夏' },
           { months:[7,8,9],   kanshi:'戊申', season:'秋' }, { months:[10,11,12], kanshi:'甲子', season:'冬' } ]
ICHIRYU（一粒万倍日。節月ごとの2支。添字0＝節月1）=
  [['丑','午'], ['酉','寅'], ['子','卯'], ['卯','辰'], ['巳','午'], ['酉','午'],
   ['子','未'], ['卯','申'], ['酉','午'], ['酉','戌'], ['亥','子'], ['卯','子']]
SANRINBOU（三隣亡。節月ごとの支）=
  ['亥','寅','午','亥','寅','午','亥','寅','午','亥','寅','午']

good = []   bad = []
TENSHA のうち setsugetsu を含む行の 干支 == dayKanshi            → good に '天赦日'
ICHIRYU[setsugetsu-1] に dayShi が含まれる                       → good に '一粒万倍日'
dayShi == '寅'                                                    → good に '寅の日'
dayKanshi == '己巳'                                               → good に '己巳の日'
  それ以外で dayShi == '巳'                                        → good に '巳の日'        // 己巳の日は「巳の日」を重ねて付けない
SANRINBOU[setsugetsu-1] == dayShi                                → bad に '三隣亡'
return { setsugetsu, good, bad, all: good ++ bad }

形式  { "from":1948, "to":2100, "names":[祝日名…], "years":{ "2026":[[通日, namesの番号], …], … } }
dayOfYear(y,m,d) = jdn(y,m,d) - jdn(y,1,1) + 1                    // 1月1日＝1
holiday(y,m,d) = years[String(y)] の中に [dayOfYear, idx] があれば names[idx]、なければ null
                 表が無い（読み込んでいない）／その年が表に無い（1948年より前など）→ null
hasHolidayData(y) = 表があり、from <= y <= to

形式  { "epoch":[1900,1,1,0,0], "step":[1372, 20476, 21975, …] }
      step[0] は起点（1900-01-01 00:00 JST）からの分。step[i] は直前の朔望との差（分）。
      偶数番目（0,2,4…）が新月、奇数番目が満月（朔望は必ず交互に来る）。

展開:
  epMin = jdn(1900,1,1) * 1440
  cum = 0
  for i, s in step:
    cum += s
    total = epMin + cum
    j   = floor(total / 1440)          // その朔望が属する日（JST）の jdn
    rem = total - j * 1440
    event[i] = { jdn: j, hh: floor(rem / 60), mm: rem % 60, kind: i % 2 == 0 ? '新月' : '満月' }

moonPhaseOn(y,m,d) = jdn(y,m,d) に一致する event があれば { kind, time:'HH:MM' }、なければ null
                     （同じ日に新月と満月が両方来ることはない）
moonPhases(from, to) = from <= 日付 <= to（**両端を含む**。from・to は 'YYYY-MM-DD' の文字列）の event を { date:'YYYY-MM-DD', time:'HH:MM', kind } で昇順に列挙。from > to なら空

cond = {
  tenchusatsu:     [天中殺名…] | null,    // いずれかに一致 (OR)      例 ['子丑天中殺']
  nikkanGogyo:     [五行…]    | null,    // 日干の五行がいずれか (OR)
  nisshiGogyo:     [五行…]    | null,    // 日支の五行がいずれか (OR)
  requireShusei:   [星名…],               // 主星に**全部**含む (AND)。人体図の6つ（伴星を含む）の星の集合 a.starSet を見る
  requireJuseiAny: [従星名…],             // 従星3つのうちいずれか (OR)。a.juseiSet を見る
  minEnergy:       数 | null,             // 従星エネルギー合計（a.totalEnergy）の下限（以上）
  robust:          真偽                   // 真なら 蔵干の流派4通りすべてで成立した日だけ返す
}

cond.tenchusatsu     が空でない  かつ  a.tenchusatsu   が含まれない     → 不成立
cond.nikkanGogyo     が空でない  かつ  a.nikkanGogyo   が含まれない     → 不成立
cond.nisshiGogyo     が空でない  かつ  a.nisshiGogyo   が含まれない     → 不成立
cond.requireShusei   の中に a.starSet に無い星が1つでもある             → 不成立
cond.requireJuseiAny が空でない  かつ  どれも a.juseiSet に無い          → 不成立
cond.minEnergy != null かつ a.totalEnergy < cond.minEnergy              → 不成立
それ以外 → 成立

from, to  = 'YYYY-MM-DD'（両端を含む）
lim       = yearRange()                                 // 1901〜2100（§3.9。参照実装では range()）
variants  = cond.robust  ?  [['kantei','kantei'], ['A','A'], ['kantei','hongen'], ['A','hongen']]      // [月支の流派, 年支・日支の流派]
                         :  [[ opts.zokanMonth || 'kantei', opts.zokanYearDay || 'kantei' ]]
maxHits   = opts.maxHits || 500                         // 画面は {maxHits: 500} だけを渡す。件数を数えたいときは大きな値（例 100000）を渡す

hits = []
for 日 j = jdn(from) .. jdn(to):
  (y,m,d) = fromJdn(j);   y が lim の外ならスキップ
  base = null
  for [vm, vyd] in variants:
    a = meishiki(y, m, d, { zokanMonth: vm, zokanYearDay: vyd })        // ⚠ hour・ijouSet は渡さない（異常干支は既定の13個説）
    base = base ?? a                                                    // 最初の流派の命式を結果に使う
    if !matches(a, cond): この日は不成立（以降の流派は見ない）
  成立なら hits に base を追加。hits が maxHits に達したら打ち切る
return hits

missing(a, cond) = 不成立の項目名を、次の順に並べた配列
   '天中殺'（tenchusatsu 不成立）→ '日干の五行' → '日支の五行'
   → requireShusei のうち a.starSet に無い星を**1つずつ星名で**（複数あれば複数入る）
   → '従星'（requireJuseiAny 不成立）→ 'エネルギー'（minEnergy 不成立）

searchNearMiss(from, to, cond, opts):
  maxHits = opts.maxHits || 200                          // 既定の 200 は画面用（画面は {maxHits: 200} を渡す）。件数を数えるときは大きな値を渡す
  for 日 in 期間（lim の外はスキップ）:
    a = meishiki(y, m, d, { zokanMonth: opts.zokanMonth || 'kantei', zokanYearDay: opts.zokanYearDay || 'kantei' })   // robust は見ない
    miss = missing(a, cond)
    miss.length == 1  なら  { meishiki: a, missing: miss[0] } を追加
    件数が maxHits に達したら打ち切る

戻り値   [ { title, lead, items:[ {h, body}, … ] }, … ]       // 15章。h＝小見出し、body＝本文
push(title, lead, items) … items から null と body が空文字のものを取り除いて章に積む（章そのものは残る）
入力 a   meishiki() の戻り値。ただし次の2点が必要：
           ・a.date が 'YYYY-MM-DD'（大運の再計算に使う）
           ・時柱を出したいときは meishiki に hour を渡して作ったもの（a.hourPillar）
gender   'male' / 'female'（大運の向きにだけ使う）
opts     第3引数。受け取るが**使わない**（互換のための引数。`{}` を渡してよい）
※ 章8・14 の大運は `daiun` を呼ぶので、**順行で 2100-12-07 以降の生まれは `buildReport` も落ちる**（§15.1）

先に計算しておく値（章をまたいで使う）
  sk  = shinkyo(a)               §9
  tei = teiichi(a)               §13
  su  = suurihou(a)              §8          gs = ['木','火','土','金','水']
  vals = gs の順に su.byGogyo の値            avg = su.total / 5
  kd  = koudouRyoiki(a)          §10
  rk  = rokushin(a)              §11
  du  = daiun(生年, 生月, 生日, gender, { count: 12 })       // ⚠ a を作ったときの opts（蔵干の流派・異常干支の説）は引き継がない。常に既定（kantei／13個説）で再計算する

held = a.starSet                                          // 人体図6つの星（重複なし）
weight(st) = a.stars.center.star == st ? 3
           : a.stars.east.star   == st ? 2 : 1            // 中心と社会に出ている星は重く見る
R_TEKISEI（16型。各 { stars:[星, 星], name, kishitsu, ba, chuui }）のうち、
   stars の2つとも held に入っているものを選ぶ
各型の score = stars の2つの weight の和
score の降順に並べる（同点は R_TEKISEI に書かれた順のまま＝安定ソート）