%% Упражнение 1
clc,clear all,close all;
fun1(@(x)1./(x.^2),100)
fun1(@(x)1./x,100)
fun1(@(x)1./x+1./(x.^2),100)
title('Сходящийся + Расходящийся');
figure(2)
fun1(@(x)1./x,100)
fun1(@(x)-1./x,100)
fun1(@(x)1./x-1./x,100)
title('Расходящийся + Расходящийся');
%% Упражнение 2
clc,clear all,close all;
syms x;
f=x/2^(x);
eps=0.001;
[k, sum]=fun2(f,eps)
f=1/factorial(x);
eps=0.001;
[k, sum]=fun2(f,eps)
%% Упражнение 3
clc,clear all,close all;
syms x;
f=(-1)^(x-1)/x;
eps=0.001;
sum=fun3(f,eps)
f=(-1)^(x-1)/x^2;
eps=0.001;
sum=fun3(f,eps)
f=(-1)^(x-1)*60/(11*(x^2+12*x+35));
eps=0.001;
sum=fun3(f,eps)
[k, sum]=fun2(f,eps)
%% Упражнение 4
clc,clear all,close all;
f1=1/n^2 %исходный
f2=1+1/(n^2*(n+1)) %сходится быстрее
%% Упражнение 5
clc,clear all,close all;
syms x;
f=x/2^(x);
eps=0.001;
[k, sum]=fun2(f,eps)