Changeset 27419 in project
- Timestamp:
- 09/13/12 10:18:17 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/glpk/trunk/tests/run.scm
r25187 r27419 57 57 (let ((status (lpx:simplex lpp))) 58 58 (assert (= status 200)) 59 (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-1 5))60 (assert (every (lambda (x y) (< (abs (- x y)) 1e-1 5))59 (assert (< (abs (- (lpx:get-objective-value lpp) 733.33333333333333)) 1e-12)) 60 (assert (every (lambda (x y) (< (abs (- x y)) 1e-12)) 61 61 (f64vector->list (lpx:get-column-primals lpp)) 62 62 '(33.333333333333333 66.66666666666667 0.0)))
Note: See TracChangeset
for help on using the changeset viewer.