AddXY (i, f (i), '', clRED);;
2.3 Блок-схема
В
2.4 Результати
В
Малюнок 2
Рівняння: Sin (ln (x))-Cos (ln (x)) +2 ln (x)
Корені рівняння: 1.3748779Вивод: метод бісекції завжди дає наближення до дійсного значення кореня З з різних концов.Комбінація двох методів бісекції і іттерацій, значно швидше призводить до обчислення кореня З із заданою точністю.
3. Апроксимація функцій методом найменших квадратів
.1 Короткі теоретичні відомості
1. За відомим значенням і,, де - порядок аппроксимирующего рівняння (в даній задачі, де кількість експериментальних точок - 6 або 7), в циклі обчислюють,,, попередньо (до відкриття циклу) визначивши початкове значення. p>. Обчислюють,. p>. Вирішують систему рівнянь, де B - квадратна матриця коефіцієнтів, d - вектор правих частин рівнянь, a - шуканий вектор коефіцієнтів апроксимує рівняння. Рішення системи рівнянь здійснюється методом Гаусса. p>. Будують в одній системі координат апроксимуючу функцію і експериментальні точки. br/>
.2 Лістинг програми
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls, Buttons,, Math, jpeg; _Form1 = class ( TForm) _Button1: TButton; _Chart1: TChart;: TLineSeries; _BitBtn1: TBitBtn;: TPointSeries; _StringGrid1: TStringGrid; _StringGrid2: TStringGrid; _Label4: TLabel;: TImage;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton;: TRadioButton; : TRadioButton; Kovalenko_Button1Click (Sender: TObject);
{Private declarations}
{Public declarations}; matr = array [1 .. 7,1 .. 7] of real; mass = array [1 .. 7] of real; _Form1: TKovalenko_Form1;, a, c : matr; X, Y, d, YY, XX: mass;, j, k, n, m: integer;, q, f: real;
{$ R *. dfm} TKovalenko_Form1.Kovalenko_Button1Click (Sender: TObject); _Chart1.Visible: = true; _StringGrid2.Visible: = true;: = 7; i: = 1 to m +1 do [i]: = 0; d [i]: = 0; XX [I]: = 0;: = 0; q: = 0; f: = 0; [1]: = 0.5; y [1]: = -5.5; [ 2]: = 1; y [2]: = 0.55; [3]: = 1.5; y [3]: = -10; [4]: ​​= 2; y [4]: ​​= 11.5; [5]: = 2.5; y [5]: = 9.5; [6]: = 3; y [6]: = -10.2; [7]: = 3.5; y [7]: = 11.5; j: = 1 to 7do_Chart1.SeriesList. Series [1]. AddXY (x [j], y [j], '', clyellow);; RadioButton1.Checked then m: = 1; RadioButton2.Checked then m: = 2; RadioButton3.Checked then m: = 3 ; RadioButton4.Checked then m: = 4; RadioButton5.Checked then m: = 5; RadioButton6.Checked then m: = 6; [1,1]: = n; i: = 1 to m +1 dok: = 1 to m +1 do: = 0; j: = 1 to n do: = s + power (x [j], (...