(q←(q/(\[LeftBracketingBar]q\[RightBracketingBar]))=(1/(Sqrt[(Subscript[q, 0]^2)+(Subscript[q, 1]^2)+(Subscript[q, 2]^2)+(Subscript[q, 3]^2)]))[((Subscript[q, 0])(Subscript[q, 1])(Subscript[q, 2])(Subscript[q, 3]))](15))