I want to extract coefficients of a linear formula. But my code didn't work

Asked Oct 02 '18 at 11:10

Active Oct 02 '18 at 11:15

Viewed 15 times

I want to extract coefficients of a linear formula and I wrote the following function. But it didn't work.

f = Subscript[x, 1] + Times[2, Subscript[x, 2]]
extractCoeff[f_] := Table[If[Head[f[[i]]] == Times, f[[i, 1]], 1], {i, Length[f]}]

What should I do?
Please tell me.

edited Oct 02 '18 at 11:15

asked Oct 02 '18 at 11:10

tchappy ha

2

Use SameQ (===); Equal (==) is not intended for the comparison you want to do. – J. M.'s missing motivation Oct 02 '18 at 11:15
Thank you very much, J. M. is somewhat okay. I changed my code, my code is OK now. – tchappy ha Oct 02 '18 at 11:16

0 Answers0