# Asmar, 2.2-8, rectified cosine wave, fourier series n:='n':assume(n,integer); ans:=int((1/Pi)*abs(cos(x))*cos(n*x),x=-Pi..Pi); assume(k,integer); subs(n=2*k,ans):simplify(%); subs(n=2*k+1,ans):simplify(%);