Peter Chinetti, Adam Sumner and Andy Huang' s Graphs for ECE 308 HW #9

3. A

Plot[Sum[Re[(1/(1+((I*2*n*π)/10)))]*(((-1))^(n+1))*(6/(n*π))*Sin[((2*n*π*t)/10)+Arg[(1/(1+((I*2*n*π)/10)))]],{n,100}],{t,0,40}]

3. B

Plot[Sum[(((-1))^(n+1))*(6/(n*π))*Sin[((2*n*π*t)/10)],{n,2,3}],{t,0,40}]

6. C

c:=.001*(10^(-3))
l:=.001*(10^(-3))
r:=10
LogLinearPlot[Abs[((1/((1/(1/(c*I*f)))+(1/r)))/(l*I*f+(1/((1/(1/(c*I*f)))+(1/r)))))],{f,(10^1),(10^4)}]
LogLinearPlot[Arg[((1/((1/(1/(c*I*f)))+(1/r)))/(l*I*f+(1/((1/(1/(c*I*f)))+(1/r)))))],{f,(10^1),(10^4)}]