Guest User

Untitled

a guest
Jul 21st, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. exp1=0.5/rr^2+ b/rr+c rr^3 + f rr^2;
  2.  
  3. expr = FullSimplify@Sum[c[k] x^(k - 4), {k, 7}]
  4.  
  5. Select[ List @@ ExpandAll[expr], (Abs[# /. x -> 0] == Infinity) &]
Add Comment
Please, Sign In to add comment