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