zakuro 0.1.4 → 0.4.0

data/lib/zakuro/calculation/range/full_range.rb

@@ -111,7 +111,7 @@ module Zakuro
           years = []
           ((oldest_date.year)..(newest_date.year + 2)).each do |year|
             years.push(
-              annual_range.collect_annual_range_after_last_november_1st(
+              annual_range.get(
                 context: @context, western_year: year
               )
             )

data/lib/zakuro/calculation/range/medieval_annual_range.rb

@@ -0,0 +1,105 @@
+# frozen_string_literal: true
+
+require_relative '../../output/logger'
+require_relative '../monthly/initialized_month'
+require_relative '../monthly/month_label'
+require_relative '../monthly/first_day'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Range
+      #
+      # MedievalAnnualRange 年間範囲（中世）
+      #
+      # * 儀鳳暦 ～ 宣明暦 を便宜的に中世とした
+      # * 冬至から1年の開始を算出する
+      # * 二十四節気：平気法
+      # * 月の大小：定朔
+      #
+      module MedievalAnnualRange
+        # @return [Output::Logger] ロガー
+        LOGGER = Output::Logger.new(location: 'medieval_annual_range')
+
+        #
+        # 一覧取得する
+        #
+        #   * 対象年に対して、前年11月-当年11月までを出力する
+        #   * 対象年（西暦）と計算年（元号x年）の紐付けは行わない
+        #
+        # @param [Context] context 暦コンテキスト
+        # @param [Monthly::AbstractLunarPhase] lunar_phase 月の位相
+        # @param [Solar::AbstractAverage] solar_average 定気（太陽軌道平均）
+        #
+        # @return [Array<Month>] 1年データ
+        #
+        def self.get(context:, lunar_phase:, solar_average:)
+          annual_range = initialized_annual_range(context: context, lunar_phase: lunar_phase)
+
+          apply_big_and_small_of_the_month(annual_range: annual_range)
+
+          solar_average.set(annual_range: annual_range)
+
+          # 月間隔を取得するためだけの末尾要素を削除
+          annual_range.pop
+
+          initialize_month_label(annual_range: annual_range)
+        end
+
+        #
+        # 1年データを取得する
+        #
+        # @param [Context] context 暦コンテキスト
+        # @param [Monthly::LunarPhase] lunar_phase 月の位相
+        #
+        # @return [Array<Month>] 1年データ
+        #
+        def self.initialized_annual_range(context:, lunar_phase:)
+          result = []
+
+          # 14ヶ月分を生成する（閏年で最大13ヶ月 + 末月の大小/二十四節気を求めるために必要な月）
+          (0..13).each do |_index|
+            adjusted = lunar_phase.next_month
+
+            result.push(
+              Monthly::InitializedMonth.new(
+                context: context,
+                month_label: Monthly::MonthLabel.new,
+                first_day: 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)
+        end
+        private_class_method :initialize_month_label
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/range/operated_range.rb

@@ -2,6 +2,7 @@
 
 require_relative './operated_solar_terms'
 require_relative '../../operation/operation'
+require_relative '../base/operated_year'
 require_relative '../../calculation/monthly/operated_month'
 
 # :nodoc:
@@ -41,13 +42,19 @@ module Zakuro
         # @return [Array<Year>] 運用結果範囲
         #
         def get
-          rewrite
+          operated_years = rewrite
+
+          OperatedRange.move(operated_years: operated_years)
+
+          OperatedRange.commit(operated_years: operated_years)
+
+          operated_years
         end
 
         #
         # 運用結果に書き換える
         #
-        # @return [Array<Year>] 運用結果範囲
+        # @return [Array<OperatedYear>] 運用結果範囲
         #
         def rewrite
           operated_years = []
@@ -63,6 +70,54 @@ module Zakuro
           operated_years
         end
 
+        #
+        # 運用情報で年を跨ぐ月をその年に寄せる
+        #
+        # @param [Array<OperatedYear>] operated_years 運用結果範囲
+        #
+        def self.move(operated_years:)
+          # FIXME: この方式は完全ではない。範囲の1年前/1年後が必要
+          move_into_next_year(operated_years: operated_years)
+          move_into_last_year(operated_years: operated_years)
+        end
+
+        #
+        # 運用情報では来年に属する月を来年に寄せる
+        #
+        # @param [Array<OperatedYear>] operated_years 運用結果範囲
+        #
+        def self.move_into_next_year(operated_years:)
+          operated_years.each_cons(2) do |current_year, next_year|
+            months = current_year.pop_next_year_months
+
+            next_year.unshift_months(months)
+          end
+        end
+
+        #
+        # 運用情報では昨年に属する月を昨年に寄せる
+        #
+        # @param [Array<OperatedYear>] operated_years 運用結果範囲
+        #
+        def self.move_into_last_year(operated_years:)
+          rerversed_year = operated_years.reverse!
+          rerversed_year.each_cons(2) do |current_year, last_year|
+            months = current_year.shift_last_year_months
+            last_year.push_months(months)
+          end
+
+          rerversed_year.reverse!
+        end
+
+        #
+        # 年を確定させる
+        #
+        # @param [Array<OperatedYear>] operated_years 運用結果範囲
+        #
+        def self.commit(operated_years:)
+          operated_years.each(&:commit)
+        end
+
         #
         # 年を書き換える
         #
@@ -70,10 +125,10 @@ module Zakuro
         # @param [Year] year 年
         # @param [OperatedSolarTerms] operated_solar_terms 運用時二十四節気
         #
-        # @return [Year] 年
+        # @return [OperatedYear] 年
         #
         def self.rewrite_year(context:, year:, operated_solar_terms:)
-          result = Base::Year.new(
+          result = Base::OperatedYear.new(
             multi_gengou: year.multi_gengou, new_year_date: year.new_year_date
           )
           year.months.each do |month|
@@ -83,8 +138,6 @@ module Zakuro
             ))
           end
 
-          result.commit
-
           result
         end
 
@@ -100,8 +153,6 @@ module Zakuro
         def self.resolve_month(context:, month:, operated_solar_terms:)
           history = Operation.specify_history(western_date: month.western_date)
 
-          return month if history.invalid?
-
           OperatedRange.rewrite_month(
             context: context, month: month, history: history,
             operated_solar_terms: operated_solar_terms
@@ -121,8 +172,6 @@ module Zakuro
         # @return [Month] 月（運用結果）
         #
         def self.rewrite_month(context:, month:, history:, operated_solar_terms:)
-          return month unless month.western_date == history.western_date
-
           operated_month = Monthly::OperatedMonth.new(
             context: context,
             month_label: month.month_label, first_day: month.first_day,
@@ -130,13 +179,9 @@ module Zakuro
             operated_solar_terms: operated_solar_terms
           )
 
-          operated_month.rewrite
+          operated_month.rewrite unless history.invalid?
 
-          Monthly::Month.new(
-            context: context,
-            month_label: operated_month.month_label, first_day: operated_month.first_day,
-            solar_terms: operated_month.solar_terms
-          )
+          operated_month
         end
       end
     end

data/lib/zakuro/calculation/stella/lunar/abstract_location.rb

@@ -0,0 +1,78 @@
+# frozen_string_literal: true
+
+require_relative '../../cycle/abstract_remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Lunar
+      #
+      # AbstractLocation 入暦
+      #
+      class AbstractLocation
+        # @return [True] 計算済み（前回計算あり）
+        # @return [False] 未計算（初回計算）
+        attr_reader :calculated
+        # @return [Integer] 西暦年
+        attr_reader :western_year
+        # @return [Cycle::LunarRemainder] 大余小余（初回：昨年天正閏余）
+        attr_reader :remainder
+
+        #
+        # 初期化
+        #
+        # @param [Cycle::LunarRemainder] lunar_age 天正閏余（大余小余）
+        # @param [Integer] western_year 西暦年
+        #
+        def initialize(lunar_age:, western_year:)
+          @calculated = false
+          @western_year = western_year
+          @remainder = lunar_age
+        end
+
+        #
+        # 入暦を計算する
+        #
+        def run
+          # abstract
+        end
+
+        #
+        # 弦の分だけ月地点を進める
+        #
+        def add_quarter
+          # abstract
+        end
+
+        #
+        # 1始まりの大余小余を取得する
+        #
+        # @return [Cycle::AbstractRemainder] 1始まりの大余小余
+        #
+        def adjusted_remainder
+          @remainder.add(Cycle::AbstractRemainder.new(day: 1, minute: 0, second: 0))
+        end
+
+        private
+
+        #
+        # 初回計算
+        #
+        def first
+          # abstract
+        end
+
+        #
+        # 大余小余に合わせて減算する（折り返す）
+        #
+        # @param [Cycle::LunarRemainder] limit 上限
+        #
+        def decrease(limit:)
+          # abstract
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/stella/lunar/choukei_value.rb

@@ -0,0 +1,71 @@
+# frozen_string_literal: true
+
+require_relative '../../type/old_float'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Lunar
+      #
+      # ChoukeiValue 再考長慶宣明暦算法
+      #
+      module ChoukeiValue
+        #
+        # 四捨五入した大余を返す
+        #
+        # @param [Integer] per 増減率
+        # @param [Integer] denominator 小余の分母
+        # @param [Integer] minute 小余
+        #
+        # @return [Integer] 累計値（大余）
+        #
+        def self.rounded_day(per:, denominator:, minute:)
+          remainder_minute = Type::OldFloat.new((per * minute).to_f)
+          day = day_only(remainder_minute: remainder_minute.get, denominator: denominator)
+          # 繰り上げ結果を足す
+          day += carried_minute(remainder_minute: remainder_minute, denominator: denominator)
+
+          day
+        end
+
+        #
+        # 秒がない大余小余にする
+        #
+        # @param [Cycle::LunarRemainder] remainder 大余小余
+        #
+        # @note 815年で大余繰り上げあり
+        #
+        # @return [Integer] 大余
+        # @return [Float] 小余
+        #
+        def self.remainder_without_second(remainder:)
+          adjusted = remainder.class.new(
+            day: remainder.day, minute: remainder.floor_minute, second: 0
+          )
+          adjusted.carry!
+
+          [adjusted.day, adjusted.minute]
+        end
+
+        def self.day_only(remainder_minute:, denominator:)
+          float_day = Type::OldFloat.new(remainder_minute / denominator)
+          # 切り捨て（プラスマイナスに関わらず小数点以下切り捨て）
+          float_day.floor!
+          float_day.get
+        end
+        private_class_method :day_only
+
+        def self.carried_minute(remainder_minute:, denominator:)
+          remainder_day = remainder_minute.abs % denominator
+          # 四捨五入（1/2日 以上なら繰り上げる）
+          return remainder_minute.sign if remainder_day >= (denominator / 2)
+
+          0
+        end
+        private_class_method :carried_minute
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/stella/solar/abstract_average.rb

@@ -0,0 +1,117 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Solar
+      #
+      # AbstractAverage 平気（太陽軌道平均）
+      #
+      class AbstractAverage
+        #
+        # 初期化
+        #
+        # @param [Cycle::AbstractSolarTerm] solar_term 入定気
+        #
+        def initialize(solar_term:)
+          @solar_term = solar_term
+        end
+
+        #
+        # 冬至から数えた1年データの月ごとに二十四節気を割り当てる
+        #
+        # @param [Array<Month>] annual_range 1年データ
+        #
+        # @return [Array<Month>] 1年データ
+        #
+        def set(annual_range:)
+          # 次月と比較しながら当月の二十四節気を決める
+          # NOTE: 最後の月は処理できない（=計算外の余分な月が最後に必要である）
+          annual_range.each_cons(2) do |(current_month, next_month)|
+            set_solar_term(
+              current_month: current_month,
+              next_month: next_month
+            )
+          end
+
+          annual_range
+        end
+
+        # :reek:TooManyStatements { max_statements: 7 }
+
+        #
+        # 月内（当月朔日から当月末日（来月朔日の前日）の間）に二十四節気があるか
+        # @note 大余60で一巡するため 以下2パターンがある
+        #   * current_month <= next_month : (二十四節気) >= current_month && (二十四節気) < next_month
+        #   * current_month > next_month  : (二十四節気) >= current_month || (二十四節気) < next_month
+        #
+        # @param [Cycle::AbstractRemainder] solar_term 二十四節気
+        # @param [Cycle::AbstractRemainder] current_month 月初
+        # @param [Cycle::AbstractRemainder] next_month 月末
+        #
+        # @return [True] 対象の二十四節気がある
+        # @return [False] 対象の二十四節気がない
+        #
+        def self.in_solar_term?(solar_term:, current_month:, next_month:)
+          # 大余で比較する
+          target_time = solar_term.day
+          current_month_time = current_month.day
+          next_month_time = next_month.day
+          current_month_over = (target_time >= current_month_time)
+          next_month_under = (target_time < next_month_time)
+
+          return current_month_over && next_month_under if current_month_time <= next_month_time
+
+          current_month_over || next_month_under
+        end
+
+        private
+
+        # :reek:TooManyStatements { max_statements: 8 }
+
+        #
+        # 二十四節気を設定する
+        #
+        # @param [Month] current_month 当月
+        # @param [Month] next_month 次月
+        #
+        def set_solar_term(current_month:, next_month:)
+          # 安全策として無限ループは回避する
+          # * 最大試行回数：4回（設定なし => 設定あり => 設定あり => 設定なし）
+          # * 閏月は1回しか設定しない
+          # * 最大2回設定する（中気・節気）
+          (0..3).each do |_index|
+            in_range = AbstractAverage.in_solar_term?(
+              solar_term: @solar_term.remainder, current_month: current_month.remainder,
+              next_month: next_month.remainder
+            )
+
+            # 範囲外
+            unless in_range
+              # 1つ以上設定されていれば切り上げる（一つ飛ばしで二十四節気を設定することはない）
+              break unless current_month.empty_solar_term?
+
+              next_solar_term
+              next
+            end
+
+            current_month.add_term(term: @solar_term.clone)
+            next_solar_term
+
+            # 定気は最大2つまで
+            break if current_month.solar_term_size == 2
+          end
+        end
+
+        #
+        # 次の二十四節気に移る
+        #
+        def next_solar_term
+          @solar_term.next_term!
+        end
+      end
+    end
+  end
+end