Algorithmic game theory with Mathematica

Load the Wolfram language script with

<<bimatrix.m

For payoff matrices A and B, display the bimatrix with

BimatrixForm[A,B]

Solve the game with

NashEquilbria[A,B] for support enumeration algorithm

NashEquilibria[A,B,Select->One] for Lemke Howson algorithm

NashEquilibria[A,B,Select->s] for symbolic solution, where s is a list of numerical substitutions for the symbols in A and B.