在 CLIPS 中将浮点数四舍五入到小数点后两位

Question

CLIPS 给出多位小数的浮点数。

例如

CLIPS> ( / 4 3)
1.33333333333333

如何将值四舍五入到小数点后两位（本例中为 1.33）

Answer 1

         CLIPS (6.31 6/12/19)
CLIPS> (bind ?n (/ 4 3))
1.33333333333333
CLIPS> (/ (integer (* ?n 100)) 100)
1.33
CLIPS> 
(deffunction precision (?num ?digits)
  (bind ?m (integer (** 10 ?digits)))
  (/ (integer (* ?num ?m)) ?m))
CLIPS> (precision ?n 2)
1.33
CLIPS> (precision ?n 4)
1.3333
CLIPS> (precision ?n 0)
1.0
CLIPS>

在 CLIPS 中将浮点数四舍五入到小数点后两位

Round off floating point number to two decimal places in CLIPS

clips