08/01/17 12:47:40 qA8lhrwO
# 元 data
@a = ('287.439', '282.483', '282.483', '273.067', '273.067', '268.590'); # 1/x
@b = ('8.512', '8.532', '8.268', '8.698', '8.769', '8.598');
#------------
# 計算開始
#------------
$a = 0 if !$a;
$b = 0 if !$b;
$ap = &point(($play/$a), 2) if $a;
$bp = &point(($play/$b), 2) if $b;
$ab = $a + $b;
$abp = &point(($play/$ab), 2) if $ab;
for ($i=0; $i<=5; $i++) {
$p1 = (1/$a[$i])**$a * (1-1/$a[$i])**($play-$a);
$p2 = (1/$b[$i])**$b * (1-1/$b[$i])**($play-$b);
$p3 = $p1 * $p2;
$t_ap += $p1; push(@ap,$p1);
$t_bp += $p2; push(@bp,$p2);
$t_abp += $p3; push(@abp, $p3);
}
上記の計算式で計算すると分母の差が大きい為、結果表示の際にオーバーフローを起こして
表示されない場合がある･･･と言われました。
**($play-$a);←この部分の計算式に問題があると言われましたが、プログラムの事は良く判らないので
詳しい方がいらっしゃればご指導お願い致しますm(_ _)m