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