zakuro 0.2.0 → 0.6.0

data/lib/zakuro/output/response.rb

@@ -56,7 +56,7 @@ module Zakuro
           date = param.date
           days = param.days
           Result::Data::SingleDay.new(
-            year: save_year(year: year),
+            year: save_year(year: year, month: month, date: date),
             month: save_month(month: month, date: date, days: days),
             day: save_day(month: month, date: date, days: days)
           )
@@ -69,10 +69,10 @@ module Zakuro
         #
         # @return [Result::Year] 年データ
         #
-        def self.save_year(year:)
-          multi_gengou = year.multi_gengou
-          first = multi_gengou.first_line
-          second = multi_gengou.second_line
+        def self.save_year(year:, month:, date:)
+          gengou = month.gengou
+          first = gengou.match_first_line(date: date)
+          second = gengou.match_second_line(date: date)
           Result::Data::Year.new(
             first_gengou:
               Result::Data::Gengou.new(name: first.name, number: first.year),

data/lib/zakuro/tools/typeconv.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+
+require_relative '../output/logger'
+
+# :nodoc:
+module Zakuro
+  #
+  # Tools 汎用メソッド群
+  #
+  module Tools
+    # :reek:UncommunicativeVariableName {accept: e}
+
+    #
+    # Typeconv 型変換
+    #
+    module Typeconv
+      LOGGER = Output::Logger.new(location: 'Typeconv')
+
+      #
+      # 文字列を10進数で数値化する
+      #
+      # @param [String] text 対象文字列
+      # @param [Integer] default デフォルト数値
+      #
+      # @return [Integer] 数値
+      #
+      def self.to_i(text:, default:)
+        begin
+          return Integer(text, 10)
+        rescue StandardError => e
+          LOGGER.debug(e)
+        end
+
+        default
+      end
+    end
+  end
+end

data/lib/zakuro/tools/typeof.rb

@@ -1,7 +1,8 @@
 # frozen_string_literal: true
 
 require_relative '../calculation/cycle/abstract_remainder'
-require_relative '../era/western'
+require_relative '../era/japan/calendar'
+require_relative '../era/western/calendar'
 
 # :nodoc:
 module Zakuro
@@ -22,6 +23,8 @@ module Zakuro
       # @return [False] 時間型ではない
       #
       def self.time?(obj:)
+        return true if obj.is_a?(Japan::Calendar)
+
         return true if obj.is_a?(Western::Calendar)
 
         return true if obj.is_a?(Calculation::Cycle::AbstractRemainder)

data/lib/zakuro/version/context.rb

@@ -8,16 +8,37 @@ module Zakuro
   # Context 暦コンテキスト
   #
   class Context
+    # @return [String] 暦名
     attr_reader :version_name
+    # @return [VersionClassResolver] 暦リゾルバー
     attr_reader :resolver
 
-    VERSION_NAMES = %w[Genka Gihou Taien Senmyou Joukyou Kansei Tenpou Gregorio].freeze
-
-    def initialize(version_name:)
-      raise ArgumentError.new, 'invalid version' unless VERSION_NAMES.include?(version_name)
+    # @return [Array<String>] 暦名
+    VERSION_NAMES = %w[Genka Gihou Daien Senmyou Joukyou Kansei Tenpou Gregorio].freeze
 
+    #
+    # 初期化
+    #
+    # @param [String] version_name 暦名
+    #
+    def initialize(version_name: '')
       @version_name = version_name
+
+      if !invalid? && !VERSION_NAMES.include?(version_name)
+        raise ArgumentError.new, 'invalid version'
+      end
+
       @resolver = VersionClassResolver.new(version_name: version_name)
     end
+
+    #
+    # 不正か
+    #
+    # @return [True] 不正
+    # @return [False] 不正なし
+    #
+    def invalid?
+      @version_name.empty?
+    end
   end
 end

data/lib/zakuro/version/daien/const/number.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    #
+    # Const 定数
+    #
+    module Const
+      #
+      # Number 数値
+      #
+      module Number
+        #
+        # Cycle 周期
+        #
+        module Cycle
+          # @return [Integer] 通法（1日=3040分）
+          DAY = 3040
+          #
+          # @return [Float] 転日（1近点月 = 27日1685分79秒（1分=80秒））
+          # @note 小数点以下の値によって大幅に結果が変わる。除算結果を設定した
+          #
+          ANOMALISTIC_MONTH = 83_765 + (79.0 / 80)
+          # @return [Integer] 朔望月
+          SYNODIC_MONTH = 89_773
+          # @return [Integer] 一年
+          YEAR = 1_110_343
+        end
+
+        #
+        # Derivation 導出
+        #
+        module Derivation
+          # @return [Integer] 通余:  (YEAR - DAY * 12 * 30)
+          #   1110343 - 1094400
+          REMAINDER_ALL_YEAR = 15_943
+          # @return [Integer] 旬周（60日） DAY * 60
+          SIXTY_DAYS = 182_400
+        end
+
+        #
+        # 累積
+        #
+        module Stack
+          # @return [Integer] 積年（甲子夜半朔旦冬至〜暦の開始前）
+          TOTAL_YEAR = 96_961_740
+          # @return [Integer] 暦の開始年（開元12年）
+          BEGIN_YEAR = 724
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,53 @@
+# frozen_string_literal: true
+
+require_relative '../cycle/remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    #
+    # Const 定数
+    #
+    module Const
+      #
+      # Remainder 大余小余
+      #
+      module Remainder
+        #
+        # Solar 太陽
+        #
+        module Solar
+          # @return [Remainder] 気策（24分の1年）
+          # 1年（1_110_343） / 24 / 1日（3040）= 15 余り 664.2916666666642
+          #   * 0.2916666666642 * 24（1分=24秒） = 6.999999999940799 ≒ 7
+          SOLAR_TERM_AVERAGE = Cycle::Remainder.new(day: 15, minute: 664, second: 7)
+          #
+          # @note 揲法 89773 = 29-1613
+          #   * 89773 / 4 = 22443.25 / 3040 = 7 余り 1163.25
+          #   * 0.25 * 24（1分=24秒） = 6
+          #
+          # @return [Cycle::Remainder] 弦（1分=80秒）
+          QUARTER = Cycle::Remainder.new(day: 7, minute: 1163, second: 6)
+        end
+
+        #
+        # Lunar 月
+        #
+        module Lunar
+          # @return [Cycle::LunarRemainder] 転日（1近点月）
+          ANOMALISTIC_MONTH = \
+            Cycle::LunarRemainder.new(day: 27, minute: 1685, second: 79)
+          #
+          # @note 揲法 89773 = 29-1613
+          #   * 89773 / 4 = 22443.25 / 3040 = 7 余り 1163.25
+          #   * 0.25 * 80（1分=80秒） = 20
+          #
+          # @return [Cycle::LunarRemainder] 弦（1分=80秒）
+          # TODO: 秒が20では通らない。少なくとも0.01247は必要になる
+          QUARTER = Cycle::LunarRemainder.new(day: 7, minute: 1163, second: 20.01247)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,85 @@
+# frozen_string_literal: true
+
+require_relative '../../../calculation/cycle/abstract_remainder'
+
+require_relative '../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    # :nodoc:
+    module Cycle
+      #
+      # Remainder 時刻情報（大余小余）
+      #
+      class Remainder < Calculation::Cycle::AbstractRemainder
+        # 『歴代天文律暦等志彙編　七』中華書房 p.2056
+        # 「象統;二十四」「其秒盈象統,従小餘」
+        # 上記は舊唐志の記述だが、新唐志（p.2218）でも同様であることを確認した
+        # @return [Integer] 分（1分=24秒）
+        MINUTE = 24
+
+        #
+        # 初期化
+        #
+        # @param [Integer] day 大余（"日"に相当）
+        # @param [Integer] minute 小余（"分"に相当）
+        # @param [Integer] second 秒
+        # @param [Integer] total 繰り上げなしの小余
+        #
+        def initialize(day: -1, minute: -1, second: -1, total: -1)
+          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
+
+      #
+      # LunarRemainder 月の位相計算向け時刻情報（大余小余）
+      #
+      class LunarRemainder < Calculation::Cycle::AbstractRemainder
+        # @return [Integer] 分（1分=80秒）
+        MINUTE = 80
+
+        #
+        # 初期化
+        #
+        # @param [Integer] day 大余（"日"に相当）
+        # @param [Integer] minute 小余（"分"に相当）
+        # @param [Integer] second 秒
+        # @param [Integer] total 繰り上げなしの小余
+        #
+        def initialize(day: -1, minute: -1, second: -1, total: -1)
+          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
+end

data/lib/zakuro/version/daien/cycle/solar_term.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require_relative '../../../calculation/cycle/abstract_solar_term'
+
+require_relative '../const/remainder'
+
+require_relative './remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    # :nodoc:
+    module Cycle
+      #
+      # SolarTerm 二十四節気
+      #
+      class SolarTerm < Calculation::Cycle::AbstractSolarTerm
+        # @return [Remainder] 気策（24分の1年）
+        SOLAR_TERM_AVERAGE = Const::Remainder::Solar::SOLAR_TERM_AVERAGE
+
+        #
+        # 初期化
+        #
+        # @param [Integer] index 連番
+        # @param [Remainder] remainder 時刻情報（大余小余）
+        #
+        def initialize(index: -1, remainder: Remainder.new)
+          super(index: index, remainder: remainder, average: SOLAR_TERM_AVERAGE)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/daien/daien.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  #
+  # Daien 大衍暦
+  #
+  module Daien
+    # none
+  end
+end

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

@@ -0,0 +1,106 @@
+# frozen_string_literal: true
+
+require_relative '../../../calculation/monthly/abstract_lunar_phase'
+
+require_relative '../const/remainder'
+
+require_relative '../stella/solar/location'
+require_relative '../stella/solar/value'
+require_relative '../stella/lunar/location'
+require_relative '../stella/lunar/value'
+
+require_relative '../stella/origin/lunar_age'
+require_relative '../stella/origin/average_november'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    # :nodoc:
+    module Monthly
+      #
+      # LunarPhase 月の位相
+      #
+      class LunarPhase < Calculation::Monthly::AbstractLunarPhase
+        # @return [Cycle::Remainder] 弦
+        QUARTER = Const::Remainder::Solar::QUARTER
+
+        #
+        # 初期化
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        def initialize(western_year:)
+          # 天正閏余
+          lunar_age = Origin::LunarAge.get(western_year: western_year)
+
+          super(
+            quater: QUARTER,
+            average_remainder: Origin::AverageNovember.get(western_year: western_year),
+            solar_location: Solar::Location.new(lunar_age: lunar_age),
+            lunar_location: Lunar::Location.new(
+              western_year: western_year,
+              lunar_age: Cycle::LunarRemainder.new(total: 0).add!(lunar_age)
+            )
+          )
+        end
+
+        private
+
+        # :reek:TooManyStatements { max_statements: 6 }
+
+        #
+        # 現在の定朔を取得する
+        #
+        # @return [Remainder] 定朔
+        #
+        def current_remainder
+          # debug("@average_remainder.format: #{@average_remainder.format(form: '%d-%d-%.5f')}")
+
+          sum = correction_value
+          adjusted = @average_remainder.add(
+            Cycle::Remainder.new(day: 0, minute: sum, second: 0)
+          )
+          # TODO: 大衍暦では進朔するか
+          # adjusted.up_on_new_moon!
+
+          debug("result: #{adjusted.format}")
+
+          adjusted
+        end
+
+        #
+        # 太陽運動の補正値を得る
+        #
+        # @return [Integer] 太陽運動の補正値
+        #
+        def correction_solar_value
+          @solar_location.run
+          # debug("@solar_term.remainder: #{@solar_location.remainder.format(form: '%d-%d-%.5f')}")
+          # debug("@solar_term.index: #{@solar_location.index}")
+
+          Solar::Value.get(solar_location: @solar_location)
+        end
+
+        # :reek:TooManyStatements { max_statements: 6 }
+
+        #
+        # 月運動の補正値を得る
+        #
+        # @return [Integer] 月運動の補正値
+        #
+        def correction_moon_value
+          @lunar_location.run
+
+          remainder = @lunar_location.adjusted_remainder
+
+          # debug("[lunar]remainder.format: #{remainder.format(form: '%d-%d-%.5f')}")
+          # debug("[lunar]remainder.day: #{remainder.day}")
+          # debug("[lunar]remainder.minute: #{remainder.minute}")
+
+          Lunar::Value.get(remainder: remainder)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/daien/range/annual_range.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+require_relative '../../../calculation/range/medieval_annual_range'
+require_relative '../monthly/lunar_phase'
+require_relative '../stella/solar/average'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Daien
+    # :nodoc:
+    module Range
+      #
+      # AnnualRange 年間範囲
+      #
+      module AnnualRange
+        #
+        # 一覧取得する
+        #
+        #   * 対象年に対して、前年11月-当年11月までを出力する
+        #   * 対象年（西暦）と計算年（元号x年）の紐付けは行わない
+        #
+        # @param [Context] context 暦コンテキスト
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Array<Month>] 1年データ
+        #
+        def self.get(context:, western_year:)
+          lunar_phase = Monthly::LunarPhase.new(western_year: western_year)
+          solar_average = Solar::Average.new(western_year: western_year)
+
+          Calculation::Range::MedievalAnnualRange.get(
+            context: context, lunar_phase: lunar_phase, solar_average: solar_average
+          )
+        end
+      end
+    end
+  end
+end