kill(all)$ load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCalculus$

z(a,b):=a+b*%i;

Z:z(cos(2*%pi/7),sin(2*%pi/7));

f:Z+Z^2+Z^4$

realMassage(u):=realpart(fullratsimp(trigsimp(u)))$
imagMassage(u):=imagpart(fullratsimp(trigsimp(u)))$

float(realMassage(f));
float(imagMassage(f));

g:(1-Z)*(1-Z^2)*(1-Z^3)*(1-Z^4)*(1-Z^5)*(1-Z^6)$

van=facebook.com/LearningCalculus$

float(realMassage(g));
float(imagMassage(g));