local r = peripherial.wrap("back")

local insertion = 0

local minRF = 1028

function TestRodLevel(reactor, ins)
	reactor.setActive(true)
	sleep(15)
	local RfPerTick = reactor.getEnergyProducedLastTick()

	print("RF Produced at " .. ins .. "% insertion: " .. RfPerTick)

	reactor.setActive(false)
	sleep(15)

	if RfPerTick < minRF then
		return true
	else
		return false
	end

end

function DropRod(reactor, ins)
	reactor.setAllControlRodLevels(ins)
end

while TestRodLevel(r, insertion) == false do
	insertion = insertion + 1
	DropRod(r, insertion)
end

insertion = insertion - 1
DropRod(r, insertion)

print("Completed. Best Rod Level for " .. minRF .. "/t is " .. insertion "%." )