zakuro 0.1.4 → 0.4.0

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

@@ -1,6 +1,9 @@
 # frozen_string_literal: true
 
 require_relative '../../../calculation/cycle/abstract_solar_term'
+
+require_relative '../const/remainder'
+
 require_relative './remainder'
 
 # :nodoc:
@@ -14,7 +17,7 @@ module Zakuro
       #
       class SolarTerm < Calculation::Cycle::AbstractSolarTerm
         # @return [Remainder] 気策（24分の1年）
-        SOLAR_TERM_AVERAGE = Remainder.new(day: 15, minute: 1835, second: 5)
+        SOLAR_TERM_AVERAGE = Const::Remainder::Solar::SOLAR_TERM_AVERAGE
 
         #
         # 初期化

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

@@ -1,8 +1,16 @@
 # frozen_string_literal: true
 
-require_relative '../../../output/logger'
+require_relative '../../../calculation/monthly/abstract_lunar_phase'
 
-require_relative '../stella/winter_solstice'
+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
@@ -10,44 +18,12 @@ module Zakuro
   module Senmyou
     # :nodoc:
     module Monthly
-      # :reek:TooManyInstanceVariables { max_instance_variables: 7 }
-
       #
       # LunarPhase 月の位相
       #
-      class LunarPhase
-        #
-        # QuarterMoon 弦
-        #
-        module QuarterMoon
-          # @return [Remainder] 弦（1分=8秒）
-          DEFAULT = Cycle::Remainder.new(day: 7, minute: 3214, second: 2)
-          # @return [Remainder] 弦（1分=100秒）
-          BASE_HUNDRED = Cycle::LunarRemainder.new(day: 7, minute: 3214, second: 25)
-        end
-
-        # @return [Output::Logger] ロガー
-        LOGGER = Output::Logger.new(location: 'lunar_phase')
-
-        # @return [Array<String>] 月内の弦
-        PHASE_INDEXES = %w[朔日 上弦 望月 下弦].freeze
-
-        # @return [Integer] 西暦年
-        attr_reader :western_year
-        # @return [Remainder]] 経
-        attr_reader :average_remainder
-        # @return [True] 初回計算
-        # @return [False] 次回以降計算
-        attr_reader :first
-        # @return [SolarTerm] 二十四節気（入定気）
-        attr_reader :solar_term
-        # @return [Remainder] 入暦
-        attr_reader :moon_remainder
-        # @return [True] 進（遠地点より数える）
-        # @return [False] 退（近地点より数える）
-        attr_reader :is_forward
-        # @return [Integer] 弦
-        attr_reader :phase_index
+      class LunarPhase < Calculation::Monthly::AbstractLunarPhase
+        # @return [Cycle::Remainder] 弦
+        QUARTER = Const::Remainder::Solar::QUARTER
 
         #
         # 初期化
@@ -55,91 +31,22 @@ module Zakuro
         # @param [Integer] western_year 西暦年
         #
         def initialize(western_year:)
-          @western_year = western_year
-          # 経
-          @average_remainder = WinterSolstice.calc_averaged_last_november_1st(
-            western_year: @western_year
-          )
           # 天正閏余
-          winter_solstice_age = \
-            WinterSolstice.calc_moon_age(western_year: @western_year)
-          # 入定気
-          @solar_term = Cycle::SolarTerm.new(remainder: winter_solstice_age)
-          # 入暦
-          @moon_remainder = Cycle::LunarRemainder.new(total: 0).add!(winter_solstice_age)
-
-          @is_forward = false
-          @first = true
-
-          # 弦
-          @phase_index = 0
-        end
-
-        #
-        # 次の弦に進める
-        #
-        # @return [Remainder] 定朔
-        #
-        def next_phase
-          adjusted = current_remainder
-
-          @first = false if @first
-
-          add_quarter_moon_size
-
-          adjusted
-        end
-
-        #
-        # 次の月に進める
-        # @note 進めた後の月の定朔ではなく、当月のものを返却する
-        #
-        # @return [Remainder] 当月初の定朔
-        #
-        def next_month
-          result = nil
-          PHASE_INDEXES.each_with_index do |_phase, index|
-            adjust = next_phase
-            result = adjust if index.zero?
-          end
-
-          result
+          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
 
-        #
-        # 次の弦に進める
-        #
-        # @return [Integer] 弦
-        #
-        def next_phase_index
-          @phase_index += 1
-          @phase_index = 0 if @phase_index >= PHASE_INDEXES.size
-          @phase_index
-        end
-
-        #
-        # 朔月（月初）かを確認する
-        #
-        # @return [True] 朔月である
-        # @return [False] 朔月ではない
-        #
-        def first_phase?
-          @phase_index.zero?
-        end
-
-        #
-        # 朔月のみログ出力する
-        #
-        # @param [String] messages メッセージ（可変長）
-        #
-        def debug(*messages)
-          return unless first_phase?
-
-          LOGGER.debug(*messages)
-        end
-
         # :reek:TooManyStatements { max_statements: 6 }
 
         #
@@ -161,62 +68,36 @@ module Zakuro
           adjusted
         end
 
-        #
-        # 補正値を得る
-        #
-        # @return [Integer] 補正値
-        #
-        def correction_value
-          sun = correction_solar_value
-          moon = correction_moon_value
-
-          sum = sun + moon
-
-          debug("sun: #{sun}", "moon: #{moon}", "sun + moon : #{sum}")
-
-          sum
-        end
-
         #
         # 太陽運動の補正値を得る
         #
         # @return [Integer] 太陽運動の補正値
         #
         def correction_solar_value
-          @solar_term = SolarLocation.get(
-            solar_term: @solar_term
-          )
-          debug("@solar_term.remainder: #{@solar_term.remainder.format(form: '%d-%d.%d')}")
-          debug("@solar_term.index: #{@solar_term.index}")
+          @solar_location.run
+          debug("@solar_term.remainder: #{@solar_location.remainder.format(form: '%d-%d.%d')}")
+          debug("@solar_term.index: #{@solar_location.index}")
 
-          SolarOrbit.calc_sun_orbit_value(solar_term: @solar_term)
+          Solar::Value.get(solar_location: @solar_location)
         end
 
+        # :reek:TooManyStatements { max_statements: 6 }
+
         #
         # 月運動の補正値を得る
         #
         # @return [Integer] 月運動の補正値
         #
         def correction_moon_value
-          @moon_remainder, @is_forward = \
-            LunarOrbit.calc_moon_point(remainder: @moon_remainder,
-                                       western_year: @western_year,
-                                       is_forward: @is_forward,
-                                       first: @first)
-
-          debug("@moon_remainder.format: #{@moon_remainder.format}")
-          debug("@is_forward: #{@is_forward}")
+          @lunar_location.run
 
-          LunarOrbit.calc_moon_orbit_value(remainder_month: @moon_remainder,
-                                           is_forward: @is_forward)
-        end
+          remainder = @lunar_location.adjusted_remainder
+          forward = @lunar_location.forward
 
-        def add_quarter_moon_size
-          @average_remainder.add!(QuarterMoon::DEFAULT)
-          @solar_term.remainder.add!(QuarterMoon::DEFAULT)
-          @moon_remainder.add!(QuarterMoon::BASE_HUNDRED)
+          debug("[lunar]remainder.format: #{remainder.format}")
+          debug("[lunar]forward: #{forward}")
 
-          next_phase_index
+          Lunar::Value.get(remainder: remainder, forward: forward)
         end
       end
     end

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

@@ -1,14 +1,8 @@
 # frozen_string_literal: true
 
-require_relative '../../../output/logger'
-require_relative '../cycle/remainder'
-require_relative '../cycle/solar_term'
-require_relative '../../../calculation/monthly/initialized_month'
+require_relative '../../../calculation/range/medieval_annual_range'
 require_relative '../monthly/lunar_phase'
-require_relative '../stella/solar_orbit'
-require_relative '../stella/solar_average'
-require_relative '../stella/solar_location'
-require_relative '../stella/lunar_orbit'
+require_relative '../stella/solar/average'
 
 # :nodoc:
 module Zakuro
@@ -20,42 +14,6 @@ module Zakuro
       # AnnualRange 年間範囲
       #
       module AnnualRange
-        # @return [Output::Logger] ロガー
-        LOGGER = Output::Logger.new(location: 'annual_range')
-
-        # :reek:TooManyStatements { max_statements: 6 }
-
-        #
-        # 11月定朔（冬至が含まれる月の1日：補正済）を求める
-        #
-        # @param [Integer] western_year 西暦年
-        #
-        # @return [Remainder] 11月定朔
-        #
-        def self.calc_last_november_1st(western_year:)
-          # 天正閏余
-          winter_solstice_age = \
-            WinterSolstice.calc_moon_age(western_year: western_year)
-          # 11月経朔
-          november_1st = \
-            WinterSolstice.calc_averaged_last_november_1st(western_year: western_year)
-          # 11月定朔
-
-          # 補正
-          correction_value = correction_value_on_last_november_1st(
-            winter_solstice_age: winter_solstice_age,
-            western_year: western_year
-          )
-
-          result = november_1st.add(Cycle::Remainder.new(day: 0, minute: correction_value,
-                                                         second: 0))
-          # 進朔
-          result.up_on_new_moon!
-          result
-        end
-
-        # :reek:TooManyStatements { max_statements: 6 }
-
         #
         # 一覧取得する
         #
@@ -67,100 +25,14 @@ module Zakuro
         #
         # @return [Array<Month>] 1年データ
         #
-        def self.collect_annual_range_after_last_november_1st(context:, western_year:)
-          annual_range = initialized_annual_range(context: context, western_year: western_year)
-
-          apply_big_and_small_of_the_month(annual_range: annual_range)
-
-          solar_average = SolarAverage.new(western_year: western_year)
-          solar_average.set(annual_range: annual_range)
-
-          # 月間隔を取得するためだけの末尾要素を削除
-          annual_range.pop
-
-          initialize_month_label(annual_range: annual_range)
-        end
-
-        #
-        # 11月定朔の補正値を求める
-        #
-        # @param [Remainder] winter_solstice_age 天正閏余
-        # @param [Integer] western_year 西暦年
-        #
-        # @return [Integer] 補正値
-        #
-        def self.correction_value_on_last_november_1st(winter_solstice_age:, western_year:)
-          # 補正
-          solar_term = Cycle::SolarTerm.new(
-            remainder: winter_solstice_age
-          )
-          solar_term = \
-            SolarLocation.get(
-              solar_term: solar_term
-            )
-
-          moon_remainder, is_forward = LunarOrbit.calc_moon_point(
-            remainder: winter_solstice_age, western_year: western_year
-          )
-
-          SolarOrbit.calc_sun_orbit_value(solar_term: solar_term) +
-            LunarOrbit.calc_moon_orbit_value(remainder_month: moon_remainder,
-                                             is_forward: is_forward)
-        end
-        private_class_method :correction_value_on_last_november_1st
-
-        #
-        # 1年データを取得する
-        #
-        # @param [Context] context 暦コンテキスト
-        # @param [Integer] western_year 西暦年
-        #
-        # @return [Array<Month>] 1年データ
-        #
-        def self.initialized_annual_range(context:, western_year:)
-          result = []
+        def self.get(context:, western_year:)
           lunar_phase = Monthly::LunarPhase.new(western_year: western_year)
+          solar_average = Solar::Average.new(western_year: western_year)
 
-          # 14ヶ月分を生成する（閏年で最大13ヶ月 + 末月の大小/二十四節気を求めるために必要な月）
-          (0..13).each do |_index|
-            adjusted = lunar_phase.next_month
-
-            result.push(
-              Calculation::Monthly::InitializedMonth.new(
-                context: context,
-                month_label: Calculation::Monthly::MonthLabel.new,
-                first_day: Calculation::Monthly::FirstDay.new(remainder: adjusted),
-                phase_index: 0
-              )
-            )
-          end
-
-          result
-        end
-        private_class_method :initialized_annual_range
-
-        #
-        # 1年データの各月に月の大小を設定する
-        #
-        # @param [Array<Month>] annual_range 1年データ
-        #
-        def self.apply_big_and_small_of_the_month(annual_range:)
-          # NOTE: 最後の月は処理できない（=計算外の余分な月が最後に必要である）
-          annual_range.each_cons(2) do |(current_month, next_month)|
-            current_month.eval_many_days(next_month_day: next_month.remainder.day)
-          end
-        end
-        private_class_method :apply_big_and_small_of_the_month
-
-        #
-        # 月表示情報を更新する
-        #
-        # @param [Array<Month>] annual_range 1年データ
-        #
-        def self.initialize_month_label(annual_range:)
-          annual_range.each(&:rename_month_label_by_solar_term)
+          Calculation::Range::MedievalAnnualRange.get(
+            context: context, lunar_phase: lunar_phase, solar_average: solar_average
+          )
         end
-        private_class_method :initialize_month_label
       end
     end
   end

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

@@ -0,0 +1,237 @@
+# frozen_string_literal: true
+
+require_relative '../../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Lunar
+      #
+      # Adjustment 補正値情報
+      #
+      module Adjustment
+        # @return [Integer] 遠/近の地点での中間
+        HALF_DAYS = [7].freeze
+
+        #
+        # Row 行情報
+        #
+        class Row
+          # @return [True] 進（遠地点より数える）
+          # @return [False] 退（近地点より数える）
+          attr_reader :forward
+          # @return [Integer] 入暦（1-14）
+          attr_reader :day
+          # @return [Range] 小余範囲
+          attr_reader :range
+          # @return [Value] 補正値
+          attr_reader :value
+
+          #
+          # 初期化
+          #
+          # @param [True, False] forward 進（遠地点より数える）/退（近地点より数える）
+          # @param [Integer] day 入暦（1-14）
+          # @param [Range] range 小余範囲
+          # @param [Value] value 補正値
+          #
+          def initialize(forward:, day:, range:, value:)
+            @forward = forward
+            @day = day
+            @range = range
+            @value = value
+          end
+
+          # :reek:ControlParameter
+
+          #
+          # 一致するか
+          #
+          # @param [True, False] forward 進（遠地点より数える）/退（近地点より数える）
+          # @param [Integer] day 入暦（1-14）
+          # @param [Integer] minute 小余
+          #
+          # @return [True] 一致
+          # @return [False] 不一致
+          #
+          def match?(forward:, day:, minute:)
+            return false unless @forward == forward
+
+            return false unless @day == day
+
+            return false unless @range.include?(minute: minute)
+
+            true
+          end
+
+          #
+          # 分母を返す
+          #
+          # @return [Integer] 分母
+          #
+          def denominator
+            @range.denominator
+          end
+        end
+
+        #
+        # Range 小余範囲
+        #
+        class Range
+          # @return [Integer] 下限
+          MIN = 0
+          # @return [Integer] 上限
+          MAX = Const::Number::Cycle::DAY
+          # @return [Integer] 遠/近の地点での中間
+          HALF = 7465
+          # @return [Integer] 各地点の最後
+          LAST = 6529
+
+          # @return [Integer] 下限
+          attr_reader :min
+          # @return [Integer] 上限
+          attr_reader :max
+
+          #
+          # 初期化
+          #
+          # @param [Integer] min 下限
+          # @param [Integer] max 上限
+          #
+          def initialize(min: MIN, max: MAX)
+            @min = min
+            @max = max
+          end
+
+          #
+          # 含まれるか
+          #
+          # @param [Integer] minute 小余
+          #
+          # @return [True] 含まれる
+          # @return [False] 含まれない
+          #
+          def include?(minute:)
+            minute >= @min && minute <= @max
+          end
+
+          #
+          # 分母を返す
+          #
+          # @return [Integer] 分母
+          #
+          def denominator
+            @max - @min
+          end
+        end
+
+        #
+        # Value 補正値
+        #
+        class Value
+          # @return [Integer] 損益率
+          attr_reader :per
+          # @return [Integer] 眺朒（ちょうじく）積
+          attr_reader :stack
+
+          #
+          # 初期化
+          #
+          # @param [Integer] per 損益率
+          # @param [Integer] stack 眺朒（ちょうじく）積
+          #
+          def initialize(per:, stack:)
+            @per = per
+            @stack = stack
+          end
+
+          #
+          # 文字化
+          #
+          # @return [String] 文字
+          #
+          def to_s
+            "per:#{@per}, stack:#{@stack}"
+          end
+        end
+
+        # rubocop:disable Layout/LineLength
+
+        #
+        # @return [Array<Row>] 月の補正値情報
+        #
+        LIST = [
+          Row.new(forward: true, day: 1, range: Range.new, value: Value.new(per: +830, stack: 0)),
+          Row.new(forward: true, day: 2, range: Range.new, value: Value.new(per: +726, stack: +830)),
+          Row.new(forward: true, day: 3, range: Range.new, value: Value.new(per: +606, stack: +1556)),
+          Row.new(forward: true, day: 4, range: Range.new, value: Value.new(per: +471, stack: +2162)),
+          Row.new(forward: true, day: 5, range: Range.new, value: Value.new(per: +337, stack: +2633)),
+          Row.new(forward: true, day: 6, range: Range.new, value: Value.new(per: +202, stack: +2970)),
+          Row.new(forward: true, day: 7, range: Range.new(max: Range::HALF), value: Value.new(per: +53, stack: +3172)),
+          Row.new(forward: true, day: 7, range: Range.new(min: Range::HALF), value: Value.new(per: -7, stack: +3225)), # +3172 + 53（初益）
+          Row.new(forward: true, day: 8, range: Range.new, value: Value.new(per: -82, stack: +3218)),
+          Row.new(forward: true, day: 9, range: Range.new, value: Value.new(per: -224, stack: +3136)),
+          Row.new(forward: true, day: 10, range: Range.new, value: Value.new(per: -366, stack: +2912)),
+          Row.new(forward: true, day: 11, range: Range.new, value: Value.new(per: -509, stack: +2546)),
+          Row.new(forward: true, day: 12, range: Range.new, value: Value.new(per: -643, stack: +2037)),
+          Row.new(forward: true, day: 13, range: Range.new, value: Value.new(per: -748, stack: +1394)),
+          Row.new(forward: true, day: 14, range: Range.new(max: Range::LAST), value: Value.new(per: -646, stack: +646)), # 14日の小余は常に6529以下
+          Row.new(forward: false, day: 1, range: Range.new, value: Value.new(per: -830, stack: 0)),
+          Row.new(forward: false, day: 2, range: Range.new, value: Value.new(per: -726, stack: -830)),
+          Row.new(forward: false, day: 3, range: Range.new, value: Value.new(per: -598, stack: -1556)),
+          Row.new(forward: false, day: 4, range: Range.new, value: Value.new(per: -464, stack: -2154)),
+          Row.new(forward: false, day: 5, range: Range.new, value: Value.new(per: -329, stack: -2618)),
+          Row.new(forward: false, day: 6, range: Range.new, value: Value.new(per: -195, stack: -2947)),
+          Row.new(forward: false, day: 7, range: Range.new(max: Range::HALF), value: Value.new(per: -53, stack: -3142)),
+          Row.new(forward: false, day: 7, range: Range.new(min: Range::HALF), value: Value.new(per: +7, stack: -3195)), # -3142 - 53（初益）
+          Row.new(forward: false, day: 8, range: Range.new, value: Value.new(per: +82, stack: -3188)),
+          Row.new(forward: false, day: 9, range: Range.new, value: Value.new(per: +225, stack: -3106)),
+          Row.new(forward: false, day: 10, range: Range.new, value: Value.new(per: +366, stack: -2881)),
+          Row.new(forward: false, day: 11, range: Range.new, value: Value.new(per: +501, stack: -2515)),
+          Row.new(forward: false, day: 12, range: Range.new, value: Value.new(per: +628, stack: -2014)),
+          Row.new(forward: false, day: 13, range: Range.new, value: Value.new(per: +740, stack: -1386)),
+          Row.new(forward: false, day: 14, range: Range.new(max: Range::LAST), value: Value.new(per: +646, stack: -646)) # 14日の小余は常に6529以下
+        ].freeze
+        # rubocop:enable Layout/LineLength
+
+        #
+        # 月軌道の補正に必要な基本値を引き当てる
+        #
+        # @param [True, False] forward 進（遠地点より数える）/退（近地点より数える）
+        # @param [Integer] day 大余
+        # @param [Integer] minute 小余
+        #
+        # @return [Row] 補正値
+        #
+        def self.specify(forward:, day:, minute:)
+          LIST.each do |row|
+            # NOTE: 範囲が重複している場合、最初に引き当てたほうを優先する
+            return row if row.match?(forward: forward, day: day, minute: minute)
+          end
+
+          raise ArgumentError.new, "invalid parameter: #{forward}/#{day}/#{minute}"
+        end
+
+        # :reek:ControlParameter
+
+        #
+        # 小余の下げ幅を求める
+        #
+        # @param [Integer] day 大余
+        # @param [Integer] minute 小余
+        #
+        # @return [Integer] 小余の下げ幅
+        #
+        def self.minus_minute(day:, minute:)
+          return minute unless HALF_DAYS.include?(day)
+
+          return minute unless minute > Range::HALF
+
+          minute - Range::HALF
+        end
+      end
+    end
+  end
+end