KuboLog 2013-05-31

2013 年 05 月 31 日 (金)

0600 起床，とら坊いまいちよく眠れてないのかな? 朝ミルク．どうもきげんがよろしくないので，おんぶしてあっちに行ったりこっちに戻ったり …… すこしきげんがよくなったもよう．朝飯の準備．朝飯．コーヒー …… なんだかいろいろやることがあって， 0825 自宅発．快晴． 0830 保育所着． 0900 研究室着．

[保育所装備]

こんなものを毎日持っていっています．名前を書いたおむつ，とら坊連絡帳，着替え …… などなど．

すでにぐったり．

えーい，さっさと「統計モデリング入門」の原稿ファイル (UTF-8 化したもの) から図の部分のぬきとり & かきかえをする Perl スクリプトをしあげてしまわなくては …… しかし，なかなか進捗せづ．

うーむ，昼飯．

[コインひと山]

最近，ちょくちょくと研究室内のかたづけ・ごみすてを進行させているのだが …… 部屋のかたすみからかくのごとく 1, 5, 10, 50 円貨幣の入った袋がでてきた．ああ，これは …… ずっと以前に，超絶はっかーにしてずぼらきわまりないかた (誰とは口がさけても言えないけどかとー先生) がひっこしのときに処分に困窮して私に押しつけていったやつだ．今さらながら，ネットで調べてみると金融機関窓口には「貨幣カウント装置」があるので，それで数えてもらって自分の口座に「入金」してもらうのがよいとのこと (「両替」だと手数料とられる)．で，昼飯後に北 15 条の北大病院前の郵便局に行ってみた．重量およそ 1 kg 超のコイン …… 2399 円でした．

ねむい

章ごとの LaTeX ファイル内のすべての figure 環境を書き換えて，さらに分離するといった Perl スクリプトかき．なんとかできたかな …… 試験運転．

$ ./splitfig.pl ch02_distribution.tex > tmp.tex
# save to fig/distribution/fig_flower.tex ...
# save to fig/distribution/fig_histdata.tex ...
# save to fig/distribution/fig_dpois356.tex ...
# save to fig/distribution/fig_dpoishistdata.tex ...
# save to fig/distribution/fig_dpoisset.tex ...
# save to fig/distribution/fig_logL.tex ...
# save to fig/distribution/fig_likelihood.tex ...
# save to fig/distribution/fig_histmean.tex ...
# save to fig/distribution/fig_randest1.tex ...
# save to fig/distribution/fig_randest2.tex ...

なんかこう，ちょっとめんどうな遷移ルールがあって，かくのごときヘンてこなコードになっちゃいましたよ …… 時間がかかってしまった．ねむいし，アタマもぼけているな．

LINE: for (@lines) {
    if (defined $read_figpart) {
        if (m/\\caption/o) {
            $read_figpart = undef;
            $caption = $_;
            next LINE;
        } else {
            s/^\t//o;
            $figpart .= $_;
            next LINE;
        }
    } elsif (m/\\includegraphics/o or m/\\begin{picture}/o) {
        $read_figpart = 'yes';
        s/^\t//o;
        $figpart = $_;
        next LINE;
    } elsif (defined $caption) {
        $caption .= $_;
        if (m/^(.*\\label{fig:)([^:]+)(:)([^\}]+)(}.*)/o) {
            my ($dir, $label) = ($2, $4);
            die "ERROR: No \$figpart" if not defined $figpart;
            my $file = &save_figure($figpart, $dir, $label);
            print "\t\\input{$file}\n";
            print $caption if defined $caption;
            ($figpart, $caption) = (undef, undef);
        }
    } else {
        print;
    }
}

上記の HTML 出力は highlight --inline-css で出したものにちょっと手をくわえた． Vim の :TOhtml もよいのだけど，まあちょっとめんどうなところがあるので．

ファイル変換，もうすこし手なおしが必要なのだが，時間ぎれ． 1720 研究室発．買いもの． 1800 帰宅．晩飯の準備．晩飯．

[今日の運動]

とらちゃんえくささいず．

[今日の食卓]

朝 (0720): 米 0.7 合．ダイコン・ネギ・ブナシメジ・豚肉の味噌汁．ダイコン葉のきんぴら．
昼 (1200): 研究室．米 0.7 合．ソーセイジ．ジャガイモの揚げ蒸し．ブロッコリー．ミニトマト．
晩 (1910): 米 0.7 合．ダイコン・ネギ・ブナシメジ・豚肉の味噌汁．サバの味噌煮．ナス・キュウリのポン酢あえ．

ぎょーむ日誌 2013-05-31

2013 年 05 月 31 日 (金)