quote:

(define (factorial n)

(if (= n 1)

1

(* n (factorial (- n 1)))))



(define (dogal-log-us n aux mval)

"Taylor serisine göre dogal log sabitinin üssünü almak"

(if (= n 10) ; n 10' kadar artacak. 10 değiştirilebilir.

aux

(dogal-log-us (+ n 1) (+ (/ (expt mval n) (factorial n)) aux) mval)))

;; expt --> Scheme 'de yerleşik üs alma fonksiyonu

;; factorial : Fonksiyon olarak tanımlandı

;; n = 0 kontrolü yok o yüzden n'e 1 vererek çağırmalısınız

;; mval Scala stilinde sabit / value anlamında; taylor formulundeki x