Вольфрамальфа заменяет часть уравнения новой переменной

Этот ответ для Wolfram Mathematica, как отмечено.

Вы можете просто использовать ReplaceAll — сокращение /.

P = {
  {a + b + c + d + q/(p + a) - b c^2, a, b},
  {q, a + b + c + d + q/(p + b) - b c^2, 0},
  {1, 1, 1}}

newP =  P /. (a + b + c + d) -> s

{{-b c^2 + q/(a + p) + s, a, b}, {q, -b c^2 + q/(b + p) + s, 0}, {1, 1, 1}}

Если вам нужно извлечь заменяемый шаблон из более сложного выражения, вот несколько советов: Как сгруппировать определенные символьные выражения?