From 0f0cc5b4d3b72534139a43d56736a2dcf7f21f04 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 24 Nov 2025 16:00:14 +0100 Subject: Greek letters ftw. --- services/nnls.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/services/nnls.rkt b/services/nnls.rkt index 8fdccc8..40f03ab 100644 --- a/services/nnls.rkt +++ b/services/nnls.rkt @@ -214,12 +214,12 @@ (test-case "Two variables, known solution" (define A (matrix [[1 0] [0 1]])) (define y (col-matrix [3 4])) - (define epsilon 1e-6) + (define ε 1e-6) - (define result (lawson-hanson-1974 A y epsilon)) + (define result (lawson-hanson-1974 A y ε)) - (check-= (matrix-ref result 0 0) 3.0 epsilon "x1 should be 3") - (check-= (matrix-ref result 1 0) 4.0 epsilon "x2 should be 4")) + (check-= (matrix-ref result 0 0) 3.0 ε "x1 should be 3") + (check-= (matrix-ref result 1 0) 4.0 ε "x2 should be 4")) (test-case "Overdetermined system" (define A (matrix [[1 1] [2 1] [1 2]])) @@ -235,9 +235,9 @@ (test-case "Non-negativity enforcement" (define A (matrix [[1 -1] [1 1]])) (define y (col-matrix [1 3])) - (define epsilon 1e-6) + (define ε 1e-6) - (define result (lawson-hanson-1974 A y epsilon)) + (define result (lawson-hanson-1974 A y ε)) ;; All results should be non-negative (check-true (>= (matrix-ref result 0 0) 0) "x1 should be non-negative") -- cgit v1.2.3