File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -29,13 +29,13 @@ that describes the mechanics:
2929https://en.wikipedia.org/wiki/QR_decomposition#Using_Householder_reflections
3030"
3131
32- | identityMatrix householderVector i matrixOfMinor |
33- identityMatrix := PMSymmetricMatrix identity: colSize.
32+ | i matrixOfMinor |
3433 1 to: self numberOfColumns do: [ :col |
35- | columnVectorFromRMatrix householderMatrix v |
34+ | householderVector householderMatrix columnVectorFromRMatrix identityMatrix v |
3635 columnVectorFromRMatrix := r columnVectorAt: col size: colSize.
3736 householderVector := columnVectorFromRMatrix householder.
3837 v := (PMVector zeros: col - 1 ) , (householderVector at: 2 ).
38+ identityMatrix := PMSymmetricMatrix identity: colSize.
3939 householderMatrix := identityMatrix
4040 -
4141 ((householderVector at: 1 ) * v tensorProduct: v).
You can’t perform that action at this time.
0 commit comments