Anzahl = 7

\(Einzel = 0; 
    For[k = 0, k < Anzahl, \(k++\), 
      Einzel += 
        \((\((
				
                Part[IntegerDigits[1, 2, Anzahl], Anzahl - k]
			*2)\) - 
              1)\)\ g[t - \((k - \((Anzahl - 1)\)/2)\)\ T]]; 
    Join[Auge, {Einzel}]\)

Si[t_] := If[t == 0, 1, Sin[((π t)/T)]/(((π t)/T))]

g[t_] := 
      Si[t] Cos[α ((π t)/T)]/(1 - 
            4 (α^2) ((((t/T)))^2))

α = 0

T = 1

Folge[a1_, a2_, a3_, t_] := a1 g[t + T]  + a2 g[t] + a3 g[t - T]

Plot[{Folge[1, 1, 1, t], Folge[1, 1, -1, t], 
        Folge[1, -1, 1, t], Folge[1, -1, -1, t], 
        Folge[-1, 1, 1, t], Folge[-1, 1, -1, t], 
        Folge[-1, -1, 1, t], Folge[-1, -1, -1, t]}, {t, 
        -4, 4}, PlotRange  ->  {-1.5, 1.5}]