function calcEQFilter(speicherort)

% Filterparameter initialisieren
N = 512;
fa = 48000;
win = nuttallwin(N+1);
flag = 'scale';

% Einzelfilter berechnen
fu = 1;     fo = 219;   f1 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 220;   fo = 380;   f2 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 381;   fo = 819;   f3 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 820;   fo = 1180;  f4 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 1181;  fo = 4819;  f5 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 4820;  fo = 7180;  f6 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 7181;  fo = 10819; f7 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 10820; fo = 13180; f8 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 13181; fo = 14819; f9 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 14820; fo = 17180; f10 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);
fu = 17181; fo = 23999; f11 = fir1(N,[fu/(fa/2), fo/(fa/2)], 'bandpass', win, flag);

% Koeffizienten zusammenstellen für filter.dat
l = 1;
for k = 1:N+1
    fx(1,l)   = f1(1,k);
    fx(1,l+1) = f1(1,k);
    l = l + 2;
    fx(1,l)   = f2(1,k);
    fx(1,l+1) = f2(1,k);
    l = l + 2;
    fx(1,l)   = f3(1,k);
    fx(1,l+1) = f3(1,k);
    l = l + 2;
    fx(1,l)   = f4(1,k);
    fx(1,l+1) = f4(1,k);
    l = l + 2;
    fx(1,l)   = f5(1,k);
    fx(1,l+1) = f5(1,k);
    l = l + 2;
    fx(1,l)   = f6(1,k);
    fx(1,l+1) = f6(1,k);
    l = l + 2;
    fx(1,l)   = f7(1,k);
    fx(1,l+1) = f7(1,k);
    l = l + 2;
    fx(1,l)   = f8(1,k);
    fx(1,l+1) = f8(1,k);
    l = l + 2;
    fx(1,l)   = f9(1,k);
    fx(1,l+1) = f9(1,k);
    l = l + 2;
    fx(1,l)   = f10(1,k);
    fx(1,l+1) = f10(1,k);
    l = l + 2;
    fx(1,l)   = f11(1,k);
    fx(1,l+1) = f11(1,k);
    l = l + 2;
end

% filter.dat speichern
dlmwrite(speicherort,fx,'delimiter','\n','precision','%.15f')
