(append
(mapcar
'(lambda (vector origin)
(append (trans vector 1 0 t) (list origin))
) ;_ lambda
(list '(1 0 0) '(0 1 0) '(0 0 1))
(trans '(0 0 0) 0 1)
) ;_ mapcar
(list '(0 0 0 1))
) ;_ append
= (Est toujours égal!)
(append
(mapcar
'(lambda (vector origin)
(append (trans vector 0 1 t) (list origin))
) ;_ lambda
(list '(1 0 0) '(0 1 0) '(0 0 1))
(trans '(0 0 0) 1 0)
) ;_ mapcar
(list '(0 0 0 1))
) ;_ append
= (Est toujours égal!)
'((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0 0 0 1))
Autrement dit...
(UCS2WCSMatrix)
=
(WCS2UCSMatrix)
=
(vlax-tmatrix'((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0 0 0 1)))
