Как решить уравнение, определенное на n-мерном векторном пространстве в Mathematica

Question

Я в Mathematica и хотел бы решить векторное уравнение, определенное в n-мерном векторном пространстве.Я пробовал это:

Assumptions = (x | w) \[Element] Vectors[n, Reals];

Solve[a Abs[b + w.x - y]^2 == c Abs[b + c.w.x - y]^2, w];

Однако я получил recursion depth exceded error during evaluation of Array[x,n] and Array[w,n].

Пожалуйста, помогите.Заранее спасибо