数据排序求助 易语言有没有类似算法 python翻译易语言

独倚斜阳

  

np.percentile (series, m*100)是numpy中的函数，参数是数据系列，分位数
import numpy as np
def f_pers (series):  # 定义函数，参数是数据本身
pre_list = []  # 空列表装每个数据的历史分位
for i in series:
a, b = 0, 1  # 分位的起始区间0%-100%
while True:
m = (a+b)/2  # 初始分位是50%
if np.percentile (series, m*100) >= i:  # 如果目标数据小于50%的分位对应的数据，目标数据的历史分位缩小为[0%,50%],下一次的m就是25%，目标数据可能位于0-0.25，也可能位于0.25-0.5，往复循环即可
b = m
elif np.percentile (series, m*100) < i:
a = m
if np.abs (a-b)<=0.0001:  # 循环至左右边界误差在4个百分点以后，然后终止
break
pre_list.append (round (m,3))  # 把每个数据的分位数放在列表中，取3个小数点
return pre_list  # 返回分位数列表

np.percentile(series, m*100)是numpy中的函数，参数是数据系列，分位数<br /> import numpy as np<br /> def f_pers(series):  # 定义函数，参数是数据本身<br />     pre_list = []  # 空列表装每个数据的历史分位<br />     for i in series: <br />         a, b = 0, 1  # 分位的起始区间0%-100%<br />         while True:<br />             m = (a+b)/2  # 初始分位是50%<br />             if np.percentile(series, m*100) >= i:  # 如果目标数据小于50%的分位对应的数据，目标数据的历史分位缩小为[0%,50%],下一次的m就是25%，目标数据可能位于0-0.25，也可能位于0.25-0.5，往复循环即可<br />                 b = m<br />             elif np.percentile(series, m*100) < i:<br />                 a = m<br />             if np.abs(a-b)<=0.0001:  # 循环至左右边界误差在4个百分点以后，然后终止<br />                 break<br />         pre_list.append(round(m,3))  # 把每个数据的分位数放在列表中，取3个小数点<br />     return pre_list  # 返回分位数列表

数据输入 my_list=[1,2,2,3,4,56,123,21,34]





补充内容 (2023-1-17 00:35):
麻烦忽略里面的python源码  那人死循环效率太低了……
别用这算法 很垃圾……

独倚斜阳

np.percentile(series, m*100)是numpy中的函数，参数是数据系列，分位数
import numpy as np
def f_pers(series):  # 定义函数，参数是数据本身
    pre_list = []  # 空列表装每个数据的历史分位
    for i in series:
        a, b = 0, 1  # 分位的起始区间0%-100%
        while True:
            m = (a+b)/2  # 初始分位是50%
            if np.percentile(series, m*100) >= i:  # 如果目标数据小于50%的分位对应的数据，目标数据的历史分位缩小为[0%,50%],下一次的m就是25%，目标数据可能位于0-0.25，也可能位于0.25-0.5，往复循环即可
                b = m
            elif np.percentile(series, m*100) < i:
                a = m
            if np.abs(a-b)<=0.0001:  # 循环至左右边界误差在4个百分点以后，然后终止
                break
        pre_list.append(round(m,3))  # 把每个数据的分位数放在列表中，取3个小数点
    return pre_list  # 返回分位数列表

独倚斜阳

我自己解决了

数据  从小到大排序

总数据样本数量M   数据位置N   数据百分位P=  (N-1)/(M-1)


关贴。


补充内容 (2023-1-17 01:03):
算法 有误……
第二个数据2，第三个数据也是2  都是同样百分比  不能按照我那个算……

独倚斜阳

  

子程序名	返回值类型	公开	备 注
_按钮_数据百分位_被单击

变量名	类 型	静态	数组	备 注
my_list	文本型		0
百分比排序数组	文本型		0
局_结果	逻辑型

my_list ＝ { “1”, “2”, “2”, “3”, “4”, “56”, “123”, “21”, “34” }
局_结果 ＝ 统计_数据百分位 (my_list, 百分比排序数组)
调试输出 (局_结果)
调试输出 (百分比排序数组)

子程序名	返回值类型	公开	备 注
统计_数据百分位	逻辑型
参数名	类 型	参考	可空	数组	备 注
参_数据	文本型				原始数据
局_数据百分位数组	文本型				接收后计算后的数据百分比数组

变量名	类 型	静态	数组	备 注
局_数量	整数型
局_数据百分位	文本型
局_数据百分位临时数值	文本型
n	整数型

' 数据  从小到大排序
' 总数据样本数量M   数据位置N   数据百分位P=  (N-1)/(M-1)
' 测试  my_list=[1,2,2,3,4,56,123,21,34]
' {“0.000”,“0.125”,“0.125”,“0.375”,“0.500”,“0.625”,“0.750”,“0.875”,“1.000”}
局_数量 ＝ 取数组成员数 (参_数据)
调试输出 (参_数据)
如果 (局_数量 ＞ 0)
文本数组_排序 (参_数据, 真)  ' 如果参数值为真，排序将从小到大；如果为假，则为从大到小。如果本参数被省略，将默认为假
调试输出 (参_数据)
计次循环首 (局_数量, n)
如果 (n ＞ 1)  ' 第二个数据开始，需要对比上一个数据 如果相等那么百分位一样，不相等才计算
如果 (到数值 (参_数据 [n]) ＞ 到数值 (参_数据 [n － 1]))  ' 现在数据 大于前一个数据，计算
局_数据百分位 ＝ 数值到格式文本 ( (n － 1) ÷ (局_数量 － 1), 3, 假)
加入成员 (局_数据百分位数组, 局_数据百分位)
输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])
' 排序后的现在数据 和之前数据想等  沿用上一个百分位
加入成员 (局_数据百分位数组, 局_数据百分位)  ' 这里的局_数据百分位 是上一次循环的结果
输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])

' n=1 第一次运行 第一个默认为0%
局_数据百分位 ＝ 数值到格式文本 ( (n － 1) ÷ (局_数量 － 1), 3, 假)
加入成员 (局_数据百分位数组, 局_数据百分位)
输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])

计次循环尾 ()
返回 (真)  ' 计算完毕 有内容 返回真，不判断传入的文本型是否都为数值


返回 (假)  ' 异常 空数组 返回假

子程序名	返回值类型	公开	备 注
文本数组_排序			文本排序 可能也可以  123(2323)
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
排序顺序	逻辑型				默认假，从大到小，真=从小到大

变量名	类 型	静态	数组	备 注
数	整数型
下标	整数型
值	整数型
局_数量	整数型

局_数量 ＝ 取数组成员数 (文本数组)
计次循环首 (局_数量, 数)
下标 ＝ 数
计次循环首 (取数组成员数 (文本数组) － 数, 值)
如果 (排序顺序 ＝ 假)
如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文本数组 [下标]), 编码_Ansi到Unicode (文本数组 [数 ＋ 值])) ＜ 0)  ' <0为降序 从大到下 >0为升序 从小到大
下标 ＝ 数 ＋ 值

如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文本数组 [下标]), 编码_Ansi到Unicode (文本数组 [数 ＋ 值])) ＞ 0)  ' <0为降序 从大到下 >0为升序 从小到大
下标 ＝ 数 ＋ 值


计次循环尾 ()
如果真 (下标 ≠ 数)
交换变量 (文本数组 [下标], 文本数组 [数])

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮_数据百分位_被单击<br /> .局部变量 my_list, 文本型, , "0"<br /> .局部变量 百分比排序数组, 文本型, , "0"<br /> .局部变量 局_结果, 逻辑型<br /> <br /> my_list ＝ { “1”, “2”, “2”, “3”, “4”, “56”, “123”, “21”, “34” }<br /> 局_结果 ＝ 统计_数据百分位 (my_list, 百分比排序数组)<br /> 调试输出 (局_结果)<br /> 调试输出 (百分比排序数组)<br /> <br /> .子程序 统计_数据百分位, 逻辑型<br /> .参数 参_数据, 文本型, 数组, 原始数据<br /> .参数 局_数据百分位数组, 文本型, 可空 数组, 接收后计算后的数据百分比数组<br /> .局部变量 局_数量, 整数型<br /> .局部变量 局_数据百分位, 文本型<br /> .局部变量 局_数据百分位临时数值, 文本型<br /> .局部变量 n, 整数型<br /> <br /> ' 数据  从小到大排序<br /> ' 总数据样本数量M   数据位置N   数据百分位P=  (N-1)/(M-1)<br /> ' 测试  my_list=[1,2,2,3,4,56,123,21,34]<br /> ' {“0.000”,“0.125”,“0.125”,“0.375”,“0.500”,“0.625”,“0.750”,“0.875”,“1.000”}<br /> 局_数量 ＝ 取数组成员数 (参_数据)<br /> 调试输出 (参_数据)<br /> .如果 (局_数量 ＞ 0)<br />     文本数组_排序 (参_数据, 真)  ' 如果参数值为真，排序将从小到大；如果为假，则为从大到小。如果本参数被省略，将默认为假<br />     调试输出 (参_数据)<br />     .计次循环首 (局_数量, n)<br />         .如果 (n ＞ 1)  ' 第二个数据开始，需要对比上一个数据 如果相等那么百分位一样，不相等才计算<br />             .如果 (到数值 (参_数据 [n]) ＞ 到数值 (参_数据 [n － 1]))  ' 现在数据 大于前一个数据，计算<br />                 局_数据百分位 ＝ 数值到格式文本 ((n － 1) ÷ (局_数量 － 1), 3, 假)<br />                 加入成员 (局_数据百分位数组, 局_数据百分位)<br />                 输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])<br />             .否则<br />                 ' 排序后的现在数据 和之前数据想等  沿用上一个百分位<br />                 加入成员 (局_数据百分位数组, 局_数据百分位)  ' 这里的局_数据百分位 是上一次循环的结果<br />                 输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])<br />             .如果结束<br /> <br />         .否则<br />             ' n=1 第一次运行 第一个默认为0%<br />             局_数据百分位 ＝ 数值到格式文本 ((n － 1) ÷ (局_数量 － 1), 3, 假)<br />             加入成员 (局_数据百分位数组, 局_数据百分位)<br />             输出调试文本 (“n=” ＋ 到文本 (n) ＋ “ 参_数据 [n]=” ＋ 参_数据 [n])<br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     返回 (真)  ' 计算完毕 有内容 返回真，不判断传入的文本型是否都为数值<br /> .否则<br /> <br />     返回 (假)  ' 异常 空数组 返回假<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 文本数组_排序, , , 文本排序 可能也可以  123(2323)<br /> .参数 文本数组, 文本型, 数组<br /> .参数 排序顺序, 逻辑型, , 默认假，从大到小，真=从小到大<br /> .局部变量 数, 整数型<br /> .局部变量 下标, 整数型<br /> .局部变量 值, 整数型<br /> .局部变量 局_数量, 整数型<br /> <br /> 局_数量 ＝ 取数组成员数 (文本数组)<br /> .计次循环首 (局_数量, 数)<br />     下标 ＝ 数<br />     .计次循环首 (取数组成员数 (文本数组) － 数, 值)<br />         .如果 (排序顺序 ＝ 假)<br />             .如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文本数组 [下标]), 编码_Ansi到Unicode (文本数组 [数 ＋ 值])) ＜ 0)  ' <0为降序 从大到下 >0为升序 从小到大<br />                 下标 ＝ 数 ＋ 值<br />             .如果真结束<br /> <br />         .否则<br />             .如果真 (StrCmpLogicalW (编码_Ansi到Unicode (文本数组 [下标]), 编码_Ansi到Unicode (文本数组 [数 ＋ 值])) ＞ 0)  ' <0为降序 从大到下 >0为升序 从小到大<br />                 下标 ＝ 数 ＋ 值<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (下标 ≠ 数)<br />         交换变量 (文本数组 [下标], 文本数组 [数])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

  

DLL命令名	返回值类型	公开	备 注
StrCmpLogicalW	整数型
DLL库文件名:
Shlwapi.dll
在DLL库中对应命令名:
StrCmpLogicalW
参数名	类 型	传址	数组	备 注
文本1	字节集
文本2	字节集

.版本 2<br /> <br /> .DLL命令 StrCmpLogicalW, 整数型, "Shlwapi.dll", "StrCmpLogicalW", ,  <br />     .参数 文本1, 字节集<br />     .参数 文本2, 字节集

完美解决 关贴

独倚斜阳

这个dll排序 是2,2对比 效率很低  数据多 别用这个排序方式