新番組はスレ番号新しくしてもらえるとありがたいですね。継続番組については、放映開始日からのレスをカウントすることにする。
ふしぎ星の☆ふたご姫 Gyuちゃんマンボ61頭目
http://anime.2ch.net/test/read.cgi/anime/1143384916/
20060401
611 名前： 風の谷の名無しさん＠実況は実況板で 2006/03/31(金) 23:55:30 id:SiX2wKJx
>>610
風車でいいのか？
確か王様が犬だったよなー。
他は兎の耳かと思っていたわ。612 名前： 風の谷の名無しさん＠実況は実況板で 2006/03/32(土) 00:08:12 ID:9oHvdqfd
ふたご
▼格闘美神 武龍（ウーロン） panty 5▽
http://anime.2ch.net/test/read.cgi/anime/1142118651/
20060401
279 ：風の谷の名無しさん＠実況は実況板で ：2006/03/31(金) 23:23:30 id:Hac2JX4n
おとめ組の次は飛鳥組かよ280 ：風の谷の名無しさん＠実況は実況板で ：2006/03/32(土) 09:04:45 id:tWWNDtB9
一日一回毛蘭ﾀﾝに中田氏して孕んだらイイナ
おねがいマイメロディ くるくるシャッフル！♪62
http://anime.2ch.net/test/read.cgi/anime/1143817643/
20060402
195 名前： 風の谷の名無しさん＠実況は実況板で 2006/03/32(土) 23:51:31 id:SetBxqvE
>>174とリアルで会えたらイイナ！196 名前： 風の谷の名無しさん＠実況は実況板で 2006/04/02(日) 00:16:15 ID:4PlyNVT+
ゲイの出会い系で知り合った10歳以上年上の>>174の家へ。�
そしたら「これ着て責めて欲しい」と言われて、レンコン掘りというか、�
ああっ女神さまっ Chapter.28
http://anime.2ch.net/test/read.cgi/anime2/1141503723/
20060406
468 ：名無しさん＠お腹いっぱい。：2006/04/05(水) 23:36:29 id:KbDNmCku
別に人なんか沢山集まらなくっていい。。469 ：名無しさん＠お腹いっぱい。：2006/04/06(木) 03:34:07 id:ldtRWj/i
俺の予想では新OPEDは願いを越えられない
リングにかけろ１ ： ROUND9
http://anime.2ch.net/test/read.cgi/anime2/1122676908/
20060406
693 ：名無しさん＠お腹いっぱい。：2006/04/04(火) 08:55:28 id:jantoBtD
689>
アニメ板にスレ たててくれてありがとう！！！！
694 ：名無しさん＠お腹いっぱい。：2006/04/06(木) 20:26:46 id:lpmnx1j4
一応こっちでもお知らせ。
本日26:40より放送開始ですよ！
ブラックジャック karte.34
http://anime.2ch.net/test/read.cgi/anime2/1141920269/
20060410
792 名前： 風の谷の名無しさん＠実況は実況板で 2006/04/09(日) 22:05:11 id:YNBzgDrg
このアニメを見る者、すべての希望を捨てよ793 名前： 風の谷の名無しさん＠実況は実況板で 2006/04/10(月) 01:12:46 ID:ZT+ohFQx
２１とつけた奴は｢上手いシャレを思いついた｣と思ってんだろうな…orz
スクリプト
use strict;
my $url = 'http://anime.2ch.net/anime/subback.html';
my $f_unti = '糞|駄|アンチ|変態|ウンコ|黒歴史|パクリ';
my @list = `wget -qO - $url | nkf -e | grep -Ev '$f_unti'`;
my @patterns = map{tr/\x0A\x0D//d;$_;} <>;
my @n1 = qw(零 一 二 三 四 五 六 七 八 九);
my @n2 = qw(０ １ ２ ３ ４ ５ ６ ７ ８ ９);
foreach my $ptn (@patterns){
print "$ptn:\n";
foreach my $l (@list){
if($l =~ /$ptn/){
$l =~ s/.+($ptn.+)/$1/;
my $l2 = convn($l);
if($l2 =~ /(\d+)[^\d]+\((\d+)\)/o){
print " $1\t$2 ", (($1 <= 1) ? $2 : ($1-1)*1000+$2), "\t$l";
}
elsif($l2 =~ /\((\d+)\)/o){
print " ***\t$1\t$1\t$l";
}
else{
print " *****\t\t$l";
}
}
}
}
print "\n";
sub convn{
my $str = shift;
for(my $i=0; $i<10; $i++){
my $ptn = "$n1[$i]|$n2[$i]";
$str =~ s/$ptn/$i/g;
}
return $str;
}$ perl count2ch.pl < newanime0604.kw.2ch | nkf -s | head 学園ヘヴン: 1 528 528 学園ヘヴンBOY'S LOVE SCRAMBLE! 1 (528)</a> ふたご姫.+Gyu: 67 924 66924 ふたご姫 Gyu! 67 (924)</a> ベム: 0 392 392 ベム【リメイク】友達一人目 (392)</a> 武龍: 5 681 4681 武龍（ウーロン） panty 5▽ (681)</a> Soul.+Link: 2 560 1560 Soul Link〜ソウルリンク 第2テラ (560)</a>
こんなかんじ。
ふむ
なるほど。数えてみたけど、まあ大体相関があるって感じではあります。それにしてもハルヒの伸びっぷりはおかしい。対数軸にしないとバランス取れねーよ。
R
回帰直線をかく。ハルヒを考慮するとがたがたなので、除外！
d=read.table("r.data", header=TRUE)
l=lsfit(d$kw[c(2:length(d$kw))], d$rescnt[c(2:length(d$rescnt))])
plot(d$kw, d$rescnt, log="xy", xlab="keyword", ylab="resnumber", adj=0.5,
xlim=c(30,800), ylim=c(100,60000))
par(new=TRUE)
plot(d$kw, d$kw*l$coefficients["X"], xlab="", ylab="", type="l", log="xy",
xlim=c(30,800), ylim=c(100,60000))
par(cex=0.5, adj=0)
text()...
