Упражнение 4

Упражнение 3

Положив вывести 10 первых членов последовательности заданной рекуррентной формулой Сделать вывод.

function szhim

i=1;

x(i)=3;

plot(i, x(i), '*')

hold on

grid on

xlabel('n'), ylabel('x(n)');

for i=2: 10

pause(0.5)

x(i)=tan(x(i-1));

plot(i, x(i), '*')

end

line([-1 0; i+1 0], [0 -1; 0 x(1)+1], 'LineWidth', 1, 'Color', 'black')

x = 3

x = -0.1425

x = -0.1435

x = -0.1445

x = -0.1455

x = -0.1466

x = -0.1476

x = -0.1487

x =-0.1498

x = -0.1509

Вывод: Последовательность расходится.

Упражнение 4

Создать M-функцию для решения уравнения с заданной точностью с выводом последовательности приближений. Входными параметрами являются функция параметр сжатия начальное приближение точность решения Проверить работу для уравнения из примера 2. С точностью 0.0001 решить уравнение Сравнить с ответом, полученными при непосредственном решении в МatLab.

function [xx, x]=resh(fun, a, x1, eps)

i=1;

xx(i)=x1;

plot(i, xx(i), '*');

hold on

grid on

i=2;

xx(i)=subs(fun, xx(i-1));

plot(i, xx(i), '*');

ro=abs(xx(1)-xx(2));

while (((a^i)*ro)/(1-a)> =eps)

xx(i)=subs(fun, xx(i-1));

plot(i, xx(i), '*');

i=i+1;

end

xx(i)=subs(fun, xx(i-1));

x=xx(i);

1)> > [a b]=resh('atan(x)+pi', 0.2884, 3, 0.001)

a =