kill(all);

load(ntrig)$ load(atrig1)$

van=facebook.com/LearningCalculus$

f(x):=%e^cos(x)*cos(sin(x))$

I: quad_qag (f(x), x, 0, 2*%pi, 3, 'limit=10);

first(I);

float(2*%pi);

 risch (f(x),x);