Guest User

Untitled

a guest
Jan 22nd, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. NumberOfTeams = 21;
  2. NumberOfFields = 7;
  3. NumberOfRounds = 10;
  4.  
  5. TeamList = Table[i, {i, NumberOfTeams}];
  6. Games = Permutations[TeamList, {2}];
  7.  
  8. ListPossibleGames = DeleteDuplicates[Map[Sort, Games]]
  9. RandomGames =RandomSample[ListPossibleGames,NumberOfFields*NumberOfRounds]
Add Comment
Please, Sign In to add comment