Планы проведения экспериментов и компьютерные программы эффективного математического моделирования на языках Бейсик и Турбо Паскаль. Черный А.А. - 507 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

507
for J:=1 to X do
begin
I[J]:=ste(F[J],J1)+V1;
K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
end;
end;{Gb4210}
procedure GB4290;
begin
for J:=1 to X do
begin
I[J]:=ste(F[J],J1)+V1;
K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
M[J]:=ste(F[J],T1)+G1*ste(F[J],P1)+H1*ste(F[J],O1)
+K1*ste(F[J],J1)+L1;
end;
end;{GB4290}
procedure GB4170;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
end;
end;{GB4170}
procedure GB4190;
begin
for J:=1 to X do
begin
U[J]:=ste(L[J],J3)+V3;
V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
end;
end;{GB4190}
procedure GB4250;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
end;
end;{GB4250}
procedure GB4340;
begin
for J:=1 to X do
begin
P[J]:=ste(H[J],J2)+V2;
Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
+K2*ste(H[J],J2)+L2;
end;
end;{GB4340}
procedure GB4400;
begin
for J:=1 to X do 
  for J:=1 to X do
   begin
     I[J]:=ste(F[J],J1)+V1;
     K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
     L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
   end;
 end;{Gb4210}
procedure GB4290;
 begin
  for J:=1 to X do
   begin
     I[J]:=ste(F[J],J1)+V1;
     K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
     L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
     M[J]:=ste(F[J],T1)+G1*ste(F[J],P1)+H1*ste(F[J],O1)
     +K1*ste(F[J],J1)+L1;
   end;
 end;{GB4290}
procedure GB4170;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
   end;
 end;{GB4170}
procedure GB4190;
 begin
  for J:=1 to X do
   begin
     U[J]:=ste(L[J],J3)+V3;
     V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
   end;
 end;{GB4190}
procedure GB4250;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
     U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
   end;
 end;{GB4250}
procedure GB4340;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
     U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
     V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
     +K2*ste(H[J],J2)+L2;
   end;
 end;{GB4340}
procedure GB4400;
 begin
  for J:=1 to X do




                                                 507

Страницы