『英辞郎 on the WEB』整列・頻度集計

ALCが『英辞郎 on the WEB』整列・頻度集計というのを始めてたんですね．

実は昔，与えられた単語の前後に来る単語の統計を表示するアプリをこっそり作ってたりします．
画面はこんな感じ．

熟語だと

こちらはwikipedia英語版のデータを突っ込んでいます．
そこそこおもしろかったので公開しようかとも思ったのですが，
なにぶんデータが大きすぎて手頃なサーバーがなかったので公開するに至りませんでした．

需要がありそうならもう一度作って公開しようかなぁ・・・
結局置き場所が問題になるわけですが．

MATLAB が出力する図を PowerPoint 向けに自動調節

MATLAB で描いた図やグラフを PowerPoint に貼り付けるときに
一番簡単な方法はFigure のメニューから [編集]-[Figureのコピー] を使って
PowerPoint 上でペーストすることだと思います．

しかし， MATLAB がデフォルト設定で作成するグラフには
以下のような問題があります．

• プレゼン用には字が小さい
• グリッドが出ない
• 無いよりある方が無難だと思うのだけど・・・
• コピー＆ペースト時にサイズが変わる
• グリッドまで変えられるので意図しない結果になることが多いですね
• 線が見にくい
• 細い＆プロジェクターで見辛い色が使われます

丁寧に設定すればこれらの問題を解決することは可能ですが，
そこそこ面倒ですし，ミーティングなどで MATLAB による実演を行う際に
これらを逐一設定するのはテンポを損ねます．

というわけで，これらの設定を自動化するプログラムを作りました．
このプログラムは MATLAB のデフォルト設定を書き換えて，
以降に描かれるグラフをプレゼン用に見やすくします．

いまのところ MATLAB を再起動する以外に元に戻す方法はありません．

ちなみに得られるグラフは以下のようになります．

使用前

使用後

コード

function [] = prettify_figure_presen()
%PRETTIFY_FIGURE_PRESEN グラフのフォントをプレゼン用に最適化
% この関数を呼び出すと
% 以降に描かれるプロットの見た目がプレゼン向けになります．
% 元に戻すにはMATLABを再起動するしかないです．
%
% ※ ボード線図は別口(prettify_bodeplot_presen参照)
%    なので注意してください．


%% フォント
set(0,'defaultAxesFontSize',20);
set(0,'defaultAxesFontName','メイリオ');
set(0,'defaultAxesFontWeight','demi'); % normal/demi/bold
set(0,'defaultTextFontSize',20);
set(0,'defaultTextFontName','メイリオ');
set(0,'defaultTextFontWeight','demi');

%% 線の幅
set(0,'defaultAxesLineWidth', 1.5); % 軸
set(0,'defaultLineLineWidth', 2); % プロット

%% プロットの色
clorder = ...
    [  0,   0, 255; % 青
       0, 128,   0; % 緑
     255,   0,   0; % 赤
     204,   8, 204; % 紫
     222, 125,   0; % 茶
       0,  51, 153; % 紺 (青と区別しづらい，注意！)
      64,  64,  64];% 濃い灰色  
set(0,'defaultAxesColorOrder',clorder/255);

%% 最初からgrid on & box on
set(0,'DefaultAxesXGrid','on');
set(0,'DefaultAxesYGrid','on');
set(0,'DefaultAxesBox','on');

%% コピペ時にサイズを変更しない
set(0,'DefaultFigurePaperPositionMode','auto');

end

2010/2/17 追記
17行目の間違いを修正しました＆reset(0)で設定を初期化できるそうです．
atsu-kan さんありがとうございます．

SyntaxHighlighter に貼り付けるコードのエスケープ

このブログでは SyntaxHighlighter を使ってソースコードを表示していますが，コードを<pre>タグの中に描くときに '<' や '>' などを&gt; &lt; などにエスケープする必要があります．

これを手でやると面倒なのでスクリプトを書いてみました．
http://maru.bonyari.jp/code2html/code2html.html
処理はブラウザの JavaScript で処理されるので prototype.js があれば
ローカルに保存しても使えます．

MATLAB で半透明の plot を作る

データが大量にあって，グラフ上で密度を表現したい場合などで
MATLAB で半透明の線を書きたいことがたまにあります．

なぜかMATLABのplotで生成される線は半透明をサポートしていないので
半透明をサポートしているpatchで線を描く関数を作ってみました．

function [ p ] = pplot(x,y,z)
%PPLOT Draw line as patch

if nargin==2
    z=0;
end

x=reshape(x,[],1);
y=reshape(y,[],1);

p=patch([x;flipud(x)],[y;flipud(y)],z*ones(2*size(x,1),1),'b');

end

使うときは以下のように使います．

x=0:1e-2:pi/2;
clf
hold on
for k=linspace(0,1,25)
    p=pplot(x,(1-k)*sin(x));
    set(p,'EdgeAlpha',0.1);
    set(p,'EdgeColor','b');
    set(p,'LineWidth',2);
    p=pplot(x,k*cos(x));
    set(p,'EdgeAlpha',0.1);
    set(p,'EdgeColor','r');
    set(p,'LineWidth',2);
end

得られる結果はこんな感じ
このように，半透明の線を描くことができ，線が集中している部分は濃い色で表示されます．
ただし，複雑な線を大量にプロットするとすごく遅いので注意してください．

カメラを買ってみた

携帯のカメラが壊れたのでデジカメを買ってみました．

いろいろ設定を変えて撮ったり画像処理で調整したりして遊んでいますが，

同じ景色でも肉眼で見るのとは違う印象になっていて，おもしろいです．

意外と星が撮れることに特に驚いています．

Springer Exemplar

最近，英語で文章書くときに Springer Exemplar というサービスを使ってます．

このサービスは学術系の本でよく見る Springer 社の無料サービスで
指定した単語，または節が使われている例文を，同社が出版してる文献から検索して
列挙してくれるサービスです．

実は一時期似たようなのを自分で作って使っていたのですが，やっぱり大手が作ると
元のデータの量が多くて良いです．

気になった点は

• 結果のソート順の基準がよくわからない．
• 遅い

といったところですね．
あと，検索した後に左の方に分野・国ごとのヒット数がでているようですが，こちらも興味深いです．やっぱり日本人は良く "on the other hand" って使うんですね．

プレゼンテーション・ディレクターの設定

「プレゼンテーション・ディレクター」はThinkpad についているソフトで
プレゼンテーション用のディスプレイ設定（スクリーンセーバーオフとか通知機能オフとか）と
通常の設定をワンタッチで切り替えられる，そこそこ便利なソフトです．

ですが，このソフトには致命的な不具合があって僕が使ってるThinkpadの画面解像度1440x900をサポートしていません．
正直言って添付ソフトでこれはマズイような気もしますが，とりあえずの対処法を見つけたのでメモしておきます．

1. 「メニューの設定」を開き，オプションボタンを押す
2. 「スキームのエクスポート」で設定をエクスポートする
3. テキストエディタでエクスポートしたファイルを開き，
   Width=1024
   Height=768
   の行を
   Width=1440
   Height=900
   とか書き換えて保存する
4. 編集したファイルを「スキームのインポート」でインポートする

これで一通り使えるようになりますが，「通常のディスプレイ設定」の項目だけはこの方法を使っても修正できません．早いうちにアップデートで修正されるといいのですが・・・