2008-03-28 14:56:47 -06:00
|
|
|
// Copyright 2009 The Go Authors. All rights reserved.
|
|
|
|
// Use of this source code is governed by a BSD-style
|
|
|
|
// license that can be found in the LICENSE file.
|
|
|
|
|
2008-06-27 18:06:23 -06:00
|
|
|
package math
|
2008-03-28 14:56:47 -06:00
|
|
|
|
2009-01-22 17:23:44 -07:00
|
|
|
|
2008-03-28 14:56:47 -06:00
|
|
|
/*
|
2008-07-08 21:48:41 -06:00
|
|
|
* floating-point mod func without infinity or NaN checking
|
2008-03-28 14:56:47 -06:00
|
|
|
*/
|
|
|
|
|
2009-03-05 14:31:01 -07:00
|
|
|
// Fmod returns the floating-point remainder of x/y.
|
2009-01-20 15:40:40 -07:00
|
|
|
func Fmod(x, y float64) float64 {
|
2008-03-28 14:56:47 -06:00
|
|
|
if y == 0 {
|
2009-11-09 13:07:39 -07:00
|
|
|
return x
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
if y < 0 {
|
2009-11-09 13:07:39 -07:00
|
|
|
y = -y
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
|
2009-12-15 16:35:38 -07:00
|
|
|
yfr, yexp := Frexp(y)
|
|
|
|
sign := false
|
|
|
|
r := x
|
2008-03-28 14:56:47 -06:00
|
|
|
if x < 0 {
|
2009-12-15 16:35:38 -07:00
|
|
|
r = -x
|
|
|
|
sign = true
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
for r >= y {
|
2009-12-15 16:35:38 -07:00
|
|
|
rfr, rexp := Frexp(r)
|
2008-03-28 14:56:47 -06:00
|
|
|
if rfr < yfr {
|
2009-11-09 22:23:52 -07:00
|
|
|
rexp = rexp - 1
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
2009-12-15 16:35:38 -07:00
|
|
|
r = r - Ldexp(y, rexp-yexp)
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
|
|
|
if sign {
|
2009-11-09 13:07:39 -07:00
|
|
|
r = -r
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|
2009-12-15 16:35:38 -07:00
|
|
|
return r
|
2008-03-28 14:56:47 -06:00
|
|
|
}
|