if r(i+1, j) < rmin (α-branch)

for k = A, V

Yk (i+1, j) = eqn (16), ω ≠ 0

Yk(i+1, j) = eqn (18), ω = 0

end

Y(i+1, j) = ser(YA(i+1, j),YV (i+1, j))

else

Y(i+1, j) = admit(i+1, j)

end

if r(i, j+1) < rmin (β branch)

for k = A, V

Yk(i, j+1) = eqn (16), ω ≠ 0

Yk(i, j+1) = eqn (18), ω = 0

end

Y(i, j+1) = ser(YA(i, j+1),YV (i, j+1))

else

Y(i, j+1) = admit(i, j+1)

end

Ymid (i, j) = Y(i+1, j)+ Y(i, j+1)

for k = A, V

Yk(i,j) = eqn (19), ω ≠ 0

Yk(i,j) = eqn (20), ω = 0

end

Y(i, j) = ser(ser(YV (i, j),Ymid(i, j)),YA(i, j))