Mäng "Serena Williams vrs Venus Williams"

a11=0.5;a12=0.8;a21=0.9;a22=0.2;

A={{a11,a12},{a21,a22}}; TableForm[A,TableHeadings->{{"Serena DL","Serena CC"},{"Venus DL","Venus CC"}}]

p1=((a22-a21)/(a11+a22-a12-a21)) (***Serena käigu DL valiku tõenäosus***)

p2= 1-p1 (***Serena käigu CC valiku tõenäosus***)

q1=((a22-a12)/(a11+a22-a12-a21))(***Venuse käigu DL valiku tõenäosus***)

q2=1-q1(***Venuse käigu CC valiku tõenäosus***)

v=((Det[A])/(a11+a22-a12-a21)) (***Serena võidu tõenäosus mõlema optimaalse  käikude valiku puhul***)