Рассмотрение методов статистического анализа нелинейных динамических систем. Характеристика метода интерполяционных полиномов. Обоснование выбора программного обеспечения. Построение графика функции и интерполяционного многочлена формуле Лагранжа.
Данный метод применяется для статистического анализа нелинейных динамических систем, математическое описание которых может быть представлено в виде: (1) (8) где - значения функции при нулевых значениях случайных величин, - частные производные от функции по случайным величинам, вычисленные при их нулевых значениях. Для устранения этой проблемы выбирается N различных комбинаций значений для входных случайных величин, называемых в дальнейшем эквивалентными возмущениями: Решив N раз систему (1), получим N решений . Пусть для первой случайной величины V1 выбраны определенным образом q1 вариантов узлов интерполирования ; для произвольной j-й случайной величины Vj выбраны qj вариантов узлов интерполирования ; для последней m-й случайной величины Vm выбраны qm вариантов узлов интерполирования . Доказано, что если в качестве узлов интерполирования выбрать корни ортогональных полиномов по весу, равному плотности распределения случайной величины p(V), то при использовании n узлов интерполирования данный метод дает точные значения в классе многочленов всех степеней до степени q=2n-1 включительно.По заданной функции был построен ее график и интерполяционный многочлен, который был найден с помощью формулы интерполяционного полинома Лагранжа.статистический нелинейный интерполяционный полином interface uses Windows, Messages, SYSUTILS, Variants, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS, EXTCTRLS, COMCTRLS, TEENGINE, Series, TEEPROCS, Chart; procedure BPAINTCLICK(Sender: TOBJECT); procedure COMBOBOXNCHANGE(Sender: TOBJECT);implementation uses begin if f1.COMBOBOXFUNCTION.ITEMINDEX = 0 then f := sin(pi * x) else if f1.COMBOBOXFUNCTION.ITEMINDEX = 1 then f := cos(pi * x) else f := (x * x - 1) * sin(4 * x); begin for i := 0 to n do begin p := 1; begin result := Lagrange(x) end;Chart1.LEFTAXIS.Automatic := True; Chart1.BOTTOMAXIS.Automatic := False; Series1.Clear; Series2.Clear; Series1.SERIESCOLOR := CLGREEN;if ledita.Text = "" then ledita.Text := "0"; if (leditb.text = "") or (strtofloat(ledita.Text) >= strtofloat(leditb.Text)) then leditb.Text := floattostr(strtofloat(ledita.Text) 1); for i := 0 to n do begin x[i] := strtofloat(ledita.Text) i * h; for i := 1 to n 1 do begin rr[i, 1] := strtofloat(ledita.Text) (i - 1) * h; if (f1.leditb.text = "") or (strtofloat(f1.ledita.Text) >= strtofloat(f1.leditb.Text)) then f1.leditb.Text := floattostr(strtofloat(f1.ledita.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
