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