Active Cooled Big Reactor: Turbine PID-Controller with master control and monitoring.

• v0.1, 2014-12-29: initial version
• v0.2, 2015-01-02: some improvements (pocket computers) and bugfixes
• v0.3, 2015-01-05: Support terminal glasses and bugfixes

label set Turbine_01

pastebin get gTEBHv3D startup

pastebin get kfWVibVF startup

46: local useDisengageCoils = true

34: local stateRequestChannel = 0 -- Broadcast channel.

40: local remoteControl = true

peripheral.call(modemSide, "open", os.getComputerID())
peripheral.call(modemSide, "transmit", 32768, os.getComputerID(), "BR_turbine_get_state")

local rState = textutils.unserialize(tostring(recievedValue))
if rState ~= nil
   and type(rState) == "table"
   and rState.version ~= nil
   and rState.version == "Turbine V0.1"
then
	...
end

local speed=900
peripheral.call(modemSide, "transmit", turbineComputerId, os.getComputerID(), "BR_turbine_set_speed:" .. speed)

local width, height = scaleMonitor(mon, 15, 16, 5, 5)

label set Turbine_Master_Control

pastebin get RcBGNSgb startup

pastebin get rg1auFSE startup

pastebin get F5JPrFUU startup

• Label: The label of the turbine computer. The +/- indicates the status of the turbine (active/deactive) for normal computers without colors
• TRPM: The target speed. This is the operation status of the turbine controller: 900 RPM, 1800 RPM and OFF
• ARPM: The actual speed of the turbine. If it is orange, the turbine does not reach the target speed. If it is red, the turbine is too fast (> 2000 RPM)
• MFlow: The maximum steam flow, the turbine is configured with
• AFlow: The actual steam flow of the turbine (explained in section 1.1)
• kRF/t: Actual energy production of the turbine
• Energy: Load of the internal energy cell

• $$help: Shows a box with the chat commandy you can use
• $$hide: Hide the HUD display
• $$show: With no parameters, it shows the table again. If you use a label of a turbine as parameter it shows a detailed information screen for this turbine.
• $$speed: Set the target speed of the turbine. First parameter ist the new speed (off, 900 or 1800). Second parameter is the label of the turbine computer.

$$help

$$show Tsmall 5x5

$$speed 900 Tsmall 5x5

• Disengage coils for faster speedup. This feature has been introduced in Big Reactors v0.3.4A. If your reactor version supports this feature, the controller use this for faster speedup the turbine. You can disable this feature by setting "useDisengageCoils" to "false". Have a look at the changed setup instructions.
• Bugfix: If you don't set a computer label, the old version simply submit the ID-Number as number to the controller. The controller crashed, because it expects a string. Now, the controller sends a string with the prefix "ComputerID:".
• I do also some code improvements. Mostly some more usage of the "local" keyword as suggested by wieselkatze.

• The Version 0.2 supports wireless pocket computers as master controllers. To support this type of computer, a second table layout with only 25 characters per line has been implemented. You can cycle between the different informations (TRPM/ARPN, TFlow/AFlow, kRF/t and Energy).
• The code also supports advanced monitors with less than 50 characters per line by cycle the informations. So, you only need two monitors in a row.
• Default width of table has been reduced to 50 charaters per line. This is more suitable if you use five monitors in a row.
• Bugfix: There was a small bug at the scale feature.
• I do also some code improvements. Mostly some more usage of the "local" keyword as suggested by wieselkatze.

• No changes: There is no v0.3 for this code.

• The Version v0.3 supports Terminal Glasses of OpenPeripheral. It shows the turbine table on HUD. It can also show some detailed informations of the turbines and let you change the target speed by char command.
• Bugfix: The number formatting was broken.

Ultanna, on 09 January 2015 - 07:21 AM said:

Hello !

i just tried it and it works really great ! i just need to find a way to hook it to the reactor to control it too ;)/>

Just8Will, on 15 January 2015 - 09:02 PM said:

[…] You mentioned that you were having trouble with reading the steam levels. Have you considered requiring an external steam tank (perhaps one from open blocks or something similar) and wrapping this as a peripheral. Then you can read the levels and how they change over time to understand the steam level the reactor is producing.

makeme, on 16 January 2015 - 02:49 PM said:

Wasn't Direwolf20 able to read steam levels in his Big Reactor program? You could have a look at that.

tick 1: steam=0 B, error = -25 B
tick 2: steam=0 B, error = -25 B
tick 3: steam=15 B, error = -10 B
tick 4: steam=50 B, error = 25 B
tick 5: steam=50 B, error = 25 B

makeme, on 16 January 2015 - 02:49 PM said:

And remember if someone is using this on a server ticks most likely won't be 20tps

makeme, on 16 January 2015 - 02:49 PM said:

Wasn't Direwolf20 able to read steam levels in his Big Reactor program? You could have a look at that.

And remember if someone is using this on a server ticks most likely won't be 20tps

biohazard457, on 13 May 2015 - 10:24 PM said:

Is there a way to make this to just monitor the Turbines and not adjust the speeds or flow rates? I was wanting to use Direwolf20's control program but I really like the monitor display of your Master Controller program better.

if restoreControllerState() == false then

if false then

if tSpeed ~= 0 then

if false then

   saveControllerState()

	  if evt == "char" then

	  if false then

tethlah, on 21 June 2015 - 05:48 PM said:

So terminal glasses don't work because you don't use .sync()

The new version is using .sync() on your glasses object, any plans to add that to this so terminal glasses work with the current version of peripherals?

--
-- Control an active cooled reactor from Big reactors (http://big-reactors.com/).
-- Profiler
-- run this script before running the reactor control script
-- run this script every time you change your reactor layout
--
-- Author: El_Loko_
--
-- Save as "startup"
--
--
--
-- Constant values (configuration)
-- ===============================
local rodLevel = 100
local reactor
reactor = peripheral.wrap("bottom")
local hold = 20 -- as higher the hold value that more accurate are the values
local profile = fs.open("profile.txt", "w")
reactor.setActive(true)
rod = 100
repeat
reactor.setAllControlRodLevels(rod)
sleep(hold)
print("R: " .. rod .. " Heat: " .. reactor.getFuelTemperature() .. " Steam: " .. reactor.getEnergyProducedLastTick())
profile.writeLine(rod .. ";" .. reactor.getFuelTemperature() .. ";" .. reactor.getEnergyProducedLastTick())
rod = rod - 1
if(reactor.getEnergyProducedLastTick() > 8000) then
  rod = 0
end
until rod == 0
reactor.setActive(false)
profile.close()

--
-- Control an active cooled reactor from Big reactors (http://big-reactors.com/).
-- this is an Addon Script for kla_sch turbine script (http://www.computercraft.info/forums2/index.php?/topic/21430-active-cooled-big-reactor-turbine-pid-controller-with-master-control-and-monitoring/)
--
-- This script controls a activ cooled reactor to save fuel. It set the rod level automaticly
-- Run the profiler script before running this script
--
-- Author: El_Loko_
--
-- Save as "startup"
--
--
--
-- Constant values (configuration)
-- ===============================
-- set the Broadcast channel (make sure it is the same as the turbines)
local stateRequestChannel = 32768 -- Broadcast channel.
local loopT = 1
local rodLevel = 100
-- set the positon where your computer is conected to the reactor
-- top, bottom, left, right, back  
local reactor
local reactor = peripheral.wrap("bottom")
-- the file with the reactor profile
local profile = "profile.txt"
local reactorProfil = {}
-- Author: kla_sch
local function sendBroadcastRequest()
   local pList = peripheral.getNames()
   local i, name
   for i, name in pairs(pList) do
	  if peripheral.getType(name) == "modem" then
		 peripheral.call(name, "open", os.getComputerID())
		 peripheral.call(name, "transmit", stateRequestChannel, os.getComputerID(), "BR_turbine_get_state")
		
	  end
   end
end

-- Author: unknown
function split(pString, pPattern)
   local Table = {}  -- NOTE: use {n = 0} in Lua-5.0
   local fpat = "(.-)" .. pPattern
   local last_end = 1
   local s, e, cap = pString:find(fpat, 1)
   while s do
		  if s ~= 1 or cap ~= "" then
		 table.insert(Table,cap)
		  end
		  last_end = e+1
		  s, e, cap = pString:find(fpat, last_end)
   end
   if last_end <= #pString then
		  cap = pString:sub(last_end)
		  table.insert(Table, cap)
   end
   return Table
end

-- check if the profile is available
function file_exists(file)
  local f = io.open(file, "rb")
  if f then f:close() end
  return f ~= nil
end
-- get all lines from a file, returns an empty
-- list/table if the file does not exist
function lines_from(file)
  if not file_exists(file) then return {} end
  lines = {}
  for line in io.lines(file) do
	lines[#lines + 1] = line
  end
  return lines
end
-- tests the functions above
local lines = lines_from(profile)
-- load profile
for k,v in pairs(lines) do
   line = v
   table.insert(reactorProfil, split(line, ";"))
end

-- set rod to 100
reactor.setAllControlRodLevels(rodLevel)
reactor.setActive(true)
-- parts of this codes are from kla_sch
-- some is from me
while(true) do
  
	term.clear()
	sendBroadcastRequest()
	local steamNeeded = 0
	local tID = os.startTimer(loopT)
	repeat
	  
	turbineTable = {}
local evt, p1, p2, p3, p4, p5 = os.pullEvent()
if evt == "modem_message"
  and p2 == os.getComputerID()
  and p3 == stateRequestChannel
then
  local rState = textutils.unserialize(tostring(p4))
  if rState ~= nil
   and type(rState) == "table"
   and rState.version ~= nil
   and rState.version == "Turbine V0.1"
  then
   -- seems to be a suitable data structure
   turbineTable[rState.label] = rState
   steamNeeded = rState.fluidFlowRateMax + steamNeeded
   end
end
	
-- search the table reactorProfile for the first value wich is above
-- the needed steam value and set the rods to this level
-- very ineficent but working
for k,v in pairs(reactorProfil) do
  --print(v[3])
  if (tonumber(v[3]) > steamNeeded) then
   reactor.setAllControlRodLevels(tonumber(v[1]))
   break
  end
end
term.clear()
print("Rod Level:		" .. reactor.getControlRodLevel(0))
print("Energy Produced:  " .. reactor.getEnergyProducedLastTick())
print("Energy Requested: " .. steamNeeded)
	until evt == "timer" and p1 == tID
end