Mäng "Geoloogid vrs nafta"

a11=0.6;a12=0.3;a21=0.4;a22=0.5;

A={{a11,a12},{a21,a22}}; TableForm[A,TableHeadings->{{"Puurivad madalal","Puurivad sügaval"},{"Nafta madalal","Nafta sügaval"}}]

p1=((a22-a21)/(a11+a22-a12-a21)) (***madala puurimise optimaalne tõenäosus***)

p2= 1-p1 (***madala puurimise optimaalne tõenäosus***)

q1=((a22-a12)/(a11+a22-a12-a21))

q2=1-q1

v=((Det[A])/(a11+a22-a12-a21)) (***Mängu hind - nafta leidmise tõenäosus optimaalse segastrateegia korral***)