Hi all, I have to plot this simple rectangular curve.
NN = 100; tlc = 2*Pi/36; NI = 1000; r3 = 40*10^(-3);
an2[n_] :=
NI*(1 - Exp[I*n*Pi])*(Exp[I*n*tlc*(1/2)] - Exp[-I*n*tlc*(1/2)])/(tlc*
r3*(2*I)*n*Pi)
Plot[
Evaluate[Sum[an2[n]*Exp[-I*n*theta], {n, -NN, -1, 1}] +
Sum[an2[n]*Exp[-I*n*theta], {n, 1, NN, 1}]], {theta, 0, 2*Pi}]
I do not get a rectangular signal but another one. Can any one help Thank you