**************************************************************
Results for Exercise 6.22 (Preliminary): Interval Constructor and Accessors

Assertion OK:
(= (lower-endpoint (make-interval 3 7)) 3)

Assertion OK:
(= (upper-endpoint (make-interval 3 7)) 7)


**************************************************************
Results for Exercise 6.22

Assertion OK:
(= (midpoint (make-interval 3 7)) 5)

Assertion OK:
(let ((i (right-half (make-interval 3 7))))
  (and (= (lower-endpoint i) 5)
       (= (upper-endpoint i) 7)))

Assertion OK:
(= (midpoint (right-half (make-interval 3 7))) 6)


**************************************************************
Results for Exercise 6.23 (Preliminary): 3D Vector Constructor and Accessors

Assertion OK:
(= (x-coord (make-3D-vector 1 2 3)) 1)

Assertion OK:
(= (y-coord (make-3D-vector 1 2 3)) 2)

Assertion OK:
(= (z-coord (make-3D-vector 1 2 3)) 3)


**************************************************************
Results for Exercise Preliminary Exercise: 3D Vector Equality

Assertion OK:
(3D-vector-equals
 (make-3D-vector 1 2 3)
 (make-3D-vector 1 2 3))

Assertion OK:
(not
 (3D-vector-equals
  (make-3D-vector 1 2 3)
  (make-3D-vector 0 2 3)))

Assertion OK:
(not
 (3D-vector-equals
  (make-3D-vector 1 2 3)
  (make-3D-vector 1 0 3)))

Assertion OK:
(not
 (3D-vector-equals
  (make-3D-vector 1 2 3)
  (make-3D-vector 1 2 0)))


**************************************************************
Results for Exercise 6.23

Assertion OK:
(3D-vector-equals
 (3D-vector-add
  (make-3D-vector 1 2 3)
  (make-3D-vector 4 5 6))
 (make-3D-vector 5 7 9))

Assertion OK:
(=
 (3D-vector-dot-product
  (make-3D-vector 1 2 3)
  (make-3D-vector 4 5 6))
 32)

Assertion OK:
(3D-vector-equals
 (3D-vector-scale (make-3D-vector 1 2 3) 17)
 (make-3D-vector 17 34 51))