四舍五入之奇进偶不进

13648893846

• • ;*在进行水准测量时，如遇到0. 5需要进位时，如果5前面为奇数则需要进位，如果5前面为偶数，则不进位，如高差为0.7855m,则
  • ;需要进位为0.786m，如高差为0. 7865m,则不需进位。保留三位小数为0. 786m!
  • ;数的凑整规则为避免凑整误差的迅速积累而影响测量成果的精度,
  • ;在计算上通常用数的凑整规则:
  • ;即:在数值中被舍去部分的数值:
  • ;“四舍”: 25. 1546，保留二位小数，取25. 15.
  • ;“六入”: 15. 92646，保留四位小数取15. 9265。
  • ;“五后不为0时入”
  • ;“五后为0时，五前奇进偶不进”:
  • ;例:如数56. 7650，保留二位小数，凑整为56. 76
  • ;数56.7350 保留二位小数，凑整为56. 74;
  • ;56.76501保留二位小数，凑整为56. 76测量数字结果的取值要求
  • ;;[功能]奇进偶不进四舍五入
  • ;;[参数]num：实数 xsws：小数位数 advance：是否采用奇进偶不进，
  • ;;[用法]
  • ;;[返回]实数
  • ;;[版本]
  • ;;[日期]
  • (defun Lc:Rounding (num xsws advance / b num1 power)
  •   (setq power (expt 10.0 xsws))
  •   (setq b (/ (fix (+ (* num power) 0.5)) (float power)));四舍五入
  •   (if advance
  •     (progn;四舍六入5前面为奇数则需要进位5前面为偶数则不进位
  •       (if (= (fix (+ (* (- (* num power) (fix (* num power))) 10.0) 1e-12)) 5);如果下一位是5;fix必须加一个很小的数消除fix影响可以加到1e-12 加到1e-13又不行了
  •         (progn
  •           (setq num1 (* num (expt 10.0 (- xsws 1))))
  •           ;(rtos num1 2 2)
  •           (if (= (rem (fix (* (- num1 (fix num1)) 10.)) 2) 1);如果上一位是奇数
  •             b
  •             (setq b (- b (/ 1. (expt 10.0 xsws))))
  •           )
  •         )
  •         b
  •       )
  •     )
  •     b
  •   )
  •   b
  • )
  • ;(defun c:tt ()
  • ;  (setq num 0.7668655 num0 0.7668755 xsws 5)
  • ;
  • ;  (Lc:Rounding num xsws t)
  • ;  (Lc:Rounding num xsws nil)
  • ;  (Lc:Rounding num0 xsws t)
  • ;  (Lc:Rounding num0 xsws nil)
  • ;  (setq num 0.7855 num0 0.7865 xsws 3)
  • ;  (Lc:Rounding num xsws t)
  • ;  (Lc:Rounding num xsws nil)
  • ;  (Lc:Rounding num0 xsws t)
  • ;  (Lc:Rounding num0 xsws nil)
  • ;  (setq num 0.7866 num0 0.7865 xsws 3)
  • ;  ;(setq power (expt 10.0 xsws))
  • ;  ;(* (- (* num power) (fix (* num power))) 10.0)
  • ;  ;(fix (* (- (* num power) (fix (* num power))) 10.0))
  • ;  (Lc:Rounding num xsws t)
  • ;  (Lc:Rounding num xsws nil)
  • ;  (Lc:Rounding num0 xsws t)
  • ;  (Lc:Rounding num0 xsws nil)
  • ;)
    
  
  

tryhi

这颜色……

tryhi

(defun tt (num n / b dim r sl)
        (setq dim(getvar "DIMZIN"))
        (setvar "DIMZIN" 0)
        (setq
                b(rtos num 2 (1+ n))
                sl(strlen b)
        )
        (setq r(atof (rtos num 2 n)))
        (if (>(- num(atof b))0.)
                r
                (if (and
                                        (=(substr b  sl 1)"5")
                                        (=(rem(ascii(substr b (1- sl)1))2)0)
                                )
                        (setq r(-(atof (rtos num 2 n))(expt 10. (- n))))
                        r
                )
        )
        (setvar "DIMZIN" 0)
        r
)


(tt 56.7650 2);> 56.76
(tt 25.1546 2);> 25.15
(tt 15.92646 4);> 15.9265
(tt 56.7350 2);> 56.74
(tt 56.76501 2);> 56.77



随手写了一个

13648893846

学习了海哥

13648893846

(tt 56.76501 2);> 56.77   5前面是偶数所以应该是不进位的

USER2128

1. 
   

复制代码

(defun tt (num prec / n1 n2 n3)
  (setq n1 (* num (expt 10.0 prec)))
  (setq n2 (fix n1))
  (setq n3 (- n1 n2))
  (and (> n3 0.5)
       (> (rem (fix n2) 2) 0)
       (setq n2 (1+ n2))
       )
  (setq n2 (/ n2 (expt 10.0 prec)))
  )
;;;
(tt 56.7650 2)        ;56.76
(tt 25.1546 2)        ;25.15
(tt 15.92646 4)        ;15.9264
(tt 56.7350 2)        ;56.73
(tt 56.76501 2)        ;56.76

tryhi

13648893846 发表于 2020-11-14 05:33
(tt 56.76501 2);> 56.77   5前面是偶数所以应该是不进位的

照着你的例子来着

jiang__jin

有点晕，哈哈。学习了，感谢！