テニス大会のタイムテーブルのプログラミングについて

質問

テニス大会の乱数表（プログラミング）作成をお手伝いいただけませんか？

大会開催に関して、下記の比較的、複雑な条件下で大会を運営しています。
そこでテニス大会の乱数表（プログラミング）作成していただける方を探しています。

対戦表（～班～ペア vs ～班～ペア）×（85～100試合）
はこちらで作成いたします。

そこで、それらの試合を
以下の(1)～(17)の条件を満たしたうえで
試合投入できるようなスケジュール（順番と枠組みのみでＯＫ）
を組めるプログラムを探しております。こちらOSはウインドウズ７です。

---------条件は以下です--------

(1)「３日」で完了する「ダブルス」のテニス大会
総人数は５５～７０名程のメンバーが、
あらかじめ「4つの班」 に分かれ、人数はほぼ均等に振り分けられている。
ここでは（o班、j班、n班、y班とする）

(2)班内でペアを作り、他班のペアとダブルスの試合する。
一人あたりの試合数がおおよそ６試合前後になるように私が組んでいるが、
各人の試合数はその人によって異なる。
（大会の総試合数はおおよそ８０～１００試合ぐらい）
レベル別に近い者同士がペアを組んで、他の班のおおよそ同レベルの相手と試合できるように事前に組んでいる。
なので、すべての対戦内容は（班内でのペアと、 その対戦相手の組み合わせ）は予め決まっているし、
各々の試合内容は大会内での他の試合の結果から変動することはない。

(3)大会プログラムは１日目、２日目、３日目ともに
・朝A （３試合）
・朝B （６～８試合）
・朝C （４試合）
・昼A （３試合）
・昼B （９～１２試合）
・夜A （２試合）
以上のような予定で行うとする。

(4)コートについては、頃合いをみて運営スタッフが空いたコートに試合をコールする。
ゆえに最大のコート数や、コート番号はここでは無視する。

(5)３日目は、１、２日目のどちらよりも少ない試合数であるとする。
また、１日目と２日目の試合数の差は最大３つまでとする。

(6)１人が一日分として試合できる数は１～３試合である。
０試合と4試合以上は不可能とする。

(7)朝A,Bでの試合を禁止される人もいる。各人について入力欄を設け制約の変更がきくようにしたい

(8)一日分で３試合行うことがが禁止される人もいる。各人について入力欄を設け制約の変更がきくようにしたい

(9)個々人にについて
試合間隔は「自分の入っていない６試合」 を空けなければ次の試合に入ってはならない。
「6試合分の時間」ではなく「必ず6試合あける」こととする。
この条件(9)は日にちごとに有効だが、日は跨がない。

(10)「朝A、昼A、夜A」 の（２試合または３試合）は、条件(9)の試合間隔を計算する際には、
まとめて１試合分としてでカウントする

例えば、、、
・（朝A-1～朝A-3）のいずれかの試合に出場した選手は6試合の間隔をあけるため、
（朝B‐1 ～ 朝B-6）には出場できない。

・朝C－４に出場した選手は6試合の間隔をあけるため、
（昼A-1～昼A-3、昼B-１～昼B-５）には出場できない。

(11)夜Aで対戦を行うペアとその対戦相手ペアは初めから決まっていて固定である。
配置・内容は変動しない試合だが、試合出場者はその他の条件の対象としてカウントされる試合である。

(12)ある試合が「その試合の参加者（4名のうちの誰か1人、もしくは２～４人で複数の可能性もある）にとっての、
その大会内での最後の試合」となるように設定しなければならないことがある。
例えば、一人あたり６試合行う人がいたとしたら、その人にとって必ず６番目に持ってこなければならない試合
が存在する可能性がある。

(13)（ｎ班のペア ｖｓ ｙ班のペア）による対戦が３つ以上連続してはならない。
またこれは、（ｎ班,ｏ班,ｙ班,ｊ班） のすべての班同士についても同様とする。
ただし夜Aの試合については考慮しない

(14)ｎ班全体で見たときに、 ｙ班のペアとの対戦が一日分の試合の半分以上を占めてはならない 。
またこれは、（ｎ班,ｏ班,ｙ班,ｊ班） のすべての班同士についても同様とする。

(15)もし3日間の大会ではなく、 2日間の大会だと総試合数は60試合程度になる。
その場合、２日目の試合数が１日目より多くなってはいけない。

(16)大会が２日間のときでも、(1)～(17)を満たすスケジュールを出力できるプログラミングの仕様だと望ましい。
3日間用と2日間用が別々になっても大丈夫です。

(17)出力される3日間のスケジュールは以上の条件を満たす、ランダムに1パターンないしは、全パターンの出力が望ましい。

-------------条件は以上ですーーーーーーーーーーーーーー

８月31日の大会に間に合わせたいと考えています。
が、難しい場合については
(12)(13)(14)(15)の条件については,
手作業で満たしているかどうか確認を行うので省いても大丈夫です。

回答No.19

ki073

# MatchScheduleID_Player_tableを書き換え
s.t. update_MatchScheduleID_Player_table{ms in MatchScheduleIDSet, py in PlayerSet}:
sum{mp in MatchPairIDSet : MatchPairID_Player[mp, py]=1}MatchScheduleID_MatchPairID_table[ms,mp]=MatchScheduleID_Player_table[ms, py];
# ABに試合ができないPlayerの処理
s.t. avoidAB{ms in MatchScheduleIDAB, py in AvoidABPlayerSet}: MatchScheduleID_Player_table[ms ,py]=0;

# MatchScheduleID_Group2_tableを書き換え
s.t. update_MatchScheduleID_Group2_table{ms in MatchScheduleIDSet, (group1, group2) in GroupPairofMatches}:
sum{mp in MatchPairIDSet: MatchPairID_Group2[mp, group1, group2]=1}MatchScheduleID_MatchPairID_table[ms,mp]=MatchScheduleID_Group2_table[ms, group1, group2];
s.t. uniq_group{ms in MatchScheduleIDSet}: sum{(group1, group2) in GroupPairofMatches}MatchScheduleID_Group2_table[ms, group1, group2]=1;

# 同じグループの組み合わせが3回連続しない 夜は含めない
s.t. group_exception{ms in group_exception3, (group1, group2) in GroupPairofMatches}:
sum{k in 0..2}MatchScheduleID_Group2_table[ms-k, group1, group2]<=2;

# 連続した9試合中1試合以下であること
s.t. one_or_zero_in_9_matches{ms in check_9_matches, py in PlayerSet}:
sum{k in 0..8}MatchScheduleID_Player_table[ms-k, py]<=1;
# 連続した8試合中1試合以下であること
s.t. one_or_zero_in_8_matches{ms in check_8_matches, py in PlayerSet}:
sum{k in 0..7}MatchScheduleID_Player_table[ms-k, py]<=1;
# 連続した7試合中1試合以下であること
s.t. one_or_zero_in_7_matches{ms in check_7_matches, py in PlayerSet}:
sum{k in 0..6}MatchScheduleID_Player_table[ms-k, py]<=1;
solve;
# 出力
for{(group1, group2) in GroupPairofMatches}
{printf "# %s : %s %s 試合\n", group1, group2, sum{mp in MatchPairIDSet}MatchPairID_Group2[mp, group1, group2];}
for{ms in MatchScheduleIDSet}
{for {mp in MatchPairIDSet : MatchScheduleID_MatchPairID_table[ms, mp]=1}
{printf "%s %s %s %s %s %s (%s : %s) %s\n", ms, mp, Player1[mp], Player2[mp], Player3[mp], Player4[mp],
AssignedGroup[Player1[mp]], AssignedGroup[Player3[mp]],
if mp in avoidABMatchPairIDSet then " 朝ABを避ける試合" else "";}
}