function plug_edf()
{
req('spe');
$r = msql_read('', $_SESSION['qb'] . '_edf', '');
unset($r['_menus_']);
$n = count($r);
for ($i = 1; $i <= $n; $i++) {
list($day, $month, $year) = split('/', $r[$i][0]);
$dat = mktime(0, 0, 0, $month, $day, $year);
$ra[$i] = $dat / 86400;
if ($i == 1) {
$dorigin = $dat;
$vorigin = $r[$i][1];
}
$day = ($dat - $dorigin) / 86400;
if ($ra[$i - 1]) {
$diffday = $ra[$i] - $ra[$i - 1];
}
if ($r[$i - 1][1]) {
$diffval = $r[$i][1] - $r[$i - 1][1];
}
if ($diffday) {
$val = round($diffval / $diffday, 2);
}
$re[] = array($r[$i][0], $r[$i][1], round($diffday), $diffval, $val);
//,$diffval*0.08
$rb[$day] = $val;
$rc[$day] = $r[$i][0];
}
for ($i = 1; $i <= $day; $i++) {
if ($rb[$i]) {
$key = $rc[$i];
} else {
$key = $i;
}
$rd[$key] = $rb[$i];
}
$ret = $day . ' days = ' . $val . ' units => ' . round($val / $day, 2) . ' unit/day ' . br();
$f = 'plug/_data/edf_graph.png';
graphics($f, $_SESSION['prma']['content'], 300, $rd, '000000', 'yes');
$ret .= image($f, '', '');
$rt = array('', 'date', 'count', 'days', 'units', 'average');
//,'price'
$ret .= make_tables($rt, $re, 'txtred', 'txtblc');
return $ret;
}
function graph_mk($r, $w, $h)
{
req('spe');
$dr = 'plug/_data';
$output = $dr . '/stats.png';
if (!is_dir($dr)) {
mkdir($dr);
}
if ($r) {
graphics($output, $w, $h, $r, '000000', 'yes');
}
//$_SESSION['clrs'][$_SESSION['prmd']][7]
return image($output . '?' . randid(), '', '');
}
function msqgraph($d, $m)
{
static $n;
$n++;
$large = prma('content');
if (substr($m, 0, 2) == 'nl') {
return;
}
list($da, $rep) = split_one("§", $d, 1);
list($nd, $bs, $va, $op) = explode("_", $da);
if ($bs) {
$nd = $nd ? $nd : ses('qb');
} else {
$nd = ses('qb');
$bs = $d;
}
$r = msq_goodtable($da);
$menu = $r['_menus_'];
unset($r['_menus_']);
if ($r && $rep) {
foreach ($r as $k => $v) {
$i++;
$bit[$k] = $v[$rep];
}
} elseif ($r && $op) {
foreach ($r as $k => $v) {
$i++;
$bit[$k] = $v;
}
}
$output = 'imgc/' . ses('qd') . '_' . $_SESSION["read"] . '_graph_' . $n . '.png';
graphics($output, $large, 140, $bit, $_SESSION['clrs'][$_SESSION['prmd']][7], 'yes');
///
if ($_GET["read"]) {
return image($output, '', '" style="border:0;') . "\n";
}
}
function mini_empty($prm)
{
list($w, $h) = split("/", prmb(27));
$out = 'imgc/' . ses('qb') . '_empty.jpg';
$clr = $_SESSION['clrs'][$_SESSION['prmd']][1];
if (!$prm or $prm == 'nl') {
$c = atc('imgl');
}
if (!file_exists($out) or $_GET['rebuild_img']) {
graphics($out, $w, $h, '', $clr, '');
}
return image($out, '', '', $c);
}
