Code Lyoko CN - 中国虚幻勇士(至Net奇兵)交流论坛

论坛 > 『Digital Sea』 (数据海) > 【数据分享】看看那些惊世骇俗的水哔和/或文触们

15 回复|发新话题|设为我的收藏

【数据分享】看看那些惊世骇俗的水哔和/或文触们

11楼 *Linnaea 发表于 2012-09-01 23:57:23

回复 10# 康-jingkangyu

[查看附件]

要能直接存取数据库才能看到，论坛本身没这个功能。
另外我也是在自己的数据库副本上操作的，因为扫描全表太消耗资源了。
查询语句附：

SELECT authorid, FLOOR((dateline+28800)/604800) AS wk, COUNT(*) AS pcnt, SUM(CHAR_LENGTH(message)) AS scnt FROM clcn_posts WHERE tid != 3706 GROUP BY wk, authorid ORDER BY authorid, wk;

复制代码

绘图程序

<?php
set_time_limit(0);
$conn = new mysqli('127.0.0.1', '*', '*', '*');
$query = $conn->query('SELECT authorid, FLOOR((dateline+28800)/604800) AS wk, COUNT(*) AS pcnt, SUM(CHAR_LENGTH(message)) AS scnt FROM clcn_posts WHERE tid != 3706 GROUP BY wk, authorid ORDER BY authorid, wk;');
$pcnt = array();
$scnt = array();
while($data = $query->fetch_array(MYSQLI_ASSOC)) {
$pcnt[$data['authorid']][$data['wk']] = $data['pcnt'];
$scnt[$data['authorid']][$data['wk']] = $data['scnt'];
}
foreach($pcnt as $uid => $poststat) {
$startwk = min(array_keys($poststat));
$endwk = max(array_keys($poststat));
echo "\rProcessing $uid... ";
if($endwk - $startwk < 4) continue;
echo "\rProcessing $uid: Calculating... ";
$posts = array_sum($poststat);
$maxposts = max($poststat);
$lengthstat = $scnt[$uid];
$maxlength = max($lengthstat);
$im = imagecreatetruecolor(705, 455);
$red = imagecolorallocate($im, 255, 0, 0);
$blue = imagecolorallocate($im, 0, 0, 255);
$black = imagecolorallocate($im, 0, 0, 0);
$w = imagecolorallocate($im, 255, 255, 255);
$style = array($w, $w, $red, $red, $red, $red, $red, $w, $w, $w);
$styleS = array($w, $w, $blue, $blue, $blue, $blue, $blue, $w, $w, $w);
echo "\rProcessing $uid: Building Frame... ";
imagefill($im, 0, 0, $w);
imagelinethick($im, 50, 5, 50, 405, $black, 2);
imagelinethick($im, 50, 405, 650, 405, $black, 2);
imagelinethick($im, 650, 405, 650, 5, $black, 2);
imagestring($im, 5, 30, 400, 0, $red);
imagestring($im, 5, 20, 0, $maxposts, $red);
imagestring($im, 5, 50, 415, $startwk, $black);
imagestring($im, 5, 620, 415, $endwk, $black);
imagestring($im, 5, 655, 400, 0, $blue);
imagestring($im, 5, 655, 0, $maxlength, $blue);
$wks = $endwk - $startwk;
$chars = array_sum($lengthstat);
$avglength = round($chars / $wks);
$avgpost = round($posts / $wks, 2);
$Y = 400 * $posts / $wks / $maxposts;
$Ys = 400 * $chars / $wks / $maxlength;
imagestring($im, 5, 5, 397 - $Y, $avgpost, $red);
imagestring($im, 5, 655, 397 - $Ys, $avglength, $blue);
imagesetstyle($im, $styleS);
imageline($im, 50, 405 - $Ys, 650, 405 - $Ys, IMG_COLOR_STYLED);
imagesetstyle($im, $style);
imageline($im, 50, 405 - $Y, 650, 405 - $Y, IMG_COLOR_STYLED);
$lastX = 0;
$lastY = 400 * $poststat[$startwk] / $maxposts;
$lastXs = 0;
$lastYs = 400 * $lengthstat[$startwk] / $maxlength;
imagefilledellipse($im, $lastXs + 50, 405 - $lastYs, 7, 7, $blue);
imagefilledellipse($im, $lastX + 50, 405 - $lastY, 7, 7, $red);
if($lengthstat[$startwk] == $maxlength) imagestring($im, 3, 50, 440, $startwk, $blue);
if($poststat[$startwk] == $maxposts) imagestring($im, 3, 50, 430, $startwk, $red);
for($i = 1; $i <= $wks; $i++) {
echo "\rProcessing $uid: Drawing $i / $wks... ";
$X = 600 * $i / $wks;
$Y = 400 * $poststat[$i + $startwk] / $maxposts;
$Xs = 600 * $i / $wks;
$Ys = 400 * $lengthstat[$i + $startwk] / $maxlength;
imagelinethick($im, $lastXs + 50, 405 - $lastYs, $Xs + 50, 405 - $Ys, $blue, 2);
imagelinethick($im, $lastX + 50, 405 - $lastY, $X + 50, 405 - $Y, $red, 2);
imagefilledellipse($im, $Xs + 50, 405 - $Ys, 7, 7, $blue);
imagefilledellipse($im, $X + 50, 405 - $Y, 7, 7, $red);
$lastX = $X;
$lastY = $Y;
$lastXs = $Xs;
$lastYs = $Ys;
if($lengthstat[$i + $startwk] == $maxlength) imagestring($im, 3, $X + 50, 440, $i + $startwk, $blue);
if($poststat[$i + $startwk] == $maxposts) imagestring($im, 3, $X + 50, 430, $i + $startwk, $red);
}
echo "\rProcessing $uid: Saving file... ";
imagepng($im, $uid.'.png', 9);
imagedestroy($im);
}
function imagelinethick($image, $x1, $y1, $x2, $y2, $color, $thick = 1)
{
if ($thick == 1) {
return imageline($image, $x1, $y1, $x2, $y2, $color);
}
$t = $thick / 2 - 0.5;
if ($x1 == $x2 || $y1 == $y2) {
return imagefilledrectangle($image, round(min($x1, $x2) - $t), round(min($y1, $y2) - $t), round(max($x1, $x2) + $t), round(max($y1, $y2) + $t), $color);
}
$k = ($y2 - $y1) / ($x2 - $x1); //y = kx + q
$a = $t / sqrt(1 + pow($k, 2));
$points = array(
round($x1 - (1+$k)*$a), round($y1 + (1-$k)*$a),
round($x1 - (1-$k)*$a), round($y1 - (1+$k)*$a),
round($x2 + (1+$k)*$a), round($y2 - (1-$k)*$a),
round($x2 + (1-$k)*$a), round($y2 + (1+$k)*$a),
);
imagefilledpolygon($image, $points, 4, $color);
return imagepolygon($image, $points, 4, $color);
}
?>

复制代码

12楼 PurpleFs 发表于 2012-09-02 11:06:26

哈，貌似论坛重开正搭上我高三，估计我的数据会很低。

13楼 *Linnaea 发表于 2012-09-02 14:56:12

回复 12# PurpleFs

[查看附件]

14楼 PurpleFs 发表于 2012-09-02 15:00:10

回复 PurpleFs
Sion 发表于 2012-9-2 14:56 [查看图片]

哈，0.64，一帖都不够- - 看得出在哪一段时间恶复习状态。

15楼苏陌寒发表于 2012-09-02 17:32:06

.............除了对不起还是对不起.............跟前面的几位比起来，我觉得自己，真的很对不起。

16楼 ?lyoko√?迪发表于 2012-09-02 20:06:02

我吗，图发的多，不太爱说话，请原谅。而且我只是一个p图的，不像黑幽灵是个资源帝

上页 1 2