(*DefinethepayoffMatrixfunction*)payoffMatrix[beta_,psi_]:=Module[{},(*Initializethepayoffmatrix*)payoff={{"","Player 1","Player 2"},{"Player 1\\Player 2","Cooperate","Defect"},{"Cooperate",Row[{beta–psi,", ",beta–psi}],Row[{–psi,", ",beta}]},{"Defect",Row[{beta,", ",–psi}],Row[{0,", ",0}]}};(*DisplaythepayoffmatrixusingGrid*)Grid[payoff,Frame–>All,FrameStyle–>Directive[GrayLevel[0],Thickness[.005]],ItemStyle–>Directive[FontSize–>16],Alignment–>{{Right,Center,Center},{Bottom,Center,Center}},Spacings–>{2,2}]](*Testthefunctionwithbeta=5andpsi=2*)payoffMatrix[5,2]
