日志
无聊发个四舍五入的函数
热度 3 |
;四舍五入.
;|
(cx-Round 10.666 1)
(cx-Round 10.666 0.1)
(cx-Round 10.666 5)
(cx-Round 13.666 10)
(cx-Round 15.666 10)
(cx-Round -15.666 10)
|;
(defun cx-Round(num fuz / tem)
(setq tem(rem num fuz))
(if (> (abs tem) (* 0.5 fuz))
(if(< num 0)
(* fuz(1-(fix(/ num fuz))))
(* fuz(1+(fix(/ num fuz))))
)
(- num tem)
)
)
全部作者的其他最新日志
- • .Net 实现Zoom
- • 黑板
- • sleep
- • C#代码笔记.
- • 一个路径转换的代码.