教育应用：分班（Excel_VBA） 规范化通用化应对各种要求 的实现

龙行九州

无法理想化：
1、分班科目较多，互相牵扯，数据本身根本分不平衡。语数英物政史地生
2、所谓的种子选手的界定VBA是不知道的，同时语文种子选手并不一定是数学种子选手。
所以导致种子选手无法平衡，多学科种子汇集到一人身上的各学科能同步的种子更是难以平衡。

为此，拟思路：

对原始分数进行预备处理，夸大数据，进入目标了的数据之间差别小，没进入的和进入了数据差异巨大，使目标生分配均衡，
>本学科目标分，原始分数+1000
<本学科目标分，原始分数*0归0
增加一科目：该生主学科达标科目数*10000+短线学科达标科目数*1000，删除本栏全零的学生。可按此栏排序划出批次。
先对这一批学生分班。
再同法二批分班……
最后将分数修改回原始分数，补分剩下的学生，达到最终的平衡。

楼上的试试看

还没开学我试着分班，目标生也没分均衡。也在寻找更好办法。其实本身如何确定出不同批次的学生本身就是很难的，因为学科多数据间互相牵扯，数据是无法平衡的。

龙行九州

lzyamo3057 发表于 2013-7-18 09:22
根据您的程序，我进行了一次试分班，然后按总分降序排列时，发现试分班考虑到各科平均分与总分平均分是非 ...

我抽时间试排了一个年级，也如此，各班优秀也即种子选手人数分布不均匀。我想解决办法是：
分批次+原始分极端化+最后一批次补平衡时极端化的原始分还原
将各科超过目标分的分数*1111，未超过的分数化成0分。增加两辅助列，统计长短线学科有几学科达标*系数，长线学科得到的结果要比短线学科得到的结果大得多。
进行VBA分班
上述过程可以这样分几类型进行几次分：将数据按辅助列的主副学科排序后，主学科全部达标生搞一次分，再补分其它达标生。
将上述每生分数还原，补加进剩余学生进行平衡分班。
此方法是重在目标生分班后，再补分。

灰袍法师

龙行九州 发表于 2013-7-31 16:31
我抽时间试排了一个年级，也如此，各班优秀也即种子选手人数分布不均匀。我想解决办法是：
分批次+原始 ...

我也觉得增加批次列无用，原因跟你说的一样，优秀生如果有多个优秀科目，就无法对其分批。

但是我实在想不明白为什么你说种子学生分不均匀，你还是上传数据吧。

我自己测试 1200人分24班，每人6科成绩，6科都要分配种子学生
结果是种子学生分得极度均匀，只要有可能平均分配，分出来的种子生差异就是0人
如果不能平均分配，那么差异只有1人，即使有些种子学生是多科目种子也是如此。

同时每科平均分差异不超过 0.5 分。

这个结果应该说是完全够用了吧？

这个附件应该是我的最终版了，增加了 2人交换优化，即：如果交换两个学生，可以使结果更好，那么就交换，直到无法找到交换一对学生即可改善为止，或者达到时间限制为止，默认是用 180秒 时间去交换优化。

分班_随机算法多批次_兼容人手分班_2交换优化.rar (56.9 KB, 下载次数: 1025)

2013-8-1 04:51 上传

点击文件名下载附件

补充内容 (2013-8-21 02:51):
附件有个小bug，每班人数不能低于10人。
修改方法，在 batch 模块，在
If batch_size > total Then
    Range("B30").Resize(total, keys).Value = all_data
后面增加一句
    Call rand_solve

补充内容 (2013-9-7 03:27):
再次补充，本附件不支持 保留人手分班数据，更新的附件在第三页的26楼。

龙行九州

灰袍法师 发表于 2013-7-31 17:00
我也觉得增加批次列无用，原因跟你说的一样，优秀生如果有多个优秀科目，就无法对其分批。

但是我实在 ...

因为各学科的老师只关心本学科的种子选手，同时种子选手的界定上，我们这不够科学：如79分模拟进县一中的线，则78就不是种子了。从79分上来说，各班进线人数并不一定均衡的。

所以我想将原始分数极端化来解决这个问题。

种子选手，是综合所指的话，这个均衡软件是很好的。

从分数均衡上来说，这个多次平衡法是我遇到分班类算法最好的VBA。

灰袍法师

龙行九州 发表于 2013-8-1 07:07
因为各学科的老师只关心本学科的种子选手，同时种子选手的界定上，我们这不够科学：如79分模拟进县一中的 ...

一点都不懂你在说什么。。。。。。

单科的种子选手，肯定就是指 该科目分数超过xx分的所有人吧？

那么直接用我在上面的做法， 单科优秀 = if (单科分数 > xx , 100, 0) 就可以了。

lee1892

一点建议哈，其实之前有人提到。

既然想做通用的，能不能把分班的依据参数化，学习成绩是一个，那还有体育成绩、性别、生源地、是否住宿，等等～

然后这些参数也可以归类，同一数据种类的用同一个过程，比如性别和是否住宿就是同一类的。这样一来，类似分班的问题都可以解决了～

灰袍法师

lee1892 发表于 2013-8-2 00:23
一点建议哈，其实之前有人提到。

既然想做通用的，能不能把分班的依据参数化，学习成绩是一个，那还有体 ...

其实我的附件就已经可以做到：所有能够“数字化”的分班依据，都可以分平均。
性别可以转化为 男性1000分，女性0分，把这个“性别科”的“成绩”分平均了，自然每个班的男女生人数也就平均了。
住宿也可以转化为 住宿50分，不住宿0分，那么把“住宿科”的“成绩”分平均了，自然每班的住宿生人数也是平均的。
如此类推
要求特殊学生＝数学单科 33.5-77.8 分之间，而且不住宿的女生，要求每班的这种学生也要平均，也可以做到的！
所以我一直不理解楼主为什么说“种子”学生分不平均，他也一直没说什么算是种子学生。

liucqa

这么复杂的东东呀

龙行九州

灰袍法师 发表于 2013-8-2 05:10
其实我的附件就已经可以做到：所有能够“数字化”的分班依据，都可以分平均。
性别可以转化为 男性1000分 ...

大师的程序非常好！
种子现在已经分均了，是方法的问题，只是分的项目非常多：
名科成绩（8个） 各科及格100分未及格0分 各科总分进线120没进0 各科单科＋总分同时进线120分，只要单科进线就100没0分……………………
分班项目高达49个！ 还没考虑走住问题呢。
设置为计算 70万次或更高次，算了很长时间，不怕时间长，只要均衡！……………………上附件
非常均衡的VBA分班.7z (38.58 KB, 下载次数: 985)

2013-8-4 09:09 上传

点击文件名下载附件
内有示例分析

作者：灰袍法师
…………………………………………………………………………………………………………………………………………………………
        灰袍大师的分班VBA是目前我使用众多分班功能软件中最好的！！比一些软件都好！
…………………………………………………………………………………………………………………………………………………………

wshcw

灰袍法师 发表于 2013-7-31 17:00
我也觉得增加批次列无用，原因跟你说的一样，优秀生如果有多个优秀科目，就无法对其分批。

但是我实在 ...

收藏法师的经典新作.