when_exe 0.3.4 → 0.3.5

data/lib/when_exe/region/japanese_residues.rb

@@ -40,7 +40,7 @@ module When::Coordinates
       # 日の九星のインデックス
       #
       # @param [When::TM::TemporalPosition] date 節月による日付
-      # @param [When::CalendarTypes::CalendarNote::JapaneseNote::SolarTerms] s_terms
+      # @param [When::CalendarNote::JapaneseNote::SolarTerms] s_terms
       #
       # @return [Integer]
       #
@@ -69,7 +69,7 @@ module When::Coordinates
   #
   class Stem < Residue
 
-    Notes = {
+    Rules = {
       '歳徳' => %w(東宮甲 西宮庚 南宮丙 北宮壬 南宮丙 東宮甲 西宮庚 南宮丙 北宮壬 南宮丙),
       '金神' => %w(午未申酉 辰巳 子丑寅卯午未 寅卯戌亥 子丑申酉)
     }
@@ -78,8 +78,8 @@ module When::Coordinates
     # 年の十干で決まる暦注
     # @private
     def _year_notes(notes={}, dates=nil, conditions={})
-      notes['歳徳']     ||= Notes['歳徳'][@remainder]
-      notes['金神']     ||= Notes['金神'][@remainder % 5]
+      notes['歳徳']     ||= Rules['歳徳'][@remainder]
+      notes['金神']     ||= Rules['金神'][@remainder % 5]
       notes
     end
 
@@ -124,7 +124,7 @@ module When::Coordinates
   #
   class Branch < Residue
 
-    Notes = {
+    Rules = {
       '大將軍' => %w(酉 酉 子 子 子 卯 卯 卯 午 午 午 酉),
       '大陰'   => %w(戌 亥 子 丑 寅 卯 辰 巳 午 未 申 酉),
 
@@ -158,18 +158,18 @@ module When::Coordinates
     # 年の十二支で決まる暦注
     # @private
     def _year_notes(notes={}, dates=nil, conditions={})
-      notes['大將軍']   ||= Notes['大將軍'][@remainder]
-      notes['大陰'  ]   ||= Notes['大陰'  ][@remainder]
-      notes['歳刑'  ]   ||= Notes['歳刑'  ][@remainder]
-      notes['歳破'  ]   ||= Notes['破'    ][@remainder]
-      notes['歳煞'  ]   ||= Notes['煞'    ][@remainder % 4]
-      notes['黄幡'  ]   ||= Notes['黄幡'  ][@remainder]
-      notes['豹尾'  ]   ||= Notes['豹尾'  ][@remainder]
+      notes['大將軍']   ||= Rules['大將軍'][@remainder]
+      notes['大陰'  ]   ||= Rules['大陰'  ][@remainder]
+      notes['歳刑'  ]   ||= Rules['歳刑'  ][@remainder]
+      notes['歳破'  ]   ||= Rules['破'    ][@remainder]
+      notes['歳煞'  ]   ||= Rules['煞'    ][@remainder % 4]
+      notes['黄幡'  ]   ||= Rules['黄幡'  ][@remainder]
+      notes['豹尾'  ]   ||= Rules['豹尾'  ][@remainder]
       if dates.range < 2
-        notes['天道']   ||= Notes['天道'  ][@remainder % 6]
-        notes['人道']   ||= Notes['人道'  ][@remainder % 6]
+        notes['天道']   ||= Rules['天道'  ][@remainder % 6]
+        notes['人道']   ||= Rules['人道'  ][@remainder % 6]
       else
-        notes['歳次']   ||= Notes['歳次'  ][@remainder]
+        notes['歳次']   ||= Rules['歳次'  ][@remainder]
       end
       notes
     end
@@ -179,22 +179,22 @@ module When::Coordinates
     # @private
     def _month_notes(notes={}, dates=nil, conditions={})
       if dates.range < 2
-        notes['天氣']   ||= Notes['天氣'  ][@remainder] + '行'
-        notes['天道']   ||= Notes['天道'  ][@remainder % 6]
-        notes['人道']   ||= Notes['人道'  ][@remainder % 6]
-        notes['月破']   ||= Notes['破'    ][@remainder]
+        notes['天氣']   ||= Rules['天氣'  ][@remainder] + '行'
+        notes['天道']   ||= Rules['天道'  ][@remainder % 6]
+        notes['人道']   ||= Rules['人道'  ][@remainder % 6]
+        notes['月破']   ||= Rules['破'    ][@remainder]
       else
-        notes['天道']   ||= Notes['天氣'  ][@remainder] + '行'
+        notes['天道']   ||= Rules['天氣'  ][@remainder] + '行'
       end
-      notes['天徳'  ]   ||= Notes['天徳'  ][@remainder]
-      notes['月煞'  ]   ||= Notes['煞'    ][@remainder % 4]
-      notes['用時'  ]   ||= Notes['用時'  ][@remainder % 3]
-      notes['月徳'  ]   ||= Notes['月徳'  ][@remainder % 4]
-      notes['月徳合']   ||= Notes['月徳合'][@remainder % 4]
-      notes['月空'  ]   ||= Notes['月空'  ][@remainder % 4]
-      notes['三鏡'  ]   ||= Notes['三鏡'  ][@remainder]
-      notes['土府'  ]   ||= Notes['土府'  ][@remainder]
-      notes['土公'  ]   ||= Notes['土公'  ][@remainder]
+      notes['天徳'  ]   ||= Rules['天徳'  ][@remainder]
+      notes['月煞'  ]   ||= Rules['煞'    ][@remainder % 4]
+      notes['用時'  ]   ||= Rules['用時'  ][@remainder % 3]
+      notes['月徳'  ]   ||= Rules['月徳'  ][@remainder % 4]
+      notes['月徳合']   ||= Rules['月徳合'][@remainder % 4]
+      notes['月空'  ]   ||= Rules['月空'  ][@remainder % 4]
+      notes['三鏡'  ]   ||= Rules['三鏡'  ][@remainder]
+      notes['土府'  ]   ||= Rules['土府'  ][@remainder]
+      notes['土公'  ]   ||= Rules['土公'  ][@remainder]
       notes
     end
 
@@ -205,10 +205,10 @@ module When::Coordinates
 
       # 節月
       month = dates.s_date.cal_date[1]
-      born  = Notes['三禍'][month-1] + '年'
+      born  = Rules['三禍'][month-1] + '年'
 
       # 具注暦(元嘉暦以来)
-      notes['十二直']   ||= Notes['十二直'][(@remainder-month-1) % 12]
+      notes['十二直']   ||= Rules['十二直'][(@remainder-month-1) % 12]
       notes['歸忌'  ]   ||= @remainder == (month % 3) ? '歸忌' : nil
       notes['血忌'  ]   ||= @remainder == [1,7,2,8,3,9,4,10,5,11,6,0][month-1] ? '血忌' : nil
       notes['九坎'  ]   ||= @remainder == [4,1,10,7,3,0,9,6,2,11,8,5][month-1] ? '九坎' : nil
@@ -225,7 +225,7 @@ module When::Coordinates
       notes['狼藉'  ]   ||= @remainder == (dates.range >= 14 ? ((month-1) % 4) * 3 :                      #  - wikipedia 「天火」におなじ
                                                [0,3,6,6,0,3,9,9,3,3,6,9][month-1]) ?  born + '狼藉' : nil # %w(...酉..午.子...)
       notes['滅門'  ]   ||= @remainder == (month * 7 + 10) % 12 ?  born + '滅門' : nil
-      notes['下食時']   ||= @remainder == [7,10,4,2,6,0,8,9,5,11,1,3][month-1] ? Notes['下食時'][month-1] : nil
+      notes['下食時']   ||= @remainder == [7,10,4,2,6,0,8,9,5,11,1,3][month-1] ? Rules['下食時'][month-1] : nil
       notes['下食時']     = dates.range < 11 ? notes['下食時' ].sub(/\+/, '') : nil if /\+/ =~ notes['下食時'].to_s # '+' は貞享改暦以降記さない
       notes['無翹'  ]   ||= @remainder == (12-month) % 12 ? '無翹' : nil
       notes['不弔人']   ||= [4,6].include?(@remainder) ? '不弔人' : nil # 不断
@@ -266,9 +266,9 @@ module When::Coordinates
     # @private
     def _year_notes(notes={}, dates=nil, conditions={})
       unless dates.range < 2
-        notes['大歳壇'] ||= '干' + Notes['大歳壇干'][(@remainder / 2) % 5] + '支' + Notes['大歳壇支'][@remainder % 12]
+        notes['大歳壇'] ||= '干' + Rules['大歳壇干'][(@remainder / 2) % 5] + '支' + Rules['大歳壇支'][@remainder % 12]
       end
-      notes['納音']     ||= Notes['納音'][@remainder / 2]
+      notes['納音']     ||= Rules['納音'][@remainder / 2]
       notes['大歳']     ||= self
       notes
     end
@@ -289,36 +289,37 @@ module When::Coordinates
       year, month = dates.s_date.cal_date
 
       # 具注暦(元嘉暦以来)
-      notes['納音']     ||= Notes['納音'][@remainder / 2]
-      notes['日遊']     ||= dates.range < 2 ? Notes['日遊'][@remainder] :
+      notes['納音']     ||= Rules['納音'][@remainder / 2]
+      notes['日遊']     ||= dates.range < 2 ? Rules['日遊'][@remainder] :
                             [4,5,14,15,24,25,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,54,55].include?(@remainder) ? '内' : nil
       notes['天赦']     ||= @remainder == [14,30,44,00][(month-1)/3] ? '天赦' : nil
 
       #   宣明暦以前は節月、貞享暦以後は暦月
-      m  = dates.range < 11 ? month : (dates.m_date.cal_date[1] * 1)
+    # m  = dates.range < 11 ? month : (dates.m_date.cal_date[1] * 1)
+      m  = month
       #   凶会日
-      kue = Notes['凶会'][m-1][@remainder]
+      kue = Rules['凶会'][m-1][@remainder]
       #   貞享暦で廃止された凶会日を除外
       kue = dates.range < 11 ? kue.sub(/\+/, '') : nil if /\+/ =~ kue
       notes['凶会'] = kue
 
       #   凶会日に省略される吉日
-      _notes_without_kue(notes, month, dates.range < 2 ? '歳' : '大歳', (conditions[:sai]||0).to_s) unless notes['凶会']
+      _notes_without_kue(notes, month, dates.range < 2 ? '歳' : '大歳', conditions[:sai] ? conditions[:sai].to_s != '0' : nil) unless notes['凶会']
 
       # 具注暦(大衍暦以来)
       notes['天一']     ||= begin
-        note = Notes['天一'][@remainder]
+        note = Rules['天一'][@remainder]
         dates.range >= 15 ?  note.dup.sub!(/天上始/, '天上') :
         dates.range >= 11 ?  note : note.dup.sub!(/始/, '')
       end
-      notes['土公']     ||= Notes['土公'][@remainder]
+      notes['土公']     ||= Rules['土公'][@remainder]
       notes['五墓']     ||= [4,22,28,31,37].include?(@remainder) ? '五墓' : nil
       notes['伐'  ]     ||= [6,12,14,15,17,19,20,21,23,28,49,58].include?(@remainder) ? '伐' : nil
 
       #   節年に依存する暦注
       div, mod = @remainder.divmod(12)
-      base_dir = Notes['環'][year % 12]
-      move_dir = Notes['遊'][div]
+      base_dir = Rules['環'][year % 12]
+      move_dir = Rules['遊'][div]
       unless base_dir == move_dir
 	event  = '遊' + move_dir if mod == 0
 	event  = '環' + base_dir if mod == 5
@@ -334,51 +335,51 @@ module When::Coordinates
       notes['六蛇']     ||= (month-1) / 3 == 3 && [48,59].include?(@remainder)  ? '六蛇' : nil
 
       #   宣明暦以前は節月、貞享暦以後は暦月？
-      notes['三寶吉'], notes['神吉'], notes['雑事吉'], notes['小字注'] = Notes['吉事注'][m-1][@remainder]
+      notes['三寶吉'], notes['神吉'], notes['雑事吉'], notes['小字注'] = Rules['吉事注'][m-1][@remainder]
 
       # 仮名暦
       unless notes['金神遊行']
         div, mod   = @remainder.divmod(12)
-        note       = (2..6).include?(mod) ? '平素' + Notes['平素遊行'][div] : ''
-        range, dir = Notes['四季遊行'][(month-1) / 3]
+        note       = (2..6).include?(mod) ? '平素' + Rules['平素遊行'][div] : ''
+        range, dir = Rules['四季遊行'][(month-1) / 3]
         note      += range.include?(@remainder) ? '四季' + dir : ''
         notes['金神遊行'] = note == '' ? nil : note
       end
       notes['甲子待']   ||= @remainder == 0  ? '甲子待' : nil
       notes['己巳'  ]   ||= @remainder == 5  ? '己巳'   : nil
       notes['庚申待']   ||= @remainder == 56 ? '庚申待' : nil
-      notes['大明'  ]   ||= [5,6,7,8,9,13,15,18,20,23,28,31,38,40,41,42,43,45,46,47,52,54,55,56,57].include?(@remainder) ? '大明' : nil
       notes['犯土'  ]   ||= [7,8,9,10,11].include?(@remainder)    ? '大犯土' : {6 =>'大犯土始', 12=>'大犯土終', 13=>'犯土間日'}[@remainder]
       notes['犯土'  ]   ||= [15,16,17,18,19].include?(@remainder) ? '小犯土' : {14=>'小犯土始', 20=>'小犯土終'}[@remainder]
       notes['十方暮']   ||= [21,22,23,24,25,26,27,28].include?(@remainder) ? '十方暮' : {20=>'十方暮始', 29=>'十方暮終'}[@remainder]
       unless notes['八專']
-        note = Notes['八專'][@remainder]
+        note = Rules['八專'][@remainder]
         note = note.sub('始','入') if note && (9..10).include?(dates.range)
         notes['八專'] = note
       end
-      notes['八專間日'] ||= [49,52,54,58,59].include?(@remainder) ? '八專間日' : nil
+      notes['八專間日'] ||= [49,52,54,58].include?(@remainder) ? '八專間日' : nil
     end
 
     private
 
     def _notes_without_kue(notes, month, daisai, variation)
       notes['天恩']     ||= [0,3,9].include?(@remainder / 5) ? '天恩' : nil
+      notes['大明']     ||= [5,6,7,8,9,13,15,18,20,23,28,31,38,40,41,42,43,45,46,47,52,54,55,56,57].include?(@remainder) ? '大明' : nil
 
       return notes if notes['大小歳']
 
-      unless variation == '0'
-        note = Notes['大小歳差分'][[month, @remainder]]
+      if variation
+        note = Rules['大小歳差分'][[month, @remainder]]
         if note
           notes['大小歳'] = daisai + note
           return
         end
       end
 
-      index = Notes['大小歳'][0].map {|pattern|
+      index = Rules['大小歳'][0].map {|pattern|
 	        k = 4.times {|i|
-	          break i if Notes['大小歳'][1][@remainder] =~ pattern[i]
+	          break i if Rules['大小歳'][1][@remainder] =~ pattern[i]
 	        }
-	        k == 4 ? nil : Notes['大小歳'][2][(k+(month-1)/3) % 4]
+	        k == 4 ? nil : Rules['大小歳'][2][(k+(month-1)/3) % 4]
 	      }
       notes['大小歳'] = (index[0] ? '大小歳' + index[0] : '') + 
 	                (index[1] ?  daisai  + index[1] : '') + 
@@ -386,7 +387,7 @@ module When::Coordinates
       notes.delete('大小歳') if notes['大小歳'] == ''
     end
 
-    Notes = {
+    Rules = {
       '大歳壇干' => %w(木 火 土 金 水),
       '大歳壇支' => %w(水 土 木 木 土 火 火 土 金 金 土 水),
       '納音'     => %w(海中金 爐中火 大林木 路傍土 釼鋒金 山頭火 澗下水 城頭土 白鑞金 楊柳木

data/lib/when_exe/region/japanese_twin.rb

@@ -0,0 +1,228 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When
+
+  class TM::CalendarEra
+
+    # Japanese Luni-Solar Calendar Series for JapaneseNote
+    JapaneseLuniSolarSeries = [self, [
+      'namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]',
+      'locale:[=en:, ja=ja:, alias]',
+      'area:[JapaneseLuniSolarSeries=, 日本の暦月=]',
+      ['[平朔儀鳳暦=]-660.01.01',  '@F',  "-660-01-01^JapaneseTwin::平朔儀鳳暦"],
+      ['[元嘉暦]454.01.01',        '@CR',  "454-01-01^ChineseTwin::元嘉暦"],
+      ['[儀鳳暦]697.01.01',        '@CR',  "697-01-01^ChineseTwin::麟徳暦"],
+      ['[大衍暦]764.01.01',        '@CR',  "764-01-01^ChineseTwin::大衍暦"],
+      ['[五紀暦]858.01.01',        '@CR',  "858-01-01^ChineseTwin::五紀暦"],
+      ['[宣明暦]862.01.01',        '@CR',  "862-01-01^ChineseTwin::宣明暦"],
+      ['[貞享乙丑暦=]1685.01.01',  '@CR', "1685-01-01^JapaneseTwin::貞享乙丑暦"],
+      ['[貞享暦]1687.01.01',       '@CR', "1687-01-01^JapaneseTwin::貞享暦"    ],
+      ['[宝暦癸酉暦=]1753.01.01',  '@CR', "1753-01-01^JapaneseTwin::宝暦癸酉暦"],
+      ['[宝暦甲戌暦=]1754.01.01',  '@CR', "1754-01-01^JapaneseTwin::宝暦甲戌暦"],
+      ['[宝暦暦]1755.01.01',       '@CR', "1755-01-01^JapaneseTwin::宝暦暦"    ],
+      ['[修正宝暦暦=]1771.01.01',  '@CR', "1771-01-01^JapaneseTwin::修正宝暦暦"],
+      ['[寛政暦]1798.01.01',       '@CR', "1798-01-01^JapaneseTwin::寛政暦"    ], # 京都平均太陽時
+      ['[寛政丁亥暦]1827.01.01',   '@CR', "1827-01-01^JapaneseTwin::寛政丁亥暦"], # 京都平均太陽時
+      ['[天保暦]1844.01.01',       '@CR', "1844-01-01^JapaneseTwin::天保暦"    ], # 京都真太陽時
+      ['[JLSO=,旧々暦=]1872.12.03','@CR', "1872-12-03^JapaneseTwin::旧々暦"    ], # 東京平均太陽時
+      ['[JLS=,旧暦]1887.11.18',    '@CR', "1887-11-18^JapaneseTwin::旧暦"      ]  # 日本標準時
+    ]]
+
+    # Japanese Solar Calendar Series for JapaneseNote
+    JapaneseSolarSeries = [self, [
+      'namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]',
+      'locale:[=en:, ja=ja:, alias]',
+      'area:[JapaneseSolarSeries=, 日本の節月=]',
+      ['[平朔儀鳳暦=]-661.01.01',  '@F',  "-661-01-01^JapaneseTwin::平朔儀鳳暦(節月)"], # 年の始めに遡って開始(実際は12.22)
+      ['[元嘉暦]454.01.12',        '@CR',  "454-01-12^ChineseTwin::元嘉暦(節月)"],
+      ['[儀鳳暦]696.12.27',        '@CR',  "696-12-27^ChineseTwin::麟徳暦(節月)"],
+      ['[大衍暦]764.01.06',        '@CR',  "764-01-06^ChineseTwin::大衍暦(節月)"],
+      ['[五紀暦]857.12.19',        '@CR',  "857-12-19^ChineseTwin::五紀暦(節月)"],
+      ['[宣明暦]862.01.03',        '@CR',  "862-01-03^ChineseTwin::宣明暦(節月)"],
+      ['[貞享乙丑暦=]1685.01.01',  '@CR', "1685-01-01^JapaneseTwin::貞享乙丑暦(節月)"],
+      ['[貞享暦]1687.01.08',       '@CR', "1687-01-08^JapaneseTwin::貞享暦(節月)"    ],
+      ['[宝暦癸酉暦=]1752.12.30',  '@CR', "1752-12-30^JapaneseTwin::宝暦癸酉暦(節月)"],
+      ['[宝暦甲戌暦=]1753.12.19',  '@CR', "1753-12-19^JapaneseTwin::宝暦甲戌暦(節月)"],
+      ['[宝暦暦]1755.01.07',       '@CR', "1755-01-07^JapaneseTwin::宝暦暦(節月)"    ],
+      ['[修正宝暦暦=]1771.01.11',  '@CR', "1771-01-11^JapaneseTwin::修正宝暦暦(節月)"],
+      ['[寛政暦]1798.01.12',       '@CR', "1798-01-12^JapaneseTwin::寛政暦(節月)"    ],
+      ['[寛政丁亥暦]1826.12.22',   '@CR', "1826-12-22^JapaneseTwin::寛政丁亥暦(節月)"],
+      ['[天保暦]1844.01.14',       '@CR', "1844-01-14^JapaneseTwin::天保暦(節月)"    ], # 京都真太陽時
+      ['[JSO=,旧々暦=]1872.11.26', '@CR', "1872-11-26^JapaneseTwin::旧々暦(節月)"    ], # 東京平均太陽時
+      ['[JS=,旧暦]1887.11.26',     '@CR', "1887-11-26^JapaneseTwin::旧暦(節月)"      ]  # 日本標準時
+    ]]
+  end
+
+  module CalendarTypes
+
+    _japanese_common = {
+      'year_delta'               => 1,         # 冬至年の変化率 / (10^(-6)日/年)
+      'year_span'                => 1,         # 冬至年の改訂周期 / 年
+      'lunation_length'          => 29.530590, # 朔実(朔望月)
+      'lunar_mean_motion'        => 13.36875,  # 月平行(恒星天に対する月の平均運動 / 日)
+      'anomalistic_month_length' => 27.5546,   # 転終(近点月)
+      'anomaly_method'           => 'c',       # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+      'anomaly_precision'        => 1e-5,      # c 方式 での収束判定誤差 / 日
+      'lunar_unit'               =>  0.1,      # 太陰遅速計算用招差法定数の時間の単位(限)
+      'solar_weight'             =>  1,        # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
+      'm'                        => [          # 太陰遅速計算用招差法定数
+        [  0      ... 72.65342,   0,     [-0, -1173_1000, +3_7000, +400]],
+        [ 72.65342...137.773,   137.773, [-0, -1324_0000, +5_2000, +500]],
+        [137.773  ...202.89258, 137.773, [+0, +1324_0000, -5_2000, -500]],
+        [202.89258.. 275.546,   275.546, [+0, +1173_1000, -3_7000, -400]]
+      ],
+      's'                        => [          # 太陽盈縮計算用招差法定数
+        [  0       ... 89.25392,    0,        [0, +436_0000, -2_0000, -34]],
+        [ 89.25392 ...182.620848, 182.620848, [0, +411_9800, -1_7640, -31]],
+        [182.620848...275.987776, 182.620848, [0, -411_9800, +1_7640, +31]],
+        [275.987776.. 365.241696, 365.241696, [0, -436_0000, +2_0000, +34]]
+      ]
+    }
+
+    JapaneseTwin = [{}, When::BasicTypes::M17n, ChineseSolar.twin('JapaneseTwin', [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=ja:, en=en:, alias]",
+      "area:[日本,Japan]",
+
+      [ChineseLuniSolar,
+        'name:[平朔儀鳳暦=]',
+        'formula:MeanLunation?year_length=122357/335&lunation_length=39571/1340&day_epoch=-96608689'
+      ],
+
+      [ChineseLuniSolar,
+        'name:[貞享乙丑暦=]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2336111 +  7.675, # 暦元天正冬至のユリウス日
+            'year_epoch'               => 1684,             # 暦元の西暦年
+            'year_length'              => 365.241696,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           =>  2.779 - 0.015,   # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  - 0.015    # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[貞享暦]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2336111 +  7.69 , # 暦元天正冬至のユリウス日
+            'year_epoch'               => 1684,             # 暦元の西暦年
+            'year_length'              => 365.241696,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           =>  2.779,           # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72             # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[宝暦癸酉暦=]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2336111 +  7.9038,# 暦元天正冬至のユリウス日
+            'year_epoch'               => 1684,             # 暦元の西暦年
+            'year_length'              => 365.241696,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           =>  2.779 + 0.2138,  # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  + 0.2138   # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[宝暦甲戌暦=]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2336111 +  7.6223,# 暦元天正冬至のユリウス日
+            'year_epoch'               => 1684,             # 暦元の西暦年
+            'year_length'              => 365.241696,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           =>  2.779 - 0.0677,  # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  - 0.0677   # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[宝暦暦]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2361671 + 14.536, # 暦元天正冬至のユリウス日
+            'year_epoch'               => 1754,             # 暦元の西暦年
+            'year_length'              => 365.241556,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 6.455,            # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           => 25.654,           # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 18.88,            # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            's'                        => ChineseSolar.change_unit(365.241556 / 365.241696, _japanese_common['s'])
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[修正宝暦暦=]',
+        {'formula'=>['12S', '1L'].map {|f| [
+          Ephemeris::ChineseTrueLunation, _japanese_common.merge({
+            'formula'                  => f,
+            'day_epoch'                => 2361671 + 14.681, # 暦元天正冬至のユリウス日
+            'year_epoch'               => 1754,             # 暦元の西暦年
+            'year_length'              => 365.241626,       # 暦元の冬至年 / 日
+            'anomalistic_year_shift'   => 7.42,             # 暦應(冬至から近日点通過までの日数)
+            'lunation_shift'           => 25.82,            # 閏應(暦元前経朔から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 19.307,           # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            's'                        => ChineseSolar.change_unit(365.241626 / 365.241696, _japanese_common['s'])
+         })]
+        }
+       }
+      ],
+
+      [ChineseLuniSolar,
+        'name:[寛政暦]',
+        'time_basis:+00,+09:03:01',          # 寛政9天正冬至.107112
+         {'formula'=>['ChineseTrueLunation?day_epoch=2377391.107112&year_epoch=1797&year_length=365.242347071&year_delta=-0.217685&year_span=1000',
+                      'Formula']}
+      ],
+
+      [ChineseLuniSolar,
+        'name:[寛政丁亥暦]',
+        'time_basis:+00,+09:03:01',          # 寛政9天正冬至.107112
+         {'formula'=>['ChineseTrueLunation?day_epoch=2377391.107112&year_epoch=1797&year_length=365.242347071&year_delta=-0.217685&year_span=10',
+                      'Formula']}
+      ],
+
+      [ChineseLuniSolar,
+        'name:[天保暦]',
+        'time_basis:LAT?long=135.4520E&lat=35.0117N',
+        'intercalary_span:3'
+      ],
+
+      [ChineseLuniSolar,
+        'name:[旧々暦=]',
+        'time_basis:+09:18:59',
+        'intercalary_span:3'
+      ],
+
+      [ChineseLuniSolar,
+        'name:[旧暦]',
+        'time_basis:+09:00',
+        'intercalary_span:3'
+      ]
+    ])]
+  end
+end