I want to extract the coefficients from the following list:
list={16.2219 Sin[16.2219 t], 6.60924 Sin[6.60924 t], 13.927 Sin[
13.927 t], 2.91309 Sin[2.91309 t]}
The only way I've found it to work is if I put the exact expression for Sin in the following manner,
Coefficient[list[[1]], Sin[16.2219]]
My actual list is very long and each Sin has a different argument. In a perfect world I would like to do,
coefs = Table[Coefficient[list[[i]],Sin[t]],{i,1,Length[list]}]
Anyone have experience with this? Thanks!
Variables[list]
. $\endgroup$Coefficient[#, #2] & @@@ Thread@{list, Variables /@ list}
: i.stack.imgur.com/1zlFL.png $\endgroup$