按照高分数均分宿舍问题？谢谢！

wangweihebtu

按照高分数均分宿舍问题？谢谢！

jd6688

给一个建议,用这个函数LARGE(C2:C41,2),这个2表示第2名,可以找到排第几名的人.

jd6688

jd6688 发表于 2018-7-12 17:14
给一个建议,用这个函数LARGE(C2:C41,2),这个2表示第2名,可以找到排第几名的人.

计算出男生人数,/8以后是宿舍数,第一名和最后一名,第二名和最后第二名,这样排下去就行了

wangweihebtu

jd6688 发表于 2018-7-12 17:15
计算出男生人数,/8以后是宿舍数,第一名和最后一名,第二名和最后第二名,这样排下去就行了

这个我一般手动分就是这样分的，来回分布，谢谢

zopey

从平均分数出发，本例  男生=533，女生=552，

男生8人分数和=533*8 附近，
用凑数程序  寻找随机组合吧。一组一组找！

一把小刀闯天下

'男的有2个低分结果不太理想，女的可以接受

Option Explicit

Sub test()
  Dim arr, brr, crr, n, ave
  arr = [a1].CurrentRegion
  brr = arr: Call seldata(brr, "男", n, ave)
  Call try(brr, crr, n, ave): [f2].Resize(n, UBound(crr, 2)) = crr
  brr = arr: Call seldata(brr, "女", n, ave)
  Call try(brr, crr, n, ave): [l2].Resize(n, UBound(crr, 2)) = crr
End Sub

Function try(brr, crr, n, ave)
  Dim i, j, k, sum, result, t
  For i = 1 To 1000
    Call rnddata(brr, n)
    If i = 1 Then
      For j = 1 To n - n Mod 8 Step 8
        sum = 0
        For k = j To j + 7: sum = sum + brr(k, 3): Next
        If j = 1 Then
          result = Abs(ave - sum / 8): crr = brr
        Else
          If result < Abs(ave - sum / 8) Then result = Abs(ave - sum / 8)
        End If
      Next
    Else
      For j = 1 To n - n Mod 8 Step 8
        sum = 0
        For k = j To j + 7: sum = sum + brr(k, 3): Next
        If j = 1 Then
          t = Abs(ave - sum / 8)
        Else
          If t < Abs(ave - sum / 8) Then t = Abs(ave - sum / 8)
        End If
      Next
      If t < result Then result = t: crr = brr
    End If
  Next
End Function

Function seldata(arr, flag, n, ave)
  Dim i, j
  n = 0: ave = 0
  For i = 2 To UBound(arr, 1)
    If arr(i, 2) = flag Then
      n = n + 1: ave = ave + arr(i, 3)
      For j = 1 To UBound(arr, 2)
        arr(n, j) = arr(i, j)
      Next
    End If
  Next
  ave = ave / n
End Function

Function rnddata(arr, n)
  Dim i, j, t, m
  Randomize
  For i = 1 To n
    m = Int(Rnd * n) + 1
    For j = 1 To UBound(arr, 2)
      t = arr(i, j): arr(i, j) = arr(m, j): arr(m, j) = t
  Next j, i
End Function

wangweihebtu

一把小刀闯天下 发表于 2018-7-13 10:15
'男的有2个低分结果不太理想，女的可以接受

Option Explicit

已经很感谢了！

hcm19522

試試~~~~~~~~~~~~~~~

wangweihebtu

hcm19522 发表于 2018-7-13 10:41
試試~~~~~~~~~~~~~~~

这个分法的弊端在于第一个宿舍两极分化严重，我也再研究研究，谢谢

hcm19522

wangweihebtu 发表于 2018-7-13 10:52
这个分法的弊端在于第一个宿舍两极分化严重，我也再研究研究，谢谢

前4高分與後4低分一室  ;前5~8高分與後5~8低分一室  …   最後剩餘為中間分數