((Subscript[r, i]^″)=(Subscript[r, i])(((Subscript[s, i]^(′4/5))((5/(1+4(Subscript[s, i]^(′3))))))^(1/2))
(Subscript[(Overscript[w, →]), i]^″)=(Sqrt[((Subscript[r, i]^″)/(Subscript[r, i]))])\[LeftDoubleBracketingBar](Subscript[(Overscript[w, →]), i])\[RightDoubleBracketingBar](((Subscript[(Overscript[w, →]), i]^′)((Subscript[p, i]^′)))/(\[LeftDoubleBracketingBar](Subscript[(Overscript[w, →]), i]^′)((Subscript[p, i]^′))\[RightDoubleBracketingBar]))(41))