zakuro 0.1.2 → 0.3.0

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

@@ -0,0 +1,136 @@
+# frozen_string_literal: true
+
+require_relative '../../type/old_float'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Solar
+      #
+      # ChoukeiValue 再考長慶宣明暦算法
+      #
+      module ChoukeiValue
+        # @return [Output::Logger] ロガー
+        LOGGER = Output::Logger.new(location: 'solar_choukei')
+
+        #
+        # 補正値を返す
+        #
+        # @param [Cycle::AbstractRemainder] remainder 大余小余
+        # @param [Adjustment::Row] row 24気損益眺朒（ちょうじく）数
+        #
+        # @return [Integer] 補正値
+        #
+        def self.get(remainder:, row:)
+          # 損益率/眺朒（ちょうじく）数
+          # パラメータ:
+          #  a: 眺朒（ちょうじく）数の初日の値
+          #  b: 損益率初日の値
+          #  c: 損益率の毎日の差
+          #  n: 定気の日から数えた日数
+
+          # LOGGER.debug("row.per_day: #{row.per_day}")
+          # LOGGER.debug("row.stack: #{row.stack}")
+
+          day_stack = calc_day_stack(remainder: remainder, row: row)
+
+          # LOGGER.debug("day_stack: #{day_stack}")
+
+          month_stack = calc_month_stack(row: row, day: remainder.day)
+
+          # LOGGER.debug("month_stack: #{month_stack}")
+
+          # 冬至であれば眺朒数がプラスになり続けて損益率が「益」で、小雪であればマイナスの眺朒数がプラスされ続けて「損」
+          month_stack + day_stack
+        end
+
+        #
+        # 損益率を求める
+        #
+        # @param [Remainder] remainder 入定気
+        # @param [Adjustment::Row] row 24気損益眺朒（ちょうじく）数
+        #
+        # @return [Integer] 損益率
+        #
+        def self.calc_day_stack(remainder:, row:)
+          ratio = calc_ratio(day: remainder.day, per_term: row.per_term, per_day: row.per_day)
+
+          # LOGGER.debug("ratio.sign: #{ratio.sign}")
+          # LOGGER.debug("ratio.abs: #{ratio.abs}")
+
+          calc_day_stack_from_ratio(
+            ratio: ratio, minute: remainder.minute, limit: remainder.base_day
+          )
+        end
+        private_class_method :calc_day_stack
+
+        #
+        # 大余に対応する損益率を求める
+        #   損益率 = b + n * c
+        #
+        # @param [Integer] day 大余
+        # @param [Integer] per_term 眺朒（ちょうじく）数
+        # @param [Integer] per_day 毎日差
+        #
+        # @return [Type::OldFloat] 大余に対応する損益率
+        #
+        def self.calc_ratio(day:, per_term:, per_day:)
+          ratio = Type::OldFloat.new(per_term + day * per_day)
+          # 小数点以下は無視する
+          ratio.floor!
+
+          ratio
+        end
+        private_class_method :calc_ratio
+
+        #
+        # 小余を含めた損益率を求める
+        #
+        # @param [Integer] sign 正負（大余に対応する損益率）
+        # @param [Integer] ratio 大余に対応する損益率
+        # @param [Integer] minute 小余
+        #
+        # @return [Integer] 小余を含めた損益率
+        #
+        def self.calc_day_stack_from_ratio(ratio:, minute:, limit:)
+          minute_stack = ratio.abs * minute
+          day_stack = (minute_stack / limit).floor
+          # 四捨五入
+          # NOTE 資料では「この余りが4200をこえていれば切り上げる」とあり「>=」とした
+          # 1612年の7月（慶長17年7月）が境界値4200だが、繰り上げを行なっていたため
+          day_stack += 1 if minute_stack % limit >= (limit / 2)
+          day_stack *= ratio.sign
+
+          day_stack
+        end
+        private_class_method :calc_day_stack_from_ratio
+
+        #
+        # 眺朒（ちょうじく）数を求める
+        #   眺朒（ちょうじく）数 = a + (n * b) + (1/2)n(n-1)c
+        #
+        # @param [Adjustment::Row] row 24気損益眺朒（ちょうじく）数
+        # @param [Integer] day 大余
+        #
+        # @return [Integer] 眺朒（ちょうじく）数
+        #
+        def self.calc_month_stack(row:, day:)
+          # row.stack: 眺朒（ちょうじく）積
+          # row.per_term: 眺朒（ちょうじく）数
+          # row.per_day: 毎日差
+          month_stack = Type::OldFloat.new(
+            row.stack + day * row.per_term + \
+            (1 / 2.0) * (day * (day - 1) * row.per_day)
+          )
+          # 切り捨て（プラスマイナスに関わらず小数点以下切り捨て）
+          month_stack.floor!
+
+          month_stack.get
+        end
+        private_class_method :calc_month_stack
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/summary/single.rb

@@ -0,0 +1,129 @@
+# frozen_string_literal: true
+
+require_relative '../specifier/single_day'
+
+require_relative '../range/operated_range'
+
+require_relative '../range/full_range'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Summary
+      #
+      # Single 一日
+      #
+      module Single
+        #
+        # 生成する
+        #
+        # @param [Context] context 暦コンテキスト
+        # @param [Western::Calendar] date 西暦日
+        #
+        # @return [Result::Single] 一日検索結果（和暦日）
+        #
+        def self.get(context:, date: Western::Calendar.new)
+          full_range = Calculation::Range::FullRange.new(context: context, start_date: date)
+          years = full_range.get
+
+          calc_date = Calculation::Specifier::SingleDay.get(
+            years: years, date: date
+          )
+
+          operated_range = Calculation::Range::OperatedRange.new(context: context, years: years)
+
+          Result::Single.new(
+            data: Calculation::Specifier::SingleDay.get(
+              years: operated_range.get, date: date
+            ),
+            operation: create_operation(calc_date: calc_date)
+          )
+        end
+
+        #
+        # 運用情報を生成する
+        #
+        # @param [Result::Data::SingleDay] calc_date 和暦日（計算値）
+        #
+        # @return [Result::Operation::Bundle] 運用情報
+        #
+        def self.create_operation(calc_date: Result::Data::SingleDay.new)
+          first_day = calc_date.month.first_day.western_date
+          operation_history = Operation.specify_history(western_date: first_day)
+
+          operation_month = create_operation_month(operation_history: operation_history)
+
+          Result::Operation::Bundle.new(
+            operated: !operation_history.invalid?, month: operation_month, original: calc_date
+          )
+        end
+        private_class_method :create_operation
+
+        #
+        # 月履歴集約情報を生成する
+        #
+        # @param [Operation::MonthHistory] operation_history 変更履歴（月）
+        #
+        # @return [Result::Operation::Month::Bundle] 月履歴集約情報
+        #
+        def self.create_operation_month(operation_history: Operation::MonthHistory.new)
+          return Result::Operation::Month::Bundle.new if operation_history.invalid?
+
+          parent_operation_history = Operation.specify_history_by_id(
+            id: operation_history.parent_id
+          )
+
+          Result::Operation::Month::Bundle.new(
+            current: create_operation_month_history(operation_history: operation_history),
+            parent: create_operation_month_history(operation_history: parent_operation_history)
+          )
+        end
+        private_class_method :create_operation_month
+
+        #
+        # 月別履歴情報を生成する
+        #
+        # @param [Operation::MonthHistory] operation_history 変更履歴（月）
+        #
+        # @return [Result::Operation::Month::History] 月別履歴情報
+        #
+        def self.create_operation_month_history(operation_history: Operation::MonthHistory.new)
+          return Result::Operation::Month::History.new if operation_history.invalid?
+
+          annotations = create_annnotations(operation_history: operation_history)
+
+          reference = operation_history.reference
+          Result::Operation::Month::History.new(
+            id: operation_history.id, western_date: operation_history.western_date.format,
+            page: reference.page, number: reference.number, annotations: annotations
+          )
+        end
+        private_class_method :create_operation_month_history
+
+        #
+        # 注釈情報を生成する
+        #
+        # @param [Operation::MonthHistory] operation_history 変更履歴（月）
+        #
+        # @return [Array<Result::Operation::Month::Annotation>] 注釈
+        #
+        def self.create_annnotations(operation_history: Operation::MonthHistory.new)
+          annotations = []
+          operation_history.annotations.each do |annotation|
+            annotations.push(
+              Result::Operation::Month::Annotation.new(
+                description: annotation.description,
+                note: annotation.note
+              )
+            )
+          end
+
+          annotations
+        end
+        private_class_method :create_annnotations
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/type/old_float.rb

@@ -0,0 +1,69 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Type
+      #
+      # OldFloat 浮動小数点数（古代）
+      #
+      # @note 四捨五入は常に絶対値に対して行う
+      #   * value.negative? ? value.ceil : value.floor
+      #   * 絶対値だけを取り出すことで、四捨五入を平易にする
+      #
+      class OldFloat
+        # @return [Integer] 符号
+        attr_reader :sign
+        # @return [Float] 絶対値
+        attr_reader :abs
+
+        #
+        # 初期化
+        #
+        # @param [Float] value 符号つき浮動小数点数
+        #
+        def initialize(value)
+          @sign = value.negative? ? -1 : 1
+          @abs = @sign * value
+        end
+
+        #
+        # 四捨五入する
+        #
+        def floor!
+          @abs = floor
+        end
+
+        #
+        # 四捨五入する（非破壊的）
+        #
+        # @return [Float] 絶対値
+        #
+        def floor
+          @abs.floor
+        end
+
+        #
+        # 符号つき浮動小数点数を取得する
+        #
+        # @return [Float] 符号つき浮動小数点数
+        #
+        def get
+          @sign * @abs
+        end
+
+        #
+        # 負数かどうか
+        #
+        # @return [True] 負数
+        # @return [False] 正数
+        #
+        def negative?
+          @sign == -1
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/era/japan/reki.rb

@@ -44,7 +44,7 @@ module Zakuro
           start_date: Western::Calendar.new(year: 698, month: 2, day: 16)
         ),
         Range.new(
-          class_name: 'Zakuro::Taien::Gateway',
+          class_name: 'Zakuro::Daien::Gateway',
           start_date: Western::Calendar.new(year: 764, month: 2, day: 7)
         ),
         Range.new(

data/lib/zakuro/merchant.rb

@@ -22,7 +22,7 @@ module Zakuro
     #
     def initialize(condition: {})
       failed = Condition.validate(hash: condition)
-      raise ZakuroError, failed.join('\n') unless failed.empty?
+      raise Output::ZakuroError, failed.join('\n') unless failed.empty?
 
       @condition = Condition.new(hash: condition)
     end
@@ -36,7 +36,7 @@ module Zakuro
     #
     def offer(condition: {})
       failed = Condition.validate(hash: condition)
-      raise ZakuroError, failed.join('\n') unless failed.empty?
+      raise Output::ZakuroError, failed.join('\n') unless failed.empty?
 
       @condition.rewrite(hash: condition)
 

data/lib/zakuro/output/error.rb

@@ -1,12 +1,13 @@
 # frozen_string_literal: true
 
-# TODO: outputモジュール内にする
-
 # :nodoc:
 module Zakuro
-  #
-  # ZakuroError ライブラリ内エラー
-  #
-  class ZakuroError < StandardError
+  # :nodoc:
+  module Output
+    #
+    # ZakuroError ライブラリ内エラー
+    #
+    class ZakuroError < StandardError
+    end
   end
 end

data/lib/zakuro/output/logger.rb

@@ -1,65 +1,66 @@
 # frozen_string_literal: true
 
-# TODO: outputモジュール内にする
-
 # :nodoc:
 module Zakuro
-  #
-  # 軽量なロガー
-  # @note 本番では使用しない
-  #
-  class Logger
-    LEVELS = {
-      none: -1,
-      debug: 0,
-      info: 1
-      # warn : 2,
-      # error : 3,
-    }.freeze
+  # :nodoc:
+  module Output
+    #
+    # 軽量なロガー
+    # @note 本番では使用しない
+    #
+    class Logger
+      LEVELS = {
+        none: -1,
+        debug: 0,
+        info: 1
+        # warn : 2,
+        # error : 3,
+      }.freeze
 
-    LEVEL = LEVELS[:none]
+      LEVEL = LEVELS[:none]
 
-    # @return [String] 呼び出し位置
-    attr_reader :location
+      # @return [String] 呼び出し位置
+      attr_reader :location
 
-    def initialize(location:)
-      @location = location
-    end
+      def initialize(location:)
+        @location = location
+      end
 
-    #
-    # DEBUGレベルの標準出力を行う
-    #
-    # @param [String] messages メッセージ
-    #
-    def debug(*messages)
-      return if LEVEL < LEVELS[:debug]
+      #
+      # DEBUGレベルの標準出力を行う
+      #
+      # @param [String] messages メッセージ
+      #
+      def debug(*messages)
+        return if LEVEL < LEVELS[:debug]
 
-      output('DEBUG', *messages)
-    end
+        output('DEBUG', *messages)
+      end
 
-    #
-    # INFOレベルの標準出力を行う
-    #
-    # @param [String] messages メッセージ
-    #
-    def info(*messages)
-      return if LEVEL < LEVELS[:info]
+      #
+      # INFOレベルの標準出力を行う
+      #
+      # @param [String] messages メッセージ
+      #
+      def info(*messages)
+        return if LEVEL < LEVELS[:info]
 
-      output('INFO', *messages)
-    end
+        output('INFO', *messages)
+      end
 
-    private
+      private
 
-    #
-    # 標準出力を行う
-    #
-    # @param [String] level ログレベル
-    # @param [String] messages メッセージ
-    #
-    def output(level, *messages)
-      messages.each do |message|
-        # :#{Thread.current.backtrace[5]}
-        p "[#{level}] #{@location}: #{message}"
+      #
+      # 標準出力を行う
+      #
+      # @param [String] level ログレベル
+      # @param [String] messages メッセージ
+      #
+      def output(level, *messages)
+        messages.each do |message|
+          # :#{Thread.current.backtrace[5]}
+          p "[#{level}] #{@location}: #{message}"
+        end
       end
     end
   end