How to define the coefficients of a polynomial to be real?

*To*: mathgroup at smc.vnet.net*Subject*: [mg100925] How to define the coefficients of a polynomial to be real?*From*: BHUPALA <bhupala at gmail.com>*Date*: Thu, 18 Jun 2009 04:54:23 -0400 (EDT)

I have a 10th order polynomial (a0+a1 z+a2 z^2 + ... + an z^10). I want to define all the coefficients to be real. I want to substitute z = 1+i and extract only real part of it. I have done this by defining Element[a0,Reals]; Element[a1,Reals];

**Follow-Ups**:**Re: How to define the coefficients of a polynomial to***From:*Carl Woll <carlw@wolfram.com>