日志
矩阵学习
|
(setq mat4_4 (MAT:Scaling (GETPOINT) 0.5))
(SETQ P (GETPOINT)
P2 (GETPOINT (MAT:mxp MAT4_4 P))
)
；》》》》》支持函数
(defun MAT:Scaling (Cen scale / s)
(setq s (- 1 scale))
(list
(list scale 0. 0. (* s (car Cen)))
(list 0. scale 0. (* s (cadr Cen)))
(list 0. 0. scale (* s (caddr Cen)))
'(0. 0. 0. 1.)
)
)
(defun MAT:mxv (m v)
(mapcar (function (lambda (r) (apply '+ (mapcar '* r v))))
m
)
)
(defun MAT:mxp (m p)
(reverse (cdr (reverse (MAT:mxv m (append p '(1.0))))))
)
全部作者的其他最新日志
- • .Net 实现Zoom
- • 无聊发个四舍五入的函数
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.