aux-addon-ClassicAPI/scan_frame.lua

local MAX_HISTORY_SIZE = 100
local MIN_SEEN = 1
local UNDERCUT_FACTOR = 0.2

Aux.history = {}

aux_snapshot = {}

aux_history = {}

local cache

local get_history, process_auction, create_balanced_list
local get_market_price, get_usable_median, get_historical_median, get_median, get_percentile

function Aux.history.on_close()

end

function Aux.history.on_open()

end

function Aux.history.start_scan()

    if not AuxHistoryScanButton:IsVisible() then
        return
    end

    AuxHistoryScanButton:Hide()
    AuxHistoryStopButton:Show()

    cache = {}

    Aux.log('Scanning auctions ...')
    Aux.scan.start{
        query = {},
        page = 0,
        on_page_loaded = function(page, total_pages)
            Aux.log('Scanning page '..(page+1)..' out of '..total_pages..' ...')
        end,
        on_read_auction = function(i)
            process_auction(i)
        end,
        on_complete = function()
            remove_old_signatures()

            AuxHistoryStopButton:Hide()
            AuxHistoryScanButton:Show()
        end,
        on_abort = function()
            remove_old_signatures()

            AuxHistoryStopButton:Hide()
            AuxHistoryScanButton:Show()
        end,
        next_page = function(page, total_pages)
            if AuxBuyAllPagesCheckButton:GetChecked() then
                local last_page = max(total_pages - 1, 0)
                if page < last_page then
                    return page + 1
                end
            end
        end,
    }
end

function remove_old_signatures()
    for sig, _ in ipairs(aux_snapshot) do
        if not cache[sig] then
            Aux.util.set_remove(aux_snapshot, sig)
        end
    end
end

function Aux.history.stop_scan()
    Aux.scan.abort()
end

function get_history()
    local history_key = GetCVar('realmName')
    aux_history[history_key] = aux_history[history_key] or {}
    return aux_history[history_key]
end

function process_auction(index)
    local auction_info = Aux.info.auction_item(index)
    local buyout_price = Aux.util.safe_index{auction_info, 'buyout_price'}
    if buyout_price and buyout_price > 0 then
        local aux_quantity = auction_info.charges or auction_info.count
        local price = ceil(buyout_price / aux_quantity)
        local key = auction_info.item_signature

        local signature = Aux.info.auction_signature(index)
        Aux.util.set_add(cache, signature)

        if not Aux.util.set_contains(aux_snapshot, signature) then

            Aux.util.set_add(aux_snapshot, signature)

            local history = get_history()
            history[key] = history[key] or {
                name = auction_info.name,
                count = 0,
                records = {},
            }

            local records = create_balanced_list(MAX_HISTORY_SIZE)
            records.add_all(history[key].records)
            records.add(price)

            history[key].records = records.values()
            history[key].count = history[key].count + 1
        end
    end
end

--function store_median_list(list)
--    local hist = ''
--    local function grow_list(last, n)
--        if n == 1 then
--            hist = hist == '' and last or string.format('%s:%d', hist, last)
--        elseif n > 1 then
--            hist = hist == '' and string.format('%dx%d', last, n) or string.format('%s:%dx%d', hist, last, n)
--        end
--    end
--    local n = 0
--    local last = 0
--    for i, price in pairs(list) do
--        if i == 1 then
--            last = price
--        elseif price ~= last then
--            grow_list(last, n)
--            last = price
--            n = 0
--        end
--        n = n + 1
--    end
--    grow_list(last, n)
--    return hist
--end
--
--function load_median_list(str)
--    local splut = {}
--    for x, c in string.gfind(str, '([^%:]*)(%:?)') do
--        local _, _, y, n = string.find(x, '(%d*)x(%d*)')
--        if y == nil then
--            table.insert(splut, tonumber(x))
--        else
--            for i = 1,n do
--                table.insert(splut, tonumber(y))
--            end
--        end
--        if c == '' then break end
--    end
--    return splut
--end

function Aux.history.get_market_price(key)
    local price

    local median = get_usable_median(key)
--    local avgMin, avgBuy, avgBid, bidPct, buyPct, avgQty, meanCount = getMeans(key, realm)

    -- assign the best common buyout
    if median and median > 0 then
        price = median
--    elseif meanCount and meanCount > 0 then
--        -- if a usable median does not exist, use the average buyout instead
--        price = avgBuy;
    end

    return price
end

function get_usable_median(key)

    local historical_median, historical_count = get_historical_median(key)

    if historical_count >= MIN_SEEN then
        return historical_median, historical_count
    end
end

function get_historical_median(key)
    local historical_prices = Aux.util.safe_index{get_history()[key], 'records'}
    return get_median(historical_prices or {})
end

function get_median(values)
    return get_percentile(values, 0.5)
end

-- Return weighted average percentile such that returned value
-- is larger than or equal to (100*pct)% of the table values
-- 0 <= pct <= 1
function get_percentile(values, pct)

    local _percentile = function(sorted_values, pct, first, last)
        local f = (last - first) * pct + first
        local i1, i2 = floor(f), ceil(f)
        f = f - i1

        return sorted_values[i1] * (1 - f) + sorted_values[i2] * f
    end

    local n = getn(values)

    if n == 0 then
        return 0, 0 -- if there is an empty table, returns median = 0, count = 0
    elseif n == 1 then
        return tonumber(values[1]), 1
    end

    -- The following calculations require a sorted table
    table.sort(values)

    -- Skip IQR calculations if table is too small to have outliers
    if n <= 4 then
        return _percentile(values, pct, 1, n), n
    end

    --  REWORK by Karavirs to use IQR*1.5 to ignore outliers
    -- q1 is median 1st quartile q2 is median of set q3 is median of 3rd quartile iqr is q3 - q1
    local q1 = _percentile(values, 0.25, 1, n)
    local q3 = _percentile(values, 0.75, 1, n)

    local iqr = (q3 - q1) * 1.5
    local iqlow, iqhigh = q1 - iqr, q3 + iqr

    -- Find first and last index to include in median calculation
    local first, last = 1, n

    -- Skip low outliers
    while values[first] < iqlow do
        first = first + 1
    end

    -- Skip high outliers
    while values[last] > iqhigh do
        last = last - 1
    end

    return _percentile(values, pct, first, last), last - first + 1
end

function create_balanced_list(max_size, cmp)
    local self = {}

    local values = {}

    cmp = cmp or Aux.util.compare

    function self.add(value)

        local left = 1
        local right = getn(values)
        local middle_value
        local middle

        local destination
        while left <= right do
            middle = floor((right - left) / 2) + left
            middle_value = values[middle]
            if cmp(value, middle_value) == Aux.util.LT then
                right = middle - 1
            elseif cmp(value, middle_value) == Aux.util.GT then
                left = middle + 1
            else
                destination = middle
                break
            end
        end
        destination = destination or left

        tinsert(values, destination, value)

        if max_size and getn(values) > max_size then
            if destination <= floor(max_size / 2) + 1 then
                tremove(values)
            else
                tremove(values, 1)
            end
        end
    end

    function self.add_all(array)
        self.clear()
        for _, value in ipairs(array) do
            self.add(value)
        end
    end

    function self.clear()
        values = {}
    end

    function self.values()
        local result = {}
        for _, value in ipairs(values) do
            tinsert(result, value)
        end
        return result
    end

    function self.size()
        return getn(values)
    end

    function self.get(index)
        return values[index]
    end

    function self.max_size()
        return max_size
    end

    return self
end

function Aux.history.get_price_suggestion(key, quantity)
    local market_price = Aux.history.get_market_price(key)
    return market_price and market_price * quantity * UNDERCUT_FACTOR or 0
end