From d544224dd6339d052cae1dac21b9a46b0760590f Mon Sep 17 00:00:00 2001 From: Thomas--S Date: Thu, 6 May 2021 15:07:01 +0200 Subject: [PATCH 1/2] Allow to configure item ratios in distributor filters It allows to control the ratio in which certain items will use the different outputs. This is done by adding an item multiple times to the same filter. Because of this, the hardcoded permutations are replaced with a Fisher-Yates-Shuffle. This is theoretically a little bit slower; but according to my measurements, about one million of copy-shuffle operations can be executed per second (tested with a table length of four); so it doesn't seem to be a big problem. Additionally, a bit of outdated information was removed from the manuals. --- basic_machines/distributor.lua | 53 ++++++++++++++++------------------ doc/manual_DE.lua | 14 ++++----- doc/manual_EN.lua | 6 +++- manuals/manual_ta2_DE.md | 4 +++ manuals/manual_ta2_EN.md | 4 +++ manuals/manual_ta3_DE.md | 10 +------ manuals/manual_ta3_EN.md | 2 +- 7 files changed, 45 insertions(+), 48 deletions(-) diff --git a/basic_machines/distributor.lua b/basic_machines/distributor.lua index 3db44c3..2fdd71d 100644 --- a/basic_machines/distributor.lua +++ b/basic_machines/distributor.lua @@ -35,19 +35,6 @@ local SlotColors = {"red", "green", "blue", "yellow"} local Num2Ascii = {"B", "L", "F", "R"} local FilterCache = {} -- local cache for filter settings --- Permutation table to improve distribution between ports (number of ports: 1-4) --- Usage: permIdx[num_ports][math.random(1, #permIdx[num_ports])][idx] -local permIdx = { - { { 1 } }, - { { 1, 2 }, { 2, 1 } }, - { { 1, 2, 3 }, { 1, 3, 2 }, { 2, 1, 3 }, { 2, 3, 1 }, { 3, 1, 2 }, { 3, 2, 1 } }, - { { 1, 2, 3, 4 }, { 1, 2, 4, 3 }, { 1, 3, 2, 4 }, { 1, 3, 4, 2 }, { 1, 4, 2, 3 }, - { 1, 4, 3, 2 }, { 2, 1, 3, 4 }, { 2, 1, 4, 3 }, { 2, 3, 1, 4 }, { 2, 3, 4, 1 }, - { 2, 4, 1, 3 }, { 2, 4, 3, 1 }, { 3, 1, 2, 4 }, { 3, 1, 4, 2 }, { 3, 2, 1, 4 }, - { 3, 2, 4, 1 }, { 3, 4, 1, 2 }, { 3, 4, 2, 1 }, { 4, 1, 2, 3 }, { 4, 1, 3, 2 }, - { 4, 2, 1, 3 }, { 4, 2, 3, 1 }, { 4, 3, 1, 2 }, { 4, 3, 2, 1 }, } -} - local function filter_settings(pos) local meta = M(pos) local param2 = techage.get_node_lvm(pos).param2 @@ -69,7 +56,9 @@ local function filter_settings(pos) if not ItemFilter[name] then ItemFilter[name] = {} end - table.insert(ItemFilter[name], out_dir) + for _ = 1,stack:get_count() do + table.insert(ItemFilter[name], out_dir) + end end end end @@ -181,8 +170,8 @@ local function allow_metadata_inventory_put(pos, listname, index, stack, player) if listname == "src" then CRD(pos).State:start_if_standby(pos) return stack:get_count() - elseif list[index]:get_count() == 0 then - stack:set_count(1) + else + stack:add_item(list[index]) inv:set_stack(listname, index, stack) return 0 end @@ -197,7 +186,9 @@ local function allow_metadata_inventory_take(pos, listname, index, stack, player return stack:get_count() else local inv = M(pos):get_inventory() - inv:set_stack(listname, index, nil) + local list = inv:get_list(listname) + list[index]:take_item(stack:get_count()) + inv:set_stack(listname, index, list[index]) return 0 end end @@ -209,17 +200,15 @@ local function allow_metadata_inventory_move(pos, from_list, from_index, to_list local inv = minetest.get_meta(pos):get_inventory() local stack = inv:get_stack(from_list, from_index) - if from_list == "src" and to_list ~= "src" and not inv:contains_item(to_list, {name = stack:get_name()}) then - stack:set_count(1) + if from_list == "src" and to_list ~= "src" then + stack:add_item(to_list[to_index]) inv:set_stack(to_list, to_index, stack) return 0 elseif from_list ~= "src" and to_list == "src" then inv:set_stack(from_list, from_index, nil) return 0 - elseif not inv:contains_item(to_list, {name = stack:get_name()}) then - return 1 else - return 0 + return stack:get_count() end end @@ -240,17 +229,24 @@ local function tubelib2_on_update2(pos, outdir, tlib2, node) end end -local function push_item(pos, filter, itemstack, num_items, nvm) +local function shuffle(list) + for i = #list, 2, -1 do + local j = math.random(i) + list[i], list[j] = list[j], list[i] + end + return list +end + +local function push_item(pos, base_filter, itemstack, num_items, nvm) + local filter = shuffle(table.copy(base_filter)) local idx = 1 local num_pushed = 0 local num_ports = #filter - num_ports = techage.in_range(num_ports, 1, 4) - local randidx = permIdx[num_ports][math.random(1, #permIdx[num_ports])] local amount = math.floor(math.max((num_items + 1) / num_ports, 1)) local num_of_trials = 0 while num_pushed < num_items and num_of_trials <= 8 do num_of_trials = num_of_trials + 1 - local push_dir = filter[randidx[idx]] + local push_dir = filter[idx] local num_to_push = math.min(amount, num_items - num_pushed) if techage.push_items(pos, push_dir, itemstack:peek_item(num_to_push)) then num_pushed = num_pushed + num_to_push @@ -282,11 +278,12 @@ local function distributing(pos, inv, crd, nvm) local num_items = stack:get_count() local num_to_push = math.min((nvm.num_items or crd.num_items) - sum_num_pushed, num_items) local stack_to_push = stack:peek_item(num_to_push) + local filter = item_filter[item_name] num_pushed = 0 - if item_filter[item_name] then + if filter and #filter > 0 then -- Push items based on filter - num_pushed = push_item(pos, item_filter[item_name], stack_to_push, num_to_push, nvm) + num_pushed = push_item(pos, filter, stack_to_push, num_to_push, nvm) elseif blocking_mode and #open_ports > 0 then -- Push items based on open ports num_pushed = push_item(pos, open_ports, stack_to_push, num_to_push, nvm) diff --git a/doc/manual_DE.lua b/doc/manual_DE.lua index 87c5124..f6061d1 100644 --- a/doc/manual_DE.lua +++ b/doc/manual_DE.lua @@ -453,6 +453,10 @@ techage.manual_DE.aText = { "\n".. "Der Verarbeitungsleistung eines TA2 Verteilers beträgt 4 Items alle 2 s\\, wobei der Verteiler dabei versucht\\, die 4 Items auf die offenen Ausgänge zu verteilen.\n".. "\n".. + "Wird dasselbe Item in einem Filter mehrfach hinterlegt\\, so beeinflusst dies das langfristige Verteilungsverhältnis entsprechend.\n".. + "\n".. + "Bitte beachte\\, dass die Verteilung ein probabilistischer Vorgang ist\\, d.h. die Verhältnisse werden nicht exakt\\, sondern nur langfristig eingehalten.\n".. + "\n".. "\n".. "\n", "Die Kieswaschanlage ist eine komplexere Maschine mit dem Ziel\\, Usmium Nuggets aus gesiebtem Kies auszuwaschen. Für den Aufbau wird ein TA2 Kiesspüler mit Achsenantrieb\\, ein Trichter\\, eine Kiste\\, sowie fließendes Wasser benötigt. \n".. @@ -1056,15 +1060,7 @@ techage.manual_DE.aText = { "\n".. "\n".. "\n", - "Die Funktion des TA3 Verteilers entspricht der von TA2 mit einer weiteren Betriebart.\n".. - "\n".. - "*1:1 Bestückungsfunktion*\n".. - "\n".. - "Wird nur ein Ausgang aktiviert und mit mehreren Items konfiguriert\\, so kann die 1:1 Checkbox angeklickt werden. In diesem Falle werden nur Items gemäß der Filtereinstellung angenommen und in der Reihenfolge\\, wie die Items im Filter eingetragen sind\\, in definierte Positionen im Ziel-Inventar abgelegt. Damit kann weder das Inventar des Verteilers noch des Zielblocks volllaufen. Dies funktioniert für Autocrafter\\, Industrieofen und Elektronikfabrik.\n".. - "Mit dieser Betriebsart lassen sich andere Maschinen wie bspw. der Autocrafter exakt gemäß dem eingestellten Rezept bestücken. \n".. - "\n".. - "Dies funktioniert nur nur\\, wenn die Inventare des Verteilers und des Zielblocks zuvor frei sind.\n".. - "\n".. + "Die Funktion des TA3 Verteilers entspricht der von TA2.\n".. "Die Verarbeitungsleistung beträgt 12 Items alle 4 s.\n".. "\n".. "\n".. diff --git a/doc/manual_EN.lua b/doc/manual_EN.lua index 7ca8f26..1f1157a 100644 --- a/doc/manual_EN.lua +++ b/doc/manual_EN.lua @@ -452,6 +452,10 @@ techage.manual_EN.aText = { "\n".. "The processing power of a TA2 distributor is 4 items every 2 s\\, whereby the distributor tries to distribute the 4 items to the open outputs.\n".. "\n".. + "If the same item is configured multiple times in one filter\\, the long term distribution ratio will be influenced accordingly.\n".. + "\n".. + "Please note that the distribution is a probabilistic process. This means that the distribution rations won't be matched exactly\\, but only in the long term.\n".. + "\n".. "\n".. "\n", "The gravel washer is a more complex machine with the goal of washing Usmium nuggets out of sieved gravel. A TA2 rinser with axis drive\\, a hopper\\, a chest and running water are required for the installation.\n".. @@ -1041,7 +1045,7 @@ techage.manual_EN.aText = { "\n".. "\n".. "\n", - "The function of the TA3 distributor corresponds to that of TA2 with another operating mode.\n".. + "The function of the TA3 distributor corresponds to that of TA2.\n".. "The processing power is 12 items every 4 s.\n".. "\n".. "\n".. diff --git a/manuals/manual_ta2_DE.md b/manuals/manual_ta2_DE.md index 39bc18c..b948e24 100644 --- a/manuals/manual_ta2_DE.md +++ b/manuals/manual_ta2_DE.md @@ -132,6 +132,10 @@ Einstellbar ist die Betriebsart über die "blockiere" Checkbox. Der Verarbeitungsleistung eines TA2 Verteilers beträgt 4 Items alle 2 s, wobei der Verteiler dabei versucht, die 4 Items auf die offenen Ausgänge zu verteilen. +Wird dasselbe Item in einem Filter mehrfach hinterlegt, so beeinflusst dies das langfristige Verteilungsverhältnis entsprechend. + +Bitte beachte, dass die Verteilung ein probabilistischer Vorgang ist, d.h. die Verhältnisse werden nicht exakt, sondern nur langfristig eingehalten. + [ta2_distributor|image] diff --git a/manuals/manual_ta2_EN.md b/manuals/manual_ta2_EN.md index c607ddd..7d2105f 100644 --- a/manuals/manual_ta2_EN.md +++ b/manuals/manual_ta2_EN.md @@ -133,6 +133,10 @@ The operating mode can be set using the "blocking mode" checkbox. The processing power of a TA2 distributor is 4 items every 2 s, whereby the distributor tries to distribute the 4 items to the open outputs. +If the same item is configured multiple times in one filter, the long term distribution ratio will be influenced accordingly. + +Please note that the distribution is a probabilistic process. This means that the distribution rations won't be matched exactly, but only in the long term. + [ta2_distributor|image] diff --git a/manuals/manual_ta3_DE.md b/manuals/manual_ta3_DE.md index aeadede..7f8dfae 100644 --- a/manuals/manual_ta3_DE.md +++ b/manuals/manual_ta3_DE.md @@ -726,15 +726,7 @@ Die Verarbeitungsleistung beträgt 6 Items alle 2 s. ### TA3 Verteiler / Distributor -Die Funktion des TA3 Verteilers entspricht der von TA2 mit einer weiteren Betriebart. - -**1:1 Bestückungsfunktion** - -Wird nur ein Ausgang aktiviert und mit mehreren Items konfiguriert, so kann die 1:1 Checkbox angeklickt werden. In diesem Falle werden nur Items gemäß der Filtereinstellung angenommen und in der Reihenfolge, wie die Items im Filter eingetragen sind, in definierte Positionen im Ziel-Inventar abgelegt. Damit kann weder das Inventar des Verteilers noch des Zielblocks volllaufen. Dies funktioniert für Autocrafter, Industrieofen und Elektronikfabrik. -Mit dieser Betriebsart lassen sich andere Maschinen wie bspw. der Autocrafter exakt gemäß dem eingestellten Rezept bestücken. - -Dies funktioniert nur nur, wenn die Inventare des Verteilers und des Zielblocks zuvor frei sind. - +Die Funktion des TA3 Verteilers entspricht der von TA2. Die Verarbeitungsleistung beträgt 12 Items alle 4 s. [ta3_distributor|image] diff --git a/manuals/manual_ta3_EN.md b/manuals/manual_ta3_EN.md index 085d8cc..c1f2fb2 100644 --- a/manuals/manual_ta3_EN.md +++ b/manuals/manual_ta3_EN.md @@ -709,7 +709,7 @@ The processing power is 6 items every 2 s. ### TA3 Distributor -The function of the TA3 distributor corresponds to that of TA2 with another operating mode. +The function of the TA3 distributor corresponds to that of TA2. The processing power is 12 items every 4 s. [ta3_distributor|image] From b6d709bb16de92e8c085c5be1c08356f6b8a82f9 Mon Sep 17 00:00:00 2001 From: Thomas--S Date: Sun, 9 May 2021 15:34:25 +0200 Subject: [PATCH 2/2] Limit the number of items in the filters of the distributor --- basic_machines/distributor.lua | 32 ++++++++++++++++++++++++++++++-- doc/manual_DE.lua | 2 ++ doc/manual_EN.lua | 2 ++ manuals/manual_ta2_DE.md | 2 ++ manuals/manual_ta2_EN.md | 2 ++ 5 files changed, 38 insertions(+), 2 deletions(-) diff --git a/basic_machines/distributor.lua b/basic_machines/distributor.lua index 2fdd71d..4f70342 100644 --- a/basic_machines/distributor.lua +++ b/basic_machines/distributor.lua @@ -26,6 +26,8 @@ local SRC_INV_SIZE = 8 local STANDBY_TICKS = 3 local COUNTDOWN_TICKS = 4 local CYCLE_TIME = 4 +local FILTER_ITEM_LIMIT_PER_STACK = 12 +local FILTER_ITEM_LIMIT = 36 local INFO = [[Turn port on/off or read its state: command = 'port', payload = red/green/blue/yellow{=on/off}]] @@ -42,6 +44,8 @@ local function filter_settings(pos) local filter = minetest.deserialize(meta:get_string("filter")) or {false,false,false,false} local ItemFilter = {} -- { = {dir,...}] local OpenPorts = {} -- {dir, ...} + local counter = 0 -- counts total item number in filter configuration + -- collect all filter settings for idx,slot in ipairs(SlotColors) do if filter[idx] == true then @@ -56,8 +60,12 @@ local function filter_settings(pos) if not ItemFilter[name] then ItemFilter[name] = {} end - for _ = 1,stack:get_count() do + for _ = 1, math.min(FILTER_ITEM_LIMIT_PER_STACK, stack:get_count()) do + if counter > FILTER_ITEM_LIMIT then + break + end table.insert(ItemFilter[name], out_dir) + counter = counter + 1 end end end @@ -160,6 +168,20 @@ local function formspec(self, pos, nvm) end end +local function get_total_filter_items_number(pos, except_listname, except_index) + local inv = M(pos):get_inventory() + local total = 0 + for _, listname in ipairs(SlotColors) do + local list = inv:get_list(listname) + for idx, stack in ipairs(list) do + if not (listname == except_listname and idx == except_index) then + total = total + stack:get_count() + end + end + end + return total +end + local function allow_metadata_inventory_put(pos, listname, index, stack, player) local inv = M(pos):get_inventory() local list = inv:get_list(listname) @@ -172,6 +194,8 @@ local function allow_metadata_inventory_put(pos, listname, index, stack, player) return stack:get_count() else stack:add_item(list[index]) + local max_items_to_limit = FILTER_ITEM_LIMIT - get_total_filter_items_number(pos, listname, index) + stack:set_count(math.min(FILTER_ITEM_LIMIT_PER_STACK, stack:get_count(), max_items_to_limit)) inv:set_stack(listname, index, stack) return 0 end @@ -201,12 +225,16 @@ local function allow_metadata_inventory_move(pos, from_list, from_index, to_list local stack = inv:get_stack(from_list, from_index) if from_list == "src" and to_list ~= "src" then - stack:add_item(to_list[to_index]) + stack:add_item(inv:get_stack(to_list, to_index)) + local max_items_to_limit = FILTER_ITEM_LIMIT - get_total_filter_items_number(pos, to_list, to_index) + stack:set_count(math.min(FILTER_ITEM_LIMIT_PER_STACK, stack:get_count(), max_items_to_limit)) inv:set_stack(to_list, to_index, stack) return 0 elseif from_list ~= "src" and to_list == "src" then inv:set_stack(from_list, from_index, nil) return 0 + elseif from_list ~= "src" and to_list ~= "src" then + return math.min(stack:get_count(), FILTER_ITEM_LIMIT_PER_STACK - inv:get_stack(to_list, to_index):get_count()) else return stack:get_count() end diff --git a/doc/manual_DE.lua b/doc/manual_DE.lua index f6061d1..a739fb3 100644 --- a/doc/manual_DE.lua +++ b/doc/manual_DE.lua @@ -457,6 +457,8 @@ techage.manual_DE.aText = { "\n".. "Bitte beachte\\, dass die Verteilung ein probabilistischer Vorgang ist\\, d.h. die Verhältnisse werden nicht exakt\\, sondern nur langfristig eingehalten.\n".. "\n".. + "In den Filtern beträgt die maximale Stackgröße 12\\; insgesamt können höchstens 36 Items konfiguriert werden.\n".. + "\n".. "\n".. "\n", "Die Kieswaschanlage ist eine komplexere Maschine mit dem Ziel\\, Usmium Nuggets aus gesiebtem Kies auszuwaschen. Für den Aufbau wird ein TA2 Kiesspüler mit Achsenantrieb\\, ein Trichter\\, eine Kiste\\, sowie fließendes Wasser benötigt. \n".. diff --git a/doc/manual_EN.lua b/doc/manual_EN.lua index 1f1157a..b726554 100644 --- a/doc/manual_EN.lua +++ b/doc/manual_EN.lua @@ -456,6 +456,8 @@ techage.manual_EN.aText = { "\n".. "Please note that the distribution is a probabilistic process. This means that the distribution rations won't be matched exactly\\, but only in the long term.\n".. "\n".. + "The maximum stack size in the filters is 12\\; in total\\, not more than 36 items can be configured.\n".. + "\n".. "\n".. "\n", "The gravel washer is a more complex machine with the goal of washing Usmium nuggets out of sieved gravel. A TA2 rinser with axis drive\\, a hopper\\, a chest and running water are required for the installation.\n".. diff --git a/manuals/manual_ta2_DE.md b/manuals/manual_ta2_DE.md index b948e24..1a39183 100644 --- a/manuals/manual_ta2_DE.md +++ b/manuals/manual_ta2_DE.md @@ -136,6 +136,8 @@ Wird dasselbe Item in einem Filter mehrfach hinterlegt, so beeinflusst dies das Bitte beachte, dass die Verteilung ein probabilistischer Vorgang ist, d.h. die Verhältnisse werden nicht exakt, sondern nur langfristig eingehalten. +In den Filtern beträgt die maximale Stackgröße 12; insgesamt können höchstens 36 Items konfiguriert werden. + [ta2_distributor|image] diff --git a/manuals/manual_ta2_EN.md b/manuals/manual_ta2_EN.md index 7d2105f..2894652 100644 --- a/manuals/manual_ta2_EN.md +++ b/manuals/manual_ta2_EN.md @@ -137,6 +137,8 @@ If the same item is configured multiple times in one filter, the long term distr Please note that the distribution is a probabilistic process. This means that the distribution rations won't be matched exactly, but only in the long term. +The maximum stack size in the filters is 12; in total, not more than 36 items can be configured. + [ta2_distributor|image]