R = 1000;
C = 10^-6;
y = R*C;
fd=1000;
t = 0:1/fd:(1-1/fd);
h = 1/y+exp(-t/y);
x = stac_seka2(1,000.5,0.5,50,fd);
plot(x);

y = convmtx(h,x');
plot(y);

%h = 1/y+exp(-t/y);

%plot(t,h);

%spektras_1(h,fd);
%hold on;
%spektras_1(h,1200);
%hold on;

%spektras_1(h,100);