Lc = diff(L)// cytokinin equilibrium

La = diff(L)// AHK repressor equilibrium

LH = diff(L)// HAM repressor equilibrium

W0 = eq([Lc], [La])// initial WUS (no CLV3 repression)

H = eq([], [LH])// HAM equilibrium

w0, h0, d0 = N(F(x, W0, H), J(x, W0, H))// monomer/dimer equilibrium

D = max_float// sum of the derivatives at current step

δ = 0.1// step size

while D > 10−10 do

C0 = eq([w0], [d0])// initial CLV3

c = diff(C0)

W = eq([Lc][La, c]) × δ + W0 × (1 − δ) // moving WUS slowly towards equilibrium

w, h, d = N(F(x, W, H), J(x, W, H))

C = eq([w][d])// new CLV3

if ${\sum }_i\left(C_0-C\right)>0$ then

W0 = W; w0 = w; d0 = d// new initial conditions

else

δ = δ × 0.1// system below equilibrium, step size decrease

end

$D={\sum }_i\frac{dw}{dt}+{\sum }_i\frac{dh}{dt}+{\sum }_i\frac{dd}{dt}+{\sum }_i\frac{dc}{dt}$// new derivatives for stopping criteria

end