nDiki : 2004年07月05日

過去の今ごろ

過去の7月5日より。

• サンセベリア トラノオ
  • 祝2年。根の方が腐ったのか1本ずぼっと抜けてしまったことがあったが、その後何本か順調に葉(?)が増えている。鉢が窮屈そうなのだが、どう植えかえればいいのかよく知らないのでずっとそのまま。

Perl で遺伝的プログラミング

創発本(ソフトバンクパブリッシング)を読んでいたら、遺伝的プログラミングしてみたくなった。 余暇としてコードを書いてみる。 しかし遺伝的プログラミングも遺伝的アルゴリズムもきちんと学んだことがないのでかなり適当。もしかしてやっている事はGPではないかも。

• 終端記号集合を用意 ('1', ';', '+', 'if', ...)
• これらの列を遺伝子とする。
• ランダムに並べたものを、沢山用意。
• トークン列をjoin(' ')して、sub { } の中にいれて eval
• エラーが出なかったらパラメータを与えて実行。返り値をチェックして適応度を計算
• 選択 - 適応度の高いものを残すように
• 交叉 - ある遺伝子の前半と、ある遺伝子の後半をくっつける。長さはそれぞれランダム
• 突然変異 - 遺伝子の1つの終端記号をランダムに変更

'3' を返す関数とかは簡単にできあがる(sub { 1 + 1 + 1} など)。 max(a, b) に対応する関数を作ろうとしたら、これは今のところ駄目。

• eval (コンパイル) 成功したものの方が、失敗したものより適応度を高くするようにしていたため、交叉の長さをランダムにするとどんどん遺伝子が短くなる(長いものはほとんどコンパイルエラーになるので)
• '}' などの順序にによっては sub が閉じられてしまう。パターンによっては perl 自体がセグメンテーション例外で落ちてしまった。最低限 '{', '}' の対応があうように eval 前に '{', '}' を挿入するようにした。
• 遺伝子がちょっと長くなるとほとんど eval に失敗する。
• '<', '>' を終端記号集合に含めておくと、<$a> のようなものも生成してしまう事もあり危険。
• 無限ループ検出がないため、終端記号集合に for, while 等を入れられない。

やはり構文木を遺伝子にしないと駄目かな。

PEG-TJ25 の液晶保護シート(PEGA-SP60)がガリガリしてきた

グラフィティエリアが結構こすれてきた。 CLIE マルチスタイラス(PEGA-ST10)で入力する時はそうでもないが、PDAIR 3 in One stylusだと、結構ペン先がひっかかる感じ。

一旦剥して180度反転させるか、それともOverLay BrilliantかLumitector(ルミテクター)に交換してみるか。

ちなみにPDAIR 3 in One stylusであるが、先っちょのネジがゆるみやすい。