http://d.hatena.ne.jp/suztomo/20080923/1222149517 にある内容を.emacs.elに書いてみたところ，なぜか1行多いので微妙に調整．結果こうなりました． (when (eq window-system 'mac) (add-hook 'window-setup-hook (lambda () (set-frame-parameter nil 'fu…

新しいMacBook買いました．ついでに形態素解析も始めることにしました．Yahooの形態素解析サービスにお任せすることも考えましたが，初学者らしくMeCabを使うことにしました．ついでにPerlから呼び出せるようにもしたいですね． Finkをインストール MeCabはF…

公開鍵認証を使いましょう 公開鍵を各slaveホストにauthorized_keyに登録しておきましょう 各slaveホストのホストキーを事前に登録しておきましょう slaveホストの数だけyesを打ち続けて, ホストキーを登録しまくって涙目なわたしが通りますよ...

http://codezine.jp/a/article/aid/2485.aspx を見ながら試してみました. この記事の通りやればできるということがわかりましたが, 二点知らなかったことが会ったのでメモしておきます. JAVA_HOMEを /Library/Java/Home に設定すること 「システム環境設定」…

実験の関係でHadoopを試そうと思い，http://code.google.com/edu/parallel/index.html#hadoop で公開されていたVMWare用のイメージを試してみました．その時にはまったことをいくつか書いておきます．まず前提知識として：このVMWare用イメージはUbuntuをベ…

openssl enc -e encode_engine -in plain_text -out chiper たとえばaes-128-cbcを使って暗号化するときは次のようにする． openssl enc -e -aes-128-cbc -in plain_text -out chiper 復号は次のように行う． openssl enc -d -aes-128-cbc -in plain_text -o…

sum(abs(i - j)) i, j はベクトルです．たとえば3×3の行列aの1行目ととあるベクトルvの距離を測りたければ次のように書くとよい． octave:8> a=rand(3,3) a = 0.316816 0.470100 0.042874 0.562923 0.048504 0.756269 0.280402 0.860104 0.655687 octave:9> …

ddでイメージを作り，それをvmdk形式に変更して動かそうかとも思いましたが，ドライバ回りなどではまるのも嫌だったので，パッケージリストや設定のみを移すという方針でお引越ししています． VMWare Serverのインストール 仮想マシンの作成 Ubuntuのインス…

メモとして残しておきます. % svn status | awk '{if($1 == "?") print $2}'|xargs svn add

その上でちょっとはまったのが，動的にクラスをロードすることでした．使うクラスが決まってしまえば動的にロードする必要はないのですが，今後必ず増えることと，増え方が読めなかったので動的にロードすることにしました． sub load{ my ($self, $class) =…

タイトルの通りのものを書きました. LISPのS式をgraphviz用のdotファイルへ変換します. 下記のアドレスからダウンロードできます. PerlとClass::Accessor::Fastがあれば動くはずです. http://www.tom.sfc.keio.ac.jp/~chiko/s2dot/s2dot.pl最近LISPで書かれ…

http://www.tom.sfc.keio.ac.jp/~chiko/mathematica/test.flvあそんでます．

昨年末から確率を使った推論をしこしことPerlで書いているのですが,どうにもこうにも遅くてたまりません. 一つ一つの計算は簡単で,すぐに終わるのですが,処理するべきデータ量が多く, しかも組み合わせ量も爆発してて大変な感じです.そこで,並列プログラミン…

ナイーブに書いてみました． -module(fib). -export([fib/1]). fib(N) -> if N == 0 -> 1; N == 1 -> 1; true -> fib(N -1) + fib(N - 2) end.if文の条件のところに or式は使えないのだろうか？使ってたら文法エラーになりました．なんか直感的ではないと思…

> if文の条件のところに or式は使えないのだろうか？使ってたら文法エラーになりました．と書きましたが，これは間違い．式の評価順序の問題でした． 8> (1 == 1) or (1 == 1). true 9> 1 == 1 or 1 == 1. ** 1: syntax error before: '==' **どうも==よりも…

単年度契約, 更新は2回までという有期契約満了に付き, 本日退職いたしました.明日からは某大学で院生をやることになっています. 何が求められているか, そして結果をどうアピールするかについてよくなやんだ気がします.求められないことをやっても仕方が無い…

コマンド名からldapdeleteを使うように思いがちですが，それはトラップ．ldapmodifyを使いましょう．利用例は次の通り % ldapmodify -x -W -h ns0.sfc.keio.ac.jp -D uid=chiko,ou=people,dc=sfc,dc=keio,dc=ac,\ dc=jp dn: uid=chiko,ou=People,dc=some,dc=…

ちょっとはまったのでメモを残しておきます.Sargeでは"apache2-make-certificate"だったけれど，Etchではmake-ssl-certコマンドを使います．使い方はこんな感じです: make-ssl-cert /usr/share/ssl-cert/ssleay.conf /etc/apahce2/ssl/apache2.pem第1引数に…

忘れてしまいました.困った.結構はまったので,対処を書いておきます. mysqldの停止 --skip-grant-tables オプション付きでmysqldを起動 クライアントで接続し,パスワード変更 mysqldの停止と再起動 ポイントは--skip-grant-tablesオプション.これをつけるとm…

神戸戦での交代と,ジェフ戦での「けがによる欠場」を見て,なんとなく予想はしていましたが,こんなに早く表に出てくるとは.というのが正直な感想です.契約解除とのことですが,違約金はいくらとれたんだろうか.そこが心配です.ちゃんと違約金条項が含まれてい…

このブログは別にサッカーブログではありません．ただ私はとてもサッカーが好きで，J1だと川崎フロンターレを応援しています．サッカープレー歴はありません．そういう私なりに，フロンターレの試合を見ていて考えたことを書いておきます．開幕から2試合，フ…

昨日インストールを途中でやめたInline::Ocatveですが，インストールできました．Makefile.PL実行時に，Ocatveへのパスを次のように指定してあげると良かったようです． Please enter new path to executabl/Applications/Octave.app/Contents/Resource/bin/…

クラスタリング周りの実験をしようと思い，簡便に行列計算ができるものを探してみました．Matlabが行列計算に強いということは知っていたけれど，有償のうえに高いらしいので選択肢から除外．フリーなもの，できればPerlから呼べるものを探してみました．で…

海外出張用にアイマスクと耳栓は持っていたので，本当に睡眠時間を短くする方法というのを試してみました． 実験環境 明かりは全部消してあります．その他，寝ている布団，部屋の空調は普段と同じ状態です．アイマスクは・・・商品名は忘れましたが5つくらい…

（このエントリーは，数式で表現する試みの一環です）バストとカップサイズはわかってるんだけど，アンダーバストの大きさはわからない．そういうときには計算して求めてしまいましょう．アンダーとトップとの差が2.5センチ大きくなるごとに，一つカップサイ…

次元の呪いに掛かっているような気がする．いまいちですなあ．

松島かえでが引退してしまって悲しいので，よく似た人を捜すことにしました．DMMから集めた3700人弱の女優を出演作をもとに数値化し， 単純なクラスタリングをしてみました．で，結果． 名前 出演作 葵みのり http://www.dmm.co.jp/digital/videoa/-/list/=/…

DMMの女優一覧をクロールし，scrapeして統計を取ってみました． カップ 人数 A 10 B 195 C 447 D 452 E 366 F 234 G 138 H 52 I 26 J 12 K 3 N 1 全女優数が3700弱いて1750人程度のカップ数がとれなかったので， 実態を反映していない可能性はあります．ぱっ…

#/usr/bin/perl sub add{ my $var = shift; return $var + 1; } print add(1) . "\n";

CPANからインストールする際に少しはまったので，やり方をメモしておきます．ポイントは次の二つ． blibをちゃんと適切な場所にコピーすること /usr/local/mysql/lib/mysqlにmysql関係のdynamic link libraryをおいておくこと 以下，経緯．まず普通にCPANシ…