Lösungen/Solutions/F1S2Ue/Ex2

L=Lektion/Leçon-- Sprechstunde/heures de consultation
W=Work/Arbeit/Travail
A  =Anhang/  Annexe / Appendice

Remove["Global`"]

Aufgabe 1

Cos[6 φ] // TrigExpand

Aufgabe 2

<<Calculus`FourierTransform`

T  =  1:

FourierTrigSeries[Cos[φ 2  Pi]^6, φ, 
      10]

FourierTrigSeries[Cos[φ 2  Pi]^6, φ, 10] // 
      Simplify

Aufgabe 3

Apart[(3 x^2 - 2  x + 1)/(x^2 + 2  x + 1)]

Aufgabe 5

Apart[1/((x - 2) (x + 3))]

Aufgabe 6

t = Solve[w^7 == 2 + 5  I, {w}] // Flatten

tab = Table[w[k] = w /. t[[k]], {k, 1, 7}]

Sum[tab[[k]], {k, 1, 7}] // N // Chop

Sum[tab[[k]], {k, 1, 7}] // ComplexExpand // 
      FullSimplify