function Y=vector_subd(X, grade)
% VECTOR_SUBD tworzy wektor Y określony w sposób:
% dla X - wektora całkowitego o wyrazach równo odległych:
% Pomiędzy punktami tworzy "grade"  dodatkowych punktów.
% Przykładowo: vector_subd(0, 1, 3) = [0 0.25 0.5 0.75 1]
K = X';
SIZ = X(2)-X(1);
INT = linspace(0, 1, grade + 2) * SIZ;
INT = INT(1:end-1);
RES = K + INT;
Y = sort(reshape(RES, [1, numel(RES)]));
Y = Y(1:width(Y)-grade);
end