[求助]：lisp 函数

lzy9788 · 发表于 2004-7-28 09:01:37

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位:lisp中取整数的函数是什么？(如3.15 ---> 3……)
四舍五入的函数是什么？(如3.5 -----> 4……)

张世杰 · 发表于 2004-7-28 09:12:58

(fix 3.15)
(fix -3.15)
四舍五入的函数没有,可以用if判断一下大于=.5的进位否则去掉

lzy9788 · 发表于 2004-7-28 09:18:27

张世杰,谢谢你

hsslyl · 发表于 2004-8-23 08:51:46

用atoi和rtos两个函数可以做到取整和四舍五入。
如：(atoi (rtos 3.15 2 0))得3；(atoi (rtos -3.5 2 0))得-4。

zhang8755 · 发表于 2004-8-23 11:38:56

如下用法简单，带四舍五入
(fix (+ x 0.5))

橄榄滋味 · 发表于 2004-9-6 13:39:46

(defun shu(x)(if (> x 0)(fix (+ x 0.5))(fix (- x 0.5)))) 应用是(shu x)格式，返回正负整数

跃然 · 发表于 2004-9-6 16:05:49

呵呵，又学到东东了

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：lisp 函数