clc; clear all; close all;
t=[0, 4,  8, 12, 16, 20, 24] %ыяес глеяас поу цимомтаи летягсеис хеялойяасиас
T=[5, 7, 10, 30, 15, 13,  5] %есты ои летягсеис хеялойяасиым аисхгтгяа

N=length(T);                 %лгйос сглатос хеялойяасиым
c=0;                         %летягтгс

%летягсеис сглеиым меоу сглатос ле тис паяелбокес
for i=1:N-1                  %циа ока та вяомийа диастглата -1
    xa=t(i);                 %ояислос 1ОУ СГЛЕъОУ [xa, ya]
    ya=T(i);
    xb=t(i+1);               %ояислос 2ОУ СГЛЕъОУ [xb, yb]
    yb=T(i+1);
    D=2;                     %вяомийо диастгла ама 2, паяелбокгс сглеиым летану [xa, ya] KAI [xb, yb]
    for x=t(i):D:t(i+1)-1    %циа вяомийес стицлес летану [xa xb], диоти аккиыс ха упокоцифе дипкес тилес
                             %(П.В. t(2)=4 ха то кабеи упоьг 2 жояес
        
        c=c+1;               %аунгсг летягтг
        t_new(c)=x;                            %апохгйеусг вяомийгс стицлгс паяелбокгс
        T_new(c)=ya+(yb-ya)*((x-xa)/(xb-xa));  %упокоцислос пкатоус паяелбокгс
    end
end

t_new(c+1)=t(N); %циати пяепеи ма сулпеяикабеи стом йаимоуяцио пимайа йаи то текеутаио 24
T_new(c+1)=T(N); %циати пяепеи ма сулпеяикабеи стом йаимоуяцио пимайа йаи то текеутаио 5

%ейтупысг апотекеслатым
fprintf('аявийа вяомийа диастглата йаи хеялойяасиес:\n');
for i=1:length(T)
    fprintf('%4d  %4.1f\n',t(i),T(i));
end

fprintf('\nмеа вяомийа диастглата ле паяелбокес KAI хеялойяасиес:\n');
for i=1:length(t_new)
    fprintf('%4d  %4.1f\n',t_new(i),T_new(i));
end

%сведиасг сглатым аявийоу йаи ле паяелбокг
figure(1)
plot(t,T,'b*--','markersize',10,'linewidth',2);
hold on;
plot(t_new,T_new,'ks--','markersize',15,'linewidth',1);
grid on;
legend('аяв. тилес хеял','аяв. + паяелбокес',1);
