Как автоматически собрать конструкцию на Wolfram Mathematicа?

Question

[Михаил]

Необходимо автоматически получить выражение:
q1[x _] = 2 x - 1;
Вручную это выражение так и пишется.
А если разное кол-во переменных, и приравниваются различные полиномы ?

Apply[q1,Thread[Apply[List, {x}]_]] даёт: q1[x _]

Попытка: Apply[q1,Thread[Apply[List, {x}]_]] = 2 x - 1; выдаёт:
Set::write: Tag Apply in q1 @@ {x _} is Protected.

Кто сталкивался с этим и решил проблему?

Answer 1

[Михаил]

Вопрос решён за пол-часа вконтакте в тот же день Леонидом Шифриным.Спасибо ему.