zakuro 0.1.4 → 0.1.5

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

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

@@ -0,0 +1,45 @@
+# frozen_string_literal: true
+
+require_relative '../../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Lunar
+      #
+      # Localization 入暦特定
+      #
+      module Localization
+        # @return [Integer] 1近日点
+        ANOMALISTIC_MONTH = Const::Number::Cycle::ANOMALISTIC_MONTH
+        # @return [Integer] 積年
+        TOTAL_YEAR = Const::Number::Stack::TOTAL_YEAR
+        # @return [Integer] 開始年
+        BEGIN_YEAR = Const::Number::Stack::BEGIN_YEAR
+        # @return [Integer] 年
+        YEAR = Const::Number::Cycle::YEAR
+
+        #
+        # 対象年の最初の入暦を求める
+        #
+        # @param [Remainder] lunar_age 天正閏余
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Cycle::LunarRemainder] 入暦
+        #
+        def self.first_remainder(lunar_age:, western_year:)
+          # 積年の開始から対象年までの年数
+          total_year = TOTAL_YEAR + western_year - BEGIN_YEAR
+
+          # 通積分 - 天正閏余
+          total_day = \
+            total_year * YEAR - lunar_age.to_minute
+
+          Cycle::LunarRemainder.new(total: (total_day % ANOMALISTIC_MONTH))
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,108 @@
+# frozen_string_literal: true
+
+require_relative '../../const/remainder'
+
+require_relative './localization'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Lunar
+      #
+      # Location 入暦
+      #
+      class Location
+        # @return [Cycle::LunarRemainder] 暦中日
+        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
+
+        # @return [True] 計算済み（前回計算あり）
+        # @return [False] 未計算（初回計算）
+        attr_reader :calculated
+        # @return [Integer] 西暦年
+        attr_reader :western_year
+        # @return [True] 進（遠地点より数える）
+        # @return [False] 退（近地点より数える）
+        attr_reader :forward
+        # @return [Cycle::LunarRemainder] 大余小余（初回：昨年天正閏余）
+        attr_reader :remainder
+
+        #
+        # 初期化
+        #
+        # @param [Cycle::LunarRemainder] lunar_age 天正閏余（大余小余）
+        # @param [Integer] western_year 西暦年
+        # @param [True, False] forward 進（遠地点より数える）/退（近地点より数える）
+        #
+        def initialize(lunar_age:, western_year:)
+          @calculated = false
+          @western_year = western_year
+          # 進
+          @forward = true
+          @remainder = lunar_age
+        end
+
+        #
+        # 入暦を計算する
+        #
+        def run
+          if calculated
+            # 1始まりで計算しているので、入暦上限を用いる
+            decrease(limit: LIMIT)
+            return
+          end
+
+          first
+        end
+
+        #
+        # 弦の分だけ月地点を進める
+        #
+        def add_quarter
+          @remainder.add!(QUARTER)
+        end
+
+        private
+
+        #
+        # 初回計算
+        #
+        def first
+          @remainder = Localization.first_remainder(
+            lunar_age: @remainder, western_year: @western_year
+          )
+          # 初回は0始まりで計算しているので、暦中日を用いる
+          decrease(limit: HALF_ANOMALISTIC_MONTH)
+          # 1始まりに改める
+          one_based
+
+          @calculated = true
+        end
+
+        #
+        # 大余小余に合わせて減算する（折り返す）
+        #
+        # @param [Cycle::LunarRemainder] limit 上限
+        #
+        def decrease(limit:)
+          return if @remainder < limit
+
+          @remainder.sub!(HALF_ANOMALISTIC_MONTH)
+          @forward = !@forward
+        end
+
+        #
+        # 1始まりにする
+        #
+        def one_based
+          @remainder.add!(Cycle::Remainder.new(day: 1, minute: 0, second: 0))
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,89 @@
+# frozen_string_literal: true
+
+require_relative '../../cycle/remainder'
+
+require_relative './adjustment'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Lunar
+      #
+      # Value 月補正値
+      #
+      module Value
+        # :reek:TooManyStatements { max_statements: 9 }
+
+        #
+        # 月の運行による補正値を算出する
+        #
+        # @param [Cycle::LunarRemainder] remainder 月の大余小余
+        # @param [True, False] forward 進（遠地点より数える）/退（近地点より数える）
+        #
+        # @return [Integer] 補正値
+        #
+        def self.get(remainder:, forward:)
+          valid?(remainder: remainder)
+
+          day = remainder.day
+          minute = remainder.floor_minute
+
+          # 引き当て
+          row = Adjustment.specify(forward: forward, day: day, minute: minute)
+
+          value = row.value
+          denominator = row.denominator
+
+          minus_minute = Adjustment.minus_minute(day: day, minute: minute)
+
+          day = calc_day(per: value.per, denominator: denominator,
+                         minute: minus_minute)
+
+          value.stack + day
+        end
+
+        #
+        # 大余小余を検証する
+        #
+        # @param [Cycle::LunarRemainder] remainder 大余小余
+        #
+        # @return [True] 正しい（月の位相計算に使う大余小余）
+        # @return [True] 正しくない
+        #
+        def self.valid?(remainder:)
+          return if remainder.is_a?(Cycle::LunarRemainder)
+
+          raise ArgumentError, "unmatch parameter type: #{remainder.class}"
+        end
+        private_class_method :valid?
+
+        # :reek:TooManyStatements { max_statements: 9 }
+
+        #
+        # 累計値（大余）を作成する
+        #
+        # @param [Integer] per 入暦（1-14）
+        # @param [Integer] denominator 小余の分母
+        # @param [Integer] minute 小余
+        #
+        # @return [Integer] 累計値（大余）
+        #
+        def self.calc_day(per:, denominator:, minute:)
+          remainder_minute = (per * minute).to_f
+          day = remainder_minute / denominator
+          # 切り捨て（プラスマイナスに関わらず小数点以下切り捨て）
+          day = day.negative? ? day.ceil : day.floor
+          sign = remainder_minute.negative? ? -1 : 1
+          remainder_day = (sign * remainder_minute) % denominator
+          # 四捨五入（8400ならその半分の4200以上を繰り上げる）
+          day += sign if remainder_day >= (denominator / 2)
+
+          day
+        end
+        private_class_method :calc_day
+      end
+    end
+  end
+end