ify "> i Y i Yiпеременная, яка отримує значення заданих масивів значень Y i ААмассів коефіцієнтів поліномаВВрасшіренная матриця системи уравненійССмассів Y i Г— X i < span align = "justify"> j ТТмассів X i j ? Deltaсреднеквадратічное отклоненіеm, nm, nстепень полінома і число елементів: n, m
2.3 Текст програми
.3.1 Частковий основних модулів в Delphi
procedure TForm1.Button3Click (Sender: TObject); Pl;, Bik, Delta, Yn: extended;, i, k, q, j: integer;: = 1; Pl: q = 1 then n: = StrToInt (Edit1.Text) beginq = 2 then n: = StrToInt (Edit2.Text) n: = StrToInt (Edit3.Text) end; i: = 0 to 14 do T [i]: = 0; i: = 0 to 7 do begin C [i]: = 0; A [i]: = 0 end; i: = 0 to 7 doj: = 0 to 8 do B [i, j]: = 0;. Lines.Add ('Коефіцієнти полінома ступеня =' + inttostr (n)); i: = 1 to 2 * n do begin: = 0; j: = 1 to 40 do begin [j]: = StrToFloat (stringgrid1.Cells [1, j ]);: = St + exp (i * ln (X [j])); [i]: = St;; i: = 0 to n do begin: = 0; j: = 1 to 40 do begin [j ]: = StrToFloat (stringgrid1.Cells [2, j]);: = St + exp (i * ln (X [j])) * Y [j]; [i]: = St;; [0]: = 40; i: = 0 to n doj: = 0 to n do [i, j]: = T [j + i]; i: = 0 to n do B [i, n +1]: = C [i] ; k: = 0 to n-1 doi: = k to n do begin: = B [i, k]; j: = k to n +1 doi = k then B [i, j]: = B [i, j]/BikB [i, j]: = B [i, j]/Bik-B [k, j]; end; i: = n downto 0 do
Memo1.Lines.Add ('Середньоквадратичне відхилення');
Delta: = 0; i: = 1 to 40 do begin: = 0; j: = 0 to n do begin: = 1; k: = 1 to j do St: = St * X [i];: = Yn + A [j] * St end;. Series [q]. AddXY (X [i], Yn);. Series [0]. AddXY (X [i], Y [i]) ;: = Delta + sqr (Yn-Y [i]); end;: = sqrt (Delta/40);. Lines.Add (floattostr (Delta));. Lines.Add (''); q <3 then begin q: = q +1; goto Pl;;
end;
2.3.2 Частковий основних модулів в MathCad
Обчислюємо коефіцієнти системи рівнянь:
В
Визначаємо матрицю коефіцієнтів і матрицю вільних членів системи
В В
Знаходимо коефіцієнти поліномів, вирішивши системи
В
В
2.4 Роздруківка результатів
В
Малюнок 2.2 - Вікно програми з результатами
2.5 Графічне представлення результатів
...
