定期代

;;; 大宮までの電車代を求める
(defun check_price (month teiki-price kaisu katamiti)
  (-
   (* (* (/ (* month 30) 7.0) kaisu) ; 実際に何回通うか
      (* (/ (* katamiti 10) 11.0) ; 回数券は片道 * 10で11回分乗れる
	 2))
   teiki-price))


(check_price 1 17000 3 570)	;; 1ヶ月 週3回
-3675.325
(check_price 3 48450 3 570)	;; 3ヶ月 週3回
-8475.977
(check_price 6 81650 3 570)	;; 6ヶ月 週3回
-1701.953

(check_price 1 17000 4 570)	;; 1ヶ月 週4回
766.2324
(check_price 3 48450 4 570)	;; 3ヶ月 週4回
4848.699
(check_price 6 81650 4 570)	;; 6ヶ月 週4回
24947.4

週3回以下の場合には回数券のほうが安い。4回以上ならば定期券のほうが安い。

ちなみに定期代はhttp://www.calc.eki-net.com/asp/tcalcweb_input.aspで調べられる。