Інструкція 9 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.
p = x ^ 2 E ^ (2x) + 2x E ^ (2x) + x E ^ xE^x*x + 2*E^(2*x)*x + E^(2*x)*x^2Collect[p, x]E^x + 2*E^(2*x) + E^(2*x)*xCollect[p, E ^ _]Collect[E^x*x + 2*E^(2*x)*x + E^(2*x)*x^2, E^(_)]Collect[p, E ^ _, Simplify]Collect[E^x*x + 2*E^(2*x)*x + E^(2*x)*x^2, E^(_), Simplify]poly = x ^ 2 - 3x + 22 - 3*x + x^2Coefficient[poly, x, 0]2poly /. x -> 02MonomialList[poly, x]{x^2, -3*x, 2}poly//TraditionalFormTraditionalForm[2 - 3*x + x^2]