%%   ЦспнфйуфЮсйп 23 ПкфщвсЯпх 2015
clear all
close all
clc
%%   Дйбнэумбфб кбй рЯнбкет
grammi = [1 2 3 4 5];
a = 1:5;
disp(a);
b = linspace(1,5,5);
disp(b);
disp(size(b));
stili = [1;2;3;4;5];
disp(stili);
disp(a');
clear all
a = ones(1,8);
b = repmat([1 -1],1,4);
disp(b);
disp(find(b==-1));
disp(a+b);
disp(a.*b);
disp(b.^2);
disp(prod(b));
disp(sin(0.25*pi*b));
disp(sum(a.*b));
disp(a*b');
A = a'*b;
disp(A);
disp(size(A));
disp(b'*a);
disp(A');
B = [ones(2,2) zeros(2,2); zeros(2,2) ones(2,2)];
disp(B);
disp(trace(B));
C = A(1:4,1:4)*B;
disp(C);
D = B*A(1:4,1:4);
disp(D);
%% Дэп дйбксйфЬ уЮмбфб
clear all
close all
n=0:31;
x = [1 zeros(1,31)];  % impulse дЭлфб
figure; stem(n,x,'LineWidth',2);
x = [ones(1,16) zeros(1,16)];    % рблмьт
figure; stem(n,x,'LineWidth',2);
x = ones(32,1);       % step мпнбдйбЯп вЮмб (мЭспт)
figure; stem(n,x,'LineWidth',2);
%% Дэп ресйпдйкЬ уЮмбфб
close all
t = linspace(-1,1,101);
y = square(10*pi*t);   % фефсбгщнйкьт рблмьт
figure;plot(t,y,'LineWidth',2);
clear all
fs = 1000;
t = 0:1/fs:1;
x = sawtooth(2*pi*10*t);   % рблмьт рсйпнйпэ (фсЯгщнб)
figure;plot(t,x,'LineWidth',2), axis([0 1 -1 1]);
%% ухнЬсфзуз sin(pi x)/pi x (Matlab)
close all;
x = linspace(-5,5,101);
y = sinc(x);         
figure;plot(x,y,'LineWidth',2);grid;
%% УхнЭлйоз дйбксйфюн узмЬфщн
close all
clear all
x=ones(1,11);   % бсчЮ уфз иЭуз 6, дзлбдЮ екфеЯнефбй брь -5 Эщт +5
h = [1 2 1];   % бсчЮ уфз иЭуз 2, дзлбдЮ екфеЯнефбй брь -1 Эщт +1
y=conv(h,x);   % з брьксйуз екфеЯнефбй брь -6 Эщт +6
figure;stem(-6:6,y,'MarkerFaceColor',[0.75,0.75,0]);
% 3з уейсЬ букЮуещн, Ьукзуз 4в
figure;stem(0:12,y,'MarkerFaceColor',[0.75,0.75,0]); 
h = [1 -1];
y=conv(h,x); 
% 3з уейсЬ букЮуещн, Ьукзуз 4б
figure;stem(0:11,y,'MarkerFaceColor',[0.75,0.75,0]);
x = randn(1,100);  % бсчЮ уфз иЭуз 1, дзлбдЮ екфеЯнефбй брь 0 Эщт 99 
h = [1 2 1];   % бсчЮ уфз иЭуз 2, дзлбдЮ екфеЯнефбй брь -1 Эщт +1
y=conv(0.25*h,x);  % з брьксйуз екфеЯнефбй брь -1 Эщт +100
figure;stem(-1:100,y);
hold on; stem(-1:100,[0 x 0],'r');
%% Еойуюуейт дйбцпсюн
clear all
close all
b = 1; 
alpha = 0.97;
a = [1 -alpha];
x=[1 zeros(1,99)];           % д(n)
y = filter(b,a,x);
figure; stem(0:99,y,'x','LineWidth',2);
x = [alpha.^(0:49) zeros(1,50)];   
y = filter(b,a,x);      % y(n) = alpha*y(n-2)+x(n)
figure; stem(0:99,x,'g','MarkerFaceColor',[0.75,0.75,0]);
hold on; stem(0:99,y,'x','LineWidth',2);
x=ones(1,100);           % u(n)
y = filter(b,a,x);
figure; stem(0:99,x,'g','MarkerFaceColor',[0.75,0.75,0]);
hold on; stem(0:99,y,'x','LineWidth',2);
x=[ones(1,50) zeros(1,50)];   % u(n)-u(n-50)
y = filter(b,a,x);
figure; stem(0:99,x,'g','MarkerFaceColor',[0.75,0.75,0]);
hold on; stem(0:99,y,'x','LineWidth',2);