名次顺位排序法

yjh_27

EXCEL江湖 发表于 2014-8-10 21:04
谢谢香川群子多次帮助，我也要加强学习，争取也能象您一样帮助更多的人！

自定义数组函数
排名部分套用香川群子

1. Function swsx(rng)
   
2. Dim fen(), ptj(), mc()
   
3. 
   
4. arr = rng
   
5. ms = UBound(arr, 1)
   
6. ps = UBound(arr, 2)
   
7. ReDim fen(1 To ms, 1 To 2)
   
8. ReDim mc(1 To ms, 1 To 1)
   
9. 
   
10. For i = 1 To ms
    
11.     ReDim ptj(1 To ms)
    
12.     For j = 1 To ps
    
13.         ptj(arr(i, j)) = ptj(arr(i, j)) + 1
    
14.     Next
    
15.     For j = 1 To ms
    
16.         If ptj(j) > 0 Then
    
17.             fen(i, 1) = fen(i, 1) + (2 ^ (ms - j)) * (2 ^ ptj(j))
    
18.             fen(i, 2) = i
    
19.         End If
    
20.     Next
    
21. Next
    
22. 
    
23. '下面是香川改进冒泡算法排序
    
24.     For i = 1 To ms
    
25.         s = fen(i, 1): t = fen(i, 2)
    
26.         For j = i + 1 To ms
    
27.             If fen(j, 1) > s Then s = fen(j, 1): t = fen(j, 2): r = j
    
28.         Next
    
29.    
    
30.         If r Then
    
31.             fen(r, 1) = fen(i, 1): fen(i, 1) = s
    
32.             fen(r, 2) = fen(i, 2): fen(i, 2) = t
    
33.             r = 0
    
34.         End If
    
35.     Next
    
36. '排序完成后 重新整理得到正确的名次结果
    
37. For i = 1 To ms
    
38.     mc(fen(i, 2), 1) = i
    
39. Next
    
40. 
    
41. swsx = mc
    
42. 
    
43. End Function
    

复制代码

EXCEL江湖

感谢yjh_27的帮助！如何进行运用。
香川群子老师算法非常高深。刚研究了一会香川群子老师的代码，和我查阅的资料的另一个算法(日式顺位排名法)极度相似。

yjh_27

EXCEL江湖 发表于 2014-8-11 17:27
感谢yjh_27的帮助！如何进行运用。
香川群子老师算法非常高深。刚研究了一会香川群子老师的代码，和我查阅 ...

参见附件。

yjh_27

EXCEL江湖 发表于 2014-8-11 17:27
感谢yjh_27的帮助！如何进行运用。
香川群子老师算法非常高深。刚研究了一会香川群子老师的代码，和我查阅 ...

我的评分简单
末名得1分，名次每前进1，翻1倍，倒2名 2分 ， 倒3名 4分
每多1名裁判再翻1倍

香川群子

yjh_27 发表于 2014-8-11 17:52
我的评分简单
末名得1分，名次每前进1，翻1倍，倒2名 2分 ， 倒3名 4分
每多1名裁判再翻1倍

呵呵，按你的规则排名结果不符合楼主规则的要求。

…………
规则我已经整理过了，见6楼。

EXCEL江湖

单项规则香川群子老师的非常准确，如果把单项成绩计入到总成绩，则规则又会有些变化，还请香川群子老师帮助！再次感谢！评分规则如附表！ 成绩计算.rar (15.55 KB, 下载次数: 13)

2014-8-11 18:45 上传

点击文件名下载附件

在之前的单项规则上，处于并列成绩的计分为两成绩之和除2计入总成绩。

yjh_27

严格按顺序位排序。

已处理并列名次。
如不处理  swsx = mc1 即可。

EXCEL江湖

感谢yjh_27老师的帮助，不知裁判人数增加和背号增加时有没考虑，另能否帮忙看下多项规则!一会回家了再测试！谢谢您的帮忙！

yjh_27

EXCEL江湖 发表于 2014-8-11 18:47
单项规则香川群子老师的非常准确，如果把单项成绩计入到总成绩，则规则又会有些变化，还请香川群子老师帮助 ...

单项成绩  项目--5 排名 你确定吗？

26L附件计算为：
6
5
1.5
3
1.5
4

EXCEL江湖

您的计算结果是对的，我的文件上错了，辛苦您了！万分感谢！