Скачиваний:
26
Добавлен:
28.12.2014
Размер:
385 б
Скачать
a=1;
b=pi/20;
k=[0;40];
X=randn(1,400);
plot (X);
for k=1:40
C(k)=(a/(sqrt(pi*b)))*(sin(b*k)/k);
end


for k=1:40
L(k)=C(k)*X(i+k);%кси
S(i)=S(i)+L(k);


end


figure;
plot (S);
title ('massiv');
xlabel 'i';
ylabel 'S';
M=mean(S);
for i=1:360
R(i)=0;
for k=1:40
R(i)=M*(S(k)*S(k+i));
end
end
figure;
plot (R);

Соседние файлы в папке Лабораторные