メモ

メモ

Enviroment structure

案１

案２

点のみ

線でつないだ場合

初期値として1.1、 2.1、 3.1の三つを取り重ね合わせたもの

コード

#!/usr/bin/env gosh
(define tolerance 1.0e-5)
(define (fixed-point f first-guess)
  (letrec ((close-enough? (lambda (v w) (< (abs (- v w)) tolerance)))
	 (try (lambda (guess)
		(let ((next (f guess)))
		  (if (close-enough? guess next)
		    next
		    (try next))))))
    (try first-guess)))

(define (trans x)
  (print x " " x)
  (print x " " (+ 1 (/ 1 x)))
  (+ 1 (/ 1 x)))
(define (golden-ratio x)
  (fixed-point trans x))

(print "set style data linespoint");;点と点を線でつなぐ
(print "plot '-'");;標準入力からデータを手に入れる。
(golden-ratio 1.1);;初期値を1.1とする

iiiiiiiiiiiiiiiiiiwwwwwwwwwwwwwwww