2000年初頭のハロプロ全盛期だった頃は一般人の会話に混じるくらいだったけど、彼氏がハロヲタだったのをきっかけに完全にハロプロに舞い戻ってハマッた。ドアップやyoutubeで映像を漁るし、何度も再生してニヤニヤしながら眺めるし、iPodには娘フォルダを作るし、彼と一緒に娘コンとか行ってしまうくらい。

ちなみに私の好きなハロっ子は

・松浦亜弥

・吉澤ひとみ

・久住小春

・藤本美貴

です。ちょっと増田と共通点があるよね。面白い。

Berryzなら桃子と熊井ちゃんが好き。

℃-uteはこの子！っていうのはいないけど、愛理は歌うまいし舞美は超美人だと感心する。「桜チラリ」の頃の萩原舞ちゃんはかなり抱きしめたい。

AKB48では中西里菜ちゃんが好きだった。やめてしまったけど……。

ちなみにグラビアアイドルも好きですよ。

きわどいのとかエグイのじゃなくて、Sabraに乗ってる程度の、そこそこ上品なグラビアとか大好き。一時期は毎号Sabraを見てた。

仲根かすみがすごい好きだったから、結婚してやめた時はへこんだなあ。

ほしのあきも好き。

彼女たちのPVや映像を何度もリピートしてしまう理由は、ちょっと増田に近いです。

自分がそんな風になりたいわけじゃないし、なれるとも思わないし、バイやレズでもないと思うけど、彼女たちの映像を見ていると幸せになる。夢という言葉はかなり的確。

男がスポーツ選手やバンドマンに憧れるのと同じ心理だというのはなるほどですね。

ちなみに私も周囲にはハロヲタだって隠してます。

実は隠れ女アイドルヲタの人って多いんじゃないかと思った。どうなんでしょうね。

Permalink | トラックバック(0) | 18:57

2008-08-10

■ハロヲタが非ハロヲタの彼女に最近のHello!Project 世界を軽く紹介するための10枚

改変元→http://anond.hatelabo.jp/20080721222220

まあ、どのくらいの数のハロヲタがそういう彼女をゲットできるかは別にして、

「ハロヲタではまったくないんだが、しかし自分のヲタ趣味を肯定的に黙認してくれて、

　その上で全く知らない最近のHello!Projectの世界とはなんなのか、ちょっとだけ好奇心持ってる」

ような、ヲタの都合のいい妄想の中に出てきそうな彼女に、最近のハロプロを紹介するために

聴かせるべきシングル10枚を選んでみたいのだけれど。

（要は「宇多丸のマブ論」の正反対版だな。彼女にアイドル世界を布教するのではなく

　相互のコミュニケーションの入口として）

あくまで「入口」なので、経済的に過大な負担を伴うイベント DVDやコンサート DVDまでの言及は避けたい。

できればマキシシングル、例外としてミニアルバムも可としたい。

あと、いくらハロプロといっても古びを感じすぎるものは避けたい。

市井ヲタが『青いスポーツカーの男』は外せないと言っても、それはちょっとさすがになあ、と思う。

そういう感じなので、2003年以降の作品に限った。

彼女の設定は

ハロプロ知識はいわゆる「ラブマシーン」的ミリオンを除けば、「ASAYAN」程度は見ている

アイドルヲタ度も低いが、髪型はけっこう佐紀ちゃん似

という条件で。

まずは俺的に。出した順番は実質的には意味がない。

女子かしまし物語／モーニング娘。

まあ、いきなりここかよとも思うけれど、「辻加護卒業以前」を濃縮しきっていて、「辻加護卒業以後」と「久住加入以後」を決定づけたという点では

外せないんだよなあ。2もあるし。

ただ、ここでヲタトーク全開にしてしまうと、彼女との関係が崩れるかも。

この情報過多な作品について、どれだけさらりと、嫌味にならず濃すぎず、それでいて必要最小限の情報を彼女に

伝えられるかということは、ヲタ側の「真のコミュニケーション能力」の試験としてはいいタスクだろうと思う。

やったろうぜ！／音楽ガッタス、はなをぷーん／きら☆ぴか

アレって典型的な「ヲタクが考える一般人に受け入れられそうなユニット（そうヲタクが思い込んでいるだけ。実際は全然受け入れられない）」そのもの

という意見には半分賛成・半分反対なのだけれど、それを彼女にぶつけて確かめてみるには

一番よさそうな素材なんじゃないのかな。

「ハロヲタとしてはこの二つは“混成ユニット”としていいと思うんだけど、率直に言ってどう？」って。

愛すクリームとMyプリン／美勇伝

ある種のアイドルヲタが持ってるアダルトなエロスへの憧憬と、あき竹城監修のクチャーズ的な衣装へのこだわり((そんな事実はない))を

彼女に紹介するという意味ではいいなと思うのと、それに加えていかにもつんく♂な

「処女的なださかわゆさ」を体現する石川梨華

「処女的なビッチ」を体現する岡田唯

の二人をはじめとして、ヲタ好きのする仕草を振り付けにもちりばめているのが、紹介してみたい理由。

シャイニング　愛しき貴方／カントリー娘。に紺野と藤本

たぶんこれを聴いた彼女は「ビーチボーイズだよね」と言ってくれるかもしれないが、そこが狙いといえば狙い。

この系譜の作品がその後続いていないこと、これが美貴ヲタでは大人気になったこと、

美貴ヲタならこれがミリオンになって、ハロプロ大復活の原因になってもおかしくはなさそうとすら思っているのに、

キッズヲタにこういう感性が理解されないこと、なんかを非ヲタ彼女と話してみたいかな、という妄想的願望。

青春！LOVE ランチ／アテナ＆ロビケロッツ(新垣里沙・光井愛佳・中島早貴・岡井千聖)

「やっぱりハロプロは子供のためのものだよね」という話になったときに、そこで選ぶのは「Buono!」

でもいいのだけれど、そこでこっちを選んだのは、この作品にかけるnkskの思いが好きだから。

断腸の思いで雌伏の時期を経てそれでもイマイチ意味不明のユニット、っていう不遇さが、どうしても俺の心をつかんでしまうのは、

その「キッズオリメン」ということへの諦めきれなさがいかにもnksk的だなあと思えてしまうから。

nkskのダンスを俺自身は最高とは思わないし、まだ伸びしろはあるだろうとは思うけれど、一方でこれが

夏焼雅や鈴木愛理だったらきっちり一万枚は売ってしまうだろうとも思う。

なのに、がきさん・みっつぃー・nksk・ちさとでユニットを作ってしまう、というあたり、どうしても

「自分の物語を形作ってきたものが捨てられないハロヲタ」としては、たとえnkskがそういうキャラでなかったとしても、

親近感を禁じ得ない。作品自体の高評価と合わせて、そんなことを彼女に話してみたい。

スイートホリック／安倍なつみ

今のキッズヲタで安倍のシングルもチェックしてる人はそんなにいないと思うのだけれど、だから紹介してみたい。

キッズ発表を含むハロマゲドンよりも前の段階で、つんく♂の哲学とかアイドル理念とかはこの人物で頂点に達していたとも言えて、

こういうクオリティの作品がセールス的に振るわなくてもこの時代にもリリースできるんだよ、というのは、

別に俺自身がなんらそこに貢献してなくとも、なんとなくハロプロ好きとしては不思議に誇らしいし、

いわゆる黄金厨的視点でしか安倍なつみを知らない彼女には見せてあげたいなと思う。

スッペシャル！ベストミニ ??2.5枚目の彼??／Berryz工房

嗣永桃子の「尻」あるいは「キャラづくり」をヲタとして教えたい、というお節介焼きから見せる、ということではなくて。

「終わらない青春を毎日生きる」的な感覚がヲタには共通してあるのかなということを感じていて、

だからこそ2007年 SSAでのBerryz単独コン「桜満開 Berryz工房ライブ?? この感動は二度とない瞬間である！」のクールダウン用VTRは本作所収の「ありがとう! おともだち」以外ではあり得なかったとも思う。

「青春化した30代を生きる」というヲタの感覚が今日さらに強まっているとするなら、その「ヲタクの気分」の

源は「ありがとう! おともだち」にあったんじゃないか、という、そんな理屈はかけらも口にせずに、

単純に楽しんでもらえるかどうかを見てみたい。

スッピンと涙。／後藤真希

これは地雷だよなあ。地雷が火を噴くか否か、そこのスリルを味わってみたいなあ。

こういう女は早起きして薄化粧くらいしとけ風味の恋愛をこういうかたちで歌詞にして、それが非ヲタに受け入れられるか

気持ち悪さを誘発するか、というのを見てみたい。

桜チラリ／℃-ute

9本まではあっさり決まったんだけど10本目は空白でもいいかな、などと思いつつ、便宜的に℃-uteを選んだ。

娘。から始まって℃-uteで終わるのは全然収まりはよくないんだろうけど、℃-uteのメジャーデビューとなった作品でもあるし、紹介する価値はあるのだろうけど、もっと他にいい作品がありそうな気もする。℃-uteに全く触れないわけにもいかなかったし。

というわけで、俺のこういう意図にそって、もっといい10本目はこんなのどうよ、というのがあったら

教えてください。

「駄目だこの増田は。俺がちゃんとしたリストを作ってやる」というのは大歓迎。

こういう試みそのものに関する意見も聞けたら嬉しい。

いずれにせよ、ジュンリン加入以前以後とかダブルユーとか全部抜けてるので、年度別にやってもいいかもしれない。

Permalink | トラックバック(0) | 00:59

2007-09-07

■ようこそ、℃-ute な Lisp の世界へ

発祥: http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/

はじめに

Scheme という Lisp 語族の言語を用いて ℃-ute の相関関係をプログラムし、様々な角度から関係性を分析する手法を紹介していきます（ソースコードは最後に張ります）。

まずは、メンバー間の関係を「リスト」というデータ型で表現します。例えば「栞菜->愛理」という関係は

(kanna . airi)

という形で表すことができます。これに、「大好き」という情報を付加し、ついでにその関係の性質を数値化したものを加えると

((kanna . airi) (desc "大好き") (score . 1))

のようになり、関係図における一つの矢印の情報をデータ化できたことになります（暫定的に、好意は 1、良好・中立は 0、険悪は -1 の３段階で表すことにします）。

メンバー間の全ての関係性をこのデータ単位で定義し、データベース化しておくことで、色んな条件に基づいた検索やスコア計算などが可能となります。

例 1: リンク状況の調査

ここで相関関係図における矢印を「リンク」と呼ぶことにして、あるメンバーから他のメンバーへどのようにリンクし、またリンクされているかを調べることができます。

全関係の中からリンクの起点を抽出してソートしてみると

(sort-nodes (number-list (from-links)))

結果:

((kanna . 6) (saki . 5) (maimi . 4) (erika . 3) (mai . 3) (chisato . 3) (airi . 2))

栞菜ちゃんがメンバー全員にリンクを張っていることが分かり、℃-ute ラブっぷりが伺えます。なっきーにも同様の事が言えます。例の「女の子が好き」発言を数値的に裏付ける結果と言えるかもしれません。

ただ、データ不足でリンク件数がまだ少ないのと、リンクの性質（好意／反感など）までは分からない点を考慮する必要があるでしょう。

例 2: 被リンク状況の調査

同様に、リンクの終点の件数を調べてみます。

(sort-nodes (number-list (to-links)))

((chisato . 5) (erika . 5) (kanna . 4) (maimi . 4) (airi . 4) (mai . 3) (saki . 1))

えりかちゃんと千聖ちゃんが高ポイントです。メンバーからの人気や注目度の高さを示すデータですが、千聖ちゃんの場合敵対的なリンクが２件含まれている点に注意してください。

なっきーの被リンク数が極端に少ないですが、単純にデータ不足のためだと思われます。はぶら(ryとか言わないようにお願いします。

例 3: 愛情度の評価

リンクに付随するスコアを計算することで、愛情の度合いを測ることができるのではないか、という考えに基づく研究です。

まず、全ての関係性を対象として、スコアがマイナスの関係を抽出してみます。

(filter-nodes (lambda (n)
		(< (score-relation n) 0)))

結果:

(((kanna . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1))
 ((saki . chisato) (desc "愛理に手出すんじゃねぇよ") (score . -1)))

件数だけを得ると

(length (filter-nodes (lambda (n)
			(< (score-relation n) 0))))

僅か２件です。

良好・中立的な関係は

(length (filter-nodes (lambda (n)
			(= (score-relation n) 0))))

愛に満ちた関係は

(length (filter-nodes (lambda (n)
			(> (score-relation n) 0))))

非常に多いです。舞美ちゃんの「℃-ute同士でラブラブなんですよ」発言（例のラジオ）を数値的に裏付ける結果と言えるんじゃないでしょうか。

次に、メンバーごとのスコアを算出してみます。Lisp 的には以下のようにフィルタリングと畳み込み (fold) で計算することができます。例えば

(foldr (lambda (n acc)
	 (+ (get-score n) acc))
       0
       (filter-nodes (cut to? <> 'kanna)))

で栞菜ちゃんに対するリンクのスコアが得られます。結果:

上式を一般化して一挙にメンバー全員に適用してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loved x)))
		 (all-members)))

結果:

((airi . 4) (kanna . 3) (mai . 2) (erika . 2) (maimi . 2) (saki . 1) (chisato . 0))

愛理ちゃんが好意を寄せられやすい傾向が伺えます。

今度は逆方向のスコアを計算してみると

(sort-nodes (map (lambda (x)
		   (cons x (score-loving x)))
		 (all-members)))

((kanna . 3) (maimi . 3) (chisato . 2) (airi . 2) (saki . 2) (mai . 1) (erika . 1))

まいまいとえりかちゃんが特に堅い・一途だという傾向を読み取ることができます。

例 4: 相性の調査

今度は組み合わせ（カップリング）の評価です。

２点間相互のリンク・スコアを加算したものを「相性」と考えられるものとします。最大値 (互いに好意を寄せている場合の数値) は現在のスコアリング方式では 2 です。例えば

(score-between 'kanna 'airi)

の値は

となります。1 であれば一方通行と考えます。

関係性が未定義の場合もあるので 0 のものを除外して算出すると

(sort-nodes (filter (lambda (n)
		      (not (= (cdr n) 0)))
		    (map (lambda (n)
			   (cons n (apply score-between n)))
			 (all-combinations))))

(((chisato mai) . 2)
 ((chisato airi) . 2)
 ((airi kanna) . 2)
 ((saki kanna) . 2)
 ((kanna maimi) . 2)
 ((erika maimi) . 2)
 ((saki airi) . 1)
 ((saki erika) . 1)
 ((kanna mai) . 1)
 ((maimi airi) . 1)
 ((saki chisato) . -1)
 ((kanna chisato) . -1))

となります。若干ピンとこない部分もあるかも知れませんが、計算上は矛盾無くデータの内容を表しています。

参考までに、スコア 1 の相互関係の中身を見てみると

(map (lambda (p)
       (find-relation (cons (caar p) (cadar p))
		      identity))
     (filter (lambda (n)
	       (= (cdr n) 1))
	     (map (lambda (n)
		    (cons n (apply score-between n)))
		  (all-combinations))))

(((kanna . mai) (desc "喰ってやるよ") (score . 1))
 ((saki . airi) (desc "好き") (score . 1))
 ((maimi . airi) (desc "良き妹") (score . 1))
 ((saki . erika) (desc "彼氏にしたい") (score . 1)))

のようになります。

まとめ

以上の調査を経て気になった問題点を列挙してみます。

リンクの点数化の基準があいまい・恣意的
スコアリングの方式（３段階で良いのか・中立と良好を区別すべきか）
相関関係全体を俯瞰（可視化・画像化）する方法が未確立
データベースの拡充および修正

特に最初の点に関して、「百合的」なるものの質的評価がなかなか難しいと感じました。例えば「大好き」も「良き妹」も同じ 1 と評価してしまっているのが妥当かどうか、といったことです。

また、スレにて与えられた情報を評価・分析する方法としては有効だとしても、逆方向のフィードバックの手段がなかなか見つからないというのが三つ目の問題です（技術力不足とも言います）。（注：画像化の方法が分かりました。追記参照）

最後に、プログラムのソースを示します。実行には PLT Scheme が必要です。文字コードは UTF-8 で保存した上で、(load "c-ute.ss") としてください。文字化けする場合はターミナルが UTF-8 を表示できるよう設定する必要があります。がんばってください。

プログラム

c-ute.ss:

(require (lib "etc.ss")
         (lib "list.ss")
         (lib "26.ss" "srfi")
         (lib "delete.ss" "srfi" "1"))

;;; Utilities

(define true? (compose not not))

(define (ignore _) #f)

(define fif
  (case-lambda
    ((predicate consequent)
     (fif predicate consequent ignore))
    ((predicate consequent alternative)
     (lambda (x)
       (if (predicate x)
           (consequent x)
           (alternative x))))))

(define (concat! xs) (apply append! xs))

(define (mapconcat f lst sep)
  (let lp ((str (f (car lst)))
           (lst (cdr lst)))
    (if (null? lst)
        str
        (lp (string-append str sep (f (car lst)))
            (cdr lst)))))

(define (slice-string str len)
  (let lp ((res '())
           (str str))
    (if (<= (string-length str) len)
        (reverse! (cons str res))
        (lp (cons (substring str 0 len) res)
            (substring str len)))))

(define (break-string str len)
  (mapconcat identity (slice-string str len) "\\n"))

;; NOTE: input and output ports have to be either file-stream or #f
;; (i.e., cannot be a string port)
(define (run exe opt in out)
  (let-values (((p p-i p-o p-e)
                (subprocess out in #f exe opt)))
    (subprocess-wait p)
    (close-input-port p-e)))

;;; Database

;; http://ja.wikipedia.org/wiki/%E2%84%83-ute

(define names
  '((erika . "えりか") (maimi . "舞美") (saki . "早貴") (airi . "愛理")
    (chisato . "千聖") (mai . "舞") (kanna . "栞菜")))

(define (symbol->name sym)
  ((fif true?
        cdr)
   (assq sym names)))

(define nodes '())
(define edges '())

(define (relate from to desc score)
  (let ((n (cons from to)))
    (or (find-relation n
                       (lambda (r)
                         (let ((d (assq 'desc r))
                               (s (assq 'score r)))
                           (set-cdr! d (cons desc (cdr d)))
                           (set-cdr! s (+ score (cdr s))))))
        (begin
          (set! nodes (cons n nodes))
          (set! edges (cons (cons n `((desc ,desc)
                                      (score . ,score)))
                            edges))))))

(define (find-relation n k)
  ((fif true? k)
   (assoc n edges)))

(define (related? x y)
  (find-relation (cons x y) (lambda (_) #t)))

(define (from? n x)
  (eq? (car n) x))

(define (to? n x)
  (eq? (cdr n) x))

(define flip-relation
  (case-lambda
    ((n)
     (and (related? (cdr n) (car n))
          (cons (cdr n) (car n))))
    ((n k)
     ((fif true? k)
      (flip-relation n)))))

(define (get-score n)
  (cdr (assq 'score n)))

(define (get-description n)
  (cdr (assq 'desc n)))

(define (describe-relation n)
  (find-relation n get-description))

(define (score-relation n)
  (or (find-relation n get-score) 0))

(define (print-node . ns)
  (for-each (cute find-relation <>
                  (lambda (r)
                    (display
                     (format "| ~a => ~a  (~a)~%"
                             (caar r) (cdar r)
                             (mapconcat (lambda (s)
                                          (string-append "\"" s "\""))
                                        (cdr (assq 'desc r))
                                        ", ")))))
            ns))

(define (iter-nodes k)
  (let lp ((nodes nodes))
    (unless (null? nodes)
      (k (car nodes))
      (lp (cdr nodes)))))

(define (filter-nodes p)
  (let ((ns '()))
    (iter-nodes (fif p
                     (cut find-relation <> (lambda (n)
                                             (set! ns (cons n ns))))))
    ns))

(define (from-links)
  (map car nodes))

(define (to-links)
  (map cdr nodes))

(define (all-members)
  (delete-duplicates! (from-links)))

(define (all-pairs) nodes)

(define (ordered-pairs)
  (concat! (map (lambda (x)
                  (map car
                       (sort (filter-nodes (cute to? <> (car x)))
                             (lambda (x y)
                               (> (get-score x) (get-score y))))))
                (sort-nodes (map (lambda (x)
                                   (cons x (score-loved x)))
                                 (all-members))))))

(define (all-combinations)
  (let lp ((cs '()) (ns nodes))
    (if (null? ns)
        cs
        (let ((n (car ns)))
          (lp (if (member (list (cdr n) (car n))
                          cs)
                  cs
                  (cons (list (car n) (cdr n)) cs))
              (cdr ns))))))

;; number-list :: [a] -> [(a . Int)]
(define (number-list ls)
  (let lp ((ns '()) (ls ls))
    (if (null? ls)
        ns
        (let ((x (car ls)))
          (lp ((fif not
                    (lambda (_) (cons (cons x 1) ns))
                    (lambda (n)
                      (set-cdr! n (add1 (cdr n)))
                      ns))
               (assq x ns))
              (cdr ls))))))

;; sort-nodes :: [(a . Int)] -> [(a . Int)]
(define (sort-nodes ns)
  (sort ns (lambda (x y)
             (> (cdr x) (cdr y)))))

(define (diff-nodes ms ns)
  (let lp ((ds '()) (ns ns))
    (if (null? ns)
        (sort-nodes ds)
        (lp (let* ((n (car ns))
                   (m (assq (car n) ms)))
              (cons (cons (car n)
                          (- (cdr m) (cdr n)))
                    ds))
            (cdr ns)))))

(define (get-total-score x p)
  (foldr (lambda (n acc)
           (+ (get-score n) acc))
         0
         (filter-nodes (cut p <> x))))

(define (score-loved x)
  (get-total-score x to?))

(define (score-loving x)
  (get-total-score x from?))

(define (score-between x y)
  (+ (score-relation (cons x y))
     (score-relation (cons y x))))

(define (-> x)
  (display (format "~%Links from [~a]~%" x))
  (iter-nodes (fif (cut from? <> x)
                   print-node)))

(define (<- x)
  (display (format "~%Links towards [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   print-node)))

(define (<-> x)
  (display (format "~%Reciprocal links for [~a]~%" x))
  (iter-nodes (fif (cut to? <> x)
                   (lambda (n)
                     (flip-relation n
                                    (lambda (m)
                                      (print-node m n)))))))

(define (<=> x)
  (display (format "~%Reciprocal matches for [~a]~%" x))
  (iter-nodes
   (fif (cut to? <> x)
        (lambda (n)
          (flip-relation n
                         (lambda (m)
                           (if (ormap (lambda (x)
                                        (ormap (lambda (y)
                                                 (equal? x y))
                                               (describe-relation m)))
                                      (describe-relation n))
                               (print-node m n))))))))

(define (<?> x)
  (let ((to (assq x (number-list (from-links))))
        (from (assq x (number-list (to-links)))))
    (display (string-append
              (format "~%Link statistics for [~a]~%"
                      x)
              (format "| ~a => ~a (love ~a)~%"
                      x
                      (cdr to)
                      (score-loving x))
              (format "| ~a => ~a (love ~a)~%"
                      (cdr from)
                      x
                      (score-loved x))))))

(define (info x)
  (for-each (cut <> x)
            (list <- <-> <=> -> <?>)))

;;; GraphViz (http://www.graphviz.org/) support

(define graphviz "C:/Program Files/ATT/Graphviz/bin/dot.exe")

(define (nodes->dot ns)
  (string-append "digraph cute {\n"
                 ;;"\tordering=out;\n"
                 ;;"\trankdir=LR;\n"
                 "\toverlap=true;\n"
                 "\tnode[fontname=\"msgothic.ttc\"];\n"
                 "\tedge[fontname=\"msgothic.ttc\",fontsize=9];\n"
                 (let lp ((str "") (ns ns))
                   (if (null? ns)
                       str
                       (let* ((n (car ns))
                              (s (score-relation n)))
                         (lp (string-append
                              str
                              (format "\t\"~a\" -> \"~a\""
                                      (symbol->name (car n))
                                      (symbol->name (cdr n)))
                              (format "[label=\"~a\",color=\"~a\","
                                      (break-string
                                       (car (describe-relation n))
                                       7)
                                      (cond ((> s 0) "red")
                                            ((= s 0) "green")
                                            (else "blue")))
                              (format "style=\"bold~a\"];\n"
                                      (if (and (not (= s 0)) (< s 1) (> s -1))
                                          ",dashed"
                                          "")))
                             (cdr ns)))))
                 "}"))

(define (write-dotfile dot file)
  (and (file-exists? file) (delete-file file))
  (with-output-to-file file
    (lambda ()
      (display dot)))
  file)

(define (dot->png dot png)
  (call-with-input-file (write-dotfile dot "c-ute.dot")
    (lambda (in)
      (and (file-exists? png) (delete-file png))
      (call-with-output-file png
        (lambda (out)
          (run graphviz "-Tpng" in out)))))
  'done)

;;; Setup database

;; Based on:
;; http://ex23.2ch.net/test/read.cgi/morningcoffee/1188654905/116-142
(begin
  (relate 'maimi 'erika "大好き" 1)
  (relate 'maimi 'kanna "良き妹" 1)
  (relate 'maimi 'airi "良き妹" 1)
  (relate 'maimi 'mai "姉妹" 0)
  (relate 'erika 'maimi "一番可愛いよ" 1)
  (relate 'erika 'kanna "仲間" 0)
  (relate 'erika 'chisato "おソロパジャマ" 0)
  (relate 'kanna 'erika "仲間" 0)
  (relate 'kanna 'maimi "好き" 1)
  (relate 'kanna 'saki "喰ってやるよ" 1)
  (relate 'kanna 'mai "喰ってやるよ" 1)
  (relate 'kanna 'airi "大好き" 1)
  (relate 'kanna 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'maimi "荷物整理" 0)
  (relate 'saki 'erika "彼氏にしたい" 1)
  (relate 'saki 'kanna "興味がある" 0.5)
  (relate 'saki 'chisato "愛理に手出すんじゃねぇよ" -1)
  (relate 'saki 'airi "好き" 1)
  (relate 'airi 'kanna "受け入れる" 1)
  (relate 'airi 'chisato "最近親密" 1)
  (relate 'mai 'erika "保護者" 0)
  (relate 'mai 'maimi "姉妹" 0)
  (relate 'mai 'chisato "恋人" 1)
  (relate 'chisato 'erika "おソロパジャマ" 0)
  (relate 'chisato 'mai "恋人" 1)
  (relate 'chisato 'airi "最近親密" 1))

;; query relations / draw graphs

(if (file-exists? graphviz)
    (dot->png (nodes->dot (ordered-pairs))
              "c-ute.png")
    (for-each info (all-members)))

追記（グラフ描画について）

Graphviz というソフトによって関係図を可視化できる、ということを教えていただきました（既に上プログラムを実行すると自動的に関係図画像を作成するようにしてあります）。ここでは技術的な観点から幾つか注意点を挙げておきます。

まず、Scheme プログラムから Graphviz を動かす方法について。コマンドラインからの起動のように、プログラムへのオプション文字列で入出力ファイルを指定する方法ではどうも上手く行きませんでした。調査の結果、入出力ファイルのポートを Scheme 側で用意しておく必要があるようです。処理系によって異なりますが、PLT Scheme の場合 subprocess という関数を次のように呼び出します。

(subprocess output-port input-port #f "/path/to/dot.exe" "-Tpng")

ここで output-port は png 等画像ファイルへの出力ポート。input-port は dot ファイル（グラフの定義ファイル）の入力ポートです。エラーポートは必要無いでしょう (#f)。

dot という名前の実行ファイルが、関係図のような有向グラフを描画するプログラムです。最後にオプション文字列として出力形式を指定します（png, jpeg, gif, etc.）。

次に dot ファイルを Scheme で書く方法ですが、以下の基本的な有向グラフの書式

digraph g {
  A -> B;
  B -> C;
  C -> A;
}

を理解すれば、後は実直に Scheme のデータを当てはめて format 関数等で変換するだけです。

(string-append
 "digraph g {"
 (format "~a -> ~a;" (car node) (cdr node))
 "}")

問題は、ノードを配置する順番によって出来上がる画像が変わってくる、ということです。

より見た目に分かりやすくするための工夫としては、相互にリンクするノード同士が dot ファイル上でも近接して出力されるようにすると良いでしょう。関連の強いものが画像の上でも近くに表示されるようになります。

また上述（特に例３）のスコアの概念を応用し、スコアの低いものが後に出力されるようにすることで、重力感覚に一致するような関係図を得ることができるでしょう。

Permalink | トラックバック(0) | 17:26

2007-08-12

■はてなとモーヲタについて

http://anond.hatelabo.jp/20070810001656

http://anond.hatelabo.jp/20070131134814

この2つのURLを人から教えてもらったので、ちょっと書いてみる。

「なぜはてなにモーヲタ系が多いか？」という問いに対する答えとして、個人的には「はてなアンテナ開始時のユーザーにモーヲタが多かったから」と思っているんだけど、「じゃあなんでモーヲタが多かったの？」という問いに対する答えは……というように遡って考えていって、大体最初の辺りから説明していくことにする。

2001年頃、「エスロピ」というサイトがあった。一言で言うとハロプロ系個人ニュースサイト。エスロピは「あめぞう2000ヘッドライン」に登録されていた。それを見たさかもと氏（当時のサイトは「楽しい科学」）が「モーヲタ系サイトをヘッドライン表示させると便利なんじゃないか？」と考えて作ったのが「モーヲタヘッドライン2001」。

別の流れとして、2001年8月には2ch閉鎖騒動「8月危機」があった。それに伴い、2ch モーニング娘。板の「モ娘。（狼）」の避難所が乱立、というか避難所を作るのが一種の流行だった。その1つとしてさかもと氏も掲示板を作った。スクリプトは「17スクリプト」を使用。

そして「モーヲタヘッドライン2001」と掲示板の2つを統合して、「モ娘。（楽）」として2001年 9月17日に公開。

しかしヘッドラインでの表示がなかなか上手く行かなかった。そこで注目されたのがアンテナ用スクリプト「なつみかん」。これを使用して作成されたのが「娘。アンテナ」。「モーヲタヘッドライン2001」の替わりとして2001年 10月20日に公開。

実は、この1ヶ月前に「豚の戰爭」猪川氏が「LINKS ARoMATIZED」というスクリプトを使って作成した「娘。アンテナ（仮）」（後の「娘。アンテナ（假）」）というのが公開されていたんだけど、知名度が高いとは言えなかった。

この頃はまだはてなアンテナもなかったので、モーヲタ系サイトの更新取得は「娘。アンテナ」が一手に引き受けていた。サイト登録数もどんどん増えていって、派生サイト「「娘。アンテナ」ガイド」の2002年5月頃の記録では約150サイトが登録されていた。

このようにモーヲタ系サイトのコミュニティが形成されていったが、その反面、ハロプロ自体の勢いは下降線を辿っていったように思う。これは各人の感じ方にもよると思うけど、個人的にはそう感じていた。ハロプロがどうこうというよりも、個人的な「飽き」の部分が大きかった。象徴的だったのは2002年 7月31日の「ハロマゲドン」で、これが1つの転機になった。

前後して2002年5月、「はてなアンテナ」サービス開始。当時のモーヲタの感覚としては「自分でサイトを選んだ娘。アンテナが持てる！」というものだったと思う。

そして2002年9月「娘。アンテナ」閉鎖。同年10月「エスロピ」閉鎖。「娘。アンテナ」の登録サイトリストをそのままインポートした「娘。アンテナβ」など後継的なアンテナがいくつか出現し、2003年1月には「はてなダイアリー」がサービス開始。この流れが現在まで続いて、「はてなにモーヲタ系が多い」という現状認識に至ったのだと思う。

全体の何割かというのはもちろん把握できないけど、サービス開始当初は「はてなはモーヲタばっかりだな」という印象があった。あと、当時は雑誌「ネットランナー」で「はてなランキング」と銘打った、はてなアンテナからのアクセス数によるサイトランキングが掲載されていて、それを眺めても「はてなはモーヲタばっかりだな」という印象があったと記憶している。

以上。事実関係が前後していたり思い違いしている可能性があることを一応お断りしておく。

＜余談1＞

はてなを「村」と揶揄しているのを見て、そういえば昔エスロピ界隈も「村」と揶揄されたことがあったなあと思った。

http://choco.2ch.net/morningcoffee/kako/1006/10067/1006718399.html （117-126辺り）

結局はてなはモーヲタのパクリなんだよ！（言い過ぎ？）

＜余談2＞

「モーヲタは死んだ」というマニフェストがあるけど、

http://www.machineworks.co.uk/whg/2006/09/post_3057.html

最近は「ハロヲタ」という呼称をよく見かける。モーニング娘。も一応存続しているけど、勢いという側面から見るとベリキュー（Berryz工房、℃-ute）の方が上だし、昔ながらの「興味あるのは娘。だけ」あるいは「娘。が一推し」という層は大分減ったと感じる。というか、今でも残っているファン層というのは、推しの違いこそあれ、「ハロー！プロジェクト」という団体自体に少なからぬ思い入れがあるように思う。

だから「モーヲタは死んだ」ではなく、「モーヲタは死んでハロヲタになりました」ということにすればいいんじゃないの。どうでもいいけど。

＜本文に関連した項目による年表＞