((OverBar[S])=(Subscript[(OverBar[S]), 0])+(∑_i)(Subscript[(OverBar[p]), i])(Subscript[(OverBar[S]), i])[Equation   1])