Help1:=proc(): print(` GameDB(), Rand2PlayerGame(a,b,K), IsDom(v1,v2)`):end:

#GameDB(): A data base  of famous games: Prisoner's dillema, Boattle of the Sexes,  Matching pennies, Figure 1.1.1. in Gibbons
GameDB:=proc():
[
[ [[-1,-1],[-9,0]], [[0,-9],[-6,-6]]],
[ [[2,1],[0,0]], [[0,0],[1,2]]],
[ [[-1,1],[1,-1]], [[1,-1],[-1,1]]],
[ [ [1,0],[1,2],[0,1]], [ [0,3],[0,1],[2,0]]],
[ [ [0,4],[4,0],[5,3]],[ [4,0],[0,4],[5,3]], [ [3,5],[3,5],[6,6]]]
]:
end:


#added after class:
#Rand2PlaerGame(a,b,K): A random 2-player (static) game where the Row player has a strategies (Row 1, .., Row a), the Column player has b strategies (Col. 1, ..., Crol. b)
#and the pay-offs are from 0 to K
Rand2PlayerGame:=proc(a,b,K)  local ra,i,j:
ra:=rand(0..K):

[seq([seq([ra(),ra()],j=1..b)],i=1..a)]:

end:

#IsDom(v1,v2): Given two lists of numbers is v1[i]<=v2[i] for all i
IsDom:=proc(v1,v2) local i:

for i from 1 to nops(v1) do
 if v1[i]>v2[i] then
  RETURN(false):
 fi:
od:
true:
end: