alias battery d0
alias thresholdfrac d1
#alias sensor d2
alias nitrolyzer d3
alias heater d4
alias filter d5

define DEFAULTFRAC 0.6
define MAXPRESSURE 1000

alias batteryfrac r15
alias minfrac r14
alias pressure r13
alias run r12

start:

yield

l batteryfrac battery Setting
move minfrac DEFAULTFRAC
bdns thresholdfrac nothreshold
l minfrac thresholdfrac Setting
nothreshold:

mul r0 0.01 run
add batteryfrac r0 batteryfrac # include some hysteresis

s db Setting batteryfrac
sgt run batteryfrac minfrac


l r0 nitrolyzer PressureOutput
slt r0 r0 MAXPRESSURE
and run r0 run

bdns filter nofilter
l r0 filter PressureOutput
slt r0 r0 1000 # if we have enough in the N2O pipeline, don't make more
and run r0 run

nofilter:

s nitrolyzer On run

bdns heater noheater

l r0 nitrolyzer TemperatureOutput
slt r0 r0 275
l r1 nitrolyzer PressureOutput
sgtz r1 r1
and r0 r0 r1
s heater On r0

noheater:

j start