_ [ゲーム] 1998年12月23日の日記

さてさて『Re･leaf』ですが、どうやらイベントの順序が前後したり、おそらくは事前に起こっているべきイベントが起こらないまま次のイベントが起こるために話がわけわかめになっているような気がします。適切な選択をしていれば、一応話のつじつまがあうような（笑）。・・・ダメじゃん。とりあえず、終業式は鬼モードで行きましょうね（笑）。あ、画面のブラックアウト云々は結構長時間連続してやっても起こりませんです。こっちはたぶん、パソコンの構成によるんでしょうね。構成といえば、やたらと誤変換が目立つんですが、ちゃんと校正してますか？非常に頭の悪げな間違いが多くて情けないです（笑）。まあ、ここで文句垂れても、制作者の目に触れるわけないので意味なしですな。

_ [購入][ハードウェア] Roland SC88Pro大購入！

初月給頂いたってことで、ついに買っちまいましたよ！＜Roland SC88Pro　正確にはミュージ郎88Proですが。まあ、差額3000円だったのでケーブル代を考えれば単体で買うよりずっとお得だったのではないかと。88Proといえば憧れの黒い箱、されど高嶺の花な音源ですが、生産終了によってかなりお手頃な値段になってますねぇ。買うなら今ですぞ？　ちなみに町田の各パソコンショップでは単体価格39800円也〜。・・・八王子のヨドバシで売ってれば交通費もかからないし、ポイントも貯まったのにっ。それにしても、一応上位な音源であるところの8820って、軽いしナリが安っぽいし、全然まったく魅力を感じませんです、はい。問題は性能ではないって事ですな（をい）。あの重さ、あの高級感・・・素敵です（笑）。・・・でも、家まで持って帰るのがものすごく大変だったのは内緒。

家に戻ってさっそくセットアップ。うぐぅ、置き場所がない・・・のでパソコンラックの上をちと片づけて設置。次は電源・・・これも空きがない（涙）。しかたないのでパソコン関係の電源を取ってるタップからさらに延びている延長タップにもひとつ延長タップをつけてようやく電源確保。電源回りもそのうちなんとかせねばねぇ・・・。んでもってMacにドライバのインストール。再起動して動作チェック！　・・・・・・音が鳴らねぇ。うぐぅ・・・スピーカーにケーブルは繋いでるし、音源の設定もちゃんとMacにあわせたし、シリアルケーブルも繋がってるし？？　結局何回か再起動かましてるうちにいつのまにか動くようになりました。　・・・なんで？　まあ、とにかく音が出るようになったのでさっそくMIDIファイルの演奏！　・・・すげぇ！すげぇよ父さん（違う）！！　いやぁ、買って良かったですねぃ。とりあえず色々演奏して88Proの力を堪能♪　んでもってRolandのサイトからWin95用のドライバも落としてインストール。んでもってきゅっぱちでも使えるように設定。うおっ！なんだか曲とは全然関係ない音が鳴ってる？？　・・・どうやら音源の設定はPC-2でないとちゃんと鳴らない模様。まあ、Win95からも鳴らせるようになったので、これでゲームでもばっちぐーなBGMが堪能できますなっ。ただ、問題点がひとつ・・・。DOSゲーでMIDI鳴らすにはどうするですか？　全然うんともすんとも言ってくれません(^-^;

まあ、そんなこんなで一日早いクリスマスプレゼントってことで大満足なお買いものでした。

ところで星野さんの自作機組立は難航中の模様。

_ [日常] 今日は天皇誕生日

だったのね。・・・全然気がつかなかったヨ。そんな私は夕方から研究室に出てちろっとお仕事。

_ [ゲーム] 顔のない月

昨日の続きをげしげし進める。・・・最後、千賀子に後ろから刺されておしまい。うむぅ、終盤の選択がどこかまずかったんかねぇ。にしても、1プレイがかなり時間かかるな。

_ [購入] ぐったりな一日

• 【Book】ファイブスター物語アウトライン／角川書店

アギトを見た後で再び眠りに落ちてしまって、結局目が覚めたのは夕方でした。結局今日は食料を買い出しに行った以外、他に何もせず。……まあ、こんな日もたまにはよかろう。

_ [購入] 創雅都市SF到着

昨日受け取り損ねた「SF」は、何事もなくお昼頃に受け取れました。本自体は電撃hpと同じ大きさなのに、やたらとでかいパッケージに入っていてびっくーり。「SF」は全ページイラストに文章がちょいちょいと乗っかっているイラストノベルという形態で、文章だけ読むとさっくり終わってしまいそうです。ま、絵を楽しみつつ文章を読むってことで。電撃hpはまったく読んでいないので、読むのが楽しみです。

_ [ゲーム] ヤミと帽子と本の旅人・その2

2周目、リリスエンドをクリア。前半でかけらを全部集めず、後半で回避可能なえちシーンは全て回避・ちびリリス回収の選択肢を正しく選べばよいらしい。やはー、リリスたんがすんげー可愛かったデス。いいなぁ、下町ラブラブエンド（笑）。

_ [番組表] 新春の新アニメ

• 日曜日
  • ギャラクシーエンジェル（継続）／テレビ東京／9:30-
• 月曜日
  • ぷちぷり＊ユーシィ（継続）／BS2／18:00-
  • ウルフズ・レイン／フジテレビ／26:10-（1/6開始　1話のみ26:40-）
• 火曜日
  • 十二国記（継続）／BS2／18:00-
  • ヒートガイJ（継続）／TBS／25:50-
  • キディ・グレイド（継続）／フジテレビ／25:58-
• 水曜日
  • ヒカルの碁（継続）／テレビ東京／19:27-
  • .hack//黄昏の腕輪伝説／テレビ東京／24:55-（1/8開始）
  • L/R Licensed by Royal／フジテレビ／26:28-（1/8開始　1話のみ26:43-）
  • ななか6/17／テレビ東京／26:35-（1/8開始）
• 木曜日
  • 魔法遣いに大切なこと／テレビ朝日／26:07-（1/9開始）
• 土曜日
  • 機動戦士ガンダムSEED（継続）／TBS／18:00-

萌え萌えアニメ日記のアニメ新番組表から必要なところだけ抜き出し。新番組は5本で、半分以上は継続ですな。「Witch Hunter ロビン」の枠がなくなるけど、その代わり「魔法遣いに大切なこと」が始まるので1週間当たりの本数は変わらず。……どうして火曜日・水曜日はこんなに混み合いますか？　何も同じ時間にかぶせることないだろうに。

ちなみに来年一発目のキディ・グレイドは1時間なので注意だ！

本日の体重は……82.5kgなり。

_ [日常] クリスマスプレゼント購入

所用でつくばに出たついでに、姪っ子甥っ子のクリスマスプレゼントを買うべく書店をふらふら。クリスマスプレゼントは図鑑を買うというのが俺内部の決定事項なのです。……それにしても、つくばの書店は品揃えがあまりよろしくない。本当なら都心で選ぶつもりだったのだけど、なんやかんやで時間がなかったのでしかたない。結局、子供向け百科事典と乗り物図鑑にしておきました。後で聞いたら、甥っ子は乗り物には興味がないらしいが……ま、読んでみたらおもしろいかもしれんし、良しとしよう。

_ [ハードウェア] DVD-RAMクラッシャーRD-S300

今期に入って3枚のDVD-RAMがRD-S300に破壊されました。DARKER THAN BLACK、亡念のザムド、テガミバチ……一瞬で全録画を抹消しやがった。どうすっか、このゴミ機械。RD-X9買って、とっとと廃棄するか？

_ [Perl] ゼロ年代の電撃文庫をあらすじに出てくる名詞を使って分類してみる

今回のお話は、12/13、12/14、12/16、12/18の続きになっています。そんなわけで、今度は2000年から2009年までの電撃文庫をあらすじに出てくる名詞で分類してみる。

まず、2000-2009年の電撃文庫でアマゾンにあらすじが登録されていなかった本が107冊あったので、アスキー・メディアワークスの雑誌・書籍検索からデータを取ってくる。ここの書籍検索はISBNで検索した後さらに独自設定のキーで個別のページに移動しないとデータに辿り着けないので、アマゾンよりはちょっと面倒。取ってくるスクリプトはget_mw_data.plになります。アマゾンから取ってくるスクリプトと基本的に同じなので、12/13の記事を読んでください。まずはアマゾンから取ってきて、12/16の記事にあるようにあらすじの取れたデータと取れなかったデータに分割して、あらすじの取れなかったデータのファイルを入力ファイルとしてメディアワークスからデータを取ってきます。アマゾンから取ってきた後で使うことを前提に作ってあるので、ラノベの杜のファイルにそのまま使うとあらすじの前にタブが入らないことに注意。

$ grep '^200' dengeki-bunko.utf-8.tsv | grep -v '^2009' > dengeki_2000-2008.tsv
$ perl get_amazon_data.pl dengeki_2000-2008.tsv > dengeki_2000-2008_arasuji.tsv
$ cat dengeki_2000-2008_arasuji.tsv dengeki_2009_arasuji.tsv > dengeki_2000-2009_arasuji.tsv
$ perl -e 'while(<>){chomp;$line=$_;@data=split /\t/,$line;print "$line\n" if $data[10];}' dengeki_2000-2009_arasuji.tsv > dengeki_2000-2009_arasuji2.tsv
$ perl -e 'while(<>){chomp;$line=$_;@data=split /\t/,$line;print "$line\n" unless $data[10];}' dengeki_2000-2009_arasuji.tsv > dengeki_2000-2009_arasuji_no_data.tsv
$ perl get_mw_data.pl dengeki_2000-2009_arasuji_no_data.tsv > dengeki_2000-2009_arasuji_add.tsv
$ perl -e 'while(<>){chomp;$line=$_;@data=split /\t/,$line;print "$line\n" if $data[10];}' dengeki_2000-2009_arasuji_add.tsv > dengeki_2000-2009_arasuji_add2.tsv
$ perl -e 'while(<>){chomp;$line=$_;@data=split /\t/,$line;print "$line\n" unless $data[10];}' dengeki_2000-2009_arasuji_add.tsv > dengeki_2000-2009_arasuji_no_data2.tsv
$ cat dengeki_2000-2009_arasuji2.tsv dengeki_2000-2009_arasuji_add2.tsv > dengeki_2000-2009_arasuji3.tsv

……さすがに長くてわけわからなくなりそうなので、頭にコマンドプロンプト付けてみた。これで、アマゾンかメディアワークスであらすじの取れたdengeki_2000-2009_arasuji3.tsvとあらすじの取れなかったdengeki_2000-2009_arasuji_no_data2.tsvができます。ちなみにメディアワークスで探しても37冊についてはあらすじが取れませんでした。絶版になるとデータ自体が消されちゃうみたいですねー。

この後は名詞リストを取り出すとこまでは前回と同じ。

$ perl split_sentence.pl dengeki_2000-2009_arasuji3.tsv > dengeki_2000-2009_sentence.tsv
$ perl get_noun_list.pl dengeki_2000-2009_sentence.tsv > dengeki_2000-2009_noun.tsv
$ perl count_noun_with_sub.pl dengeki_2000-2009_noun.tsv > dengeki_2000-2009_noun_count.tsv

クラスタリングに使う行列データを出力する時に、前回は全体で1回しか出てこない単語は単独のシリーズでしか出てこないからということでカットしましたが、今回はもっと積極的に単一のシリーズにしか出てこない単語はすべてカットすることにします。そしてもうひとつ、シリーズ中のそれぞれの本が発売された年をキーワードとしてカウントすることにします。例えばあるシリーズで2008年に2冊、2009年に1冊本が出たとすると、そのシリーズの単語リストに2008年が2、2009年が1と入るわけです。まあ、そもそも当初のネタが「ライトノベルのあらすじからトレンドを知ることができるか」だったので、ちょっとはその努力をしてみようってことで。スクリプトはget_matrix_by_series_year3.plになります。

$ perl get_matrix_by_series_year3.pl dengeki_2000-2009_arasuji3.tsv dengeki_series.tsv dengeki_2000-2009_noun_count.tsv dengeki_2000-2009_noun.tsv 1 > dengeki_2000-2009_series_matrix.txt
$ R --vanilla -q < clustering_no_tfidf.R --args dengeki_2000-2009_series_matrix.txt dengeki_2000-2009_series_dendrogram.pdf 1 0.1 10 subcluster.txt result.txt
$ perl count_subcluster_word.pl subcluster.txt dengeki_2000-2009_series_matrix.txt > dengeki_2000-2009_subcluster_word_count.txt

下のような樹形図になりました。PDF版はこちら。……データ多すぎて見難いなーこりゃ。サブクラスターとシリーズ名の対応はsubcluster_list.txt、サブクラスターごとの単語のカウント結果はdengeki_2000-2009_series_subcluster_word_count.txtになります。

大まかに見ると、赤, 橙, 黄+黄緑+緑+水色, 青+藍+紫+赤紫の4グループになっています。

これがサブクラスターごとの単語カウントの主立ったところを抜き出したもの。……いい加減疲れたので色付けは勘弁な。起きたら気力が戻ったので塗ってやった！

こちらは単語リストに追加した発売年を抜き出したもの。

以上の結果から、超適当に各サブクラスターの特徴を見ていきます。

青グループの支配的単語は「僕」。全149回中92回がこのグループに出てきます。また、青グループの12シリーズ44冊のうち10冊が2009年、8冊が2008年に出ており、2000-2004年の5年間では8冊しか出ていません。

藍グループの支配的単語は「俺」。全78回中39回がこのグループに出てきます。また、藍グループの6シリーズ11冊のうち10冊は2007-2009年に出ています。なお、「俺」の残り39回のうち28回は赤紫グループに出てきます。青グループと藍グループを合わせて、一人称なあらすじは2007年辺りから多くなってきたってことなんだろうか。

紫グループで最も多い単語は「少女」ですが、実のところこれは他のグループにもよく出てきます。次に多いのは「死神」で全32回中22回がこのグループに出てきます。発売年は2000年の0冊以外、わりと均等に散らばっています。なお、「死神」の残り10回のうち7回は赤紫グループに出てきます。

赤紫グループで多い単語は「彼女」「人」。「彼女」は全381回中145回なのでわりと多めに集まっている感じですが、「人」は全769回中119回なのでそんなでもありません。ぶっちゃけこのグループは単語的に特徴がないので電撃文庫的に普通な単語グループになっていますが、青・藍グループに引っ張られて2005年以降、特に2008年・2009年のものが集まっています。……いや待て違うな。クラスタリングの手順からいくと、赤紫のグループが束ね終わった後で、そこに似てるものとして藍とか青のグループが束ねられるんだから、順番が逆か。ともかく、288冊中143冊が2008年・2009年の2年間に集中しています。要するに、電撃文庫のあらすじ的に普通な新しめの本のグループですかね。

水色グループは特徴がないのが特徴。どこにも入らなかったものがここに集まってる感じです。「少女」とか「彼女」といった単語が抜きん出ているといった特徴すらありません。発売年としては新しいものは赤紫グループに入っているので、それ以外がここに来ています。

緑グループは電撃文庫全体の平均がここに集まったと言わんばかりのグループです。全体で1位・2位の「人」「少女」はここでも1位・2位になっています。発売年としては全199冊中110冊が2004-2007年になっています。

黄緑グループで最も多い単語は「事件」。特に「殺人事件」は全17回中11回がこのグループです。また、全体で出現回数の多い単語はこのグループにはほとんど出てこないのも特徴です。発売年は全14シリーズ・17冊中14冊が2001年, 2005年, 2006年に出ています。

黄色グループは「大賞」「電撃」「小説」「受賞」が上位4単語になります。……まあ要するに、そういうグループがここに集まっているわけですな。その手の単語の出てくる本のうち半分はこのグループに入っているようです。つまり、受賞以外に特徴的な単語のないものがここに来ていることになりますか。発売年はわりと均等に散らばっている感じ。

橙グループの支配的単語は「世界」。全362回中126回がこのグループに出てきます。「異世界」も多いですねー。全18回中12回がこのグループです。あとは、「ぼく」が全42回中17回がこのグループ、15回が赤グループに出てきます。年ごとの冊数は、増えたり減ったりを繰り返しながらだんだんと増えていっているようです。

赤グループの支配的単語は「二人」。全236回中124回がこのグループに出てきます。また、「一人」も全134回中79回がこのグループです。他に目を引くのは、「悪魔」の全71回中47回かな。

グループごとのシリーズの平均継続冊数を見てみると、赤・黄が最も多くて4.4冊、続いて橙の3.8冊、青の3.7冊となっています。無個性の集まりの水色は2.8冊と低めです。

各年の発売冊数を100%として、各グループの占める割合をグラフにすると下のようになります。これを見てみると、水色グループがゼロ年代序盤、赤グループが中盤、赤紫グループが終盤を多く占めているようです。平均ポジションの緑とか受賞作の黄色はいつでもそれほど変わらない感じですね。無個性グループ（というか、電撃文庫における主要単語「少女」「彼女」が出てこないグループ）は年が進むと次第に減っていくということでしょうか。

実のところ、クラスタリングのデータからは「グループに分けるとこんな感じ」という程度しか分からないので、クラスタリングで目星をつけた要素を次にちくちくと追いかけていって実際のところを確かめないといけません。それに、今回は全体をざっと見て目立つところだけをピックアップしているので、「頻度はそれほど高くないけどあるグループにしか現れない単語」みたいなものは見逃している可能性が高いです。そういうのはスクリプト作って自動的に回収するようにしないと、目で見てるだけだとなかなかわかりませんね。

しかしまあ、かなりぐだぐだになったけどそれなりにオチは着いたのかしら。次は他のレーベルを混ぜてみるとか、共起する単語の組で見てみるとか、動詞も入れてみるとか……。結構いくらでも思いつくなぁw