(cos β(((E-C)·((Subscript[P, c])-C))/(\[LeftBracketingBar]E-C\[RightBracketingBar]\[LeftBracketingBar](Subscript[P, c])-C)\[RightBracketingBar]))[Equation   6])