reaction

pgi.ka

%agent: zero()
%agent: pgi()
%token: g6p
%token: f6p

%var: 'fwd_pgi' 0
%var: 'rvs_pgi' 0

'pgi' pgi() | 1:g6p <-> pgi() | 1:f6p @ 'fwd_pgi','rvs_pgi'

%init: 1 pgi()
%init: 0 zero()
%init: g6p <- 100
%init: f6p <- 0

%obs: 'obs_g6p' |g6p|
%obs: 'obs_f6p' |f6p|
%obs: 'obs_zero' |zero()|

%mod: repeat (|g6p| > 0 do $UPDATE 'fwd_pgi' 10) until [false]
%mod: repeat (|f6p| > 0 do $UPDATE 'rvs_pgi' 10) until [false]

%mod: repeat (|g6p| <= 0 do $UPDATE 'fwd_pgi' 0) until [false]
%mod: repeat (|f6p| <= 0 do $UPDATE 'rvs_pgi' 0) until [false]