kanoi
9 years ago
3 changed files with 206 additions and 3 deletions
@ -0,0 +1,201 @@ |
|||||||
|
<?php |
||||||
|
# |
||||||
|
function lckg($nc, $av) |
||||||
|
{ |
||||||
|
$g = "function gdrw(c,d,cbx){gc(c);ghrs(c);gopt(c,cbx); |
||||||
|
gfs(c,'white');gss(c,'#0000c0');glw(c,2);gbd(c); |
||||||
|
var rows=d['rows'],ymin=0,ymax=0,xmin=-1,xmax=0,tlk=[]; |
||||||
|
var w=d['arp'].split(',');var cols=d['cols'].split(','); |
||||||
|
gsh(c,w); |
||||||
|
for(var j=1;j<w.length;j++){tlk[j-1]=$av} |
||||||
|
for(var i=0;i<rows;i++){var s=parseFloat(d['firstcreatedate:'+i]);d['vx:'+i]=s;if(xmin==-1||xmin>s){xmin=s}if(xmax<s){xmax=s} |
||||||
|
for(var j=1;j<w.length;j++){var pre=w[j];var lk=0,nam=pre+'luck:'+i;if(d[nam]){lk=parseFloat(d[nam])}if(lk>ymax)ymax=lk} |
||||||
|
} |
||||||
|
if(ymax>500){ymax=500} |
||||||
|
ghg(c,xmax-xmin); |
||||||
|
ggr(c,0.90,0.90,'Luck%',rows,xmin,xmax,ymin,ymax,d,'seq:','vx:','luck:',tlk,w,cols)} |
||||||
|
c={}; |
||||||
|
function dodrw(data,cbx){if(hasCan()){gdrw(c,sep(data),cbx)}} |
||||||
|
function gact(t){if(t.checked){scnv(t.id,1)}else{scnv(t.id,0)}godrw(0)}"; |
||||||
|
return $g; |
||||||
|
} |
||||||
|
# |
||||||
|
function doluck($data, $user) |
||||||
|
{ |
||||||
|
global $fld_sep, $val_sep; |
||||||
|
|
||||||
|
if ($user === null) |
||||||
|
$ans = getBlocks('Anon'); |
||||||
|
else |
||||||
|
$ans = getBlocks($user); |
||||||
|
|
||||||
|
$iCrap = strpos($_SERVER['HTTP_USER_AGENT'],'iP'); |
||||||
|
if ($iCrap) |
||||||
|
$vlines = false; |
||||||
|
else |
||||||
|
$vlines = true; |
||||||
|
|
||||||
|
$pg = '<h1>Pool Avg Block Luck History</h1><br>'; |
||||||
|
|
||||||
|
if ($ans['STATUS'] == 'ok' and isset($ans['rows']) and $ans['rows'] > 0) |
||||||
|
{ |
||||||
|
$count = $ans['s_rows'] - 1; |
||||||
|
$av = number_format(100 * $ans['s_luck:'.$count], 3); |
||||||
|
|
||||||
|
for ($i = 0; $i < $count; $i++) |
||||||
|
// This also defines how many lines there are |
||||||
|
$cols = array('#0000c0', '#00dd00', '#e06020', '#b020e0'); |
||||||
|
$nams = array(1, 5, 15, 25); |
||||||
|
$nc = count($cols); |
||||||
|
|
||||||
|
addGBase(); |
||||||
|
$cbx = array('skey' => 'block key', 'slines' => 'block lines', |
||||||
|
'tkey' => 'time key', 'tlines' => 'time lines', |
||||||
|
'over' => 'key overlap', 'smooth' => 'smooth', |
||||||
|
'utc' => 'utc'); |
||||||
|
$xon = array('skey' => 1, 'utc' => 1); |
||||||
|
if ($vlines === true) |
||||||
|
$xon['slines'] = 1; |
||||||
|
|
||||||
|
$pg .= '<div>'; |
||||||
|
foreach ($cbx as $nam => $txt) |
||||||
|
{ |
||||||
|
$pg .= ' <span class=nb>'; |
||||||
|
$pg .= "<input type=checkbox id=$nam onclick='gact(this)'>"; |
||||||
|
$pg .= "$txt </span>"; |
||||||
|
} |
||||||
|
$pg .= '</div><div>'; |
||||||
|
|
||||||
|
$i = 1; |
||||||
|
$datacols = ''; |
||||||
|
foreach ($cols as $col) |
||||||
|
{ |
||||||
|
if ($i != 1) |
||||||
|
$pg .= ' '; |
||||||
|
if ($i == 2 || $i == 4) |
||||||
|
$chk = ' checked'; |
||||||
|
else |
||||||
|
$chk = ''; |
||||||
|
$pg .= "<span class=nb><font color=$col>"; |
||||||
|
$pg .= "<input type=checkbox id=lin$i$chk onclick='godrw(0)'>: "; |
||||||
|
$pg .= $nams[$i-1].' Block Luck Avg</font></span>'; |
||||||
|
|
||||||
|
if ($i > 1) |
||||||
|
$datacols .= ','; |
||||||
|
$datacols .= $col; |
||||||
|
$i++; |
||||||
|
} |
||||||
|
|
||||||
|
$pg .= '</div>'; |
||||||
|
$pg .= '<div id=can0><canvas id=can width=1 height=1>'; |
||||||
|
$pg .= 'A graph will show here if your browser supports html5/canvas'; |
||||||
|
$pg .= "</canvas></div>\n"; |
||||||
|
|
||||||
|
$count = $ans['rows']; |
||||||
|
# add the orphan/reject ratios to the subsequent blocks |
||||||
|
$dr = 0; |
||||||
|
for ($i = $count-1; $i >= 0; $i--) |
||||||
|
{ |
||||||
|
$conf = $ans["confirmed:$i"]; |
||||||
|
if ($conf == '1' or $conf == 'F') |
||||||
|
{ |
||||||
|
$ans["diffratio:$i"] += $dr; |
||||||
|
$dr = 0; |
||||||
|
} |
||||||
|
else |
||||||
|
$dr += $ans["diffratio:$i"]; |
||||||
|
} |
||||||
|
|
||||||
|
# $ans blocks are 0->rows-1 highest->lowest |
||||||
|
# build an array of valid block offsets (reversed lowest->highest) |
||||||
|
$off = array(); |
||||||
|
for ($i = $count-1; $i >= 0; $i--) |
||||||
|
{ |
||||||
|
$conf = $ans["confirmed:$i"]; |
||||||
|
if ($conf == '1' or $conf == 'F') |
||||||
|
$off[] = $i; |
||||||
|
} |
||||||
|
|
||||||
|
$data = ''; |
||||||
|
$count = count($off); |
||||||
|
$avg = 0; |
||||||
|
# each valid block offset number (lowest->highest) |
||||||
|
for ($j = 0; $j < $count; $j++) |
||||||
|
{ |
||||||
|
$i = $off[$j]; |
||||||
|
|
||||||
|
$data .= $fld_sep . "height:$j$val_sep"; |
||||||
|
$data .= $ans["height:$i"]; |
||||||
|
$data .= $fld_sep . "seq:$j$val_sep"; |
||||||
|
$data .= $ans["seq:$i"]; |
||||||
|
$data .= $fld_sep . "firstcreatedate:$j$val_sep"; |
||||||
|
$data .= $ans["firstcreatedate:$i"]; |
||||||
|
$data .= $fld_sep . "0_luck:$j$val_sep"; |
||||||
|
$data .= number_format(100 * $ans['luck:'.$i], 3); |
||||||
|
|
||||||
|
$avg += $ans["diffratio:$i"]; |
||||||
|
|
||||||
|
$l5c = $l15c = $l25c = 1; |
||||||
|
$l5 = $l15 = $l25 = $ans['diffratio:'.$i]; |
||||||
|
|
||||||
|
# +/- offset from j (12 is the max for 25) |
||||||
|
for ($k = 1; $k <= 12; $k++) |
||||||
|
{ |
||||||
|
# we want the (n-1)/2 on each side of the offset number |
||||||
|
foreach (array(-1, 1) as $s) |
||||||
|
{ |
||||||
|
$o = $j + ($s * $k); |
||||||
|
if (0 <= $o && $o < $count) |
||||||
|
{ |
||||||
|
$dr = $ans['diffratio:'.$off[$o]]; |
||||||
|
if ($k <= 2) # (5-1)/2 |
||||||
|
{ |
||||||
|
$l5 += $dr; |
||||||
|
$l5c++; |
||||||
|
} |
||||||
|
if ($k < 7) # (15-1)/2 |
||||||
|
{ |
||||||
|
$l15 += $dr; |
||||||
|
$l15c++; |
||||||
|
} |
||||||
|
$l25 += $dr; |
||||||
|
$l25c++; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
# luck is 1/(mean diffratio) |
||||||
|
$data .= $fld_sep . "1_luck:$j$val_sep"; |
||||||
|
$data .= number_format(100 * $l5c / $l5, 3); |
||||||
|
$data .= $fld_sep . "2_luck:$j$val_sep"; |
||||||
|
$data .= number_format(100 * $l15c / $l15, 3); |
||||||
|
$data .= $fld_sep . "3_luck:$j$val_sep"; |
||||||
|
$data .= number_format(100 * $l25c / $l25, 3); |
||||||
|
} |
||||||
|
$data .= $fld_sep . 'rows' . $val_sep . $count; |
||||||
|
$data .= $fld_sep . 'arp' . $val_sep . ',0_,1_,2_,3_'; |
||||||
|
$data .= $fld_sep . 'cols' . $val_sep . $datacols; |
||||||
|
|
||||||
|
$pg .= "<script type='text/javascript'>\n"; |
||||||
|
$pg .= lckg($nc, 100*$count/$avg); |
||||||
|
$pg .= "\nfunction godrw(f){var cbx=["; |
||||||
|
$comma = ''; |
||||||
|
foreach ($cbx as $nam => $txt) |
||||||
|
{ |
||||||
|
$pg .= "$comma'$nam'"; |
||||||
|
$comma = ','; |
||||||
|
} |
||||||
|
$pg .= '];if(f){var xon={};'; |
||||||
|
foreach ($xon as $nam => $val) |
||||||
|
$pg .= "xon['$nam']=1;"; |
||||||
|
$pg .= "doinit(cbx,xon)}dodrw('$data',cbx)};godrw(1);</script>\n"; |
||||||
|
} |
||||||
|
|
||||||
|
return $pg; |
||||||
|
} |
||||||
|
# |
||||||
|
function show_luck($info, $page, $menu, $name, $user) |
||||||
|
{ |
||||||
|
gopage($info, NULL, 'doluck', $page, $menu, $name, $user); |
||||||
|
} |
||||||
|
# |
||||||
|
?> |
||||||
Loading…
Reference in new issue