/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 11.04.0 ] */ /* [wxMaxima: section start ] Battle of the Sexes [wxMaxima: section end ] */ /* [wxMaxima: subsect start ] Define Generalised Expectation for general 2*2 minimax) [wxMaxima: subsect end ] */ /* [wxMaxima: input start ] */ E1(x,y):=(a11*x*y + a12*x*(1-y)) + (a21*(1-x)*y + a22*(1-x)*(1-y)); E2(x,y):=(b11*x*y + b12*x*(1-y)) + (b21*(1-x)*y + b22*(1-x)*(1-y)); /* [wxMaxima: input end ] */ /* [wxMaxima: subsect start ] Define Expectation Co-efficients (for Battle of Sexes) [wxMaxima: subsect end ] */ /* [wxMaxima: input start ] */ a11:1; b11:4; a12:0; b12:0; a21:0; b21:0; a22:4; b22:1; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Expand(E1(x,y)); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Expand(E2(x,y)); /* [wxMaxima: input end ] */ /* [wxMaxima: subsect start ] Plot Graph (Parametric in two variables x,y) [wxMaxima: subsect end ] */ /* [wxMaxima: input start ] */ plot3d([E1(x,y),E2(x,y),1],[x,0,1],[y,0,1],[legend,"Battle of the Sexes"],[xlabel, "hello"],[ylabel, "bye"],[zlabel, "Z"]); /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$