| @@ 778-786 (lines=9) @@ | ||
| 775 | $q = $q / $p;  | 
                                |
| 776 | $r = $r / $p;  | 
                                |
| 777 | // Row modification  | 
                                |
| 778 |                         for ($j = $k; $j < $nn; ++$j) { | 
                                |
| 779 | $p = $this->H[$k][$j] + $q * $this->H[$k + 1][$j];  | 
                                |
| 780 |                             if ($notlast) { | 
                                |
| 781 | $p = $p + $r * $this->H[$k + 2][$j];  | 
                                |
| 782 | $this->H[$k + 2][$j] = $this->H[$k + 2][$j] - $p * $z;  | 
                                |
| 783 | }  | 
                                |
| 784 | ||
| 785 | $this->H[$k][$j] = $this->H[$k][$j] - $p * $x;  | 
                                |
| 786 | $this->H[$k + 1][$j] = $this->H[$k + 1][$j] - $p * $y;  | 
                                |
| 787 | }  | 
                                |
| 788 | ||
| 789 | // Column modification  | 
                                |
| @@ 790-798 (lines=9) @@ | ||
| 787 | }  | 
                                |
| 788 | ||
| 789 | // Column modification  | 
                                |
| 790 |                         for ($i = 0; $i <= min($n, $k + 3); ++$i) { | 
                                |
| 791 | $p = $x * $this->H[$i][$k] + $y * $this->H[$i][$k + 1];  | 
                                |
| 792 |                             if ($notlast) { | 
                                |
| 793 | $p = $p + $z * $this->H[$i][$k + 2];  | 
                                |
| 794 | $this->H[$i][$k + 2] = $this->H[$i][$k + 2] - $p * $r;  | 
                                |
| 795 | }  | 
                                |
| 796 | ||
| 797 | $this->H[$i][$k] = $this->H[$i][$k] - $p;  | 
                                |
| 798 | $this->H[$i][$k + 1] = $this->H[$i][$k + 1] - $p * $q;  | 
                                |
| 799 | }  | 
                                |
| 800 | ||
| 801 | // Accumulate transformations  | 
                                |
| @@ 802-810 (lines=9) @@ | ||
| 799 | }  | 
                                |
| 800 | ||
| 801 | // Accumulate transformations  | 
                                |
| 802 |                         for ($i = $low; $i <= $high; ++$i) { | 
                                |
| 803 | $p = $x * $this->V[$i][$k] + $y * $this->V[$i][$k + 1];  | 
                                |
| 804 |                             if ($notlast) { | 
                                |
| 805 | $p = $p + $z * $this->V[$i][$k + 2];  | 
                                |
| 806 | $this->V[$i][$k + 2] = $this->V[$i][$k + 2] - $p * $r;  | 
                                |
| 807 | }  | 
                                |
| 808 | ||
| 809 | $this->V[$i][$k] = $this->V[$i][$k] - $p;  | 
                                |
| 810 | $this->V[$i][$k + 1] = $this->V[$i][$k + 1] - $p * $q;  | 
                                |
| 811 | }  | 
                                |
| 812 | } // ($s != 0)  | 
                                |
| 813 | } // k loop  | 
                                |