математика — высокоспецифичные факторные вычисления в переполнении стека
Я работал над страницей PHP, которая вычисляет вероятности различных результатов при случайном выборе группы выборки из большой группы, состоящей из двух типов людей (+ а также -).
Например, он может рассчитать вероятность наличия 0 (или n) курильщики в группе 1000 люди, случайно выбранные со всей территории Соединенных Штатов, учитывая, что 0.15 американцы курят (+).
Это работает очень хорошо при работе с населением ниже 10000 люди, но когда дело доходит до больших групп населения, как 1000000это отголоски 0 для всех вероятностей, кроме точности (количество цифр после .) увеличивается как 3000, Даже в этом случае это займет вечность.
Код работает путем расчета вероятности 0 положительные и делать некоторые расчеты на нем, чтобы получить вероятность 1 положительный и тд. Это в то время как большинство из этих вероятностей бесполезны.
Я думал, что если я смогу найти быстрый способ расчета почти точного (99.999% или выше) значение очень больших факториалов (например, 1000000!), не было бы необходимости начинать с 0и вычисление можно было бы начать с того места, где оно необходимо, и с очень низкой точностью, чтобы сократить время, которое требуется.
Вот код:
<html>
<body>
<form method="get">
target population:
<input type="text" name="tpop"><br><br>
selected population:
<input type="text" name="selected"><br><br>
fraction of positives:
<input type="text" name="fop"><br><br>
output margin:
<input type="text" name="margin"><br><br>
precision:
<input type="text" name="precision"><br><br>
<input type="submit">
</form>
</body>
</html>
<?php
set_time_limit(0);
if (isset($_GET["precision"],$_GET["tpop"],$_GET["selected"],$_GET["fop"],$_GET["margin"])&&$_GET["precision"]!=''&&$_GET["tpop"]!=''&&$_GET["selected"]!=''&&$_GET["fop"]!=''&&$_GET["margin"]!=''&&$_GET["tpop"]>=$_GET["selected"]&&$_GET["fop"]>=0&&$_GET["fop"]<=1){
$tpop=$_GET["tpop"];
$selected=$_GET["selected"];
$fop=$_GET["fop"];
$margin=$_GET["margin"];
$ioioio=0;
$precision=$_GET["precision"];
$minor=($selected*$fop)-$margin;
$maxor=$minor+(2*$margin);
$popopo=bcmul($tpop,$fop);
echo '<br><br>min is'.$minor.'max is'.$maxor.'<br><br>';
$mmm=bcsub($tpop,$selected,$precision);
$rea=bcsub($mmm,1,$precision);
$fops=bcmul($tpop,$fop);
$trss=bcsub($tpop,$fops,$precision);
$trss=bcsub($trss,$selected,$precision);
$trss=bcadd($trss,1,$precision);
while($rea>=$trss){
$mmm=bcmul($mmm,$rea,$precision);
$rea=bcsub($rea,1,$precision);
}
$nnn=$tpop;
$sfg=bcsub($nnn,1,$precision);
$ugt=bcmul($tpop,$fop,$precision);
$uyt=bcsub($tpop,$ugt);
$uyt=bcadd($uyt,1,$precision);
while($sfg>=$uyt){
$nnn=bcmul($nnn,$sfg,$precision);
$sfg=bcsub($sfg,1,$precision);
}
$zero=bcdiv($mmm,$nnn,$precision);
echo '0==>'.$zero.'<br><br>';
$a=$selected;
$b=($tpop-($tpop*$fop)-$selected+1);
$c=1;
$d=($tpop*$fop);
$i=1;
$origzero=$zero;
$save=$zero;
while($i<=$selected){
if($d<=0){
echo $i.'==>impossible<br><br>';
$a--;
$b++;
$c++;
$d--;
$i++;
}else{
$zero=bcmul($zero,$a,$precision);
$zero=bcmul($zero,$d,$precision);
$zero=bcdiv($zero,$b,$precision);
$zero=bcdiv($zero,$c,$precision);
if($i>=$minor){
if($i<=$maxor){
if($i<=$popopo){
$ioioio=bcadd($ioioio,$zero,$precision);
echo 'following value is included in p value<br>';
echo $i.'==>'.$zero.'<br><br>';
}
}
}
$save=bcadd($save,$zero,$precision);
$a--;
$b++;
$c++;
$d--;
$i++;
}
}
echo 'precision==> '.$save.'<br><br>';
$savee = bcsub(1,$save,$precision);
echo '1-precision==> '.$savee.'<br><br>';
if($minor<0||$maxor>$selected){
echo 'p value==>margin larger than surronding probabilties select an smaller margin to calculate p value';
} elseif($minor>0){
echo 'p value==>'.$ioioio;
} else{
$ioioiop=bcadd($ioioio,$origzero,$precision);
echo 'p value(0included)==> '.$ioioiop;}
}
?>
дорогой @ shukshin.ivan
большое спасибо за ваш ответ, это именно то, что я искал:]
это пример того, как это работает для всех, кто может иметь тот же вопрос:
$x=950000;
$x =2*$x+1;
$P=pi();
$x =(log(2.0*$P)+log($x/2.0)*$x-$x-(1.0-7.0/(30.0*$x*$x))/(6.0*$x))/2.0;
$x=$x/log(10);
$ex=floor($x);
$x=pow(10,$x-$ex);
$res=$x.'A';
$res=substr($x,0,6).'E'.$ex;
echo $res;
Решение
Ты можешь использовать Приближение Стирлинга. Это довольно точно на больших количествах. Смысл в том, что факториал можно рассчитать как приблизительный
Набор других алгоритмов можно найти здесь.
Другие решения
Других решений пока нет …
detector