Bin Packing: Set amount on bins, want to minimize the max bin weight

后端 未结 2 1539
一个人的身影
一个人的身影 2021-01-07 03:59

Given n bins of infinite capacity, I want to pack m items into them (each with a specific weight), whilst minimizing the weight of the heaviest bin.

<
2条回答
  •  借酒劲吻你
    2021-01-07 04:21

    It's a form of a 2D bin packing problem. The first dimension is a limit on capacity per bin (= hard constraint), the second dimension is to minimize the weight of the heaviest bin (= soft constraint).

    With Drools Planner, I 'd start from the cloud balance example and implement it like this:

    rule "maxCapacity"
      when
        // When there is a bin ...
        $bin : Bin($binCapacity : binCapacity)
        // ... where the total of the item capacity is bigger than the bin capacity ...
        $itemCapacityTotal : Number(intValue > $binCapacity) from accumulate(
            ItemAssignment(
                bin == $bin,
                $itemCapacity : itemCapacity),
            sum($itemCapacity)
        )
      then
        // ... then lower the hard score with the insufficient capacity
        insertLogical(new IntConstraintOccurrence("maxCapacity",
                ConstraintType.NEGATIVE_HARD,
                $itemCapacityTotal.intValue() - $binCapacity,
                $bin));
    end
    
    
    rule "calculateWeight"
      when
        $bin : Bin()
        $itemWeightTotal : Number() from accumulate(
            ItemAssignment(
                bin == $bin,
                $itemWeight : itemWeight),
            sum($itemWeight)
        )
      then
        insertLogical(new BinToWeight($bin, $itemWeightTotal);
    end
    rule "minimizeWeight"
      when
        BinToWeight($bin : bin, $itemWeightTotal : itemWeightTotal)
        not BinToWeight (itemWeightTotal > $itemWeightTotal,  bin != $bin)
      then
        insertLogical(new IntConstraintOccurrence("minimizeWeight",
                ConstraintType.NEGATIVE_SOFT,
                $itemWeightTotal,
                $bin));
    end
    

提交回复
热议问题