((Subscript[L, r])=(Subscript[L, c])×(((Subscript[d, r]^4)×((Subscript[p, i]^2)-(Subscript[p, or]^2)))/((Subscript[d, c]^4)×((Subscript[p, i]^2)-(Subscript[p, oc]^2))))(7))