zakuro 0.2.0 → 0.6.0

data/lib/zakuro/version/genka/stella/origin/first_term.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+require_relative '../../const/number'
+require_relative '../../cycle/remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Genka
+    # :nodoc:
+    module Origin
+      #
+      # FirstTerm 年初の中気（正月中雨水）
+      #
+      module FirstTerm
+        # @return [Integer] 二十四節気の1日
+        TERM_DAY = Const::Number::Cycle::TERM_DAY
+        # @return [Float] 余数
+        YEAR_REMAINDER = Const::Number::Stack::YEAR_REMAINDER.to_f
+        # @return [Integer] 西暦0年の積年
+        WESTERN_YEAR = Const::Number::Stack::WESTERN_YEAR
+
+        #
+        # 年初の中気（正月中雨水）を求める
+        #
+        # @note 計算は宋書（1）に従う。念のため『日本暦日原典』（2）と比較する
+        #   1. (1612 + 西暦年) * 餘数（1595） / 度法（304） = A' ...余りが中気の小余
+        #      A' / 60 = B' ...余りが朔の大余
+        #     『歴代天文律暦等志彙編　六』中華書房 p.1728
+        #
+        #   2. (1612 + x) * 222070 / 608 = A' ...余りが中気の小余
+        #      A' / 60 = B' ...余りが朔の大余
+        #
+        #   小余上限（度法）の違いで、宋書に従ったほうが良いと判断した。分母が変わるだけで結果に相違はない
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Remainder] 年初の中気（正月中雨水）
+        #
+        def self.get(western_year:)
+          total_western_year = WESTERN_YEAR + western_year
+          # (1612 + x) * 222070 / 608 = A' ...余りが中気の小余
+          stack = (total_western_year * YEAR_REMAINDER / TERM_DAY).to_i
+          minute = (total_western_year * YEAR_REMAINDER % TERM_DAY).to_i
+          # A' / 60 = B' ...余りが朔の大余
+          day = stack % Cycle::TermRemainder::LIMIT
+          # p stack
+          # p minute
+          # p day
+          Cycle::TermRemainder.new(day: day, minute: minute, second: 0)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/genka/stella/origin/january.rb

@@ -0,0 +1,49 @@
+# frozen_string_literal: true
+
+require_relative '../../const/number'
+require_relative '../../cycle/remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Genka
+    # :nodoc:
+    module Origin
+      #
+      # January 1月
+      #
+      module January
+        # @return [Integer] 日法
+        DAY = Const::Number::Cycle::DAY
+        # @return [Float] 朔望月
+        SYNODIC_MONTH = Const::Number::Cycle::SYNODIC_MONTH.to_f
+        # @return [Integer] 西暦0年の積年
+        WESTERN_YEAR = Const::Number::Stack::WESTERN_YEAR
+        # @return [Float] 19年=235朔望月
+        METONIC_CYCLE = 235 / 19.to_f
+
+        #
+        # 1月経朔を求める
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Remainder] 11月経朔
+        #
+        def self.get(western_year:)
+          # (1612 + x) * 235 / 19 = A ...余り
+          stack = ((WESTERN_YEAR + western_year) * METONIC_CYCLE).to_i
+          # A * 22207 / 752 = B ...余りが朔の小余
+          minute_total = (stack * SYNODIC_MONTH / DAY).to_i
+          minute = (stack * SYNODIC_MONTH % DAY).to_i
+          # B / 60 = C ...余りが朔の大余
+          day = minute_total % Cycle::Remainder::LIMIT
+          # p stack
+          # p minute_total
+          # p minute
+          # p day
+          Cycle::Remainder.new(day: day, minute: minute, second: 0)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/genka/stella/solar/average.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+require_relative '../../../../calculation/stella/solar/abstract_average'
+
+require_relative '../../const/remainder'
+
+require_relative '../../cycle/solar_term'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Genka
+    # :nodoc:
+    module Solar
+      #
+      # Average 平気（太陽軌道平均）
+      #
+      class Average < Calculation::Solar::AbstractAverage
+        #
+        # 初期化
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        def initialize(solar_term:)
+          super(solar_term: solar_term)
+        end
+
+        #
+        # 冬至から数えた1年データの月ごとに二十四節気を割り当てる
+        #
+        # @param [Array<Month>] annual_range 1年データ
+        #
+        # @return [Array<Month>] 1年データ
+        #
+        def set(annual_range:)
+          super(annual_range: annual_range)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/gihou/const/remainder.rb

@@ -36,8 +36,6 @@ module Zakuro
           # @return [Cycle::LunarRemainder] 変日（1近点月）
           ANOMALISTIC_MONTH = \
             Cycle::LunarRemainder.new(day: 27, minute: 743, second: 1)
-          # @return [Cycle::LunarRemainder] 入暦上限
-          LIMIT = Cycle::LunarRemainder.new(day: 28, minute: 743, second: 0)
           #
           # @note 常朔実 39571 = 29-711
           #   * 39571 / 4 = 9892.75 / 1340 = 7 余り 512.75

data/lib/zakuro/version/gihou/cycle/remainder.rb

@@ -11,12 +11,7 @@ module Zakuro
     # :nodoc:
     module Cycle
       #
-      # Remainder 宣明暦の時刻情報（大余小余）
-      #
-      # * 「15日1012分5秒」のような形式で表される
-      # * 分は1340で一日に繰り上げる
-      # * 秒は基本的に1/6分で、6秒で1分に繰り上げる。ただし、月補正値は1分に100秒とするなど基数の変更がありえる
-      # * 十干十二支（60日）を上限とした「日時分秒」の情報で、日付（date）/時刻（time）と部分的に重なる概念
+      # Remainder 時刻情報（大余小余）
       #
       class Remainder < Calculation::Cycle::AbstractRemainder
         # @return [Integer] 分（1分=6秒）
@@ -34,6 +29,19 @@ module Zakuro
           super(base_day: Const::Number::Cycle::DAY, base_mitune: MINUTE,
                 day: day, minute: minute, second: second, total: total)
         end
+
+        #
+        # 特定の文字フォーマットにして出力する
+        #
+        # @param [String] form フォーマット（大余、小余、秒それぞれを%dで指定する）
+        #
+        # @return [String] フォーマットした結果
+        #
+        def format(form: '%d-%d')
+          return '' if invalid?
+
+          super(form, @day, @minute, @second)
+        end
       end
 
       #
@@ -55,6 +63,19 @@ module Zakuro
           super(base_day: Const::Number::Cycle::DAY, base_mitune: MINUTE,
                 day: day, minute: minute, second: second, total: total)
         end
+
+        #
+        # 特定の文字フォーマットにして出力する
+        #
+        # @param [String] form フォーマット（大余、小余、秒それぞれを%dで指定する）
+        #
+        # @return [String] フォーマットした結果
+        #
+        def format(form: '%d-%d')
+          return '' if invalid?
+
+          super(form, @day, @minute, @second)
+        end
       end
     end
   end

data/lib/zakuro/version/gihou/gihou.rb

@@ -1,40 +1,11 @@
 # frozen_string_literal: true
 
-require 'date'
-require_relative '../../era/western'
-require_relative '../abstract_version'
-require_relative '../context'
-require_relative '../../calculation/summary/single'
-
 # :nodoc:
 module Zakuro
   #
   # Gihou 儀鳳暦
   #
   module Gihou
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [True] リリースあり
-      RELEASE = true
-
-      # @return [String] 暦クラス名
-      VERSION_NAME = 'Gihou'
-
-      #
-      # 西暦日から和暦日に変換する
-      #
-      # @param [Date] western_date 西暦日
-      #
-      # @return [Result::Single] 和暦日
-      #
-      def self.to_japan_date(western_date:)
-        date = Western::Calendar.create(date: western_date)
-
-        context = Context.new(version_name: VERSION_NAME)
-        Calculation::Summary::Single.get(context: context, date: date)
-      end
-    end
+    # none
   end
 end

data/lib/zakuro/version/gihou/monthly/lunar_phase.rb

@@ -92,7 +92,7 @@ module Zakuro
         def correction_moon_value
           @lunar_location.run
 
-          remainder = @lunar_location.remainder
+          remainder = @lunar_location.adjusted_remainder
 
           # debug("[lunar]remainder.format: #{remainder.format(form: '%d-%d-%.5f')}")
           # debug("[lunar]remainder.day: #{remainder.day}")

data/lib/zakuro/version/gihou/stella/lunar/location.rb

@@ -18,8 +18,6 @@ module Zakuro
       class Location < Calculation::Lunar::AbstractLocation
         # @return [Cycle::LunarRemainder] 1近点月
         ANOMALISTIC_MONTH = Const::Remainder::Lunar::ANOMALISTIC_MONTH
-        # @return [Cycle::LunarRemainder] 入暦上限
-        LIMIT = Const::Remainder::Lunar::LIMIT
         # @return [Cycle::LunarRemainder] 弦
         QUARTER = Const::Remainder::Lunar::QUARTER
 
@@ -38,8 +36,7 @@ module Zakuro
         #
         def run
           if calculated
-            # 1始まりで計算しているので、入暦上限を用いる
-            decrease(limit: LIMIT)
+            decrease(limit: ANOMALISTIC_MONTH)
             return
           end
 
@@ -62,10 +59,7 @@ module Zakuro
           @remainder = Localization.first_remainder(
             lunar_age: remainder, western_year: western_year
           )
-          # 初回は0始まりで計算しているので、入暦上限ではなく1近点月を用いる
           decrease(limit: ANOMALISTIC_MONTH)
-          # 1始まりに改める
-          one_based
 
           @calculated = true
         end
@@ -78,7 +72,7 @@ module Zakuro
         def decrease(limit:)
           return if remainder < limit
 
-          remainder.sub!(ANOMALISTIC_MONTH)
+          remainder.sub!(limit)
         end
       end
     end

data/lib/zakuro/version/gihou/stella/lunar/value.rb

@@ -31,8 +31,9 @@ module Zakuro
         def self.get(remainder:)
           valid?(remainder: remainder)
 
-          day = remainder.day
-          minute = remainder.floor_minute
+          day, minute = Calculation::Lunar::ChoukeiValue.remainder_without_second(
+            remainder: remainder
+          )
 
           # 引き当て
           row = Adjustment.specify(day: day, minute: minute)

data/lib/zakuro/version/gihou/stella/solar/average.rb

@@ -55,7 +55,7 @@ module Zakuro
           # 二十四節気（冬至）
           solar_term = Cycle::SolarTerm.new(index: 0, remainder: winter_solstice)
 
-          first_solar_term_index = Average.calc_fist_solar_term_index(western_year: western_year)
+          first_solar_term_index = Average.calc_first_solar_term_index(western_year: western_year)
 
           # 対象の二十四節気まで戻す
           solar_term.prev_by_index(first_solar_term_index)
@@ -77,7 +77,7 @@ module Zakuro
         #
         # @return [Integer] 二十四節気番号
         #
-        def self.calc_fist_solar_term_index(western_year:)
+        def self.calc_first_solar_term_index(western_year:)
           # 天正閏余
           lunar_age = Origin::LunarAge.get(western_year: western_year)
 
@@ -87,7 +87,7 @@ module Zakuro
           solar_term_index = solar_location.index
 
           # 入定気の一つ後の二十四節気まで戻す（ただし11月経朔が二十四節気上にある場合は戻さない）
-          solar_term_index += 1 unless solar_location.remainder == Cycle::Remainder.new(total: 0)
+          solar_term_index += 1 unless solar_location.remainder.day.zero?
 
           solar_term_index
         end

data/lib/zakuro/version/gregorio/gregorio.rb

@@ -1,19 +1,11 @@
 # frozen_string_literal: true
 
-require_relative '../abstract_version'
-
 # :nodoc:
 module Zakuro
   #
   # Gregorio グレゴリオ暦
   #
   module Gregorio
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [False] リリースなし
-      RELEASE = false
-    end
+    # none
   end
 end

data/lib/zakuro/version/houryaku/houryaku.rb

@@ -1,19 +1,11 @@
 # frozen_string_literal: true
 
-require_relative '../abstract_version'
-
 # :nodoc:
 module Zakuro
   #
   # Houryaku 宝暦暦
   #
   module Houryaku
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [False] リリースなし
-      RELEASE = false
-    end
+    # none
   end
 end

data/lib/zakuro/version/joukyou/joukyou.rb

@@ -1,19 +1,11 @@
 # frozen_string_literal: true
 
-require_relative '../abstract_version'
-
 # :nodoc:
 module Zakuro
   #
   # Joukyou 貞享暦
   #
   module Joukyou
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [False] リリースなし
-      RELEASE = false
-    end
+    # none
   end
 end

data/lib/zakuro/version/kansei/kansei.rb

@@ -1,19 +1,11 @@
 # frozen_string_literal: true
 
-require_relative '../abstract_version'
-
 # :nodoc:
 module Zakuro
   #
   # Kansei 寛政暦
   #
   module Kansei
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [False] リリースなし
-      RELEASE = false
-    end
+    # none
   end
 end

data/lib/zakuro/version/senmyou/const/remainder.rb

@@ -35,8 +35,6 @@ module Zakuro
           # @note ANOMALISTIC_MONTH （1近点月）の半分に相当する
           HALF_ANOMALISTIC_MONTH = \
             Cycle::LunarRemainder.new(day: 13, minute: 6529, second: 9.5)
-          # @return [Cycle::LunarRemainder] 入暦上限
-          LIMIT = Cycle::LunarRemainder.new(day: 14, minute: 6529, second: 0)
           #
           # @note 章月 248057 = 29-4457
           #

data/lib/zakuro/version/senmyou/cycle/remainder.rb

@@ -11,12 +11,7 @@ module Zakuro
     # :nodoc:
     module Cycle
       #
-      # Remainder 宣明暦の時刻情報（大余小余）
-      #
-      # * 「15日1835分5秒」のような形式で表される
-      # * 分は8400で一日に繰り上げる
-      # * 秒は基本的に1/8分で、8秒で1分に繰り上げる。ただし、月補正値は1分に100秒とするなど基数の変更がありえる
-      # * 十干十二支（60日）を上限とした「日時分秒」の情報で、日付（date）/時刻（time）と部分的に重なる概念
+      # Remainder 時刻情報（大余小余）
       #
       class Remainder < Calculation::Cycle::AbstractRemainder
         # @return [Integer] 分（1分=8秒）
@@ -34,6 +29,19 @@ module Zakuro
           super(base_day: Const::Number::Cycle::DAY, base_mitune: MINUTE,
                 day: day, minute: minute, second: second, total: total)
         end
+
+        #
+        # 特定の文字フォーマットにして出力する
+        #
+        # @param [String] form フォーマット（大余、小余、秒それぞれを%dで指定する）
+        #
+        # @return [String] フォーマットした結果
+        #
+        def format(form: '%d-%d')
+          return '' if invalid?
+
+          super(form, @day, @minute, @second)
+        end
       end
 
       #
@@ -55,6 +63,19 @@ module Zakuro
           super(base_day: Const::Number::Cycle::DAY, base_mitune: MINUTE,
                 day: day, minute: minute, second: second, total: total)
         end
+
+        #
+        # 特定の文字フォーマットにして出力する
+        #
+        # @param [String] form フォーマット（大余、小余、秒それぞれを%dで指定する）
+        #
+        # @return [String] フォーマットした結果
+        #
+        def format(form: '%d-%d')
+          return '' if invalid?
+
+          super(form, @day, @minute, @second)
+        end
       end
     end
   end

data/lib/zakuro/version/senmyou/monthly/lunar_phase.rb

@@ -91,7 +91,7 @@ module Zakuro
         def correction_moon_value
           @lunar_location.run
 
-          remainder = @lunar_location.remainder
+          remainder = @lunar_location.adjusted_remainder
           forward = @lunar_location.forward
 
           debug("[lunar]remainder.format: #{remainder.format}")

data/lib/zakuro/version/senmyou/senmyou.rb

@@ -1,40 +1,11 @@
 # frozen_string_literal: true
 
-require 'date'
-require_relative '../../era/western'
-require_relative '../abstract_version'
-require_relative '../context'
-require_relative '../../calculation/summary/single'
-
 # :nodoc:
 module Zakuro
   #
   # Senmyou 宣明暦
   #
   module Senmyou
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [True] リリースあり
-      RELEASE = true
-
-      # @return [String] 暦クラス名
-      VERSION_NAME = 'Senmyou'
-
-      #
-      # 西暦日から和暦日に変換する
-      #
-      # @param [Date] western_date 西暦日
-      #
-      # @return [Result::Single] 和暦日
-      #
-      def self.to_japan_date(western_date:)
-        date = Western::Calendar.create(date: western_date)
-
-        context = Context.new(version_name: VERSION_NAME)
-        Calculation::Summary::Single.get(context: context, date: date)
-      end
-    end
+    # none
   end
 end

data/lib/zakuro/version/senmyou/stella/lunar/location.rb

@@ -18,8 +18,6 @@ module Zakuro
       class Location < Calculation::Lunar::AbstractLocation
         # @return [Cycle::LunarRemainder] 暦中日（1近点月の半分）
         HALF_ANOMALISTIC_MONTH = Const::Remainder::Lunar::HALF_ANOMALISTIC_MONTH
-        # @return [Cycle::LunarRemainder] 入暦上限
-        LIMIT = Const::Remainder::Lunar::LIMIT
         # @return [Cycle::LunarRemainder] 弦
         QUARTER = Const::Remainder::Lunar::QUARTER
 
@@ -44,8 +42,7 @@ module Zakuro
         #
         def run
           if calculated
-            # 1始まりで計算しているので、入暦上限を用いる
-            decrease(limit: LIMIT)
+            decrease(limit: HALF_ANOMALISTIC_MONTH)
             return
           end
 
@@ -68,10 +65,7 @@ module Zakuro
           @remainder = Localization.first_remainder(
             lunar_age: remainder, western_year: western_year
           )
-          # 初回は0始まりで計算しているので、入暦上限ではなく暦中日を用いる
           decrease(limit: HALF_ANOMALISTIC_MONTH)
-          # 1始まりに改める
-          one_based
 
           @calculated = true
         end
@@ -84,7 +78,7 @@ module Zakuro
         def decrease(limit:)
           return if remainder < limit
 
-          remainder.sub!(HALF_ANOMALISTIC_MONTH)
+          remainder.sub!(limit)
           @forward = !forward
         end
       end

data/lib/zakuro/version/senmyou/stella/lunar/value.rb

@@ -29,8 +29,9 @@ module Zakuro
         def self.get(remainder:, forward:)
           valid?(remainder: remainder)
 
-          day = remainder.day
-          minute = remainder.floor_minute
+          day, minute = Calculation::Lunar::ChoukeiValue.remainder_without_second(
+            remainder: remainder
+          )
 
           # 引き当て
           row = Adjustment.specify(forward: forward, day: day, minute: minute)

data/lib/zakuro/version/senmyou/stella/solar/average.rb

@@ -55,7 +55,7 @@ module Zakuro
           # 二十四節気（冬至）
           solar_term = Cycle::SolarTerm.new(index: 0, remainder: winter_solstice)
 
-          first_solar_term_index = Average.calc_fist_solar_term_index(western_year: western_year)
+          first_solar_term_index = Average.calc_first_solar_term_index(western_year: western_year)
 
           # 対象の二十四節気まで戻す
           solar_term.prev_by_index(first_solar_term_index)
@@ -77,7 +77,7 @@ module Zakuro
         #
         # @return [Integer] 二十四節気番号
         #
-        def self.calc_fist_solar_term_index(western_year:)
+        def self.calc_first_solar_term_index(western_year:)
           # 天正閏余
           lunar_age = Origin::LunarAge.get(western_year: western_year)
 
@@ -87,7 +87,7 @@ module Zakuro
           solar_term_index = solar_location.index
 
           # 入定気の一つ後の二十四節気まで戻す（ただし11月経朔が二十四節気上にある場合は戻さない）
-          solar_term_index += 1 unless solar_location.remainder == Cycle::Remainder.new(total: 0)
+          solar_term_index += 1 unless solar_location.remainder.day.zero?
 
           solar_term_index
         end

data/lib/zakuro/version/tenpou/tenpou.rb

@@ -1,19 +1,11 @@
 # frozen_string_literal: true
 
-require_relative '../abstract_version'
-
 # :nodoc:
 module Zakuro
   #
   # Tenpou 天保暦
   #
   module Tenpou
-    #
-    # Gateway アクセサメソッド群
-    #
-    class Gateway < AbstractVersion
-      # @return [False] リリースなし
-      RELEASE = false
-    end
+    # none
   end
 end

data/lib/zakuro/version/version_class_resolver.rb

@@ -1,9 +1,17 @@
 # frozen_string_literal: true
 
+require_relative './genka/cycle/remainder'
+require_relative './genka/cycle/solar_term'
+require_relative './genka/range/annual_range'
+
 require_relative './gihou/cycle/remainder'
 require_relative './gihou/cycle/solar_term'
 require_relative './gihou/range/annual_range'
 
+require_relative './daien/cycle/remainder'
+require_relative './daien/cycle/solar_term'
+require_relative './daien/range/annual_range'
+
 require_relative './senmyou/cycle/remainder'
 require_relative './senmyou/cycle/solar_term'
 require_relative './senmyou/range/annual_range'

data/zakuro.gemspec

@@ -1,10 +1,8 @@
 # frozen_string_literal: true
 
-require_relative 'lib/zakuro/version'
-
 Gem::Specification.new do |spec|
   spec.name          = 'zakuro'
-  spec.version       = Zakuro::VERSION
+  spec.version       = File.read(File.expand_path('./VERSION', __dir__)).strip
   spec.authors       = ['pldb']
   spec.email         = ['pldb.github@gmail.com']