zakuro 0.0.0

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

@@ -0,0 +1,106 @@
+# frozen_string_literal: true
+
+require_relative '../../../output/logger'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # :reek:TooManyConstants
+
+    #
+    # WinterSolstice 冬至
+    #
+    module WinterSolstice
+      # @return [Integer] 統法（1日=8400分）
+      DAY = 8400
+      # @return [Integer] 朔望月
+      SYNODIC_MONTH = 248_057
+      # @return [Integer] 一年
+      YEAR = 3_068_055
+      # @return [Integer] 通余:  (YEAR - DAY * 12 * 30)  = 44055
+      REMAINDER_ALL_YEAR = 44_055
+      # @return [Integer] 旬周（60日） 8400 * 60
+      SIXTY_DAYS = 504_000
+      # @return [Integer] 積年（甲子夜半朔旦冬至〜暦の開始前）
+      TOTAL_YEAR = 7_070_138
+      # @return [Integer] 暦の開始年（長慶2年）
+      BEGIN_YEAR = 822
+
+      # @return [Logger] ロガー
+      LOGGER = Logger.new(location: 'winter_solstice')
+
+      # :reek:TooManyStatements { max_statements: 6 }
+
+      #
+      # 対象年の前年の冬至を求める
+      #
+      # @param [Integer] western_year 西暦年
+      #
+      # @return [Remainder] 前年の冬至
+      #
+      def self.calc(western_year:)
+        # 積年の開始から対象年までの年数
+        total = TOTAL_YEAR + western_year - BEGIN_YEAR
+        remainder_year = total % SIXTY_DAYS
+
+        LOGGER.debug("[a01]:#{remainder_year}")
+
+        # 通余を使う
+        winter_solstice_minute = (remainder_year * REMAINDER_ALL_YEAR) % SIXTY_DAYS
+
+        LOGGER.debug("[a02]:#{winter_solstice_minute}")
+
+        Remainder.new(total: winter_solstice_minute)
+      end
+
+      # :reek:TooManyStatements { max_statements: 7 }
+
+      #
+      # 対象年の天正閏余（冬至より前にある11月経朔との差 = 月齢）を算出する
+      # 太陽と月の運動による補正値を算出し、その補正結果を返す
+      #
+      # @param [Integer] western_year 西暦年
+      #
+      # @return [Remainder] 天正閏余
+      #
+      def self.calc_moon_age(western_year:)
+        # 積年の開始から対象年までの年数
+        total = TOTAL_YEAR + western_year - BEGIN_YEAR
+
+        # 12朔望月に対する1年の余り（単位:分）
+        remainder_minute = YEAR - (SYNODIC_MONTH * 12)
+
+        # 朔望月に含まれなかった余り（単位:年）
+        remainder_year = total % SYNODIC_MONTH
+
+        LOGGER.debug("[b01]: #{remainder_year}")
+
+        # 天正閏余
+        winter_solstice_age = remainder_minute * remainder_year % SYNODIC_MONTH
+
+        LOGGER.debug("[b02]: #{winter_solstice_age}")
+
+        # 大余・小余に変換する
+        Remainder.new(total: winter_solstice_age)
+      end
+
+      #
+      # 11月経朔（冬至が含まれる月の1日）を求める
+      #
+      # @param [Integer] western_year 西暦年
+      #
+      # @return [Remainder] 11月経朔
+      #
+      def self.calc_averaged_last_november_1st(western_year:)
+        # 冬至
+        winter_solstice = calc(western_year: western_year)
+        # 天正閏余
+        winter_solstice_age = calc_moon_age(western_year: western_year)
+
+        # 11月経朔
+        winter_solstice.sub(winter_solstice_age)
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/summary/annual_data.rb

@@ -0,0 +1,186 @@
+# frozen_string_literal: true
+
+require_relative '../../../output/logger'
+require_relative '../base/remainder'
+require_relative '../monthly/month'
+require_relative '../base/solar_term'
+require_relative '../monthly/lunar_phase'
+require_relative '../stella/solar_orbit'
+require_relative '../stella/solar_average'
+require_relative '../stella/lunar_orbit'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    # AnnualData 年間データ
+    module AnnualData
+      # @return [Logger] ロガー
+      LOGGER = Logger.new(location: 'annual_data')
+
+      # :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(Remainder.new(day: 0, minute: correction_value,
+                                                second: 0))
+        # 進朔
+        result.up_on_new_moon!
+        result
+      end
+
+      # :reek:TooManyStatements { max_statements: 6 }
+
+      #
+      # 一覧取得する
+      #
+      #   * 対象年に対して、前年11月-当年11月までを出力する
+      #   * 対象年（西暦）と計算年（元号x年）の紐付けは行わない
+      #
+      # @param [Integer] western_year 西暦年
+      #
+      # @return [Array<Month>] 1年データ
+      #
+      def self.collect_annual_data_after_last_november_1st(western_year:)
+        annual_data = initialized_annual_data(western_year: western_year)
+
+        apply_big_and_small_of_the_month(annual_data: annual_data)
+
+        SolarAverage.set_solar_terms_into_annual_data(western_year: western_year,
+                                                      annual_data: annual_data)
+
+        # 月間隔を取得するためだけの末尾要素を削除
+        annual_data.pop
+
+        adjust_leap_month(annual_data: annual_data)
+
+        annual_data
+      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 = SolarTerm.new(
+          remainder: winter_solstice_age
+        )
+        solar_term = \
+          SolarOrbit.calc_solar_term_by_remainder(
+            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 [Integer] western_year 西暦年
+      #
+      # @return [Array<Month>] 1年データ
+      #
+      def self.initialized_annual_data(western_year:)
+        result = []
+        lunar_phase = LunarPhase.new(western_year: western_year)
+
+        is_last_year = true
+
+        monthes = [11, 12] + [*1..12]
+
+        monthes.each do |month|
+          LOGGER.debug('---', "month: #{month}", "is_last_year: #{is_last_year}")
+
+          adjusted = lunar_phase.next_month
+
+          result.push(
+            Month.new(is_last_year: is_last_year, number: month,
+                      remainder: adjusted, phase_index: 0)
+          )
+          is_last_year = false if month == 12
+        end
+        result
+      end
+      private_class_method :initialized_annual_data
+
+      #
+      # 1年データの各月に月の大小を設定する
+      #
+      # @param [Array<Month>] annual_data 1年データ
+      #
+      def self.apply_big_and_small_of_the_month(annual_data:)
+        size = annual_data.size - 1
+        (0...size).each do |idx|
+          current_month = annual_data[idx]
+          next_month = annual_data[idx + 1]
+          current_month.is_many_days = \
+            current_month.remainder.same_remainder_divided_by_ten?(
+              other: next_month.remainder.day
+            )
+        end
+      end
+      private_class_method :apply_big_and_small_of_the_month
+
+      # :reek:TooManyStatements { max_statements: 10 }
+
+      #
+      # 閏月が存在した場合に以降の月を1つずつ減らす
+      # @example 7,8,9 と続く月の8月が閏の場合、7, 閏7, 8 となる
+      #
+      # @param [Array<Month>] annual_data 1年データ
+      #
+      def self.adjust_leap_month(annual_data:)
+        # 閏による月の再調整を行う
+        leaped = false
+        annual_data.each do |month|
+          if month.even_term.invalid?
+            month.leaped = true
+            leaped = true
+          end
+          next unless leaped
+
+          # NOTE: 常気法では閏月は2-3年に一度のため、1年に二度発生しない前提
+          number = month.number - 1
+          if number <= 0
+            month.is_last_year = true
+            number = 12
+          end
+          month.number = number
+        end
+      end
+      private_class_method :adjust_leap_month
+    end
+  end
+end

data/lib/zakuro/version/senmyou/summary/gengou_data.rb

@@ -0,0 +1,294 @@
+# frozen_string_literal: true
+
+require_relative '../../../era/western'
+require_relative 'annual_data'
+require_relative '../../../output/response'
+require_relative '../base/era'
+require_relative '../base/gengou'
+require_relative '../base/year'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # GengouData 元号の年情報
+    #
+    module GengouData
+      def self.get_ancient_date(date: Western::Calendar.new)
+        SingleDay.get_ancient_date(date: date)
+      end
+
+      #
+      # SingleDay 1日データ
+      #
+      module SingleDay
+        #
+        # 1日データを取得する
+        #
+        # @param [Western::Calendar] date 年月日情報（西暦）
+        #
+        # @return [Response::SingleDay] 1日データ
+        #
+        def self.get_ancient_date(date: Western::Calendar.new)
+          raise ArgumentError, 'invalid senmyou date' unless Era.include?(date: date)
+
+          target = get_target(year_list: get_year_list(date: date), date: date)
+
+          Response::SingleDay.save_single_day(
+            param: Response::SingleDay::Param.new(
+              year: target.year, month: target.month,
+              date: target.date, days: target.days
+            )
+          )
+        end
+
+        #
+        # Target 対象
+        #
+        class Target
+          # @return [Year] 年
+          attr_reader :year
+          # @return [Month] 月
+          attr_reader :month
+          # @return [Western::Calendar] 日
+          attr_reader :date
+          # @return [Integer] 月初からの日数
+          attr_reader :days
+
+          #
+          # 初期化
+          #
+          # @param [Year] year 年
+          # @param [Month] month 月
+          # @param [Western::Calendar] date 日
+          # @param [Integer] days 月初からの日数
+          #
+          def initialize(year:, month:, date:, days:)
+            @year = year
+            @month = month
+            @date = date
+            @days = days
+          end
+        end
+
+        #
+        # MonthSearchResult 1年内に該当する月を検索した結果
+        #
+        class MonthSearchResult
+          # @return [Month] 月
+          attr_reader :target_month
+          # @return [Western::Calendar] 月初日
+          attr_reader :first_date
+          # @return [True] 該当データ引き当て済
+          # @return [False] 該当データ引き当てなし
+          attr_reader :breaked
+
+          #
+          # 初期化
+          #
+          # @param [Month] target_month 月
+          # @param [Western::Calendar] first_date 月初日
+          # @param [True, False] breaked 該当データ引き当て
+          #
+          def initialize(target_month: Month.new,
+                         first_date: Western::Calendar.new, breaked:)
+            @target_month = target_month
+            @first_date = first_date
+            @breaked = breaked
+          end
+        end
+
+        #
+        # 指定日に関連する暦の範囲だけ年データを生成する
+        #
+        # @param [Western::Calendar] date 西暦日
+        #
+        # @return [Array<Year>] 年データ
+        #
+        def self.get_year_list(date:)
+          # 元号の最初の年月日を取る
+          gengou = Gengou.new(date: date.clone)
+
+          # 南北朝には元号が2つ並び、必ずしも範囲が重ならないケースもある
+          # 対象日付に重なる元号から論理和の範囲を取り、処理漏れがないようにする
+          start_date = gengou.first_date.clone
+          # 最後の年は翌年から今年の冬至を求めるため範囲を1年広げる
+          newest_date = gengou.choise_newest_gengou_date.next_year
+
+          Series.get_year_list(
+            start_gengou: gengou, start_date: start_date, end_date: newest_date
+          )
+        end
+
+        #
+        # 対象を引き当てる
+        #
+        # @param [Array<Year>] year_list 年データ
+        # @param [Western::Calendar] date 西暦日
+        #
+        # @return [Target] 対象
+        #
+        def self.get_target(year_list:, date:)
+          # 対象年/対象月を引き当てる
+          year_list.each do |year|
+            result = get_target_month(date: date, year: year)
+
+            next unless result.breaked
+
+            return Target.new(
+              year: year, month: result.target_month, date: date,
+              # 対象日に調整する
+              days: date - result.first_date
+            )
+          end
+
+          raise ArgumentError, "invalid range: #{date.format}"
+        end
+
+        # :reek:TooManyStatements { max_statements: 6 }
+
+        #
+        # 対象の月を引き当てる
+        #
+        # @param [Western::Calendar] date 西暦日
+        # @param [Year] year 年
+        #
+        # @return [MonthSearchResult] 1年内に該当する月を検索した結果
+        #
+        def self.get_target_month(date:, year:)
+          first_date = year.gengou.first_date.clone
+          year.months.each do |month|
+            # 月末の日付を超える場合
+            next_first_date = first_date.clone + month.days
+            if date < next_first_date
+              return MonthSearchResult.new(target_month: month,
+                                           first_date: first_date, breaked: true)
+            end
+            first_date = next_first_date
+          end
+          MonthSearchResult.new(breaked: false)
+        end
+      end
+
+      #
+      # Series 和暦時系列データ
+      #
+      module Series
+        # :reek:TooManyInstanceVariables { max_instance_variables: 6 }
+
+        #
+        # TimeAdvance 時間進行
+        #
+        class TimeAdvance
+          #
+          # 初期化
+          #
+          # @param [Gengou] start_gengou 開始元号
+          # @param [Western::Calendar] start_date 開始日
+          # @param [Western::Calendar] end_date 終了日
+          #
+          def initialize(start_gengou:, start_date:, end_date:)
+            @current_date = start_date.clone
+            @end_date = end_date
+            @year_list = []
+            @western_year = start_date.year
+            @year = Year.new(gengou: start_gengou)
+          end
+
+          #
+          # 年データを収集する
+          #
+          # @return [Array<Year>] 年データ
+          #
+          def collect_year_list
+            push_current_year
+
+            # 2年目以降
+            while @current_date <= @end_date
+              compensate_last_year
+
+              push_current_year
+            end
+
+            @year_list
+          end
+
+          private
+
+          #
+          # 1年データを収集する
+          #
+          # @return [Array<Month>] 1年データ
+          #
+          def collect_annual_data
+            AnnualData.collect_annual_data_after_last_november_1st(
+              western_year: @western_year
+            )
+          end
+
+          #
+          # 昨年データの不足分を補完する
+          # 昨年11月1日から今年1月1日の前日のデータを1年前データとする
+          #
+          # @return [<Type>] <description>
+          #
+          def compensate_last_year
+            last_year = @year_list[@year_list.size - 1]
+            collect_annual_data.each do |month|
+              next unless month.is_last_year
+
+              # 昨年の月データのみ
+              last_year.push(month: month)
+              @current_date += month.days
+            end
+          end
+
+          # :reek:TooManyStatements { max_statements: 7 }
+
+          #
+          # 当年データを生成する
+          #
+          def push_current_year
+            next_year
+            collect_annual_data.each do |month|
+              next if month.is_last_year
+
+              @year.push(month: month)
+              @current_date += month.days
+            end
+            @year_list.push(@year)
+
+            @western_year += 1
+          end
+
+          #
+          # 次の元号年を取得する
+          #
+          def next_year
+            return if @year_list.empty?
+
+            @year = Year.new(gengou: @year.gengou.next_year)
+          end
+        end
+
+        #
+        # 期間内の年データ全てを返す
+        #
+        # @param [Gengou] start_gengou 開始元号
+        # @param [Western::Calendar] start_date 開始日
+        # @param [Western::Calendar] end_date 終了日
+        #
+        # @return [Array<Year>] 年データ
+        #
+        def self.get_year_list(start_gengou:, start_date:, end_date:)
+          advance = TimeAdvance.new(
+            start_gengou: start_gengou, start_date: start_date, end_date: end_date
+          )
+
+          advance.collect_year_list
+        end
+      end
+    end
+  end
+end