Advertisement
Guest User

Untitled

a guest
Oct 30th, 2014
144
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. f = a[x] + c1*b[x] + c2*c[x];
  2. g = Expand[f*f];
  3. h = Distribute[Integrate[g, x]];
  4. Solve[{D[h, c1] == 0, D[h, c2] == 0}, {c1, c2}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement