34 lines
961 B
Plaintext
34 lines
961 B
Plaintext
;; IDENTITY-3-BY-3
|
|
;; By Peter Reidy
|
|
;; Filed as {ERIS}<LISPCORE>TEST>DISPLAY>MATMULT>IDENTITY-3-BY-3.TEST
|
|
;; Syntax: (IDENTITY-3-BY-3 &optional RESULT)
|
|
;; Function description: returns a 3-by-3 identity matrix - i.e. one in which every (N,N) element is 1.0 and every other is 0.0. If RESULT is supplied and is a 3-by-3 matrix of element-type single-float, the result is returned there.
|
|
;; Arguments:
|
|
;; RESULT - a 3-by-3 matrix of element-type single-float
|
|
;;
|
|
(do-test-group make-homogeneous-n-by-4-group
|
|
:before
|
|
(progn
|
|
(il:load? '{eris}<lispcore>test>display>matmult>matmult-test.source)
|
|
(test-setq non-ident (il:make-homogeneous-3-by-3 :a00 22.77 :a10 pi))
|
|
)
|
|
;;
|
|
(do-test identity-3-by-3-simple-case
|
|
(and
|
|
(idtest (il:identity-3-by-3)3)
|
|
(not (idtest (il:identity-4-by-4) 3))
|
|
)
|
|
)
|
|
;;
|
|
(do-test n-by-4-with-result
|
|
(and
|
|
(not(idtest non-ident 3)) ; before
|
|
(il:identity-3-by-3 non-ident)
|
|
(idtest non-ident 3) ; after
|
|
)
|
|
)
|
|
)
|
|
END
|
|
|
|
|