calc.lua

local function required_asslvl(ingredient_count)
    if ingredient_count > 4 then return 1.25 end
    if ingredient_count > 2 then return 0.75 end
    return 0.5
end

function get_recipe(name, options)
	local rdata = data.raw.recipe[name]
	local recipe = {}
	if not rdata then
		return rdata
	end
	recipe.name = rdata.name
	recipe.time = rdata.energy_required or 0.5
	if rdata.category == 'smelting' then
		recipe.time = recipe.time / tonumber(options.smeltlvl)
		recipe.outputs = rdata.result_count or 1
	elseif rdata.category == 'chemistry' then
		recipe.time = recipe.time / 1.25
		if rdata.results then
			for i, res in ipairs(rdata.results) do
				if res.name == recipe.name then
					recipe.outputs = res.amount
				end
			end
		else
			recipe.outputs = 1
		end
	else
		recipe.time = recipe.time / math.max(
                    tonumber(options.asslvl),
                    required_asslvl(#rdata.ingredients)
                )
		recipe.outputs = rdata.result_count or 1
	end
	recipe.ips = recipe.outputs / recipe.time
	recipe.inputs = {}
	for i, ingr in ipairs(rdata.ingredients) do
		local ingredient = {}
		if ingr.name then
			ingredient.name = ingr.name
			ingredient.amount = ingr.amount
		else
			ingredient.name = ingr[1]
			ingredient.amount = ingr[2]
		end
		table.insert(recipe.inputs, ingredient)
	end
	return recipe
end


function request(name, ips, options)
	local recipe = get_recipe(name, options)
	if not options then
		options = {asslvl = 1, smeltlvl = 1, beltlvl = 14.2}
	end
	if not recipe then
		return {name = name, ips=ips}
	end

	local req = {}
	req.name = recipe.name
	req.ips = ips
	req.ipspa = recipe.ips
	req.assemblers = req.ips / req.ipspa
	req.assembler_max_line = tonumber(options.beltlvl) / recipe.ips
	req.lines_required = req.assemblers / math.floor(req.assembler_max_line)
	req.inputs = {}
	for i, input in ipairs(recipe.inputs) do
		local ingr_per_cycle = input.amount * req.assemblers
		local ingr_required_ips = ingr_per_cycle /  recipe.time
		table.insert(req.inputs,
			request(input.name, ingr_required_ips, options))
	end
	return req
end