(μ(H)=(((∑_(i=1)^n)(Subscript[H, i])*H(Subscript[R, i]))/((∑_(i=1)^n)(Subscript[HR, i]))),(Eq.   12))