概要

Mathモジュールに幾つかのメソッドを追加します。

このスクリプトは、XP/VX のどちらでも使用できます。

更新履歴

2005/06/19

新規作成。

スクリプト

KGC_Math Reinforce

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆ Mathモジュール強化 - KGC_Math Reinforce ◆ XP/VX ◆
#_/----------------------------------------------------------------------------
#_/  Math モジュールに、あると便利かもしれない機能を追加します。
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

=begin
┏━━━━ 搭載メソッド ━━━━━━━━━━━━━━━━━━━━━━━━━━━━
┠─── Module - Math ────────────────────────────
┃ average(value)
┃   value : 数値配列
┃ ・value の算術(相加)平均を算出します。
┃
┃ devsq(value)
┃   value : 数値配列
┃ ・value の偏差平方和を算出します。
┃
┃ gmt(value)
┃   value : 数値配列
┃ ・value の幾何(相乗)平均を算出します。
┃
┃ stdevp(value)
┃   value : 数値配列
┃ ・value の標準偏差を算出します。
┃
┃ var(value)
┃   value : 数値配列
┃ ・value の不偏分散を算出します。
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
=end

module Math
  module_function
  #--------------------------------------------------------------------------
  # ● 算術(相加)平均
  #--------------------------------------------------------------------------
  def average(value)
    n = 0.0
    value.each {|i| n += i}
    return n / value.size
  end
  #--------------------------------------------------------------------------
  # ● 偏差平方和
  #--------------------------------------------------------------------------
  def devsq(value)
    n, v = 0.0, average(value)
    value.each {|i| n += (i - v) ** 2}
    return n
  end
  #--------------------------------------------------------------------------
  # ● 幾何(相乗)平均
  #--------------------------------------------------------------------------
  def gmt(value)
    n = 1.0
    value.each {|i| n *= i}
    return n ** (1.0 / value.size)
  end
  #--------------------------------------------------------------------------
  # ● 標準偏差
  #--------------------------------------------------------------------------
  def stdevp(value)
    return sqrt(var(value))
  end
  #--------------------------------------------------------------------------
  # ● 不偏分散
  #--------------------------------------------------------------------------
  def var(value)
    return 0.0 if value.size < 2
    return devsq(value) / (value.size - 1)
  end
end

使用法

他の[Math]モジュールのメソッドと同様、

n = Math.average(value)

等のスクリプトを実行するだけです。(イベントコマンド「スクリプト」でも使用可)

搭載機能の一覧は、スクリプト中のコメントを参照してください。

<例>　37,91,76,28の標準偏差を計算する場合
n = Math.stdevp([37, 91, 76, 28])
または、分かりやすくするために
value = [37, 91, 76, 28]
n = Math.stdevp(value)
でもOK。
ちなみに、計算結果は 30.298514…