You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
397 lines
8.7 KiB
397 lines
8.7 KiB
<?php |
|
# |
|
function erlcolour($erl) |
|
{ |
|
if ($erl <= 0.5) |
|
{ |
|
$grn = (-0.3 - log10($erl)) * 383; |
|
if ($grn < 0) |
|
$grn = 0; |
|
if ($grn > 255) |
|
$grn = 255; |
|
|
|
if ($grn > 190) |
|
$fg = 'blue'; |
|
else |
|
$fg = 'white'; |
|
$bg = sprintf("#00%02x00", $grn); |
|
} |
|
else # ($erl > 0.5) |
|
{ |
|
$red = (-0.3 - log10(1.0 - $erl)) * 255; |
|
if ($red < 0) |
|
$red = 0; |
|
if ($red > 255) |
|
$red = 255; |
|
|
|
$fg = 'white'; |
|
$bg = sprintf("#%02x0000", $red); |
|
} |
|
|
|
return array($fg, $bg); |
|
} |
|
# |
|
function pctcolour($pct) |
|
{ |
|
if ($pct == 100) |
|
{ |
|
$fg = 'white'; |
|
$bg = 'black'; |
|
} |
|
|
|
if ($pct < 100) |
|
{ |
|
$grn = (2.0 - log10($pct)) * 255; |
|
if ($grn < 0) |
|
$grn = 0; |
|
if ($grn > 255) |
|
$grn = 255; |
|
|
|
if ($grn > 190) |
|
$fg = 'blue'; |
|
else |
|
$fg = 'white'; |
|
$bg = sprintf("#00%02x00", $grn); |
|
} |
|
|
|
if ($pct > 100) |
|
{ |
|
$red = (log10(pow($pct,4.0)) - 8.0) / 3.0 * 255; |
|
if ($red < 0) |
|
$red = 0; |
|
if ($red > 255) |
|
$red = 255; |
|
|
|
$fg = 'white'; |
|
$bg = sprintf("#%02x0000", $red); |
|
} |
|
|
|
return array($fg, $bg); |
|
} |
|
# |
|
function doblocks($data, $user) |
|
{ |
|
$blink = '<a href=https://www.blocktrail.com/BTC/block/'; |
|
|
|
$pg = ''; |
|
|
|
if ($user === null) |
|
$ans = getBlocks('Anon'); |
|
else |
|
$ans = getBlocks($user); |
|
|
|
if (nuem(getparam('csv', true))) |
|
$wantcsv = false; |
|
else |
|
$wantcsv = true; |
|
|
|
if ($wantcsv === false) |
|
{ |
|
if ($ans['STATUS'] == 'ok' and isset($ans['s_rows']) and $ans['s_rows'] > 0) |
|
{ |
|
$pg .= '<h1>Block Statistics</h1>'; |
|
$pg .= "<table cellpadding=0 cellspacing=0 border=0>\n"; |
|
$pg .= "<thead><tr class=title>"; |
|
$pg .= "<td class=dl>Description</td>"; |
|
$pg .= "<td class=dr>Time</td>"; |
|
$pg .= "<td class=dr>MeanTx%</td>"; |
|
$pg .= "<td class=dr>Diff%</td>"; |
|
$pg .= "<td class=dr>Mean%</td>"; |
|
$pg .= "<td class=dr>CDF[Erl]</td>"; |
|
$pg .= "<td class=dr>Luck%</td>"; |
|
|
|
$tt = "<span class=q onclick='tip(\"ppst\",6000)'>"; |
|
$tt .= '?</span><span class=tip0>'; |
|
$tt .= "<span class=notip id=ppst>"; |
|
$tt .= "Pool PPS%: MeanTx% * Luck% minus the pool fee</span></span>"; |
|
|
|
$pg .= "<td class=dr>${tt}PPS%</td>"; |
|
$pg .= "</tr></thead><tbody>\n"; |
|
|
|
$since = $data['info']['lastblock']; |
|
|
|
$count = $ans['s_rows']; |
|
for ($i = 0; $i < $count; $i++) |
|
{ |
|
if (($i % 2) == 0) |
|
$row = 'even'; |
|
else |
|
$row = 'odd'; |
|
|
|
$desc = $ans['s_desc:'.$i]; |
|
$age = daysago($since - $ans['s_prevcreatedate:'.$i]); |
|
$diff = number_format(100 * $ans['s_diffratio:'.$i], 2); |
|
$mean = number_format(100 * $ans['s_diffmean:'.$i], 2); |
|
|
|
$cdferl = $ans['s_cdferl:'.$i]; |
|
list($fg, $bg) = erlcolour($cdferl); |
|
$cdferldsp = "<font color=$fg>".number_format($cdferl, 4).'</font>'; |
|
$bg = " bgcolor=$bg"; |
|
|
|
$luck = number_format(100 * $ans['s_luck:'.$i], 2); |
|
$txm = number_format(100 * $ans['s_txmean:'.$i], 1); |
|
|
|
$poolfee = 0.9; # pool fee as a % out of 100 |
|
$o = number_format((100 - $poolfee) * $ans['s_txmean:'.$i] / $ans['s_diffmean:'.$i], 2); |
|
|
|
$pg .= "<tr class=$row>"; |
|
$pg .= "<td class=dl>$desc Blocks</td>"; |
|
$pg .= "<td class=dr>$age</td>"; |
|
$pg .= "<td class=dr>$txm%</td>"; |
|
$pg .= "<td class=dr>$diff%</td>"; |
|
$pg .= "<td class=dr>$mean%</td>"; |
|
$pg .= "<td class=dr$bg>$cdferldsp</td>"; |
|
$pg .= "<td class=dr>$luck%</td>"; |
|
$pg .= "<td class=dr>$o%</td>"; |
|
$pg .= "</tr>\n"; |
|
} |
|
$pg .= "</tbody></table>\n"; |
|
} |
|
|
|
if ($ans['STATUS'] == 'ok') |
|
{ |
|
$count = $ans['rows']; |
|
$histsiz = $ans['historysize'] . ' '; |
|
if ($count == 1) |
|
{ |
|
$num = ''; |
|
$s = ''; |
|
} |
|
else |
|
{ |
|
$num = " $count"; |
|
$s = 's'; |
|
} |
|
|
|
$pg .= "<h1>Last$num Block$s</h1>"; |
|
} |
|
else |
|
{ |
|
$histsiz = ''; |
|
$pg .= '<h1>Blocks</h1>'; |
|
} |
|
|
|
list($fg, $bg) = pctcolour(25.0); |
|
$pg .= "<span style='background:$bg; color:$fg;'>"; |
|
$pg .= " Green </span> "; |
|
$pg .= 'is good luck. Lower Diff% and brighter green is better luck.<br>'; |
|
list($fg, $bg) = pctcolour(100.0); |
|
$pg .= "<span style='background:$bg; color:$fg;'>"; |
|
$pg .= " 100% </span> "; |
|
$pg .= 'is expected average. '; |
|
list($fg, $bg) = pctcolour(400.0); |
|
$pg .= "<span style='background:$bg; color:$fg;'>"; |
|
$pg .= " Red </span> "; |
|
$pg .= 'is bad luck. Higher Diff% and brighter red is worse luck.<br><br>'; |
|
|
|
$pg .= "<table cellpadding=0 cellspacing=0 border=0>\n"; |
|
$pg .= "<thead><tr class=title>"; |
|
$pg .= "<td class=dr>#</td>"; |
|
$pg .= "<td class=dl>Height</td>"; |
|
if ($user !== null) |
|
$pg .= "<td class=dl>Who</td>"; |
|
$pg .= "<td class=dr>Block Reward</td>"; |
|
$pg .= "<td class=dc>When UTC</td>"; |
|
$pg .= "<td class=dl>Status</td>"; |
|
$pg .= "<td class=dr>Diff</td>"; |
|
$pg .= "<td class=dr>Diff%</td>"; |
|
$pg .= "<td class=dr>CDF</td>"; |
|
$pg .= "<td class=dr>${histsiz}Luck%</td>"; |
|
$pg .= "<td class=dr>B</td>"; |
|
$pg .= "</tr></thead>\n"; |
|
} |
|
$blktot = 0; |
|
$nettot = 0; |
|
$i = 0; |
|
$cnt = 0; |
|
$orph = false; |
|
$csv = "Sequence,Height,Status,Timestamp,DiffAcc,NetDiff,Hash\n"; |
|
if ($ans['STATUS'] == 'ok') |
|
{ |
|
$pg .= '<tbody>'; |
|
$count = $ans['rows']; |
|
$colpct = 0; |
|
for ($i = $count - 1; $i >= 0; $i--) |
|
{ |
|
$conf = $ans['confirmed:'.$i]; |
|
$diffratio = $ans['diffratio:'.$i]; |
|
if ($diffratio > 0) |
|
{ |
|
$colpct += 100.0 * $diffratio; |
|
$ans['colpct:'.$i] = $colpct; |
|
if ($conf != 'O' and $conf != 'R') |
|
$colpct = 0; |
|
} |
|
} |
|
for ($i = 0; $i < $count; $i++) |
|
{ |
|
if (($i % 2) == 0) |
|
$row = 'even'; |
|
else |
|
$row = 'odd'; |
|
|
|
$hi = $ans['height:'.$i]; |
|
$hifld = "$blink$hi>$hi</a>"; |
|
|
|
$ex = ''; |
|
$conf = $ans['confirmed:'.$i]; |
|
$stat = $ans['status:'.$i]; |
|
$inf = $ans['info:'.$i]; |
|
$tt = ''; |
|
if ($conf == 'O' or $conf == 'R') |
|
{ |
|
$ex = 's'; |
|
$orph = true; |
|
$seq = ''; |
|
$nn = $cnt; |
|
if ($conf == 'R') |
|
{ |
|
addTips(); |
|
$in = explode(':', $inf, 2); |
|
if (trim($in[0]) != '') |
|
$stat = trim($in[0]); |
|
if (count($in) < 2 or trim($in[1]) == '') |
|
{ |
|
$tip = 'Share diff was VERY close<br>'; |
|
$tip .= 'so we tested it,<br>'; |
|
$tip .= "but it wasn't worthy<br>"; |
|
} |
|
else |
|
$tip = str_replace('+', '<br>', trim($in[1])); |
|
|
|
$tt = "<span class=q onclick='tip(\"btip$i\",6000)'>"; |
|
$tt .= '?</span><span class=tip0>'; |
|
$tt .= "<span class=notip id=btip$i>"; |
|
$tt .= "$tip</span></span>"; |
|
} |
|
} |
|
else |
|
{ |
|
$seq = $ans['seq:'.$i]; |
|
$nn = ++$cnt; |
|
} |
|
if ($conf == '1') |
|
{ |
|
if (isset($data['info']['lastheight'])) |
|
{ |
|
$confn = 1 + $data['info']['lastheight'] - $hi; |
|
$stat = '+'.$confn.' Confirms'; |
|
} |
|
else |
|
$stat = 'Conf'; |
|
} |
|
|
|
$stara = ''; |
|
if ($conf == 'O' or $conf == 'R') |
|
$stara = '<span class=st1>*</span>'; |
|
|
|
if (isset($ans['statsconf:'.$i])) |
|
{ |
|
if ($ans['statsconf:'.$i] == 'Y') |
|
$approx = ''; |
|
else |
|
$approx = '~'; |
|
} |
|
else |
|
$approx = ''; |
|
|
|
$diffacc = $ans['diffacc:'.$i]; |
|
$acc = number_format($diffacc, 0); |
|
|
|
$netdiff = $ans['netdiff:'.$i]; |
|
$diffratio = $ans['diffratio:'.$i]; |
|
$cdf = $ans['cdf:'.$i]; |
|
$luck = $ans['luck:'.$i]; |
|
$hist = $ans['luckhistory:'.$i]; |
|
|
|
if ($diffratio > 0) |
|
{ |
|
$pct = 100.0 * $diffratio; |
|
$colpct = $ans['colpct:'.$i]; |
|
if ($conf != 'O' and $conf != 'R') |
|
{ |
|
list($fg, $bg) = pctcolour($colpct); |
|
$bpct = "<font color=$fg>$approx".number_format($pct, 3).'%</font>'; |
|
$bg = " bgcolor=$bg"; |
|
$histdsp = "$approx".number_format(100.0 * $hist, 2).'%'; |
|
} |
|
else |
|
{ |
|
$bpct = "$approx".number_format($pct, 3).'%'; |
|
$bg = ''; |
|
$histdsp = ' '; |
|
} |
|
$blktot += $diffacc; |
|
if ($conf != 'O' and $conf != 'R') |
|
$nettot += $netdiff; |
|
|
|
$cdfdsp = number_format($cdf, 3); |
|
} |
|
else |
|
{ |
|
$bg = ''; |
|
$bpct = '?'; |
|
$cdfdsp = '?'; |
|
$histdsp = '?'; |
|
} |
|
|
|
if ($wantcsv === false) |
|
{ |
|
$pg .= "<tr class=$row>"; |
|
$pg .= "<td class=dr$ex>$seq</td>"; |
|
$pg .= "<td class=dl$ex>$hifld</td>"; |
|
if ($user !== null) |
|
{ |
|
list($abr, $nam) = dspname($ans['workername:'.$i]); |
|
$pg .= "<td class=dl$ex>$nam</td>"; |
|
} |
|
$pg .= "<td class=dr$ex>".btcfmt($ans['reward:'.$i]).'</td>'; |
|
$pg .= "<td class=dc$ex>".utcd($ans['firstcreatedate:'.$i], false, false).'</td>'; |
|
$pg .= "<td class=dl$ex>$tt$stat</td>"; |
|
$pg .= "<td class=dr>$stara$approx$acc</td>"; |
|
$pg .= "<td class=dr$bg>$bpct</td>"; |
|
$pg .= "<td class=dr>$cdfdsp</td>"; |
|
$pg .= "<td class=dr>$histdsp</td>"; |
|
$pg .= "<td class=dr>$nn</td>"; |
|
$pg .= "</tr>\n"; |
|
} |
|
else |
|
{ |
|
$csv .= "$seq,"; |
|
$csv .= "$hi,"; |
|
$csv .= "\"$stat\","; |
|
$csv .= $ans['firstcreatedate:'.$i].','; |
|
$csv .= "$diffacc,"; |
|
$csv .= "$netdiff,"; |
|
$csv .= $ans['blockhash:'.$i]."\n"; |
|
} |
|
} |
|
$pg .= '</tbody>'; |
|
} |
|
if ($wantcsv === true) |
|
{ |
|
echo $csv; |
|
exit(0); |
|
} |
|
if ($orph === true) |
|
{ |
|
$pg .= '<tfoot><tr><td colspan='; |
|
if ($user === null) |
|
$pg .= '8'; |
|
else |
|
$pg .= '9'; |
|
$pg .= ' class=dc><font size=-1><span class=st1>*</span>'; |
|
$pg .= 'Orphans/Rejects count as shares but not as a block in calculations'; |
|
$pg .= '</font></td></tr></tfoot>'; |
|
} |
|
$pg .= "</table>\n"; |
|
|
|
return $pg; |
|
} |
|
# |
|
function show_blocks($info, $page, $menu, $name, $user) |
|
{ |
|
gopage($info, NULL, 'doblocks', $page, $menu, $name, $user); |
|
} |
|
# |
|
?>
|
|
|