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

Leave a Reply

Your email address will not be published. Required fields are marked *