((Subscript[P, R])=((ρ·(l/S)·(I^2))/m)Eq.   2)