(Subscript[d, i])=(Subscript[r, i])+((D-Σ (Subscript[e, i]))/(Σ (Subscript[e, i])))*(Subscript[e, i]),