([formula   16] evaluation   value:s←s+{((Subscript[α, t])   …   (Subscript[d, t])<(Subscript[Th, t,1])   and   (Subscript[Th, t,2])<(Subscript[d, t])-(Subscript[α, t])   …   otherwise)(17))