From 4732470fa6bfedd0fc8fa6709e6b941f8c649280 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 22 Nov 2025 13:38:55 +0100 Subject: Fix matrix scaling error. --- services/nnls.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 '()) -- cgit v1.2.3