@@ 692-694 (lines=3) @@ | ||
689 | // Overflow control |
|
690 | $t = abs($this->H[$i][$n]); |
|
691 | if (($eps * $t) * $t > 1) { |
|
692 | for ($j = $i; $j <= $n; ++$j) { |
|
693 | $this->H[$j][$n] = $this->H[$j][$n] / $t; |
|
694 | } |
|
695 | } |
|
696 | } |
|
697 | } |
|
@@ 799-801 (lines=3) @@ | ||
796 | ||
797 | $issymmetric = true; |
|
798 | for ($j = 0; ($j < $this->n) & $issymmetric; ++$j) { |
|
799 | for ($i = 0; ($i < $this->n) & $issymmetric; ++$i) { |
|
800 | $issymmetric = ($this->A[$i][$j] == $this->A[$j][$i]); |
|
801 | } |
|
802 | } |
|
803 | ||
804 | if ($issymmetric) { |