おもてなしの空間

■[tips][bc][FX] フィボナッチ数を表示したい

●問題

emacs もしくは bc 内でフィボナッチ数列を表示したい

●bcの関数として実装する

#変数の値に文字列を取れない(みたい)
#fr="0.236, 0.382, 0.5, 0.618, 0.786, 1.0, 1.272, 1.382, 1.5, 1.618, 1.786"
# という訳で関数化する
define fibo () {/* 使い方 fr() 末尾にゼロを返すが気にしない */
       print "0.236, 0.382, 0.5, 0.618, 0.786, 1.0, 1.272, 1.382, 1.5, 1.618, 1.786"
}
/* 文字列を返り値に出来ない
define foo () {
       return ("0.236, 0.382, 0.5, 0.618, 0.786, 1.0, 1.272, 1.382, 1.5, 1.618, 1.786");
}
*/

• 入出力は次のようになる、返り値のゼロがイヤーンだな

fr()
0.236, 0.382, 0.5, 0.618, 0.786, 1.0, 1.272, 1.382, 1.5, 1.618 1.786
0

●emacs のミニバッファに表示する

• ~/.emacs に以下を追加

;;; 20110711
;;; FXでよく使われるフィボナッチ数の表示とキルリスト先頭への挿入
;;; See. http://d.hatena.ne.jp/amt/20110711/fibonacchi
(add-to-list 'load-path "~/dot.emacs/");if needed
(require 'forex)

• ~/dot.emacs/forex.el に以下を追記

(defun forex-display-fibonacci-numbers(&optional ARG)
  "Display fibonacci numbers for forex and store top of kill ring."
  (interactive "sWhich do you want to see, R)etracements, E)xpansions, or whole(default):")
  (let* ((retracements "0.236, 0.382, 0.5, 0.618, 0.786")
	 (base "1.0")
	 (expansions "1.272, 1.382, 1.5, 1.618, 1.786")
	 (whole (concat retracements ", " base ", " expansions))
	 (shown ""))
    
    (cond
     ((string-match "^[Rr]" ARG) (setq shown retracements))
     ((string-match "^[Ee]" ARG) (setq shown expansions))
     (t (setq shown whole)))
    (kill-new shown)
    (message shown)))

●感想

• 病前より、こういう、ちょっとした情報参照の為に cheat-sheet-mode というものの構想を持っているが実現できていない

Permalink | コメント(0) | トラックバック(0)