f(n)=f(n-1)+2*f(n-2)+3f(n-3)

(define (fu2 n)
    (cond ((< n 3) n)
          (else (+ (fu2 (- n 1)) (* 2 (fu2 (- n 2))) (* 3 (fu2 (- n 3)))))  

))

(/  (+ 5 4 (- 2 (- 3 (+ 6 (/ 4 5)))))
      (* 3 (- 6 2) (- 2 7)))

(define (sum_max a b c)
    (cond ((> a b) (cond ((> b c)(+ a b))
                        ((< b c)(+ a c))))
          ((< a b)(cond  ((< b c)(+ b c))
                        ((> b c)(cond ((> a c) (+ a b))
                                     ((< a c) (+ c b))))))))

(define (san guess target)
  (if (good-enough guess target) 
      guess 
      (san (improve guess target) target)))


(define (improve y x)
  (/ (+ (/ x (* y y)) (* 2 y)) 3))


(define (good-enough guess x)
  (< (abs1 (- (* (* guess guess) guess) x)) 0.0001))


(define (abs1 v)
  (cond ((> v 0) v)
        (else (- 0 v))))
(san 1 64)

(define (pi-sum a b)
  (define (pi-term x)
    (/ 1.0 (* x (+ x 2))))
 
  (define (pi-next x) (+ x 2))
  (if (> a b)
      0
      (+ (pi-term a) (pi-sum (pi-next a) b))))

(* 8 (pi-sum 1 1000))

(define (f x y)
  ((lambda (a b)
      (+ (* x (* a a))
        (* y b)
        (* a b)))
  (+ 1 (* x y))
  (- 1 y)))

(f 1 2)