diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-22 13:38:55 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-22 13:38:55 +0100 |
| commit | 4732470fa6bfedd0fc8fa6709e6b941f8c649280 (patch) | |
| tree | 8a1989ca1bb67cc782c4b0673aece61287274c87 /services/nnls.rkt | |
| parent | 31cce892597693c771db0fdbc2be14aba3ff702e (diff) | |
Fix matrix scaling error.
Diffstat (limited to 'services/nnls.rkt')
| -rw-r--r-- | services/nnls.rkt | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/services/nnls.rkt b/services/nnls.rkt index 16703d2..2c5738f 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -155,7 +155,7 @@ (error 'lawson-hanson-1974 "no valid α in inner loop")) ;; x ← x + α (s − x) - (define new-x (matrix+ x (matrix* α (matrix- s x)))) + (define new-x (matrix+ x (matrix-scale (matrix- s x) α))) ;; Move to R all indices j in P with x_j <= 0 (define to-remove '()) |