人工無能を作ろう～マルコフ連鎖(2接頭語と1接尾語の場合)(php)

2004年09月07日

人工無能を作ろう～マルコフ連鎖(2接頭語と1接尾語の場合)(php)

「1語の接頭語+1語の接尾語」のマルコフ連鎖をする際のサンプルソースは公開しましたが、1語の接頭語＋1語の接尾語のマルコフ連鎖での文章生成は、出来上がる文章がかなり適当な感じになってしまいます。
この適当な文章生成は、マルコフ連鎖の参考テーブルの中身が増えれば増えるほど、粗が目立つようになります。

そこで、より文章生成を自然にするために「2語の接頭語+1語の接尾語」のマルコフ連鎖を使う訳ですが、とりあえずサンプルソースを公開しておきます。そのうち、プログラムの中身を別途解説しようと思ってます。(と言うかプログラムに記入しているコメント程度で理解できると思いますが)
プログラムの文字コードはEUC-JPで、CGIとして実行できブラウザから実行結果を確認できるように書いてます。

下記ソースは汚染チェック・エラーチェック等を行ってませんので、ご利用の際にはご注意下さい。

<html>
	<head><meta http-equiv="content-type" content="text/html; charset=EUC-JP" /></head>
	<body>
<?php
	# ChaSenのパス
	$chasen = '/usr/local/bin/chasen';

# 形態素解析を行う文章
	$str = "本当の優しさとはどんなことなのだろうか。相手がして欲しい事に気づいてあげられる。相手が欲しいものが分かる。相手の気持ちを考えて、自分の行動を見つめたり、慎重になったりする。これらはみんな相手を思いやるからこそ出てくる、優しい気持ちだといえよう。";

# 形態素解析をしたい文章を渡しつつ、ChaSenへのハンドルオープン
	$handle = popen ("echo '$str' | $chasen ", 'r');

# 結果を1行ずつ取得
	while ($get_chasen = fgets ($handle)) {
		# ChaSenの結果がTAB区切りで帰ってくるので\tで分解
		$kaiseki = split ("\t", $get_chasen);

# $wakatigaki 配列へ わかち書きしたデータを格納しておく
		$wakatigaki[] = $kaiseki[0];
	}

#ハンドルを閉じる
	pclose ($handle);

if (count($wakatigaki) > 2) {
		# 「2語の接頭語と1語の接尾語」のマルコフ連鎖テーブルを作成
		# $markov{接頭語前}{接頭語後ろ}[no]=接尾語 の形式
		for ($i = 2 ; $i < count($wakatigaki) ; $i++) {
			if ($i < count($wakatigaki)) {
				$markov{$wakatigaki[$i-2]}{$wakatigaki[$i-1]}[] = $wakatigaki[$i];
			}
		}

} else {
		print "文章が短すぎてマルコフ連鎖が行えません。<br />";
	}

# マルコフ連鎖テーブルを表示(DEBUG)----------------------------
	print "<pre>";
	print_r ($markov);
	print "</pre>";
	# マルコフ連鎖テーブルを表示(DEBUG)----------------------------

# マルコフ連鎖で文章生成----------------------------
	# 文章出だしを接頭語前に
	$pre1 = $wakatigaki[0];
	# 接頭語後ろは、接頭語前に続く文字からランダム選択
	$pre2 = array_rand ($markov{$pre1});
	# 接尾語は選択できる中からランダムに選択
	$rand = rand (0, (count ($markov{$pre1}{$pre2}) - 1));
	$suf1 = $markov{$pre1}{$pre2}[$rand];

$string = $pre1.$pre2.$suf1;

for ($i=0 ; $i<500 ; $i++) {
		$pre1 = $pre2;
		$pre2 = $suf1;
		# 接尾語は選択できる中からランダムに選択
		$rand = rand (0, (count ($markov{$pre1}{$pre2}) - 1));
		$suf1 = $markov{$pre1}{$pre2}[$rand];

if ($suf1 == "EOS\n") {
			break;
		}

$string .= $suf1;
	}
	# マルコフ連鎖で文章生成----------------------------

print $string;
?>
	</body>
</html>

[ 人工無能 ]

投稿者 Lanタソ : 2004年09月07日 14:14 | トラックバック

それを読んで作る無能が同じものになるとやだし
マルコフ連鎖の記事、
京都新聞 http://www.kyoto-np.co.jp/

Posted by: 酢鶏 at 2004年09月12日 19:08

それを読んで作る無能が同じものになるとやだし
マルコフ連鎖の記事、
電話機と会話しているのが一番だって

Posted by: 酢鶏 at 2004年10月14日 19:21

うわー今見るとふるいなー
書き方も変だし、改良の余地ありまくり!!!
あとで最新版の記事書こう

Posted by: Lanタソ at 2007年12月11日 19:34

コメントする

パーツ

Adds

カテゴリー

Link

Movable Type 2.661

あたまがうにになる

人工無能を作ろう～マルコフ連鎖(2接頭語と1接尾語の場合)(php)