ΠΠ΅ΡΠΎΠ΄Ρ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ: ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ°
ΠΡΠ»Π° Π½Π°ΠΏΠΈΡΠ°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π΅Ρ ΠΈΠ·ΡΡΠ΅Π½Π° ΡΡΠ½ΠΊΡΠΈΡ. ΠΡΠΎΠ²Π΅ΡΡΠΈ: ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΡ Π΄ΠΆΠΈΠ²Ρ ΡΠΎΠ·Π΅Π½Π±ΡΠΎΠΊ. ΠΠ°ΠΉΡΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ° Ρ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΡΠΌ ΡΠ°Π³ΠΎΠΌ: Π’Π΅ΠΎΡΠΈΡ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ". Func:=((y.one+h*d.one)-2)*((y.one+h*d.one)-2)*((y.one+h*d.one)-2)*((y.one+h*d.one)-2)+. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,. ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ΅ΡΠΎΠ΄Ρ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ: ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΠ‘ΠΠΠΠ‘ΠΠΠ ΠΠΠΠΠ¦ΠΠΠΠΠ«Π ΠΠΠ‘Π’ΠΠ’Π£Π’
(ΠΠΠ¦ΠΠΠΠΠΠ¬ΠΠ«Π ΠΠ‘Π‘ΠΠΠΠΠΠΠ’ΠΠΠ¬Π‘ΠΠΠ Π£ΠΠΠΠΠ Π‘ΠΠ’ΠΠ’) ΠΡΡΠ΅Ρ ΠΏΠΎ Π»Π°Π±ΠΎΡΠ°ΡΠΎΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π·Π° ΠΊΡΡΡ:
«Π’Π΅ΠΎΡΠΈΡ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ»
ΠΊΠ°ΡΠ΅Π΄ΡΡ 302
Π’Π΅ΠΌΠ°
«ΠΠ΅ΡΠΎΠ΄Ρ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ: ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ°»
ΠΡΠΏΠΎΠ»Π½ΠΈΠ»Π° ΡΡΡΠ΄Π΅Π½ΡΠΊΠ°
Π³ΡΡΠΏΠΏΡ 03−323:
ΠΠΆΠΎΠ²Π° Π.Π‘.
ΠΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Ρ:
ΠΡΠ°ΡΠΎΠ²ΡΠΊΠ°Ρ Π.Π.
ΠΠΎΡΠΊΠ²Π°
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
ΠΠ°ΠΉΡΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ° Ρ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΡΠΌ ΡΠ°Π³ΠΎΠΌ:
MIN F1(x)= (Π₯1-4)4 +(X1-3 X2)2,
Ρ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΎΠΉ X0=(1;0)
ΠΡΠ΅Π΄ΡΡΠΌΠΎΡΡΠ΅ΡΡ Π²Π²ΠΎΠ΄ ΡΠΎΡΠ½ΠΎΡΡΠΈ .
ΠΡΠΎΠ²Π΅ΡΡΠΈ: ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΡ Π΄ΠΆΠΈΠ²Ρ ΡΠΎΠ·Π΅Π½Π±ΡΠΎΠΊ
1. ΠΠ°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΡΠΊΡΡΡΠ΅ΠΌΡΠΌΠ° ΡΡΠ½ΠΊΡΠΈΠΈ F1(X) ΠΏΡΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ;
2. ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠΊΡΡΡΠ΅ΠΌΡΠΌΠ° Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡΡ ΡΠΎΡΠ½ΠΎΡΡΠΈ (=0.01, =0.1, =0.001);
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΌΠ΅ΡΠΎΠ΄Π°
ΠΡΠ°ΡΠΈΠΊΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° (1;0)
1) ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [1;0]
Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.1
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (3,8826;1,3109)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 0,269 660 220 874 356
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 3
2) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.01
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (4,0037;1,3344)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 1,4 801 924 616 0121E-7
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 3
3) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.001
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (3,9957;1,3321)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 6,387 997 156 7203E-7
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 3
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° (-2;2)
1) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.1
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (3,7289;1,2470)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 0,554 697 770 081 615
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 5
2) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.01
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (3,9867;1,3287)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 2,1 760 924 199 8115E-7
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 6
3) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.001
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (3,9907;1,3305)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 5,7 392 449 263 5677E-7
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 7
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° (4;2)
1) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.1
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (4,5855;1,5198)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 0,118 199 132 492 491
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 2
2) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.01
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (4,5914;1,5296)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 0,122 304 388 908 469
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 2
3) Π’ΠΎΡΠ½ΠΎΡΡΡ Π΅ = 0.001
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° (4,0108;1,3372)
ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ 6,237 550 527 5578E-7
ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄Π° 5
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit Xuk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class (TForm)
Edit2: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
ComboBox1: TComboBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
StringGrid1: TStringGrid;
Edit1: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Button1: TButton;
Edit3: TEdit;
Label3: TLabel;
Edit5: TEdit;
Edit8: TEdit;
procedure FormCreate (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type Tper = class (TObject)
private
one:real;
two:real;
end;
procedure schityvanie;
function func (h:real):real;
procedure sechenie (var c: real);
var
Form1: TForm1;
alfa, t1, t2,x1,x2,e, F: real;
k, j, v, q: integer;
x, y, xp, d: Tper;
xstr, ystr, dstr: string;
implementation
{$R *.dfm}
procedure TForm1. FormCreate (Sender: TObject);
begin
ComboBox1.Items.Add ('(x1−2)^4+(x1−2*x2)^2');
ComboBox1.Items.Add ('4*x1+8*x2−2*x12−2*x22');
x:=Tper.Create;
xp:=Tper.Create;
y:=Tper.Create;
d:=Tper.Create;
end;
//ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ
procedure schityvanie;
var
o, s, i, p: integer;
str, str1: string;
flaag:boolean;
begin
str1:='';
x.one:=0;
x.two:=0;
flaag:=true;
for o:=0 to 9 do
for s:=0 to Form1. StringGrid1.RowCount do
Form1.StringGrid1.Cells[o, s]: ='';
o:=0;
Form1.StringGrid1.RowCount:=10;
s:=2;
x.one:=StrToFloat (Form1.Edit2.Text);
x.two:=StrToFloat (Form1.Edit3.Text);
e:=StrToFloat (Form1.Edit4.Text);
j:=1;
Form1.stringgrid1.Cells[0,0]:='K';
Form1.stringgrid1.Cells[1,0]:='Xk/F (Xk)';
Form1.stringgrid1.Cells[2,0]:='j';
Form1.stringgrid1.Cells[3,0]:='dj';
Form1.stringgrid1.Cells[4,0]:='yj';
Form1.stringgrid1.Cells[5,0]:='shag';
Form1.stringgrid1.Cells[6,0]:='yj+1';
Form1.stringgrid1.Cells[7,0]:='d';
Form1.stringgrid1.Cells[8,0]:='shag';
Form1.stringgrid1.Cells[9,0]:='y3+shag*d';
end;
//Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ
function func (h:real):real;
begin
If Form1. ComboBox1. Text='(x1−2)^4+(x1−2*x2)^2' then
func:=((y.one+h*d.one)-2)*((y.one+h*d.one)-2)*((y.one+h*d.one)-2)*((y.one+h*d.one)-2)+
((y.one+h*d.one)-2*(y.two+h*d.two))*((y.one+h*d.one)-2*(y.two+h*d.two))
else func:=4*(y.one+h*d.one)+8*(y.two+h*d.two)-2*(y.one+h*d.one)*(y.one+h*d.one)-2*(y.two+h*d.two)*(y.two+h*d.two);
end;
//ΠΌΠ΅ΡΠΎΠ΄ Π·ΠΎΠ»ΠΎΡΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ
procedure sechenie (var c: real);
var
a, b, Fn, Fm, m, n:real;
begin
Fn:=0;
Fm:=0;
a:=StrToFloat (Form1.Edit5.Text);
b:=StrToFloat (Form1.Edit8.Text);
alfa:=0.618;
n:=a+(1-alfa)*(b-a);
m:=a+alfa*(b-a);
Fn:=func (n);
Fm:=func (m);
While (b-a)>=e do
begin
If Fn > Fm then
begin
a:=n;
n:=m;
Fn:=Fm;
m:=a+alfa*(b-a);
Fm:=func (m);
end
else
begin
b:=m;
m:=n;
Fm:=Fn;
n:=a+(1-alfa)*(b-a);
Fn:=func (n);
end;
end;
c:=(a+b)/2;
end;
//ΠΌΠ΅ΡΠΎΠ΄ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ°
procedure TForm1. Button1Click (Sender: TObject);
var
j, w, num:integer;
Shag, Zfun, per: real;
flag:boolean;
arg:string;
begin
q:=0;
k:=0;
num:=2;
j:=0;
Shag:=0;
schityvanie;
xstr:='['+FloatToStrF (x.one, ffFixed, 7,4)+';'
+ FloatToStrF (x.two, ffFixed, 7,4)+']';
y.one:=x.one;
y.two:=x.two;
Zfun:=func (0);
Form1.stringgrid1.Cells[1,2]: =FloatToStr (Zfun);
ystr:='['+FloatToStrF (x.one, ffFixed, 7,4)+';'
+ FloatToStrF (x.two, ffFixed, 7,4)+']';
flag:=false;
while not flag do
begin
for j:= 1 to num do
begin
w:=j mod 2;
inc (q);
case j of
1:
begin
d.one:=1;
d.two:=0;
end;
2:
begin
d.one:=0;
d.two:=1;
end;
end;
dstr:='['+FloatToStrF (d.one, ffFixed, 2,2)+';'
+ FloatToStrF (d.two, ffFixed, 2,2)+']';
sechenie (Shag);
If w <> 0 then
begin
inc (k);
Form1.stringgrid1.Cells[0,q]: =IntToStr (k);
Form1.stringgrid1.Cells[1,q]:=xstr;
end;
Form1.stringgrid1.Cells[2,q]:=IntToStr (j);
Form1.stringgrid1.Cells[3,q]:=dstr;
Form1.stringgrid1.Cells[4,q]:=ystr;
Form1.stringgrid1.Cells[5,q]:=FloatToStr (Shag);
y.one:=y.one+shag*d.one;
y.two:=y.two+shag*d.two;
ystr:='['+FloatToStrF (y.one, ffFixed, 7,4)+';'
+ FloatToStrF (y.two, ffFixed, 7,4)+']';
Form1.stringgrid1.Cells[6,q]: =ystr;
If q>9 then Form1. StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;
end;
xp.one:=x.one;
xp.two:=x.two;
x.one:=y.one;
x.two:=y.two;
Per:=sqr ((x.one-xp.one)*(x.one-xp.one)+(x.two-xp.two)*(x.two-xp.two));
If (per
else
begin
d.one:=x.one-xp.one;
d.two:=x.two-xp.two;
dstr:='['+FloatToStrF (d.one, ffFixed, 7,4)+';'
+ FloatToStrF (d.two, ffFixed, 7,4)+']';
sechenie (Shag);
y.one:=x.one+shag*d.one;
y.two:=x.two+shag*d.two;
ystr:='['+FloatToStrF (y.one, ffFixed, 7,4)+';'
+ FloatToStrF (y.two, ffFixed, 7,4)+']';
xstr:=ystr;
If w = 0 then
begin
Form1.stringgrid1.Cells[7,q]: =dstr;
Form1.stringgrid1.Cells[8,q]:=FloatToStr (Shag);
Form1.stringgrid1.Cells[9,q]:=ystr;
end;
If q>100 then
begin
flag:=true;
ShowMessage (`ΡΡΠ½ΠΊΡΠΈΡ Π½Π΅ ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΡΠ΅ΡΡΡ');
end;
end;
If q>2 then
begin
Zfun:=func (0);
Form1.stringgrid1.Cells[1,q]: =FloatToStr (Zfun);
end;
end;
Form1.Edit1.Text:=FloatToStr (k);
Form1.Edit6.Text:='['+FloatToStrF (x.one, ffFixed, 7,4)+';'
+ FloatToStrF (x.two, ffFixed, 7,4)+']';
Form1.Edit7.Text:=FloatToStr (Zfun);
end;
end.
Π‘Π²ΠΎΠ΄Π½ΡΠ΅ ΡΠ°Π±Π»ΠΈΡΡ
Π₯ΡΠΊ ΠΈ ΠΠΆΠΈΠ²Ρ
Π’ΠΎΡΠ½ΠΎΡΡΡ | ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° | ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ | ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ | |
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [1;0] | ||||
0.1 | [3,8826;1,3109] | 0,269 660 220 874 356 | ||
0.01 | [4,0037;1,3344] | 1,4 801 924 616 0121E-7 | ||
0.001 | [3,9957;1,3321] | 6,387 997 156 7203E-8 | ||
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [-2;2] | ||||
0.1 | [3,7289;1,2470] | 0,554 697 770 081 615 | ||
0.01 | [3,9867;1,3287] | 2,1 760 924 199 8115E-7 | ||
0.001 | [3,9907;1,3305] | 5,7 392 449 263 5677E-7 | ||
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [4;2] | ||||
0.1 | [4,5855;1,5198] | 0,118 199 132 492 491 | ||
0.01 | [4,5914;1,5296] | 0,122 304 388 908 469 | ||
0.001 | [4,0108;1,3372] | 6,237 550 527 5578E-7 | ||
Π ΠΎΠ·Π΅Π½Π±ΡΠΎΠΊ
Π’ΠΎΡΠ½ΠΎΡΡΡ | ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° | ΠΠΏΡ. Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ | ΠΠΎΠ»-Π²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ | |
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [1;0] | ||||
0.1 | [3,8825;1,3110] | 0,269 660 220 874 298 | ||
0.01 | [4,0036;1,3345] | 1,4 801 924 616 0075E-7 | ||
0.001 | [3,9956;1,3322] | 6,387 997 156 7171E-8 | ||
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [-2;2] | ||||
0.1 | [3,7288;1,2471] | 0,554 697 770 081 565 | ||
0.01 | [3,9866;1,3288] | 2,1 760 924 199 8102E-7 | ||
0.001 | [3,9906;1,3306] | 5,7 392 449 263 5629E-7 | ||
ΠΠ°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° X0 = [4;2] | ||||
0.1 | [4,5854;1,5199] | 0,118 199 132 492 464 | ||
0.01 | [4,5913;1,5297] | 0,122 304 388 908 453 | ||
0.001 | [4,0107;1,3373] | 6,237 550 527 5548E-7 | ||
ΠΡΠ²ΠΎΠ΄Ρ
Π Ρ ΠΎΠ΄Π΅ Π»Π°Π±ΠΎΡΠ°ΡΠΎΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ» ΠΈΠ·ΡΡΠ΅Π½ ΠΌΠ΅ΡΠΎΠ΄ ΠΌΠ½ΠΎΠ³ΠΎΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ Π₯ΡΠΊΠ° ΠΈ ΠΠΆΠΈΠ²ΡΠ° Ρ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΡΠΌ ΡΠ°Π³ΠΎΠΌ.
ΠΠ΅ΡΠΎΠ΄ ΠΎΡΠ½ΠΎΡΠΈΡΡΡ ΠΊ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ², Π² ΠΊΠΎΡΠΎΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ. ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ, Π² ΠΊΠΎΡΠΎΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ°ΠΊΠΎΠΉ ΠΏΠΎΠΈΡΠΊ, Π½Π°Π·ΡΠ²Π°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°ΠΌΠΈ ΡΡΠΊΠΎΡΡΡΡΠ΅Π³ΠΎ ΡΠ°Π³Π°. ΠΠ°ΠΆΠ΄Π°Ρ ΠΈΡΠ΅ΡΠ°ΡΠΈΡ ΡΡΠΈΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ°ΠΏΠΎΠ²: ΠΏΠΎΠΈΡΠΊ Π²Π΄ΠΎΠ»Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΡΡ ΠΎΡΠ΅ΠΉ, ΠΈΠ»ΠΈ, ΠΈΡΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΠΎΠΈΡΠΊ; ΠΏΠΎΠΈΡΠΊ ΠΏΠΎ ΠΎΠ±ΡΠ°Π·ΡΡ, ΠΈΠ»ΠΈ ΡΡΠΊΠΎΡΡΡΡΠΈΠΉ ΡΠ°Π³.
ΠΡΠ»Π° Π½Π°ΠΏΠΈΡΠ°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π΅Ρ ΠΈΠ·ΡΡΠ΅Π½Π° ΡΡΠ½ΠΊΡΠΈΡ
F (X) = (Π₯1-4)4 +(X1-3X2)2
ΠΠ»Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΡΡΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π±ΡΠ»ΠΈ ΠΏΡΠΎΠ²Π°ΡΡΠΈΡΠΎΠ²Π°Π½Ρ ΡΠΎΡΠ½ΠΎΡΡΡ (ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΡΠΈΡΠ΅ΡΠΈΡ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ) ΠΈ Π½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ°.
ΠΡΠ»ΠΈ ΡΠ΄Π΅Π»Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π²ΡΠ²ΠΎΠ΄Ρ:
— ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ Ρ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΎΡΠ½ΠΎΡΡΠΈ
— ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠ΄Π°Π»Π΅Π½Π½ΠΎΡΡΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΠΎΡ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Π₯ΡΠΊΠ°-ΠΠΆΠΈΠ²ΡΠ° ΠΈ Π ΠΎΠ·Π΅Π½Π±ΡΠΎΠΊΠ° ΠΏΠΎ ΡΠΈΡΠ»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ ΠΈ ΠΏΠΎ ΡΠΈΡΠ»Ρ Π²ΡΠ·ΠΎΠ²Π° ΠΎΠΏΡΠΈΠΌΠΈΠ·ΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΎΠΏΡΠΈΠΌΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π² ΠΏΠΎΠ»ΡΠ·Ρ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° Π ΠΎΠ·Π΅Π½Π±ΡΠΎΠΊΠ°. ΠΠΎ Π² ΠΌΠ΅ΡΠΎΠ΄Π΅ Π ΠΎΠ·Π΅Π½Π±ΡΠΎΠΊΠ° Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π·Π°ΡΡΠ°ΡΡ ΠΈΠ΄ΡΡ Π½Π° ΠΏΠ΅ΡΠ΅ΡΡΠ΅Ρ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΡΡΠΎΠ³ΠΎΠ½Π°Π»ΡΠ½ΡΡ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΉ.