Fourier級数の 項までの部分和
Di[n_,x_]:=Sin[(n+1/2)x]/Sin[x/2]; Di2[n_,x_]:=Sum[Exp[I k x],{k,-n,n}]; g=Plot[{Di[4_,x_],Di2[4,x]},{x,-3Pi,3Pi}]