Приёмы работы в Mathematica

Почистить всю память:

ClearAll["Global`*"]

Взять знаменатель:

Denominator[A]

Взять числитель:

Numerator[А]

Привести подобные для какой-либо переменной:

Collect[exp, x]