n = 1;
Summa = 0;
while Summa <= n
    n = n+0.05;
    Summa = 0;
    for i = 1:n
        Summa = Summa + (2^i-i)/factorial(i);
    end
end




function Answer = FirstFunction(x,n)
    ResultSum = 0;
    for i = 1:n
        ResultSum = ResultSum + SecondFunction(x,i);
    end
    Answer = (1/5)*(x^2+x^(1/3))*ResultSum-0.5;

end


function f = SecondFunction(x,k)
    f = (x^(k-1))/(abs(log(k*x^2+0.1))+2/3);
end

a = input('Введите а ');%левая граница
b = input('Введите b '); %правая граница

NumberOfDots = input('Введите количество точек ');  % количество точек между границами

n = input('Введите n '); % число членов суммы
Step = (b-a)/NumberOfDots; % шаг по оси x
ArrayOfAnswers(1:8) = 0; % массив ответов
j = 0; % счетчик внутренний
NumberPeres = 0; % число пересечений с осью x

% вычисляет функцию в каждой точке
for i = a:Step:b
    j = j + 1;
    ArrayOfAnswers(j) = FirstFunction(i,n);
end
% построение графика
figure;plot(a:Step:b,ArrayOfAnswers,'-o');
grid on;

% расчет пересечений с осью X
SignArray = sign(ArrayOfAnswers);
for i = 1:length(SignArray)-1
    if SignArray(i+1) ~= SignArray(i) && SignArray(i+1) ~= 0
        NumberPeres = NumberPeres + 1;
    end
end




a = 0
b = 1.5
n1 = 7;
n2 = 3;
Step = 0.01;
j = 0; % счетчик внутренний
% вычисляет функцию в каждой точке
for i = a:Step:b
    j = j + 1;
    ArrayOfAnswers1(j) = FirstFunction(i,n1);
end
j = 0;
for i = a:Step:b
    j = j + 1;
    ArrayOfAnswers2(j) = FirstFunction(i,n2);
end
% построение графика
figure;plot(a:Step:b,ArrayOfAnswers1);
grid on;
hold on;
plot(a:Step:b,ArrayOfAnswers2);
legend('n=7','n=3');