Homework solution presentation: Round 2

roster={Kelly, Keith,Lisa, Kyle,MattE, Lauren, Yvonne, Roy, Sarah,Kate, MattS, Nick, Billy}

Length[roster]

order=RandomSample[roster,Length[roster]];

order[[1]]

order[[2]]

order[[3]]

order[[4]]

order[[5]]

order[[6]]

order[[7]]

order[[8]]

order[[9]]

order[[10]]

order[[11]]

order[[12]]

order[[13]]

order

Section 3.2 #5

4/Pi Integrate[Cos[x] Sin[2 k x],{x,0,Pi/2}]

Simplify[%27,Assumptions->Element[k,Integers]]

a[k_]=%

a[1]

Table[a[k],{k,1,10}]

N[%]

Manipulate[
Plot[{Cos[x],Sum[a[k]Sin[2 k x],{k,1,n}]},{x,0,Pi/2},PlotRange->{0,1.4}],
{n,1,100}]