* x * x = 0) then begin ('Error');; (n);;: = (3 + exp (y-1))/(1 + x * x * abs (y-sin (x)/cos (x)));; f (x: real): real;: = z (x) - (1 + Pr/100) * z (x0) ;; df (x: real): real;: = (f (x +0.00001) - f (x))/0.00001;;
{Metod polovinnogo deleniyaя} delenie; a1, b1, x, c: real;: integer; (t, 'C: 20 delenie.txt'); (t); (t, 'x', 'z (x)'); i: = 1 to k do begin (t, x0: 2:4, '', z (x0): 3:4);: = x0;: = a1 * 0.9; abs (b1-a1)> = e do begin: = (a1 + b1)/2; f (a1) * f (c) <0 then b1: = ca1: = c;;: = c; ; (t);;
{Metod Nyutona} newton; x, x1, b: real;: integer; (t, 'C: 20 newton.txt'); (t); (t, 'x' , 'z (x)'); i: = 1 to k do begin (t, x0: 2:4, '', z (x0): 3:4);: = 0.9 * x0;
В
x1: = x;: = x1-f (x1)/df (x1); abs (x-x1) <= e;
: = x;; (t);;
В
{Metod prostoy iteracii} iterac; x, x1, b: real;: integer; (t, 'C: 20 iterac.txt'); (t); (t, 'x ',' z (x) '); i: = 1 to k do begin (t, x0: 2:4,' ', z (x0): 3:4);: = 0.9 * x0;: = x; : = x1-f (x1) * lambda; abs (x-x1) <= e;: = x;; (t);;
нелінійний рівняння ітерація трансцендентний
В
begin: = 4.71; delenie;: = 4.71; newton;: = 4.71; iterac;.
Висновок
Таблиця рішень по кожному з методів записана у відповідні текстові файли (delenie.txt, newton.txt, iterac.txt). Всі методи сходяться до одних і тих же значень. Видно, що z (x) на наступному кроці на 30% більше значення на поточному кроці. br/>В
Рішення на Microsoft Excel.
Задаємо x0 = 4,71. Запишемо формулу і обчислимо z (x0). Потім знайдемо z (x) збільшуючи кожне наступне z на 30%. Тепер будемо підбирати x за допомогою В«підбір параметраВ». p> Коли всі x і z знайдені побудуємо графік.
В
Видно, що завдання, вирішена чотирма методами, дає одне і теж рішення. Отже, можна припускати, що вона виконана правильно. br/>
