平均分配,移动欠费催收款数据的分配应用实例

本文介绍了一款针对移动电信欠费催收业务的小型系统的设计思路与实现方法,重点探讨了如何通过改进的随机贪婪算法公平地分配欠费记录及金额给不同的催收员。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

    最近接到一个小项目,是个专做移动电信欠费催收款的律师事务所,求要帮他们做个系统,把每批次的欠费数据平均分配给催收员(要求每个催收员分到的记录数和欠费金额都比较公平),然后等移动电信把提成报表传过来后再做提成计算就可以了。想想功能不多于是2K就接下来了。

   这个小系统主要的难点是在给催收员的数据分配上,事实上实现起来也不难。我想在分班或者其它有类似需求的系统上也可以用得上。

分平均分配的算法有很多,如蛇形算法,贪婪算法等等。

1、蛇形算法类似于下面的排序

A             B             C           D

100         99           98           97

93          94            95           96

92          91            90           89

 

如果拿 1-100 的数字来分配当然蛇形算法最好不过的了,不过移动的欠费数据可不是这样,金额大的几万,小的 0.01 都有,所以这种算法没法用。

 

2 、倒序贪婪 ( 我称之为倒序贪婪,也不懂该叫什么 )

  过程大概是这样(m份数据分配到n个人的头上)

  1.1 把待分配的数据m从大到小排序;

  1.2 从数据m取出n份做为初始值分配给n个人;

  1.3 把这n个人的数据从小到大排序;

  1.4 从数据m再取出n份数据累加到n个人的头上

  1.5 重复1.3-1.4直至数据分配结束

 

但得出来的结果也不合格,因为得出的金额数据相差太大

 

3 、随机贪婪 ( 我称之为随机贪婪,也不懂该叫什么 )

  过程大概是这样(m份数据分配到n个人的头上)

  1.1 从数据m中随机取出n份做为初始值分配给n个人;

  1.2 n个人的数据从小到大排序;

  1.3 从数据m中随机再取出n份数据累加到n个人的头上

  1.4 重复1.2-1.3直至数据分配结束

 

咋一看结果是不错,但如果在最后几次分配数据时,出现金额落差比较大时问题就出来了。

不过倒好解决,我们何不先进行几轮倒序贪婪,把大额度的数据排除,余下的数据再进行随机贪婪。这个结果客户也比较满意。

 

代码实现: ( 原本是打算用 C# 做的,但我这个人太懒了,为了图速度就 asp 写了,要转为 C# 的话,也是很简单,主要把下面这个函数转为 C# 的语法也就差不多了 )

ContractedBlock.gif ExpandedBlockStart.gif Code
 ‘数组排序

Function Sort(ary)
       
Dim KeepChecking,I,FirstValue,SecondValue,FirstTeam,SecondTeam
       KeepChecking 
= TRUE 
       
Do Until KeepChecking = FALSE 
              KeepChecking 
= FALSE 
              
For I = 0 to UBound(ary) 
                     
If I = UBound(ary) Then Exit For 
                     
If ary(I,0> ary(I+1,0Then 
                            FirstValue 
= ary(I,0
                            FirstTeam 
= ary(I,1)
                            SecondValue 
= ary(I+1,0
                            SecondTeam 
= ary(I+1,1
                            ary(I,
0= SecondValue 
                            ary(I,
1= SecondTeam 
                            ary(I
+1,0= FirstValue 
                            ary(I
+1,1= FirstTeam 
                            KeepChecking 
= TRUE 
                     
End If 
              
Next 
       
Loop 
       Sort 
= ary 
End Function 

 

分配结果:

 其他代码就不贴了,大家感兴趣的话可以下载源文件来研究。

演示地址:http://www.51gif.net/mobiledata/index.asp

源码下载:http://www.51gif.net/mobiledata/mobiledata.rar

 

另:下周打算分离仿winform的产品入录界面代码(支持编号、拼音、产品名称、条形码自动完成录入)出来给大家,对开发web下进销存或者CRM感兴趣的朋友到时候可以一起交流一下。

图:

 

Flash演示:http://www.51gif.net/mobiledata/test.swf

 

转载于:https://www.cnblogs.com/catxp/archive/2008/12/30/1365377.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值