Matt McCutchen's Web Site
/
match
/
match.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
First attempt at evaluating the quality of matchings.
[match/match.git]
/
program
/
Test.hs
diff --git
a/program/Test.hs
b/program/Test.hs
index
8307e38
..
1530aa9
100644
(file)
--- a/
program/Test.hs
+++ b/
program/Test.hs
@@
-13,7
+13,10
@@
module Test (
-- Run randomized things.
module System.Random,
-- Run randomized things.
module System.Random,
- module RandomizedMonad
+ module RandomizedMonad,
+
+ -- Evaluate.
+ module Evaluation
) where
import TestUtils
import PMInstance
) where
import TestUtils
import PMInstance
@@
-22,6
+25,7
@@
import ProposalMatcher
import PMDefaults
import System.Random
import RandomizedMonad
import PMDefaults
import System.Random
import RandomizedMonad
+import Evaluation
-- Other imports we need
import BellmanFord
-- Other imports we need
import BellmanFord
@@
-71,3
+75,8
@@
rrg2 = flowAnnotate rrg rdnFlowArray
myMatching = doMatching pmDefaults myInst
iGraph = showInstanceAsGraph myInst myMatching -- Visualize me!
myMatching = doMatching pmDefaults myInst
iGraph = showInstanceAsGraph myInst myMatching -- Visualize me!
+
+-- Evaluation!
+eInst = runRandom myGen $ randomInstance 20 50
+eval1 = doEvaluateMatching pmDefaults eInst
+eval2 = doEvaluateMatching pmDefaults{loadTolerance = 2} eInst