Clus_Distance class
| From: | alfredo | Date: | Mon, 12 Aug 2002 09:28:53 +0000 |
| Subject: | Clus_Distance class | ||
| Groups: | php.pear.dev | ||
| Request: | Send a blank email to pear-dev+get-8314@lists.php.net to get a copy of this message | ||
Here's the clustering class, again.
Here's the sample file:
<?php
/* Example file for Distance.php */
require_once("Distance.php");
////////////////////////////
function print_datos($A,$paisa = false) {
if (!$paisa) {
print "<table border=1>";
for ($i = 0; $i < count($A); $i++) {
print "<tr>";
for ($j = 0; $j < count($A[0]); $j++) {
print "<td>";
print isset($A[$i][$j]) ? $A[$i][$j] : 0;
print "</td>";
}
print "</tr>";
}
print "</table>";
} else {
print "<table border=1>";
for ($i = 0; $i < count($A[0]); $i++) {
print "<tr>";
for ($j = 0; $j < count($A); $j++) {
print "<td>";
print isset($A[$j][$i]) ? $A[$j][$i] : 0;
print "</td>";
}
print "</tr>";
}
print "</table>";
}
}
////////////////////////////
$_infile = file("swiss.txt");
for ($i = 0; $i < count($_infile); $i++) {
$_I[$i] = preg_split("/\s+/",$_infile[$i],6,PREG_SPLIT_NO_EMPTY);
}
$C = new Clus_Distance($_I);
$ADi = $C->getAvailMeasures();
print "d=" . $C->getD() . "<br>";
print "n=" . $C->getN() . "<br>";
print_datos($_I,true);
for ($i = 0; $i < $C->getNumMeasures(); $i++) {
print $ADi[$i];
print_datos($C->getDistanceMatrix($i));
}
?>