Реферат Поліноміальна інтерполяція Гаусса, Ньютона, Стірлінга

Тема: Новые рефераты

lBlue; (i - 1, Image1.Height - 20-round (scy * (PolyN1 (x0 + (i - 21) * h / scx)-miny))); (i, Image1.Height - 20-round (scy * (PolyN1 (x0 + (i - 20) * h / scx)-miny)));; CheckN2.Checked then.Color:=clGreen; (i - 1, Image1.Height - 20-round (scy * (PolyN2 ??(x0 + (i - 21) * h / scx)-miny)) ); (i, Image1.Height - 20-round (scy * (PolyN2 ??(x0 + (i - 20) * h / scx)-miny)));;; i:=0 to n do [i-(n div 2)]:=y [i];:=x0 + (n div 2) * h; i:=21 to Image1.Width - 10 doCheckG1.Checked then.Color:=clRed; (i - 1, Image1.Height -20-round (scy * (PolyG1 (x0-(n div 2) * h + (i - 21) * h / scx)-miny))); (i, Image1.Height - 20-round (scy * (PolyG1 ( x0-(n div 2) * h + (i - 20) * h / scx)-miny)));; CheckG2.Checked then.Color:=rgb (50,200,150); (i - 1, Image1.Height - 20 -round (scy * (PolyG2 (x0-(n div 2) * h + (i - 21) * h / scx)-miny))); (i, Image1.Height - 20-round (scy * (PolyG2 (x0-(n div 2) * h + (i - 20) * h / scx)-miny)));; CheckS.Checked then.Color:=clgray; (i - 1, Image1.Height - 20-round (scy * ( PolyS (x0-(n div 2) * h + (i - 21) * h / scx)-miny))); (i, Image1.Height - 20-round (scy * (PolyS (x0-(n div 2) * h + (i - 20) * h / scx)-miny)));;;;; TForm1.ZapX;:=strtofloat (EditXo.text);:=(Strtofloat (EditXn.Text)-x0) / n; i:=1 to n +1 do.Cells [i, 0]:=floattostr (x0 + pred (i) * h);; TForm1.Fact (n: integer): longint; i: integer;:=1; i:=1 to n do:=Result*i;;Tform1.C(n,k:integer):extended;:=fact(n)/(fact(k)*fact(n-k));;Tform1.Delta(k:integer;y:TArray;i:integer):extended;j:integer;:=0;j:=0 to k do:=result + intpower (- 1, j) * C (k, j) * y [k + ij];; TForm1.PolyNuton1: string;:=floattostr (y [0]); i:=1 to n do:=Delta (i, y, 0) / (fact (i) * IntPower (h, i)); z=0 then continue; (z> 0) then Result:=Result + «+» ; z <> 1 then Result:=Result + floattostr (z); j:=1 to i do:=x0 + pred (j) * h; z=0Result:=Result + «x» if z> 0 then Result:=Result+«(x-»+floattostr(z)+«)»Result:=Result+«(x»+floattostr(z)+«)»;;;Tform1.PolyN1(x:extended):extended;:=(y[0]);i:=1 to n do:=Delta (i, y, 0) / (fact (i) * IntPower (h, i)); z=0 then continue;:=z; j:=1 to i do:=x0 + pred (j) * h;:=r * (xz);:=Result + r;;; TForm1.PolyNuton2: string;:=floattostr (y [n]); i:=1 to n do:=Delta (i , y, ni) / (fact (i) * IntPower (h, i)); z=0 then continue; (z> 0) then Result:=Result + «+»; z <> 1 then Result :=Result + floattostr (z); j:=n downto n-pred (i) do:=x0 + j * h; z=0Result:=Result + «x» if z> 0 then Result:=Result+«(x-»+floattostr(z)+«)»Result:=Result+«(x»+floattostr(z)+«)»;;;Tform1.PolyN2(x:extended):extended;:=(y[n]);i:=1 to n do:=Delta (i, y, ni) / (fact (i) * IntPower (h, i)); z=0 then continue;:=z; j:=n downto n-pred (i) do :=x0 + j * h;:=r * (xz);:=Result + r;;; TForm1.PolyGauss1: string;:=floattostr (y [0]); i:=1 to n do:=Delta (i, y, - (i div 2)) / (fact (i) * IntPower (h, i)); z=0 then continue; (z> 0) then Result:=Result + «+»; z <> 1 then Result:=Result + floattostr (z); j:=- (i div 2) +1- i mod 2 to (i div 2) do:=x0 + j * h; z=0Result: =Result + «x» if z> 0 then Result:=Result+«(x-»+floattostr(z)+«)»Result:=Result+«(x»+floattostr(z)+«)»;;;Tform1.PolyG1(x:extended):extended;:=(y[0]);i:=1 to n do:=Delta (i, y, - (i div 2)) / (fact (i) * IntPower (h, i)); z=0 then continue;:=z; j:=- (i div 2) +1- i mod 2 to (i div 2) d...

Назад | сторінка 3 з 5 | Наступна сторінка

Схожі реферати:

Реферат на тему: Banking services in Russia: theory and fact

Реферат на тему: Phonetic peculiarities of the popular science text

Реферат на тему: Розробка та реалізація чисельних алгоритмів. Поліноміальна інтерполяція

Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...

Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)

Український реферат переглянуто разів: | Коментарів до українського реферату:

Коментарів до українського реферату: 0