FX（外国為替）情報

FX（外国為替）を各種ブログ(Blog)から一括検索します。

先週アタマから買おうかどうか悩んでいたが、先週金曜日にMacBook Airを購入した。120GBのHDDモデル。秋葉原のヨドバシで買ってポイントをためようかと思ったが在庫がなく、いつ入るかもわからないということなので、銀座のアップルストアで手に入れた。

MacBook Airがいかに物欲をそそるか、そしていかに所有欲を満足させるものかについては、数多くの方が語っているので省略する。

持ち運びしやすいノートPCを手に入れれば、まずやりたいのがVPNの設定だ。WindowsマシンであればPacketiXでつなげばいい。すでに以前からPacketiXサーバーは用意してあるので、クライアント設定を行うだけだ。しかしPacketiXは、OSXに対応したクライアントがみつからない。そこでLinuxマシンにOpenVPNの環境を構築し、MacBook AirにOpenVPNクライアントを導入することにした。

OpenVPN環境の構築方法は、大きく分けて2種類あるようだ。ひとつはルーティングVPN、もうひとつはブリッジVPNである。導入・設定方法については、以下のサイトが参考になる。

（1）ルーティング型の設定
VPNサーバー構築(OpenVPN)

（2）ブリッジ型の設定
OpenVPNで構築するリモートアクセス環境

PacketiXでブリッジ型のVPNに慣れてしまった身としてはOpenVPNもやはりブリッジ型でいきたい。そこで（2）のサイトをベースに、（1）も参考にしながらOpenVPN環境を構築していった。

基本的にはこれで問題ないのだが、私の環境ではひとつだけ落とし穴があった。それはブリッジインターフェースを生成すると、デフォルトRouteの設定が消えてしまうということだ。そのためVPN環境を有効にして立ち上げると、ブロードバンドルーターの外側からこのマシンのポートが見えなくなってしまうのである。

問題自体は難しいものではない。route addコマンドでデフォルトルートを追加すればいいからだ。今回はブリッジインターフェースを生成するスクリプトに、以下の1行を追加した。

/sbin/route add -net default gw <ブロードバンドルータのLAN側アドレス>

作者:おきらくたぬき

更新日:2008年12月23日 11時27分

このブログのホーム

今週の火曜日（2008年12月9日）から「Structure and Interpretation of Computer Programs （SICP)」 を読み始めている。あらかじめ日本語訳の書籍もAmazonで購入しておいたのだが、英文の原著がネット上に全文掲載されているのを見つけたため、英語で読み進んでいる。英語のリーディングの訓練もできるので、一石二鳥だと思ったからだ。

で、昨日、5章構成のうちのChapter 1を読了した。実に面白い。Chapter 1のテーマはプロシジャの抽象化。すでに他のLISPチュートリアルや「プログラミング Gauche」、東京大学の「Scheme 演習」に掲載されていた内容もあったが、私にとって新鮮なネタも数多くあった。まだ足を踏み出したばかりの段階だが、この内容の濃さは素晴らしいの一言である。

例題としては様々な数学ネタが取り上げられていたが、私が特に面白いと思ったのが、フィボナッチ数列の計算法だった。「またフィボナッチ数列かい？」などとおっしゃるなかれ。アルゴリズムによって必要なリソースが大幅に変わってくるということが、非常に明確な形で示されているのだ。

フィボナッチ数列とは何かについては前回触れているので省略。これをごく普通にコード化すると、以下のようになる。（これも前回掲載したが、こちらは再掲させていただく）

(define (fib n)
　　(cond ((= n 1) 1)
　　　　　((= n 2) 1)
　　　　　(else (+ (fib (- n 1)) (fib (- n 2))))))

(define (fib n)
　(define (fib-iter a b count)
　　(if (< count 2)
　　　　　a
　　　　　(fib-iter (+ b a) a (- count 1))))
　(fib-iter 1 0 n))

(define (fib n)
　(define fib-iter a b p q count)
　　(cond ((< count 1)
　　　　　　b)
　　　　　((even? count)
　　　　　　(fib-iter
　　　　　　　a
　　　　　　　b
　　　　　　　(+ (* p p) (* q q))
　　　　　　　(+ (* 2 p q) (* q q))
　　　　　　　(/ count 2)))
　　　　　(else
　　　　　　　(fib-iter
　　　　　　　　(+ (* b q) (* a q) (* a p))
　　　　　　　　(+ (* a q) (* b p))
　　　　　　　　p
　　　　　　　　q
　　　　　　　　(- count 1)))))
　(fib-iter 1 0 0 1 n))

作者:おきらくたぬき

更新日:2008年12月13日 19時54分

このブログのホーム

GahceとPHPの処理速度比較をやってみた。Gaucheのスタディを始めてからずっと気になっていたのが処理速度だったからだ。いくらコーディングしやすくても、処理時間がやたらかかるようでは実用的なアプリケーションなんて作れない。場合によってはC言語も併用しながら、チューニングを行うはめになってしまう。とはいえ、まあ半分は興味本位なんだけどね。

とりあえずやらせてみたのは、フィボナッチ数列の計算だ。階乗計算でもいいかなあと思ったのだが、PHPで階乗計算をやってみると、ある程度以上の桁数になった時点で答えが「INF」になってしまうのだ。しかも「INF」にならないようにすると、あまり処理時間が稼げないので比較が難しい。というわけで、答えの桁数があまり大きくなく、しかもやたらと処理に時間がかかるものをということで、定番のフィボナッチ数列を選んだわけである。

ご存じのとおり、フィボナッチ数列とは、以下のようなものである。

fib(1) = 1
fib(2) = 1
fib(3) = 2
...
fib(n) = fib(n-1) + fib(n-2)

(define (fib n)
　　(cond ((= n 1) 1)
　　　　　((= n 2) 1)
　　　　　(else (+ (fib (- n 1)) (fib (- n 2))))))

(time (fib 30))

function now_time (){
　　list ($msec, $sec) = explode(' ', microtime());
　　return( (float)$msec + (float)$sec );
}

function fib( $n ){
　　if( $n == 1 ){
　　　　return( 1 );
　　}else if( $n == 2){
　　　　return( 1 );
　　}else{
　　　　return( fib( $n-1 ) + fib( $n-2 ) );
　　}
}

$n = 30;
$start = now_time();
echo "Ans=" . fib( $n ) . "<br />";
$end = now_time();
echo "Time=" . ($end - $start);

Gauche
real:0.226 user:0.230 sys:0.000

PHP
Time=2.026

作者:おきらくたぬき

更新日:2008年12月10日 17時17分

このブログのホーム

Scheme/Gaucheをスタディする環境として、LinuxとCywin上でEmacsを使っている。メインはLinux上のEmacsなんだけど、モバイル環境ではノートPCにインストールしたCygwinも使えるようにしているのだ。ここで重要なのが.emacsの設定である。基本的には「Think IT」に掲載されていた吉田 裕美さんの「Gaucheを始めてみませんか？」にあった設定を、ほぼそのままパクっているのだが、そのままではどうもしっくりこない。そこで若干カスタマイズして使っている。

ここでは自分の備忘録の意味も含めて、現在の.emacsの内容を掲載しておきたいと思う。

;;; http://www.thinkit.co.jp/article/74/1/3.html から引用。
(setq process-coding-system-alist
(cons '("gosh" utf-8 . utf-8)
process-coding-system-alist))
(setq scheme-program-name
"/usr/local/bin/gosh -i")
(autoload 'scheme-mode "cmuscheme"
"Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme"
"Run an inferior Scheme process." t)
(defun scheme-other-window ()
"Run scheme on other window"
(interactive)
(switch-to-buffer-other-window
(get-buffer-create "*scheme*"))
(run-scheme scheme-program-name))
(define-key global-map
"\C-cs" 'scheme-other-window)
(show-paren-mode)
;;; 引用はここまで。

;;; ここからは独自の設定。

;; バックスペースキーの定義。
;; やっぱりバックスペースはBSキーでやりたいから。
(define-key global-map
"\C-h" 'delete-backward-char)

;; 画面幅をはみ出した場合、次の行に表示する。
(setq truncate-lines nil)
(setq truncate-partial-width-windows nil)

;; 自動的に画面を縦に分割し、左側でgoshを起動。
;; いちいちC-x3、C-cs、C-xoをタイプするのが面倒だから。
(split-window-horizontally)
(other-window 1)
(scheme-other-window)

;; 制御を右側（エディタ）画面に移しておく。
(other-window 1)

;; エディタ側の画面を少し大きく。
;; 幅140文字のターミナルで、goshを60文字、
;; エディタを80文字の幅にしておく。
(enlarge-window-horizontally 10)

作者:おきらくたぬき

更新日:2008年12月9日 22時45分

このブログのホーム

Newton法が簡単に解けたので、「向かい風はなぜ強く感じるか」で導き出した方程式を解いてみたいと思う。

この方程式は、連続的に変化するギヤを持つ自転車を想定し、向かい風の風速を w 、無風状態の巡航速度を v0 、ケイデンス一定、かける力一定の場合、自転車の速度 v がどうなるのかを考えたものだ。この方程式が正しいかどうかはよくわからないが、とりあえず解いてみよう。方程式は以下の通りである。

　f(v) = v*v*v + 2*w*v*v + w*w*v - v0*v0*v0 = 0

　(define (newton func a dx dy)
　　(define (deriv x) (/ (- (func (+ x dx)) (func x)) dx))
　　(define (newton-rec a)
　　　(cond ((< (func a) dy) a)
　　　　(else (newton-rec (- a (/ (func a) (deriv a)))))))
　　(newton-rec a))

　(define (speed w v0)
　　(newton (lambda(x)
　　　　　　　(+ (* x x x) (* 2 w x x) (* w w x) (* -1 v0 v0 v0)))
　　　　　　　1000 0.001 0.001))

　(use srfi-1)

　(map (lambda(w)
　　(print　"w=" w
　　　　　　" v(15)=" (speed w 15)
　　　　　　" v(30)=" (speed w 30)))
　　(iota 16 0 2))

作者:おきらくたぬき

更新日:2008年12月7日 12時36分

このブログのホーム