Clear["Global`*"]; expr = 3 – 2 x + 7 x^2.1 + x^2.4 – 5 x^3; Transpose[{Exponent[#, x], # /. x -> 1}] & /@ List @@ expr. {{0, 3}, {1, -2}, {2.1, …
Source link
How to extract coefficients and powers from expressions with non integer powers?
Clear["Global`*"]; expr = 3 – 2 x + 7 x^2.1 + x^2.4 – 5 x^3; Transpose[{Exponent[#, x], # /. x -> 1}] & /@ List @@ expr. {{0, 3}, {1, -2}, {2.1, …
Source link