--------------------------------------------------------------------------------
                                   Vafra v1.0                                   
--------------------------------------------------------------------------------
 personality  characteristics                                  ECF grade & diff. 
--------------------------------------------------------------------------------
 Hyatt                                                         253 (-17 -16 -63)
 Singleton    Hyatt :s.e (singular ext.)                       257 (-13,-17,-59)
 Redmond      Hyatt :s.r.s (LMR, better move sort)             250 (-20,-22,-66) 
 Brutus       Hyatt :s.f.n.r (brute force)                     225 (-45,-49,-91)  
 Craft        Hyatt :s.r.e.s.q (est. best search)                ? (  ?   ?   ?)          
 ?            Hyatt ?                                            ? (  ?   ?   ?)          
--------------------------------------------------------------------------------
 10 min, 320 games, 4 opponents, 40 Nunn's silver positions   
--------------------------------------------------------------------------------
  
--------------------------------------------------------------------------------
 Tank         Switch :s.a:s.e:s.n:s.f:s.r:s.q:s.s:m.Qbe:o.l:d:P:N:B:R:Q:K:t:a:p       
 Smith        Anderson 0.05m 1.00~ :s.f:P'p:K
 Matrix       Alice 0.50* :P'p
 Morpheus     Neo Trinity 1.00i 0.50c 0.05m 1.00~ 'P:p
--------------------------------------------------------------------------------

--------------------------------------------------------------------------------
ClearAll[g, gN, gR, gS, gC, gZ, dR, pR, qR, dS, pS, qS, dZ, pZ, qZ, dC, pC, qC];
gR = 316; gS = 297; gC = 270; gZ = 254;
qR = 98.7; qS = 78.1; qC = 71.2; qZ = 46.2;
g = 50;
pR = (100 - qR);
pS = (100 - qS);
pC = (100 - qC);
pZ = (100 - qZ);
dR = -((g*Log[-((-100 + pR)/pR)])/Log[10]);
dS = -((g*Log[-((-100 + pS)/pS)])/Log[10]);
dC = -((g*Log[-((-100 + pC)/pC)])/Log[10]);
dZ = -((g*Log[-((-100 + pZ)/pZ)])/Log[10]);
gN = N[((gR + dR) + (gS + dS) + (gC + dC) + (gZ + dZ))/4];
Round[gN]
Print[];
Round[{gN - gC, N[(gC + dC)] - gC, gN - gR}]
--------------------------------------------------------------------------------

27/07/2010