global fuelTemperature = getFuelTemperature()
global casingTemperature = getCasingTemperature()
global isActive = getActive()
global fuelTemperatureChange = fuelTemperature - getFuelTemperature()
global casingTemperatureChange = casingTemperature - getCasingTemperature()
global temperaturePowerRatio = 0




local clock = os.clock
function sleep(n)  -- seconds
  local t0 = clock()
  while clock() - t0 <= n do end
end


function startup()
	setAllControlRodLevels(100)
	local currentRodHeight = 100 - getControlRodLevel(1)
	if ((fuelTemperature < 1000) and (fuelTemperatureChange < 10)) then
		setAllControlRodLevels(getControlRodLevel(1)+1)
	end
end

function operate()
	if temperaturePowerRatio < 90 do end
	local currentRodHeight = 100 - getControlRodLevel(1)
	if ((fuelTemperature < 1000) && (fuelTemperatureChange < 10)) then
		setAllControlRodLevels(getControlRodLevel(1)+1)
	end
end

function protect()
	temperaturePowerRatio = temperaturePowerRatio + 1
	local currentRodHeight = 100 - getControlRodLevel(1)
	while (fuelTemperature<1000 and fuelTemperatureChange<200) do end
	if fuelTemperature>1750 or fuelTemperatureChange>500 then
		setAllControlRodLevels(100)
	elseif fuelTemperature>1500 or fuelTemperatureChange>400 then
		setAllControlRodLevels(getControlRodLevel-20)
	elseif fuelTemperature>1200 or fuelTemperatureChange>300 then
		setAllControlRodLevels<getControlRodLevel-1)
	end
end

function Run()
	while true do
		operate()
		protect()
	end
end