PHP实现简单线性回归数据研究工具

Cve中国设计秀
var PiD2 = pi() / 2Cve中国设计秀

Cve中国设计秀
＜?phpCve中国设计秀
Cve中国设计秀
// Distribution.phpCve中国设计秀
Cve中国设计秀
// Copyright John PezulloCve中国设计秀
// Released under same terms as PHP.Cve中国设计秀
// PHP Port and OO'fying by Paul MeagherCve中国设计秀
Cve中国设计秀
class Distribution {Cve中国设计秀
Cve中国设计秀
function doCommonMath($q, $i, $j, $b) {Cve中国设计秀
Cve中国设计秀
$zz = 1;Cve中国设计秀
$z  = $zz;Cve中国设计秀
$k  = $i;Cve中国设计秀
Cve中国设计秀
Cve中国设计秀
while($k ＜= $j) {Cve中国设计秀
$zz = $zz * $q * $k / ($k - $b);Cve中国设计秀
$z  = $z + $zz;Cve中国设计秀
$k  = $k + 2;Cve中国设计秀
}Cve中国设计秀
return $z;Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
function getStudentT($t, $df) {Cve中国设计秀
Cve中国设计秀
$t  = abs($t);Cve中国设计秀
$w  = $t  / sqrt($df);Cve中国设计秀
$th = atan($w);Cve中国设计秀
Cve中国设计秀
if ($df == 1) {Cve中国设计秀
return 1 - $th / (pi() / 2);Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
$sth = sin($th);Cve中国设计秀
$cth = cos($th);Cve中国设计秀
Cve中国设计秀
if( ($df % 2) ==1 ) {Cve中国设计秀
returnCve中国设计秀
1 - ($th + $sth * $cth * $this-＞doCommonMath($cth * $cth, 2, $df - 3, -1))Cve中国设计秀
/ (pi()/2);Cve中国设计秀
} else {Cve中国设计秀
return 1 - $sth * $this-＞doCommonMath($cth * $cth, 1, $df - 3, -1);Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
function getInverseStudentT($p, $df) {Cve中国设计秀
Cve中国设计秀
$v =  0.5;Cve中国设计秀
$dv = 0.5;Cve中国设计秀
$t  = 0;Cve中国设计秀
Cve中国设计秀
while($dv ＞ 1e-6) {Cve中国设计秀
$t = (1 / $v) - 1;Cve中国设计秀
$dv = $dv / 2;Cve中国设计秀
if ( $this-＞getStudentT($t, $df) ＞ $p) {Cve中国设计秀
$v = $v - $dv;Cve中国设计秀
} else {Cve中国设计秀
$v = $v + $dv;Cve中国设计秀
}Cve中国设计秀
}Cve中国设计秀
return $t;Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
Cve中国设计秀
function getFisherF($f, $n1, $n2) {Cve中国设计秀
// implemented but not shownCve中国设计秀
}Cve中国设计秀
Cve中国设计秀
function getInverseFisherF($p, $n1, $n2) {Cve中国设计秀
// implemented but not shownCve中国设计秀
}Cve中国设计秀
Cve中国设计秀
}Cve中国设计秀
?＞Cve中国设计秀

Cve中国设计秀
＜?phpCve中国设计秀
Cve中国设计秀
// explore.phpCve中国设计秀
Cve中国设计秀
if (!empty($x_values)) {Cve中国设计秀
$X    = explode(",", $x_values);Cve中国设计秀
$numX = count($X);Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
if (!empty($y_values)) {Cve中国设计秀
$Y    = explode(",", $y_values);Cve中国设计秀
$numY = count($Y);Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
// display entry data entry form if variables not setCve中国设计秀
Cve中国设计秀
if ( (empty($title)) OR (empty($x_name)) OR (empty($x_values)) ORCve中国设计秀
(empty($y_name)) OR (empty($conf_int)) OR (empty($y_values)) ORCve中国设计秀
($numX != $numY) ) {Cve中国设计秀
Cve中国设计秀
// Omitted code for displaying entry formCve中国设计秀
Cve中国设计秀
} else {Cve中国设计秀
Cve中国设计秀
include_once "slr/SimpleLinearRegressionHTML.php";Cve中国设计秀
$slr = new SimpleLinearRegressionHTML($X, $Y, $conf_int);Cve中国设计秀
Cve中国设计秀
echo "＜h2＞$title＜/h2＞";Cve中国设计秀
Cve中国设计秀
$slr-＞showTableSummary($x_name, $y_name);Cve中国设计秀
echo "＜br＞＜br＞";Cve中国设计秀
Cve中国设计秀
$slr-＞showAnalysisOfVariance();Cve中国设计秀
echo "＜br＞＜br＞";Cve中国设计秀
Cve中国设计秀
$slr-＞showParameterEstimates($x_name, $y_name);Cve中国设计秀
echo "＜br＞";Cve中国设计秀
Cve中国设计秀
$slr-＞showFormula($x_name, $y_name);Cve中国设计秀
echo "＜br＞＜br＞";Cve中国设计秀
Cve中国设计秀
$slr-＞showRValues($x_name, $y_name);Cve中国设计秀
echo "＜br＞";Cve中国设计秀
Cve中国设计秀
include ("jpgraph/jpgraph.php");Cve中国设计秀
include ("jpgraph/jpgraph_scatter.php");Cve中国设计秀
include ("jpgraph/jpgraph_line.php");Cve中国设计秀
Cve中国设计秀
// The code for displaying the graphics is inline in theCve中国设计秀
// explore.php script.  The code for these two line plotsCve中国设计秀
// finishes off the script:Cve中国设计秀
Cve中国设计秀
// Omitted code for displaying scatter plus line plotCve中国设计秀
// Omitted code for displaying residuals plotCve中国设计秀
Cve中国设计秀
}Cve中国设计秀
Cve中国设计秀
?＞Cve中国设计秀

Cve中国设计秀
phpmath/Cve中国设计秀
Cve中国设计秀
burnout_study.phpCve中国设计秀
explore.phpCve中国设计秀
fire_study.phpCve中国设计秀
navbar.phpCve中国设计秀
Cve中国设计秀
dist/Cve中国设计秀
Distribution.phpCve中国设计秀
fisher.phpCve中国设计秀
student.phpCve中国设计秀
source.phpCve中国设计秀
Cve中国设计秀
jpgraph/Cve中国设计秀
etc...Cve中国设计秀
Cve中国设计秀
slr/Cve中国设计秀
SimpleLinearRegression.phpCve中国设计秀
SimpleLinearRegressionHTML.phpCve中国设计秀
Cve中国设计秀
temp/Cve中国设计秀