X-Git-Url: https://mattmccutchen.net/match/match.git/blobdiff_plain/93082682db1a115cfe8b485d30df6e4856207d4b..35ce78e3b164a71da6177f0577b598a12198d237:/program/PMDefaults.hs

diff --git a/program/PMDefaults.hs b/program/PMDefaults.hs
index aa68aac..2f4a687 100644
--- a/program/PMDefaults.hs
+++ b/program/PMDefaults.hs
@@ -5,6 +5,7 @@ import PMConfig
 import qualified NaiveMinCostFlow
 import qualified CS2MinCostFlow
 
+-- A default set of configuration values; see module PMConfig.
 pmDefaults = PMConfig {
 
 -- === Choose a min-cost flow implementation (timings on mattlaptop2) ===
@@ -58,6 +59,22 @@ assignmentCost = \pref -> (numAsWt 10 + pref) ^ 2,
 knowledgeableBonus = 1000,
 
 -- Bonus for an additional expert review.
-expertBonus = 1000
+expertBonus = 1000,
+
+-- === Parameters for the random-instance generator ===
+
+-- Number of topics.
+numTopics = 20,
+
+-- Exponent of the Zipf distribution used to choose topics for each proposal.
+topicZipfExponent = -0.5,
+
+-- === Parameters for the matching evaluator ===
+
+-- The weights given to the best, ..., worst review of a proposal in evaluating
+-- its "unhappiness".  Default is [reviewsEachProposal, ..., 1] since it's most
+-- important for the best review to be good.
+reviewEvalWeights = let rep = reviewsEachProposal pmDefaults in
+	map numAsWt [rep, rep-1 .. 1]
 
 }