Test output for quaternions
Testing time: 7.0s
CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm (number? q1) => #t ; correct (number? q2) => #t ; correct (number? q3) => #t ; correct (quaternion? q1) => #t ; correct (quaternion? q2) => #t ; correct (quaternion? q3) => #t ; correct (real-part q1) => 0 ; correct (real-part q2) => 0 ; correct (imag-part q2) => 1 ; correct (real-part q3) => 0 ; correct (imag-part q3) => 1 ; correct (jmag-part q3) => 2 ; correct (kmag-part q3) => 3 ; correct (magnitude 4) => 4.0 ; correct (magnitude (make-rectangular 1 2)) => 2.23606797749979 ; correct (magnitude q3) => 3.74165738677394 ; correct (angle 2+2i) => 0.785398163397448 ; correct (angle q3) => 1.5707963267949 ; correct (= 3 3) => #t ; correct (= q1 0) => #t ; correct (= q2 0+1i) => #t ; correct (= q3 (make-rectangular 0 1 2 3)) => #t ; correct (= q1 q2) => #f ; correct (= q2 q3) => #f ; correct (= q3 (make-rectangular 0 1 2 4)) => #f ; correct (= q3 (make-rectangular 0 1 4 3)) => #f ; correct (+ q3 q3) => 0+2i+4j+6k ; correct (+ 1+2i q3) => 1+3i+2j+3k ; correct (- q3 1+2i) => -1-1i+2j+3k ; correct (* 2 q3) => 0+2i+4j+6k ; correct (/ (make-rectangular 2 4 6 8) 2) => 1+2i+3j+4k ; correct (magnitude q) => 1.0 ; correct (angle q) => 2.0 ; correct (colatitude q) => 3.0 ; correct (longitude q) => -2.28318530717959 ; correct (dot-product q1 q2) => 18 ; correct (cross-product q1 q2) => 0-5i+16j-9k ; correct