求一个用li写的四舍五入的lisp

wxa123wl

求个整数的四舍五入lisp ，，例如把选择中101变成100，把选择的799变800的四舍五入lisp！谢谢大神门了！

st788796

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671347&extra=page%3D3%26filter%3Dsortid%26sortid%3D1
_$ (xd::math:round 101 2)
100
_$

zxq0220

(defun round (a n) (* (fix (+ (/ a (expt 10 n)) 0.5) (expt 10 n)))

wxa123wl

zxq0220 发表于 2013-12-22 08:28
(defun round (a n) (* (fix (+ (/ a (expt 10 n)) 0.5) (expt 10 n)))

这个怎么用呀，，感觉没有命令呀！

newer

wxa123wl 发表于 2013-12-22 18:17
这个怎么用呀，，感觉没有命令呀！

看来，你要学的东西还有很多。这个给你写的是函数，不是命令，函数有参数

(函数名  数)这样调用。

wxa123wl

newer 发表于 2013-12-22 18:30
看来，你要学的东西还有很多。这个给你写的是函数，不是命令，函数有参数

(函数名  数)这样调用。

{:soso_e149:}学海无涯呀！看样子革命还要努力呀！

zhbzhbzhb

按要求（你绐的条件）用fix就可以解决。

wxa123wl

zxq0220 发表于 2013-12-22 08:28
(defun round (a n) (* (fix (+ (/ a (expt 10 n)) 0.5) (expt 10 n)))

大声完善它呀，给成可以直接用的lisp吧！我水平差！哈哈，

zxq0220

wxa123wl 发表于 2014-3-15 02:29
大声完善它呀，给成可以直接用的lisp吧！我水平差！哈哈，

这个就可以直接用呀
(round 101 1)-->100
(round 199 1)-->200
(round 101 2)-->100
(round 199 2)-->200

st788796

zxq0220 发表于 2014-3-15 07:33
这个就可以直接用呀
(round 101 1)-->100
(round 199 1)-->200

他是要写出 执行命令，选择文字然后取整修改文字吧！

namezg

;调用方式：(zg-round number)
(defun zg-round (number)
      (fix (* (atof (rtos (/ number 10.0) 2 0)) 10))
)

namezg

;调用方法：(zg-round number)
(defun zg-round (number)
      (fix (* (atof (rtos (/ number 10.0) 2 0)) 10))
)

namezg

网慢不知怎么发重了，贴子能删除吗？
;调用方法：(zg-round number)
(defun zg-round (number)
      (fix (* (atof (rtos (/ number 10.0) 2 0)) 10))
)

wxa123wl

namezg 发表于 2014-3-18 20:19
;调用方法：(zg-round number)
(defun zg-round (number)
      (fix (* (atof (rtos (/ number 10.0) 2  ...

这个可以不可以框选文字呀，，！还有怎么我没有看到defun  c：xxx（）