[LISP程序]：这个程序起什么作用？

bdgxhmldzj · 发表于 2006-5-12 22:31:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

(setq a (itoa (* (/ (+ 50 (fix (atoi a))) 100) 100)))的作用是什么？

Underway · 发表于 2006-5-12 23:47:16

逐列执行
(atoi a)
(fix (atoi a))
(+ 50 (fix (atoi a)))
(/ (+ 50 (fix (atoi a))) 100)
(* (/ (+ 50 (fix (atoi a))) 100) 100)
(itoa (* (/ (+ 50 (fix (atoi a))) 100) 100))

指令: (setq a "49")
"49"

指令: (itoa (* (/ (+ 50 (fix (atoi a))) 100) 100))
"0"

指令: (setq a "50")
"50"

指令: (itoa (* (/ (+ 50 (fix (atoi a))) 100) 100))
"100"

指令: (setq a "150")
"150"

指令: (itoa (* (/ (+ 50 (fix (atoi a))) 100) 100))
"200"

指令: (setq a "149")
"149"

指令: (itoa (* (/ (+ 50 (fix (atoi a))) 100) 100))
"100"

cy956 · 发表于 2006-5-13 01:16:49

以100进位四舍五入

梦断江南 · 发表于 2006-5-13 03:55:39

(setq a (fix (-(+ a 50)(rem (+ a 50) 100))))

(setq a (* 100 (fix(+ (/ a 100.) 0.5)))) ;; a不能为0

bdgxhmldzj · 发表于 2006-5-13 16:36:17

明白些了

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

[LISP程序]：这个程序起什么作用？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子