Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f = Sin@a*Cos@b + Sin@a*Sin@b + Sin@a;
- poly = Series[f, {a, 0, 1}, {b, 0, 1}] // Normal
- (* a (2 + b) *)
- c = CoefficientRules[poly, {a, b}]
- {{1, 1} -> 1, {1, 0} -> 2}
- s = Select[c, Total@(#[[1]]) <= 1 &]
- {{1, 0} -> 2}
- FromCoefficientRules[s, {a, b}]
- (* 2 a *)
Add Comment
Please, Sign In to add comment