| @@ 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) { |
|