AAA...JJJにA1, A2, A3, ..., J7のコードを入れる。 動かなかったら残念（IE8, Safari, Chromeで動作確認済み）。使用は自己責任で。 javascript:(function(){var c='AAAAAAABBBBBBBCCCCCCCDDDDDDDEEEEEEEFFFFFFFGGGGGGGHHHHHHHIIIIIIIJJJJJJJ';var r=docume…

Gnuplotでグラフを出力するのにかなり時間がかかることがときどきある。plot sin(x)のようなものでも数分待たされる。 その理由がやっとわかった。Gnuplotは、%TEMP%にfontconfigというフォルダを作成する（たとえばWindows 7のデフォルトではC:\Users\usern…

誰得。正規表現で12d3を置換するだけ。 my $dice = "3d4"; $dice =~ s/(\d+)d(\d+)/my $s = $1; $s += int rand $2 for 1 .. $1; $s/ie; print $dice; # ex. 7 ただしfor (foreach)でこっそり$_を使っている。この置換の前後で$_を維持したいときは、s///;の…

cp -r ...のようなことができるため重宝する。 しかし、現行バージョン(0.38)では@EXPORT_OKにrcopy_globが入っていないため、この関数がちょっとだけ使いにくい。なぜだ。頻繁に呼ぶときはとりあえずこうしてごまかそう。 use File::Copy::Recursive qw(...…

Maximaでこのようにする処理で結構はまった。perlでいうと、my $a ||= 1;に対応するものだ（厳密には違うが）。 if not member('a, values) then a : 1 $どうも、こうすればよいようだ。valuesは現在定義されている変数のリストで、member()は第1引数が第2引…

こういうのにとまどったためにプログラミングが嫌いになるのはよくない。ということで、研究室の同期に聞かれたことをパブリックに答える。 #include <stdio.h> int main() { int i; char filename[20]; FILE *fp; for (i = 0; i < 10; i++) { sprintf(filename, "tes</stdio.h>…

研究室のPC（プロキシ経由でインターネットに接続）に入っているSymantec Endpoint ProtectionでLiveUpdateをすると、よく3,500KBでダウンロードが中断してしまっていた。エラー内容は「LU1835: LiveUpdate サーバーに接続できません」だったが、どこをどう…

任意の2次関数f(x)について、[x1, x2]における極大値を探すプログラムをC言語で実装した。 #include <stdio.h> double some_quadratic_function(double x) { return -2.2 * x * x + 4.686 * x + 5.467; } double quadratic_max(double (*f)(double), double x1, doubl</stdio.h>…

Windowsで「予定表.tex」というファイルに対してplatexを実行すると、思わぬ結果になる。 platex 予定表.tex 出力ファイルが、「.dvi」、「.aux」などになってしまい、ファイル名が失われてしまう。これは、「表」という文字がいわゆるShift JISのダメ文字だ…