数据公正性分配算法Lv1【这题做了我两天两夜，现已达到极限，高手们继续】

learn321

我也试着做了一个。可郁闷的很，有输出，可结果和老大们对不上，看了半天也不知道哪儿错了

#include<array.au3>
Global $frist[430], $second[430], $third[430], $i = 0, $outarray[431][3]
Dim $sum, $sum1, $sum2, $sum3, $sum_average, $i_t
;读入数据
For $t = 0 To 429
        $shuju_line = StringRegExp(FileReadLine(@ScriptDir & "\数据.txt", $t + 1), '[.\d]+', 3)
        $frist[$t] = Number($shuju_line[0])
        $second[$t] = Number($shuju_line[1])
        $third[$t] = Number($shuju_line[2])
Next
While 1
        _Mysum()
        _Mytiaozheng($frist, $second, $sum1 - $sum_average)
        _Mysum()
        _Mytiaozheng($frist, $third, $sum1 - $sum_average)
        _Mysum()
        _Mytiaozheng($second, $third, $sum2 - $sum_average)
        If $i_t = $i Then ExitLoop
        $i_t = $i
WEnd
MsgBox(0, "", "共计调整" & $i & "次！")
_Myout()
_ArrayDisplay($outarray)
;3组数组和及平均值
Func _Mysum()
        $sum1 = 0
        $sum2 = 0
        $sum3 = 0
        $sum_average = 0
        Local $t
        For $t = 0 To 429
                $sum1 += $frist[$t]
                $sum2 += $second[$t]
                $sum3 += $third[$t]
        Next
        $sum_average = ($sum1 + $sum2 + $sum3) / 3
EndFunc   ;==>_Mysum
;按差值查看数组是否需要调整
Func _Mytiaozheng(ByRef $temp1, ByRef $temp2, $temp_diff)
        Local $m, $n, $temp_chan, $temp_min[3] = [Abs($temp_diff), 0, 0], $temp_t
        For $m = 0 To 429
                For $n = 0 To 429
                        If $temp_diff > 0 And $temp1[$m] > $temp2[$n] Then
                                $temp_chan = $temp_diff - $temp1[$m] + $temp2[$n]
                        ElseIf $temp_diff < 0 And $temp1[$m] < $temp2[$n] Then
                                $temp_chan = $temp_diff - $temp1[$m] + $temp2[$n]
                        EndIf
                        If Abs($temp_chan) < $temp_min[0] Then
                                $temp_min[0] = Abs($temp_chan)
                                $temp_min[1] = $m
                                $temp_min[2] = $n
                        EndIf
                Next
        Next
        ;数据交换
        If $temp_min[0] < $temp_diff Then
                $temp_t = $temp1[$temp_min[1]]
                $temp1[$temp_min[1]] = $temp2[$temp_min[2]]
                $temp2[$temp_min[2]] = $temp_t
                $i += 1
        EndIf
EndFunc   ;==>_Mytiaozheng
;数组输出
Func _Myout()
        Local $m
        $outarray[0][0] = $sum1
        $outarray[0][1] = $sum2
        $outarray[0][2] = $sum3
        For $m = 1 To 430
                $outarray[$m][0] = $frist[$m - 1]
                $outarray[$m][1] = $second[$m - 1]
                $outarray[$m][2] = $third[$m - 1]
        Next
EndFunc   ;==>_Myout

binghc

回复 62# learn321


    从客户角度看，没有什么对不对的只要你原来数字不改它，不把原来的1变成2，最后最结果相差不是很大的话，那都ok，都是对的

  但是从程序员角度看，这个算法就纯在瑕疵，从你发上来的图片看。我觉得你的第二列和第三列之间的数据肯定还可以互换，从这方面找找是不是这样的

doraegeep

完全凌乱了  看不懂咯

飞越星海

不明白！！！！！！！！！！！！这是实话！！！

learn321

呵呵，又做了一个，重新调整算法，数据调整了4次，结果完全ok！哦也！！！

#include<array.au3>
Global $frist[430], $second[430], $third[430], $i = 0, $outarray[431][3], $sum_average, $fir_cha, $sec_cha, $thi_cha, $sum1, $sum2, $sum3
Dim $i_t
;读入数据
For $t = 0 To 429
        $shuju_line = StringRegExp(FileReadLine(@ScriptDir & "\数据.txt", $t + 1), '[.\d]+', 3)
        $frist[$t] = Number($shuju_line[0])
        $second[$t] = Number($shuju_line[1])
        $third[$t] = Number($shuju_line[2])
Next
_Mysum()
$sum_average = ($sum1 + $sum2 + $sum3) / 3
While 1
        _Mycha()
        If $fir_cha = 0 Then
                _Mytiaozheng($second, $third, $sec_cha)
        ElseIf $sec_cha = 0 Then
                _Mytiaozheng($frist, $third, $fir_cha)
        ElseIf $thi_cha = 0 Then
                _Mytiaozheng($frist, $second, $fir_cha)
        ElseIf ($fir_cha > 0 And $second > 0) Or ($fir_cha < 0 And $sec_cha < 0) Then
                If Abs($fir_cha) > Abs($sec_cha) Then
                        _Mytiaozheng($frist, $third, $fir_cha)
                Else
                        _Mytiaozheng($second, $third, $sec_cha)
                EndIf
        ElseIf ($fir_cha > 0 And $thi_cha > 0) Or ($fir_cha < 0 And $thi_cha < 0) Then
                If Abs($fir_cha) > Abs($thi_cha) Then
                        _Mytiaozheng($frist, $second, $fir_cha)
                Else
                        _Mytiaozheng($third, $second, $thi_cha)
                EndIf
        ElseIf Abs($sec_cha) > Abs($thi_cha) Then
                _Mytiaozheng($second, $frist, $sec_cha)
        Else
                _Mytiaozheng($third, $frist, $thi_cha)
        EndIf
        _Mysum()
        If $i_t = $i Then ExitLoop
        $i_t = $i
WEnd
MsgBox(0, "", "共计调整" & $i & "次！")
_Myout()
_ArrayDisplay($outarray)
;3组数组和及平均值
Func _Mysum()
        $sum1 = 0
        $sum2 = 0
        $sum3 = 0
        Local $t
        For $t = 0 To 429
                $sum1 += $frist[$t]
                $sum2 += $second[$t]
                $sum3 += $third[$t]
        Next
EndFunc   ;==>_Mysum
;按差值查看数组是否需要调整
Func _Mytiaozheng(ByRef $temp1, ByRef $temp2, $temp_diff)
        Local $m, $n, $temp_change, $temp_min[3] = [Abs($temp_diff), 0, 0], $temp_t
        For $m = 0 To 429
                For $n = 0 To 429
                        $temp_change = Abs(($temp_diff) - $temp1[$m] + $temp2[$n])
                        If $temp_change < $temp_min[0] Then
                                $temp_min[0] = $temp_change
                                $temp_min[1] = $m
                                $temp_min[2] = $n
                        EndIf
                Next
        Next
        ;数据交换
        If $temp_min[0] < Abs($temp_diff) Then
                $temp_t = $temp1[$temp_min[1]]
                $temp1[$temp_min[1]] = $temp2[$temp_min[2]]
                $temp2[$temp_min[2]] = $temp_t
                $i += 1
        EndIf
EndFunc   ;==>_Mytiaozheng
;数组输出
Func _Myout()
        Local $m
        $outarray[0][0] = $sum1
        $outarray[0][1] = $sum2
        $outarray[0][2] = $sum3
        For $m = 1 To 430
                $outarray[$m][0] = $frist[$m - 1]
                $outarray[$m][1] = $second[$m - 1]
                $outarray[$m][2] = $third[$m - 1]
        Next
EndFunc   ;==>_Myout
;判读差值
Func _Mycha()
        $fir_cha = $sum1 - $sum_average
        $sec_cha = $sum2 - $sum_average
        $thi_cha = $sum3 - $sum_average
EndFunc   ;==>_Mycha

结果如下图：
又思考了一下，主程序段算法还可以优化，if太多，代码太乱，自己读都困难，头真大啊。。。

chie530520

感覺好負雜哦...不過有挑戰性 做做看好囉

805333

这个算法不错

menfan1

看看啥内容