(Subscript[v, P])[n]=(1/(\[LeftDoubleBracketingBar](Subscript[(UnderBar[v]), L])[n]\[RightDoubleBracketingBar]))((Subscript[v, Lx])[n](Subscript[v, Bx])[n]+(Subscript[v, Ly])[n](Subscript[v, By])[n])for   n=(Subscript[N, D])+(Subscript[N, B]),…   ,N-1-(Subscript[N, D])-(Subscript[N, B])(Subscript[v, ⊥])[n]=(1/(\[LeftDoubleBracketingBar](Subscript[(UnderBar[v]), L])[n]\[RightDoubleBracketingBar]))((Subscript[v, Lx])[n](Subscript[v, By])[n]-(Subscript[v, Ly])[n](Subscript[v, Bx])[n])