人工無能を作ろう～RSSからマルコフ連鎖(php)

2005年02月13日

人工無能を作ろう～RSSからマルコフ連鎖(php)

2007/12/13 この記事が古いので最新記事書きました Yahoo!のAPIを利用してマルコフ連鎖で文章生成(php)
-----
今までの応用で、RSSからマルコフ連鎖をするphpのサンプルを作って見ました。

実際の動作は、RSS読み込み→適当に一つの記事を選択→形態素解析→マルコフ連鎖用テーブル作成→デバック用にマルコフ連鎖用テーブルの中身を出力→マルコフ連鎖で文章生成→生成した文章の出力、となってます。

実際に下記ソースを利用する場合、汚染チェック・エラーチェック等を行って下さい。

<html>
	<head><meta http-equiv="content-type" content="text/html; charset=EUC-JP" /></head>
	<body>
<?php
	require_once("XML/RSS.php");

// ChaSenのパス
	$chasen = '/usr/local/bin/chasen';

# RSSのパス
	$url = "http://shohoji.net/blog/index.rdf";

$RSS = & new XML_RSS($url);
	$RSS->parse();

# 形態素解析を行う文章
	$rand = array_rand( $RSS->items );
	$str = $RSS->items[$rand]["description"];

// 形態素解析をしたい文章を渡しつつ、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]=接尾語 の形式
		//$markov{$wakatigaki[0]}{$wakatigaki[1]}[]=$wakatigaki[2];

for ($i = 2 ; $i < count($wakatigaki) ; $i++) {
			if ($i < count($wakatigaki)) {
				$markov{$wakatigaki[$i-2]}{$wakatigaki[$i-1]}[] = $wakatigaki[$i];
			}
		}

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

// マルコフ連鎖テーブルを表示(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<1000 ; $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タソ : 2005年02月13日 19:09 | トラックバック

しってるだお
マルコフ連鎖
うん?。

Posted by: 酢鶏＠人工無能 at 2005年03月08日 07:09

コメントする

パーツ

Adds

カテゴリー

Link

Movable Type 2.661

あたまがうにになる

人工無能を作ろう～RSSからマルコフ連鎖(php)