View difference between Paste ID: v49i8z3T and 9KpbFEqb

---PowergraphMulti is made by Stekeblad 11/2017
+-- TODO: actually make graph?
 
-  ------------- Configuration part ------------------
+local monitor = peripheral.find "monitor"
-
+local storage = peripheral.find(settings.get "storage_type" or "draconic_rf_storage")
-  -- Seconds between checking stored energy
+local capacity = (storage.getMaxEnergyStored or storage.getEnergyCapacity)()
-  -- and updating monitors (default: 5)
+local delay = 0.1
-local updateInterval = 5
+local ticks_delay = 0.1 / 0.05
 
--- Simple mode tries to scan for compatible storages and
+local function read_energy()
--- wrap the first found one and the first found monitor
+	return storage.getEnergyStored()
--- For more advanced configuration, set this to false and
+
--- and fill the dataTable below (example follows)
+
--- Default: true
+monitor.setTextScale(1)
-local simpleMode = true
+monitor.setBackgroundColor(colors.black)
-
+monitor.setTextColor(colors.white)
-local dataTable = {
+local data = {}
-
+
-}
+local prefixes = {"", "k", "M", "G", "T", "P", "E", "Z", "Y", "R", "Q"}
 local function SI_prefix(value, unit)
-  -- help for how to fill dataTable:
+    local i = 1
---[[ add a comma at the end of all lines except the
+    local x = value
-  last one in all tables.
+    while x > 1000 or x < -1000 do
-  "[required]" in front of a line means you need to
+        x = x / 1000
-  have it or the program won't work, rows with
+        i = i + 1
-  "[optional]" are optional and can be left out.
+
-  The following information can be added:
+    return ("%.3f%s%s"):format(x, prefixes[i], unit)
 end
-  [required] monitor = the side or network name
+
-            of a monitor connected to the computer.
+local function display(data)
-  [required] energy = the energy storage witch
+	monitor.clear()
-            content should be displayed on the
+	local longest_label = 0
-            monitor defined above.
+	for _, val in pairs(data) do
-  [optional] text = a word or sentence that will
+		if #val[1] > longest_label then longest_label = #val[1] end
-            be displayed at the bottom line on the
+
-            monitor.
+	local i = 1
-  [optional] blitColor = Will be ignored if its
+	for _, val in pairs(data) do
-            not a advanced monitor, specifies the
+		monitor.setCursorPos(1, i)
-            color of the graph, see following link
+		monitor.write(val[1] .. ":" .. (" "):rep(longest_label - #val[1] + 2) .. val[2])
-            for help:
+		i = i + 1
-            http://www.computercraft.info/wiki/Colors_(API)#Colors
+
-            allowed values are 0-9 and a-f,
+
-            defaults to 5 (green)
+
-  [optional] textSize = Sets how large the text is and
+local past_RF_per_tick = {}
-            how thick the graph line is.
+local history_length = 1200 / ticks_delay
-            Needs to be between 0.5 and 5 and is in
+local function display_stats()
-            steps of 0.5. eg 0.5, 1, 1.5 ... 4.5, 5
+	local previous
-            Default is 1. (5 is very large text)
+	while true do
-
+		local energy = read_energy()
-local Example = {
+		if previous then
-  {
+			local diff = energy - previous
-    monitor = "monitor_1",    <-- comma
+			local RF_per_tick = diff / ticks_delay
-    energy = "tile_blockcapacitorbank_name_0", <--comma
+			table.insert(past_RF_per_tick, RF_per_tick)
-    text = "ME Backup",     <-- comma
+			if #past_RF_per_tick > history_length then table.remove(past_RF_per_tick, 1) end
-    blitColor = "5"       <-- no comma, last line for this monitor-battery pair
+			local total = 0
-    },{         <-- comma between braces, there are more monitor-battery pairs
+			for _, h in pairs(past_RF_per_tick) do total = total + h end
-    monitor = "top",      <-- comma
+			local average = total / #past_RF_per_tick
-    energy = "back",      <-- comma
+
-    textSize = 0.5    <-- no comma, last line in this pair
+			display {
-    }       <-- no comma, this was last pair
+				{ "Time", ("%s.%03d"):format(os.date "!%X", os.epoch "utc" % 1000) },
-  }         <-- closing the example table, no comma
+				{ "Stored", SI_prefix(energy, "RF") },
 				{ "Capacity", SI_prefix(capacity, "RF") },
-  ]] -- (ignore this two brackets, they indicate
+				{ "% filled", ("%.4f%%"):format(energy / capacity * 100) },
-     -- the end of this long multi-line comment)
+				{ "Inst I/O", SI_prefix(RF_per_tick, "RF/t") },
 				{ "60s I/O" , SI_prefix(average, "RF/t") },
-------------- End of configuration part --------------------
+			}
 		end
--- Dont change anything below this line
+		previous = energy
--- if you not know what you are doing!
+		sleep(delay)
 	end
-if simpleMode then
+
-  dataTable.auto = {}
+
-
+display_stats()