zakuro 0.1.5 → 0.2.0

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

@@ -0,0 +1,97 @@
+# frozen_string_literal: true
+
+require_relative '../../../../calculation/stella/solar/abstract_average'
+
+require_relative '../../const/remainder'
+
+require_relative '../../cycle/solar_term'
+
+require_relative '../origin/winter_solstice'
+
+require_relative './location'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Gihou
+    # :nodoc:
+    module Solar
+      #
+      # Average 平気（太陽軌道平均）
+      #
+      class Average < Calculation::Solar::AbstractAverage
+        #
+        # 初期化
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        def initialize(western_year:)
+          solar_term = Average.first_solar_term(western_year: western_year)
+          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
+
+        #
+        # 計算開始する二十四節気を求める
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [SolarTerm] 二十四節気
+        #
+        def self.first_solar_term(western_year:)
+          # 天正冬至
+          winter_solstice = Origin::WinterSolstice.get(western_year: western_year)
+
+          # 二十四節気（冬至）
+          solar_term = Cycle::SolarTerm.new(index: 0, remainder: winter_solstice)
+
+          first_solar_term_index = Average.calc_fist_solar_term_index(western_year: western_year)
+
+          # 対象の二十四節気まで戻す
+          solar_term.prev_by_index(first_solar_term_index)
+
+          solar_term
+        end
+
+        # :reek:TooManyStatements { max_statements: 6 }
+
+        #
+        # 計算開始する二十四節気番号を求める
+        #
+        # * 前提として入定気は冬至の手前にある
+        # * 例えば、定気が大雪であれば入定気は大雪の範囲内にある
+        # * 入定気は、定気の開始位置に重複しない限り、常に定気より後にある
+        # * 基本的に定気の一つ前から起算すれば、当時から求めた11月(閏10/閏11月)に二十四節気を割り当てられる
+        #
+        # @param [Integer] western_year 西暦年
+        #
+        # @return [Integer] 二十四節気番号
+        #
+        def self.calc_fist_solar_term_index(western_year:)
+          # 天正閏余
+          lunar_age = Origin::LunarAge.get(western_year: western_year)
+
+          solar_location = Solar::Location.new(lunar_age: lunar_age)
+          solar_location.run
+
+          solar_term_index = solar_location.index
+
+          # 入定気の一つ後の二十四節気まで戻す（ただし11月経朔が二十四節気上にある場合は戻さない）
+          solar_term_index += 1 unless solar_location.remainder == Cycle::Remainder.new(total: 0)
+
+          solar_term_index
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,108 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Gihou
+    # :nodoc:
+    module Solar
+      #
+      # Interval 入気定日加減数（二十四節気の間隔）
+      #
+      module Interval
+        #
+        # 気策の 15-292.5 を加減する
+        #
+        # @note 『日本暦日原典』は雨水と啓蟄が逆になっていたのでこれを改めた
+        #
+        # @return [Hash<Symbol, Cycle::Remainder>] 一覧
+        MAP = {
+          # 冬至（とうじ）・大雪（たいせつ）
+          touji: Cycle::Remainder.new(day: 14, minute: 910, second: 5), # -722
+          taisetsu: Cycle::Remainder.new(day: 14, minute: 910, second: 5),
+          # 小寒（しょうかん）・小雪（しょうせつ）
+          shoukan: Cycle::Remainder.new(day: 14, minute: 1014, second: 5), # -618
+          shousetsu: Cycle::Remainder.new(day: 14, minute: 1014, second: 5),
+          # 大寒（だいかん）・立冬（りっとう）
+          daikan: Cycle::Remainder.new(day: 14, minute: 1118, second: 5), # -514
+          rittou: Cycle::Remainder.new(day: 14, minute: 1118, second: 5),
+          # 立春（りっしゅん）・霜降（そうこう）
+          risshun: Cycle::Remainder.new(day: 14, minute: 1118, second: 5), # -514
+          soukou: Cycle::Remainder.new(day: 14, minute: 1118, second: 5),
+          # 雨水（うすい）・寒露（かんろ）
+          usui: Cycle::Remainder.new(day: 14, minute: 1014, second: 5), # -618
+          kanro: Cycle::Remainder.new(day: 14, minute: 1014, second: 5),
+          # 啓蟄（けいちつ）・秋分（しゅうぶん）
+          keichitsu: Cycle::Remainder.new(day: 14, minute: 910, second: 5), # -722
+          shuubun: Cycle::Remainder.new(day: 14, minute: 910, second: 5),
+          # 春分（しゅんぶん）・白露（はくろ）
+          shunbun: Cycle::Remainder.new(day: 15, minute: 1014, second: 5), # +722
+          hakuro: Cycle::Remainder.new(day: 15, minute: 1014, second: 5),
+          # 清明（せいめい）・処暑（しょしょ）
+          seimei: Cycle::Remainder.new(day: 15, minute: 910, second: 5), # +618
+          shosho: Cycle::Remainder.new(day: 15, minute: 910, second: 5),
+          # 穀雨（こくう）・立秋（りっしゅう）
+          kokuu: Cycle::Remainder.new(day: 15, minute: 806, second: 5), # +514
+          risshuu: Cycle::Remainder.new(day: 15, minute: 806, second: 5),
+          # 立夏（りっか）・大暑（たいしょ）
+          rikka: Cycle::Remainder.new(day: 15, minute: 806, second: 5), # +514
+          taisho: Cycle::Remainder.new(day: 15, minute: 806, second: 5),
+          # 小満（しょうまん）・小暑（しょうしょ）
+          shouman: Cycle::Remainder.new(day: 15, minute: 910, second: 5), # +618
+          shousho: Cycle::Remainder.new(day: 15, minute: 910, second: 5),
+          # 芒種（ぼうしゅ）・夏至（げし）
+          boushu: Cycle::Remainder.new(day: 15, minute: 1014, second: 5), # +722
+          geshi: Cycle::Remainder.new(day: 15, minute: 1014, second: 5)
+        }.freeze
+
+        # @return [Array<Remainder>] 索引
+        LIST = [
+          MAP[:touji],      #  0
+          MAP[:shoukan],    #  1
+          MAP[:daikan],     #  2
+          MAP[:risshun],    #  3
+          MAP[:usui],       #  4
+          MAP[:keichitsu],  #  5
+          MAP[:shunbun],    #  6
+          MAP[:seimei],     #  7
+          MAP[:kokuu],      #  8
+          MAP[:rikka],      #  9
+          MAP[:shouman],    # 10
+          MAP[:boushu],     # 11
+          MAP[:geshi],      # 12
+          MAP[:shousho],    # 13
+          MAP[:taisho],     # 14
+          MAP[:risshuu],    # 15
+          MAP[:shosho],     # 16
+          MAP[:hakuro],     # 17
+          MAP[:shuubun],    # 18
+          MAP[:kanro],      # 19
+          MAP[:soukou],     # 20
+          MAP[:rittou],     # 21
+          MAP[:shousetsu],  # 22
+          MAP[:taisetsu]    # 23
+        ].freeze
+
+        #
+        # 入気定日加減数を引き当てる
+        #
+        # @param [Integer] index 二十四節気番号
+        #
+        # @return [Cycle::Remainder] 入気定日加減数
+        #
+        def self.index_of(index)
+          LIST[index]
+        end
+
+        #
+        # 入気定日加減数の総数を返す
+        #
+        # @return [Integer] 入気定日加減数の総数
+        #
+        def self.size
+          LIST.size
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,61 @@
+# frozen_string_literal: true
+
+require_relative '../../../../calculation/stella/solar/abstract_location'
+
+require_relative '../../const/remainder'
+
+require_relative './interval'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Gihou
+    # :nodoc:
+    module Solar
+      #
+      # Location 入定気
+      #
+      class Location < Calculation::Solar::AbstractLocation
+        # @return [Cycle::Remainder] 弦
+        QUARTER = Const::Remainder::Solar::QUARTER
+
+        #
+        # 初期化
+        #
+        # @param [Cycle::Remainder] lunar_age 天正閏余（大余小余）
+        #
+        def initialize(lunar_age:)
+          super(lunar_age: lunar_age, quarter: QUARTER)
+        end
+
+        # :reek:UtilityFunction
+
+        #
+        # 二十四節気番号に対応する入気定日加減数を返す
+        #
+        # @note 継承のためクラスメソッドにしない
+        #
+        # @param [Integer] index 二十四節気番号
+        #
+        # @return [Cycle::Remainder] 入気定日加減数
+        #
+        def interval(index:)
+          Interval.index_of(index)
+        end
+
+        # :reek:UtilityFunction
+
+        #
+        # 入気定日加減数の要素数を返す
+        #
+        # @note 継承のためクラスメソッドにしない
+        #
+        # @return [Integer] 入気定日加減数の要素数
+        #
+        def interval_size
+          Interval.size
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,36 @@
+# frozen_string_literal: true
+
+require_relative '../../../../calculation/stella/solar/choukei_value'
+
+require_relative '../../const/number'
+
+require_relative './adjustment'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Gihou
+    # :nodoc:
+    module Solar
+      #
+      # Value 太陽補正値
+      #
+      module Value
+        #
+        # 太陽の運行による補正値を算出する
+        #
+        # @param [SolarTerm] solar_location 入定気
+        #
+        # @return [Integer] 補正値
+        #
+        def self.get(solar_location:)
+          remainder = solar_location.remainder
+
+          row = Adjustment.specify(index: solar_location.index)
+
+          Calculation::Solar::ChoukeiValue.get(remainder: remainder, row: row)
+        end
+      end
+    end
+  end
+end

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

@@ -18,7 +18,7 @@ module Zakuro
         module Cycle
           # @return [Integer] 統法（1日=8400分）
           DAY = 8400
-          # @return [Integer] 暦周（1近日点）
+          # @return [Float] 暦周（1近点月）
           ANOMALISTIC_MONTH = 231_458.19
           # @return [Integer] 朔望月
           SYNODIC_MONTH = 248_057

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

@@ -20,6 +20,9 @@ module Zakuro
         module Solar
           # @return [Cycle::Remainder] 気策（24分の1年）
           SOLAR_TERM_AVERAGE = Cycle::Remainder.new(day: 15, minute: 1835, second: 5)
+          #
+          # @note 章月 248057 = 29-4457
+          #
           # @return [Cycle::Remainder] 弦（1分=8秒）
           QUARTER = Cycle::Remainder.new(day: 7, minute: 3214, second: 2)
         end
@@ -29,11 +32,14 @@ module Zakuro
         #
         module Lunar
           # @return [Cycle::LunarRemainder] 暦中日
-          # @note ANOMALISTIC_MONTH の半分に相当する
+          # @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
+          #
           # @return [Cycle::LunarRemainder] 弦（1分=100秒）
           QUARTER = Cycle::LunarRemainder.new(day: 7, minute: 3214, second: 25)
         end

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,6 +1,6 @@
 # frozen_string_literal: true
 
-require_relative '../../../output/logger'
+require_relative '../../../calculation/monthly/abstract_lunar_phase'
 
 require_relative '../const/remainder'
 
@@ -21,108 +21,32 @@ module Zakuro
       #
       # LunarPhase 月の位相
       #
-      class LunarPhase
+      class LunarPhase < Calculation::Monthly::AbstractLunarPhase
         # @return [Cycle::Remainder] 弦
         QUARTER = Const::Remainder::Solar::QUARTER
 
-        # @return [Output::Logger] ロガー
-        LOGGER = Output::Logger.new(location: 'lunar_phase')
-
-        # @return [Array<String>] 月内の弦
-        PHASE_INDEXES = %w[朔日 上弦 望月 下弦].freeze
-
-        # @return [Remainder]] 経
-        attr_reader :average_remainder
-        # @return [SolarTerm] 二十四節気（入定気）
-        attr_reader :solar_term
-        # @return [Integer] 弦
-        attr_reader :phase_index
-
         #
         # 初期化
         #
         # @param [Integer] western_year 西暦年
         #
         def initialize(western_year:)
-          # 経
-          @average_remainder = Origin::AverageNovember.get(western_year: western_year)
           # 天正閏余
           lunar_age = Origin::LunarAge.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)
-          )
-
-          # 弦
-          @phase_index = 0
-        end
-
-        #
-        # 次の弦に進める
-        #
-        # @return [Remainder] 定朔
-        #
-        def next_phase
-          adjusted = current_remainder
-
-          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
+          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 }
 
         #
@@ -144,22 +68,6 @@ 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
-
         #
         # 太陽運動の補正値を得る
         #
@@ -191,14 +99,6 @@ module Zakuro
 
           Lunar::Value.get(remainder: remainder, forward: forward)
         end
-
-        def add_quarter_moon_size
-          @average_remainder.add!(QUARTER)
-          @solar_location.add_quarter
-          @lunar_location.add_quarter
-
-          next_phase_index
-        end
       end
     end
   end