FC2ブログ
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

# 一様分布 Uniform Distribution
# 引数 変数 変数 変数 ($X, $A, $B)
# 戻り値 一様分布 (@UniformDistribution)
sub UNIFORMDISTRIBUTION{
my ($X, $A, $B) = @_;
my @UniformDistribution = ();

# 変数の確認
if($A > $B){
return 0;
}

# 確率密度 Probability Function
$UniformDistribution[0] = &PROBABILITYFUNCTION($X, $A, $B);
# 下側累積確率 Lower Probability
$UniformDistribution[1] = &LOWERPROBABILITY($X, $A, $B);
# 上側累積確率 Upper Probability
# $UniformDistribution[2] = &UPPERPROBABILITY($X, $A, $B);
$UniformDistribution[2] = 1 - $UniformDistribution[1];

return @UniformDistribution;
}

# 確率密度 Probability Function
# 引数 変数 変数 変数 ($X, $A, $B)
# 戻り値 確率密度 ($ProbabilityFunction)
sub PROBABILITYFUNCTION{
my ($X, $A, $B) = @_;
my $ProbabilityFunction = 0;

if(($A <= $X) && ($X <= $B)){
# 確率密度 Probability Function
$ProbabilityFunction = 1 / ($B - $A);
}else {
# 確率密度 Probability Function
$ProbabilityFunction = 0;
}

return $ProbabilityFunction;
}

# 下側累積確率 Lower Probability
# 引数 変数 変数 変数 ($X, $A, $B)
# 戻り値 下側累積確率 ($LowerProbability)
sub LOWERPROBABILITY{
my ($X, $A, $B) = @_;
my $LowerProbability = 0;

if(($A <= $X) && ($X < $B)){
# 下側累積確率 Lower Probability
$LowerProbability = ($X - $A) / ($B - $A);
}else {
# 下側累積確率 Lower Probability
$LowerProbability = ($X >= $B ? 1 : 0);
}

return $LowerProbability;
}

# 上側累積確率 Upper Probability
# 引数 変数 変数 変数 ($X, $A, $B)
# 戻り値 上側累積確率 ($UpperProbability)
sub UPPERPROBABILITY{
my ($X, $A, $B) = @_;
my $UpperProbability = 0;

if(($A < $X) && ($X <= $B)){
# 上側累積確率 Upper Probability
$UpperProbability = ($B - $X) / ($B - $A);
}else {
# 上側累積確率 Upper Probability
$UpperProbability = ($X <= $A ? 1 : 0);
}

return $UpperProbability;
}


参考URL
一様分布 - Wikipedia
一様分布 - 高精度計算サイト
Uniform distribution (continuous) - Wikipedia, the free encyclopedia
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。