gistfile1.pl

for ($i =0; $i < $K; $i++) { #遷移確率を求める
	for ($j =0; $j < $K; $j++) {
		$t0 =0;
		$t1 =0;
			
		for ($u =0; $u < @state -1; $u++) { #個数を数える
			if ($state[$u] == $i) {
				$t0++;
					
				if ($state[$u +1] == $j) {
					$t1++;
				}
			}
		}
		#遷移確率を計算
		push @{$trans[$i]}, (1- $alpha) * $t1 / $t0 + $alpha / $K;
	}
}