on;
save Vozmyshyayushee_Vozdeistvie_Discrete_Revers w_discrete_rev
% ---------------------------------------------- --------------------------%
Zadayushee_Vozdeistvie_Discrete_Revers_Modern.m
% Отримання дискретних значень задає впливу у зворотному часу
% для знаходження допоміжної функції q (t)
function Zadayushee_Vozdeistvie_Discrete_Revers_Modern (h, T_nach, T_konech)
% -------------------------------------------------- ----------------------%
% Задає вплив
alfa = 0.2;
beta = 10;
H = 0.8;
k = 1;
for t = T_konech:-h: T_nach
X_o_1 = 10 * exp (-1/5 * t) * t +4/5;
X_o_2 = -2 * exp (-1/5 * t) * t +10 * exp (-1/5 * t);
X_o_3 = 2/5 * exp (-1/5 * t) * t-4 * exp (-1/5 * t);
X_o_4 = -2/25 * exp (-1/5 * t) * t +6/5 * exp (-1/5 * t);
X_o_5 = 2/125 * exp (-1/5 * t) * t-8/25 * exp (-1/5 * t);
X_o_discrete_rev (:, k) = [X_o_1; X_o_2; X_o_3; X_o_4; X_o_5];
k = k + 1;
end
figure (2)
t = T_konech:-h: T_nach;
plot (t, X_o_discrete_rev (1, :), 'r-', t, X_o_discrete_rev (1, :)-H, 'LineWidth', 2);
xlabel ('t')
tit1 = Title ('Задаючий вплив');
set (tit1, 'FontName', 'Courier');
hl = legend ('Відстеження зад. пов. на H ',' Задаючий вплив ', 0);
set (hl, 'FontName', 'Courier');
grid on;
save Zadayushee_Vozdeistvie_Discrete_Revers X_o_discrete_rev
% -------------------------------------------------- ----------------------%