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
|
local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, u3)
local k1
if u3 then
--~ 指数次
k1 = 基算库.除法(u2, u3)
return u1 ^ k1
else
return u1 ^ u2
end
end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(u1, u2)
local k1
--~ 指数次
k1 = math.log(u1) / math.log(u2)
return k1
end
--~ 数
function s.二底指数次(u1)
local k1
--~ 指数次
_, k1 = math.frexp(u1)
return k1
end
-- 向大取整和向小取整
--~ 数
function s.向小取整(u1)
return math.floor(u1)
end
-- 几位整数和几位小数
|
|
|
|
|
|
|
|
|
|
|
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
|
local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, u3)
local h1
if u3 then
--~ 指数次
h1 = 基算库.除法(u2, u3)
return u1 ^ h1
else
return u1 ^ u2
end
end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(u1, u2)
local h1
--~ 指数次
h1 = math.log(u1) / math.log(u2)
return h1
end
--~ 数
function s.二底指数次(u1)
local h1
--~ 指数次
_, h1 = math.frexp(u1)
return h1
end
-- 向大取整和向小取整
--~ 数
function s.向小取整(u1)
return math.floor(u1)
end
-- 几位整数和几位小数
|
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
|
end
end
-- 最值
function s.最大值()
return math.huge
end
function s.最小值()
local k1
--~ 最大值
k1 = s.最大值()
return s.负数(k1)
end
--~ 数
function s.是否最值(u1)
if u1 == s.最大值()
or u1 == s.最小值() then
return true
else
end
end
--~ 数
function s.是否无效值(u1)
if u1 == u1 then
else
return true
end
end
--~ 数
function s.是否错值(u1)
local k1, k2
--~ 是否最值
k1 = s.是否最值(u1)
--~ 是否无效值
k2 = s.是否无效值(u1)
return k1 or k2
end
return s
|
|
|
|
|
|
|
|
|
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
|
end
end
-- 最值
function s.最大值()
return math.huge
end
function s.最小值()
local h1
--~ 最大值
h1 = s.最大值()
return s.负数(h1)
end
--~ 数
function s.是否最值(u1)
if u1 == s.最大值()
or u1 == s.最小值() then
return true
else
end
end
--~ 数
function s.是否无效值(u1)
if u1 == u1 then
else
return true
end
end
--~ 数
function s.是否错值(u1)
local h1, h2
--~ 是否最值
h1 = s.是否最值(u1)
--~ 是否无效值
h2 = s.是否无效值(u1)
return h1 or h2
end
return s
|