Módulo:Factorization

Documentação do módulo[ver] [editar] [histórico] [purgar]

Este módulo exibe a fatoração de um determinado número. Números menores que 2 ou maiores que 1.000.000.000 retornam a mensagem "número fora do intervalo". Os números fracionários são arredondados para baixo.

Parâmetros

• O primeiro parâmetro sem nome é o número
• product - o símbolo a ser utilizado para indicar vezes. O padrão é ·
• bold - defina qualquer valor para torná-lo em negrito
• serif - defina qualquer valor para torná-lo em serif
• big - defina qualquer valor para torná-lo grande
• prime - defina qualquer valor para que os números primos retornem um link não formatado para primo em vez do número

local p = {}

local function powerformat(divisor, power, productSymbol)
	if power < 1      then return ''
    elseif power == 1 then return divisor .. ' ' .. productSymbol .. ' '
    else return divisor .. '<sup>' .. power .. '</sup> ' .. productSymbol .. ' '
    end
end

local function format(numString, bold, big, serif)
    if bold then
    	numString = '<b>'..numString..'</b>'
    end

	local ret = (serif or big) and '<span ' or ''
	if serif then ret = ret .. 'class="texhtml" ' end
	if big   then ret = ret .. 'style="font-size:165%" ' end
	ret = ret .. ((serif or big) and '>' or '') .. numString .. ((serif or big) and '</span>' or '')

    return ret
end

function p.factor(frame)
	
    local number = tonumber(frame.args[1])
    if number == nil then
    	return '<strong class="error">Erro: entrada não reconhecida como um número</strong>'
    end
    number = math.floor(number)
    if number < 2 or number > 1000000000 or number == math.huge then
        return '<strong class="error">Erro: ' .. number .. ' fora do intervalo</strong>'
    end

    local result = ""
    local currentNumber = number
    local power = 0
    local divisor = 2
    local productSymbol = frame.args['product'] or '·'
    -- Attempt factoring by the value of the divisor
    -- divisor increments by 2, except first iteration (2 to 3)
    while divisor <= math.sqrt(currentNumber) do
        power = 0
        while currentNumber % divisor == 0 do
            currentNumber = currentNumber / divisor
            power = power + 1
        end

		-- Concat result and increment divisor
		-- when divisor is 2, go to 3. All other times, add 2
		result = result .. powerformat(divisor, power, productSymbol)
        divisor = divisor + (divisor == 2 and 1 or 2)
    end

    if currentNumber ~= 1 then
        result = result .. currentNumber .. ' ' .. productSymbol .. ' '
    end

    local primeLink = frame.args['prime'] and true
    if currentNumber == number and primeLink then
        return '[[Número primo|primo]]'
    end

    result = string.sub(result,1,-4)

    local bold = frame.args['bold'] and true
    local big = frame.args['big'] and true
    local serif = frame.args['serif'] and true
    return format(result, bold, big, serif)
end

return p