diff options
Diffstat (limited to 'services')
| -rw-r--r-- | services/nnls.rkt | 12 |
1 files 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") |