zakuro 0.1.0 → 0.1.5

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

data/lib/zakuro/version/senmyou/stella/origin/average_november.rb

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require_relative './lunar_age'
+require_relative './winter_solstice'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Origin
+      #
+      # AverageNovember 11月経
+      #
+      module AverageNovember
+        #
+        # 11月経朔（冬至が含まれる月の1日）を求める
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Remainder] 11月経朔
+        #
+        def self.get(western_year:)
+          # 冬至
+          winter_solstice = WinterSolstice.get(western_year: western_year)
+          # 天正閏余
+          lunar_age = LunarAge.get(western_year: western_year)
+
+          winter_solstice.sub(lunar_age)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/stella/origin/lunar_age.rb

@@ -0,0 +1,62 @@
+# frozen_string_literal: true
+
+require_relative '../../../../output/logger'
+
+require_relative '../../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Origin
+      #
+      # LunarAge 天正閏余
+      #
+      module LunarAge
+        # @return [Integer] 朔望月
+        SYNODIC_MONTH = Const::Number::Cycle::SYNODIC_MONTH
+        # @return [Integer] 一年
+        YEAR = Const::Number::Cycle::YEAR
+        # @return [Integer] 積年
+        TOTAL_YEAR = Const::Number::Stack::TOTAL_YEAR
+        # @return [Integer] 暦の開始年
+        BEGIN_YEAR = Const::Number::Stack::BEGIN_YEAR
+
+        # @return [Output::Logger] ロガー
+        LOGGER = Output::Logger.new(location: 'lunar_age')
+
+        # :reek:TooManyStatements { max_statements: 7 }
+
+        #
+        # 対象年の天正閏余（冬至より前にある11月経朔との差 = 月齢）を算出する
+        # 太陽と月の運動による補正値を算出し、その補正結果を返す
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Remainder] 天正閏余
+        #
+        def self.get(western_year:)
+          # 積年の開始から対象年までの年数
+          total = TOTAL_YEAR + western_year - BEGIN_YEAR
+
+          # 12朔望月に対する1年の余り（単位:分）
+          remainder_minute = YEAR - (SYNODIC_MONTH * 12)
+
+          # 朔望月に含まれなかった余り（単位:年）
+          remainder_year = total % SYNODIC_MONTH
+
+          LOGGER.debug("[01]: #{remainder_year}")
+
+          # 天正閏余
+          lunar_age = remainder_minute * remainder_year % SYNODIC_MONTH
+
+          LOGGER.debug("[02]: #{lunar_age}")
+
+          # 大余・小余に変換する
+          Cycle::Remainder.new(total: lunar_age)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/stella/origin/winter_solstice.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+require_relative '../../../../output/logger'
+
+require_relative '../../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Origin
+      #
+      # WinterSolstice 冬至
+      #
+      module WinterSolstice
+        # @return [Integer] 通余
+        REMAINDER_ALL_YEAR = Const::Number::Derivation::REMAINDER_ALL_YEAR
+        # @return [Integer] 60日
+        SIXTY_DAYS = Const::Number::Derivation::SIXTY_DAYS
+        # @return [Integer] 積年
+        TOTAL_YEAR = Const::Number::Stack::TOTAL_YEAR
+        # @return [Integer] 暦の開始年
+        BEGIN_YEAR = Const::Number::Stack::BEGIN_YEAR
+
+        # @return [Output::Logger] ロガー
+        LOGGER = Output::Logger.new(location: 'winter_solstice')
+
+        # :reek:TooManyStatements { max_statements: 6 }
+
+        #
+        # 対象年の前年の冬至を求める
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Remainder] 前年の冬至
+        #
+        def self.get(western_year:)
+          # 積年の開始から対象年までの年数
+          total = TOTAL_YEAR + western_year - BEGIN_YEAR
+          remainder_year = total % SIXTY_DAYS
+
+          LOGGER.debug("[01]:#{remainder_year}")
+
+          # 通余を使う
+          winter_solstice_minute = (remainder_year * REMAINDER_ALL_YEAR) % SIXTY_DAYS
+
+          LOGGER.debug("[02]:#{winter_solstice_minute}")
+
+          Cycle::Remainder.new(total: winter_solstice_minute)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,93 @@
+# frozen_string_literal: true
+
+require_relative '../../cycle/solar_term'
+
+require_relative '../../const/number'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :nodoc:
+    module Solar
+      #
+      # Adjustment 24気損益眺朒（ちょうじく）数
+      #
+      module Adjustment
+        #
+        # Item 24気損益眺朒（ちょうじく）数
+        #
+        class Item
+          # @return [Integer] 眺朒（ちょうじく）積
+          attr_reader :stack
+          # @return [Integer] 眺朒（ちょうじく）数
+          attr_reader :per_term
+          # @return [Integer] 毎日差
+          attr_reader :per_day
+
+          #
+          # 初期化
+          #
+          # @param [Integer] stack 眺朒（ちょうじく）積
+          # @param [Integer] per_term 眺朒（ちょうじく）数
+          # @param [Integer] per_day 毎日差
+          #
+          def initialize(stack:, per_term:, per_day:)
+            @stack = stack
+            @per_term = per_term
+            @per_day = per_day
+          end
+
+          #
+          # 文字化
+          #
+          # @return [String] 文字
+          #
+          def to_s
+            "stack:#{@stack}, per_term:#{@per_term}, per_day:#{@per_day}"
+          end
+        end
+
+        # @return [Array<Item>] 24気損益眺朒（ちょうじく）数
+        MAP = {
+          touji: Item.new(stack: 0.0, per_term: +33.4511, per_day: -0.3695),        # 冬至（とうじ）
+          shoukan: Item.new(stack: +449.0, per_term: +28.0389, per_day: -0.3606),   # 小寒（しょうかん）
+          daikan: Item.new(stack: +823.0, per_term: +22.6998, per_day: -0.3519),    # 大寒（だいかん）
+          risshun: Item.new(stack: +1122.0, per_term: +17.8923, per_day: -0.4068),  # 立春（りっしゅん）
+          usui: Item.new(stack: +1346.0, per_term: +11.7966, per_day: -0.3998),     # 雨水（うすい）
+          keichitsu: Item.new(stack: +1481.0, per_term: +5.7986, per_day: -0.3998), # 啓蟄（けいちつ）
+          shunbun: Item.new(stack: +1526.0, per_term: -0.2433, per_day: -0.3779),   # 春分（しゅんぶん）
+          seimei: Item.new(stack: +1481.0, per_term: -6.1254, per_day: -0.3634),    # 清明（せいめい）
+          kokuu: Item.new(stack: +1346.0, per_term: -12.2048, per_day: -0.2987),    # 穀雨（こくう）
+          rikka: Item.new(stack: +1122.0, per_term: -16.9060, per_day: -0.2919),    # 立夏（りっか）
+          shouman: Item.new(stack: +823.0, per_term: -21.5362, per_day: -0.2854),   # 小満（しょうまん）
+          boushu: Item.new(stack: +449.0, per_term: -26.0498, per_day: -0.2854),    # 芒種（ぼうしゅ）
+          geshi: Item.new(stack: 0.0, per_term: -30.3119, per_day: +0.2854),        # 夏至（げし）
+          shousho: Item.new(stack: -449.0, per_term: -25.8126, per_day: +0.2919),   # 小暑（しょうしょ）
+          taisho: Item.new(stack: -823.0, per_term: -21.2454, per_day: +0.2987),    # 大暑（たいしょ）
+          risshuu: Item.new(stack: -1122.0, per_term: -17.0296, per_day: +0.3634),  # 立秋（りっしゅう）
+          shosho: Item.new(stack: -1346.0, per_term: -11.4744, per_day: +0.3779),   # 処暑（しょしょ）
+          hakuro: Item.new(stack: -1481.0, per_term: -5.6429, per_day: +0.3779),    # 白露（はくろ）
+          shuubun: Item.new(stack: -1526.0, per_term: +0.1432, per_day: +0.3998),   # 秋分（しゅうぶん）
+          kanro: Item.new(stack: -1481.0, per_term: +6.1488, per_day: +0.4068),     # 寒露（かんろ）
+          soukou: Item.new(stack: -1346.0, per_term: +12.6336, per_day: +0.3519),   # 霜降（そうこう）
+          rittou: Item.new(stack: -1122.0, per_term: +17.8043, per_day: +0.3606),   # 立冬（りっとう）
+          shousetsu: Item.new(stack: -823.0, per_term: +23.0590, per_day: +0.3695), # 小雪（しょうせつ）
+          taisetsu: Item.new(stack: -449.0, per_term: +28.4618, per_day: +0.3695)   # 大雪（たいせつ）
+        }.freeze
+
+        #
+        # 24気損益眺朒（ちょうじく）数を特定する
+        #
+        # @param [Integer] index 連番（二十四節気）
+        #
+        # @return [Adjustment::Item] 24気損益眺朒（ちょうじく）数
+        #
+        def self.specify(index:)
+          key = Cycle::SolarTerm::ORDER[index]
+          Adjustment::MAP[key].clone
+        end
+      end
+    end
+  end
+end