L=(Subscript[N, mfp])+672(1-R)-((Subscript[N, CBPB])/2)    and   \[LeftBracketingBar]P 0-((Subscript[N, P])/2)\[RightBracketingBar]+PL<((Subscript[N, P])/2)