Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2014
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.57 KB | None | 0 0
  1. a*z^2 + b*(z - c)^2 == d
  2.  
  3. ComplexExpand[a*z^2 + b*(z - c)^2, {_}]
  4.  
  5. ComplexExpand[a*z^2 + b*(z - c)^2, {_}] /. a_ + Complex[0, 1] b_ :> Simplify[a] + I Simplify[b]
  6. (*
  7. -Im[c]^2 Re[b] - Im[z]^2 (Re[a] + Re[b]) + Re[b] Re[c]^2 -
  8. 2 Re[b] Re[c] Re[z] + Re[a] Re[z]^2 + Re[b] Re[z]^2 +
  9. 2 Im[b] Im[c] (-Re[c] + Re[z]) +
  10. 2 Im[z] (Im[c] Re[b] + Im[b] (Re[c] - Re[z]) - Im[a] Re[z]) +
  11. I (Im[b] (-Im[c]^2 + 2 Im[c] Im[z] - Im[z]^2 + (Re[c] - Re[z])^2) +
  12. Im[a] (-Im[z]^2 + Re[z]^2) + 2 (Im[c] Re[b] (Re[c] - Re[z]) +
  13. Im[z] (Re[a] Re[z] + Re[b] (-Re[c] + Re[z]))))
  14. *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement