如何在Scheme中进行浮点模运算？

Question

% 未定义。 取模仅适用于整数。我想要相当于 Javascript 的 modulo / c 的 fmod 的东西。

Answer 1

我不知道方案，但从数学上讲，你可以这样做：

rem = num - trunc(num / mod) * mod;

因此，对于像 2.5 mod 2 这样的数字，你会得到：

2.5 - trunc(2.5 / 2) * 2
= 2.5 - trunc(1.25) * 2
= 2.5 - 1 * 2
= 2.5 - 2
= 0.5

Answer 2

我相信这是 javascript 的等价物，其中 n=被除数，d=除数：

(let ((nOverD (/ n d)))
      (let ((q (if (> nOverD 0.0) (floor nOverD) (ceiling nOverD))))
        (- n (* d q))))

Answer 3

flonum库定义了 flmod，它可以满足您的需求。试点计划中：

(require rnrs/arithmetic/flonums-6)
(flmod pi (sqrt 2))

Answer 4

如果您的目标是标准化角度以适合​​ -π 和 π 之间，那么您可以这样做：

(angle (make-polar 1 x))

否则，您可以缩放您的参数：

(define (mod* x y)
  (let* ((pi (* 4 (atan 1)))
         (c (/ y pi))
         (result (angle (make-polar 1 (/ x c)))))
    (* (+ result (if (negative? result) pi 0)) c)))

我不确定该函数对于负参数应如何表现，所以我没有考虑一下他们。

Answer 5

mod 函数似乎接受整数、有理数和浮点数（例如在 petite chez 方案中）：

> (mod 10 4.5)
1.0
> (mod 5.5 1.4)
1.3000000000000007
> (mod 5.5 2/3)
0.16666666666666696

如果您想要只接受浮点数（在方案中称为“flonum”）的操作，那么您'当使用符合 r6rs 的方案时，库中定义了一堆 flonum 操作，包括 flmod，例如：

> (flmod 5. 4.)
1.0
> (flmod 5. 4.5)
0.5
> (flmod 10. 4.5)
1.0
> (flmod 10 4.5)
Exception in flmod: 10 is not a flonum

以上是在 chez 方案中运行的。

对于 flonum 运算，请参见 [1] 第 46 页第 11.3 节

[1] http://www.r6rs.org/final/r6rs-lib.pdf" rel="nofollow noreferrer">http:// /www.r6rs.org/final/r6rs-lib.pdf

Answer 6

看起来剩余就是你想要的词。来自此处：

(remainder -13 -4.0)      -1.0