Моделирование технических систем. Дьячков Ю.А - 144 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

144
Procedure opt;
begin
for ij:=1 to n do
begin
y1[ij]:=(dsn[ij]+x1[ij]*dux[ij]);
end;
z:=125-2*y1[1]+3*y1[2]+2*y1[1]*y1[1]-
0.67*y1[2]*y1[2]+1.35*y1[1]*y1[2];
g:=13.67-y1[1]*y1[1]+1.34*y1[1]*y1[2]+
y1[2]*y1[2];
end;
Procedure zap;
begin
zm:=z; xz:=y1[1];
yz:=y1[2]; gm:=g;
end;
Procedure prir;
begin
i:=i+1;
x1[i1]:=x1[i1]+dx;
if abs(x1[i1])<=1 then
begin
opt;
x1[i1]:=x11;
if (z>zm) and (g<gpr) then
begin
zap;
j9:=i1;
xdx:=dx;
end;
end;
if abs(x1[i1])>1 then x1[i1]:=x1[i1]-dx;
end;
Procedure prirasc;
begin
il:=il+1;
for i1:=1 to n do
begin 
Procedure opt;
begin
for ij:=1 to n do
begin
y1[ij]:=(dsn[ij]+x1[ij]*dux[ij]);
end;
z:=125-2*y1[1]+3*y1[2]+2*y1[1]*y1[1]-
0.67*y1[2]*y1[2]+1.35*y1[1]*y1[2];
g:=13.67-y1[1]*y1[1]+1.34*y1[1]*y1[2]+
 y1[2]*y1[2];
end;

Procedure zap;
begin
zm:=z; xz:=y1[1];
yz:=y1[2]; gm:=g;
end;

Procedure prir;
begin
i:=i+1;
x1[i1]:=x1[i1]+dx;
if abs(x1[i1])<=1 then
begin
opt;
x1[i1]:=x11;
if (z>zm) and (g1 then x1[i1]:=x1[i1]-dx;
end;

Procedure prirasc;
begin
il:=il+1;
for i1:=1 to n do
begin
                            144

Страницы