Repository navigation
Expand file tree
/
Copy pathMath.lua
More file actions
116 lines (102 loc) · 2.72 KB
/
Copy pathMath.lua
File metadata and controls
116 lines (102 loc) · 2.72 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
--[[
Copyright 2017 YANG Huan ([email protected]).
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
http://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
--]]
local System = System
local trunc = System.trunc
local math = math
local floor = math.floor
local min = math.min
local max = math.max
local abs = math.abs
local function bigMul(a, b)
return a * b
end
local function divRem(a, b)
local remainder = a % b
return (a - remainder) / b, remainder
end
local function round(value, digits)
local i = value >= 0 and 0.5 or -0.5
local mult = 10 ^ (digits or 0)
return trunc(value * mult + i) / mult
end
local function sign(v)
return v == 0 and 0 or (v > 0 and 1 or -1)
end
local function IEEERemainder(x, y)
if x ~= x then
return x
end
if y ~= y then
return y
end
local regularMod = System.mod(x, y)
if regularMod ~= regularMod then
return regularMod
end
if regularMod == 0 and x < 0 then
return -0.0
end
local alternativeResult = regularMod - abs(y) * sign(x)
local i, j = abs(alternativeResult), abs(regularMod)
if i == j then
local divisionResult = x / y
local roundedResult = round(divisionResult)
if abs(roundedResult) > abs(divisionResult) then
return alternativeResult
else
return regularMod
end
end
if i < j then
return alternativeResult
else
return regularMod
end
end
local function clamp(a, b, c)
return min(max(a, b), c)
end
local exp = math.exp
local cosh = math.cosh or function(x) return (exp(x) + exp(-x)) / 2.0 end
local pow = math.pow or function(x, y) return x ^ y end
local sinh = math.sinh or function(x) return (exp(x) - exp(-x)) / 2.0 end
local tanh = math.tanh or function(x) return sinh(x) / cosh(x) end
local Math = math
Math.Abs = abs
Math.Acos = math.acos
Math.Asin = math.asin
Math.Atan = math.atan
Math.Atan2 = math.atan2 or math.atan
Math.BigMul = bigMul
Math.Ceiling = math.ceil
Math.Clamp = clamp
Math.Cos = math.cos
Math.Cosh = cosh
Math.DivRem = divRem
Math.Exp = exp
Math.Floor = math.floor
Math.IEEERemainder = IEEERemainder
Math.Log = math.log
Math.Log10 = math.log10
Math.Max = math.max
Math.Min = math.min
Math.Pow = pow
Math.Round = round
Math.Sign = sign
Math.Sin = math.sin
Math.Sinh = sinh
Math.Sqrt = math.sqrt
Math.Tan = math.tan
Math.Tanh = tanh
Math.Truncate = trunc
System.define("System.Math", Math)