ИЭ (станции+реле лектор Горячевский) / Лабы / лаба 7 / lab_7_my

function [] = lab_7()

%очистить экран

%в качестве исходного данного возьмем модуль напряжений
%с предыдущих расчетов

U = [
9.94;
10.09;
9.96;
10.01;
10.09;
10.09];


f = 50; %частота основной гармоники
w = 2 * pi * f; %круговая частота 314 Гц
T = 1 / f; %период частоты 50 Гц = 20 мс
dt = 0.00001; %шаг дискретизации по оси времени

%задаём значения по оси времени как простой массив значений
t = 0:dt:T;
%генерируем функцию в каждой точке оси времени
%значения предыдущих расчетов теперь используются просто как
%коэффициенты
u = U(1)+U(2)*cos(w*t)+U(3)*sin(w*t)+U(4)*cos(2*w*t)+U(5)*sin(3*w*t)+U(6)*cos(4*w*t);

%постоянная составляющая
a_0 = (1 / T) * sum(u * dt);

%определяем гармоники с первой по шестую
for n = 1:6
%записываем интеграл по методу левых прямоугольников
%пробегаем все значения функции по оси t и суммируем их
%сначала определяем коэффициенты A, потом B
summ = 0;
for k = 1:length(t)
summ = summ + u(k)*cos(n*w*t(k)) * dt;
end
a(n) = (2/T) * summ;

summ = 0;
for k = 1:length(t)
summ = summ + u(k)*sin(n*w*t(k)) * dt;
end
b(n) = (2/T) * summ;

end

%прямое преобразование фурье
dw = 1;
W = -6*w:dw:6*w;
for k = 1:length(W)
F(k) = 0;
for j=1:length(t)
F(k) = F(k) + u(j)*exp(-1i*W(k)*t(j))*dt;
end
F(k) = F(k);
end

%обратное преобразование фурье
for k = 1:length(t)
U1(k) = 0;
for j = 1:length(W)
U1(k) = U1(k) + F(j)*exp(1i*t(k)*W(j))*dw;
end
U1(k) = U1(k)/(2*pi);
end



%восстановление графика по коэффициентам Фурье
%n - номер гармоники
summ = 0;
for n=1:6
summ = summ + a(n)*cos(n*w*t) + b(n) * sin (n*w*t);
end
%добавляем постоянную составляющую
u1 = a_0 + summ;

%вывести на график. функция subplot делит график на две части
%три аргумента - кол-во графиков по оси X, по оси Y, номер графика
subplot(2,2,1)
plot(t,u,'.-b',t, u1,'-r', 'LineWidth', 1.2) ;%на первый график выводим синусоиды
subplot(2,2,3)
bar([a' b'],'grouped'); % на второй - столбцы
legend('a','b')
%график преобразования фурье
subplot(2,2,2)
plot(W,abs(F),'.-b')
%восстановленный график
subplot(2,2,4)
plot(t,U1,'.-r')
end

%Отчёт загрузить в папку Гр.90201/Л.Р. №7 до 18:00 26.11.2021