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
|
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
|
-
-
+
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
|
local 字集库 = require("u8_to_a")
local 历排取联库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取联"))
local 返参库 = require(字集库.u8_to_a("算机_程语_月_基类_能_返参"))
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local 历排库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取全"))
local 数库 = require(字集库.u8_to_a("算机_程语_月_基类_数"))
local s = {}
--~ 排
function s.总和(o1_0)
return 历排取联库.历排(o1_0, 基算库.加法, 返参库.一参)
function s.总和(u1_0)
return 历排取联库.历排(u1_0, 基算库.加法, 返参库.一参)
end
--~ 排
function s.均值(o1_0)
function s.均值(u1_0)
local k1
--~ 总和
k1 = s.总和(o1_0)
return 基算库.除法(k1, #o1_0)
k1 = s.总和(u1_0)
return 基算库.除法(k1, #u1_0)
end
--~ 排
--~ 标准值
function s.方差(o1_0, o1)
function s.方差(u1_0, o1)
local k1, k2
local k1_0
--~ 标准值
k1 = o1 or s.均值(o1_0)
k1 = o1 or s.均值(u1_0)
--~ 排，用于算方差
k1_0 = 历排库.历排(o1_0, 基算库.减法, k1)
k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
k1_0 = 历排库.历排(k1_0, 数库.指数, 2)
--~ 方差
k2 = 基算库.除法(s.总和(k1_0), #k1_0)
return k2
end
--~ 排
--~ 标准值
function s.标准差(o1_0, o1)
function s.标准差(u1_0, o1)
local k1
--~ 方差
k1 = s.方差(o1_0, o1)
k1 = s.方差(u1_0, o1)
return 数库.指数(k1, 1, 2)
end
--~ 排
--~ 标准值
function s.均差(o1_0, o1)
function s.均差(u1_0, o1)
local k1, k2
local k1_0
--~ 标准值
k1 = o1 or s.均值(o1_0)
k1 = o1 or s.均值(u1_0)
--~ 排，用于算均差
k1_0 = 历排库.历排(o1_0, 基算库.减法, k1)
k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
k1_0 = 历排库.历排(k1_0, 数库.正数)
--~ 均差
k2 = 基算库.除法(s.总和(k1_0), #k1_0)
return k2
end
return s
|