四舍五入，求整

刘炎华 · 发表于 2021-7-20 19:07

要对以下代码中的值a,b求整（四舍五入）
自已弄了半天，没弄成，请高手指点：
   (setq a (abs (- (car point_lower) (car point_upper))))
   (if (= a 0) (setq a 1))
   (setq b (abs (- (cadr point_lower) (cadr point_upper))))
   (if (= b 0) (setq b 1))
   (setq point_lower (polar (polar mid-point pi (* a 0.5))
      (* pi 1.5)
      (* b 0.5)
      )
   point_upper (polar (polar mid-point 0 (* a 0.5))
      (* pi 0.5)
      (* b 0.5)
      )
   )
   (command "RECTANG" "none" point_lower "none" point_upper)

ludaweb · 发表于 2021-7-20 19:07

(setq a (atoi (rtos (- (car point_lower) (car point_upper)) 2 0)))
(if (= a 0) (setq a 1))
(setq b (atoi (rtos (- (cadr point_lower) (cadr point_upper)) 2 0)))
(if (= b 0) (setq b 1))
(setq point_lower (polar (polar mid-point pi (* a 0.5))
(* pi 1.5)
(* b 0.5)
)
point_upper (polar (polar mid-point 0 (* a 0.5))
(* pi 0.5)
(* b 0.5)
)
)
(command "RECTANG" "none" point_lower "none" point_upper)

muwind · 发表于 2021-7-20 21:44

只看道求绝对值，没看到求整

Bao_lai · 发表于 2021-7-20 22:32

(setq a (fix (+ 0.5 (abs (- (car point_lower) (car point_upper))))）

tryhi · 发表于 2021-7-21 17:36

本帖最后由 tryhi 于 2021-7-21 17:43 编辑

(setq ab(mapcar '(lambda(a b / x)(setq x(fix(- a b -0.5)))(if(= x 0)1 x))point_lower point_upper))
(setq lo_up(mapcar '(lambda(x)(polar (polar mid-point (car x) (* (car ab) 0.5))(* pi (cadr x))(* (cadr ab) 0.5))) (list( list pi 1.5) '(0 0.5))))
(command "RECTANG" "none" (car lo_up) "none" (cadr lo_up))

来个晦涩难懂的

Bao_lai · 发表于 2021-7-21 22:17

tryhi 发表于 2021-7-21 17:36
(setq ab(mapcar '(lambda(a b / x)(setq x(fix(- a b -0.5)))(if(= x 0)1 x))point_lower point_upper))
...

海哥过来搞事情的

paulpipi · 发表于 2021-7-24 08:34

muwind · 发表于 2021-7-24 23:03

命令: (atoi (rtos 9.9999 2 0))
10

czb203 · 发表于 2021-7-25 08:57

海哥过来搞事情的

巴拉巴拉巴 · 发表于 2022-11-3 09:15

muwind 发表于 2021-7-24 23:03
命令: (atoi (rtos 9.9999 2 0))
10

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

[提问] 四舍五入，求整

最佳答案

点评

评分

评分