if  (t-(Subscript[t, 0])+((D[i])/Y)<d)