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

    F[1]:=A1; H[1]:=A2; L[1]:=A3; F[2]:=B1; H[2]:=A2;
    L[2]:=A3; F[3]:=A1; H[3]:=B2; L[3]:=A3; F[4]:=B1;
    H[4]:=B2; L[4]:=A3; F[5]:=A1; H[5]:=A2; L[5]:=B3;
    F[6]:=B1; H[6]:=A2; L[6]:=B3; F[7]:=A1; H[7]:=B2;
    L[7]:=B3; F[8]:=B1; H[8]:=B2; L[8]:=B3; F[9]:=A1;
    H[9]:=E2; L[9]:=E3; F[10]:=B1; H[10]:=E2; L[10]:=E3;
    F[11]:=E1; H[11]:=A2; L[11]:=E3; F[12]:=E1; H[12]:=B2;
    L[12]:=E3; F[13]:=E1; H[13]:=E2; L[13]:=A3; F[14]:=E1;
    H[14]:=E2; L[14]:=B3; F[15]:=A1; H[15]:=A2; L[15]:=E3;
    F[16]:=B1; H[16]:=A2; L[16]:=E3; F[17]:=A1; H[17]:=B2;
    L[17]:=E3; F[18]:=B1; H[18]:=B2; L[18]:=E3; F[19]:=A1;
    H[19]:=E2; L[19]:=A3; F[20]:=B1; H[20]:=E2; L[20]:=A3;
    F[21]:=A1; H[21]:=E2; L[21]:=B3; F[22]:=B1; H[22]:=E2;
    L[22]:=B3; F[23]:=E1; H[23]:=A2; L[23]:=A3; F[24]:=E1;
    H[24]:=B2; L[24]:=A3; F[25]:=E1; H[25]:=A2; L[25]:=B3;
    F[26]:=E1; H[26]:=B2; L[26]:=B3; F[27]:=E1; H[27]:=E2;
    L[27]:=E3;
  end;
 end;
end;
procedure GB4880;
 begin
  writeln(F0,'Математическая модель');
   if X=3 then
     writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J),');
   if X=9 then
     begin
 writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
 writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
 writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
 writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J),');
     end;
   if X=27 then
     begin
 writeln(F0,'Z(J)=',B[1]:10,'+',B[2]:10,'*I(J)+',B[3]:10,'*K(J)+');
 writeln(F0,'+',B[4]:10,'*P(J)+',B[5]:10,'*I(J)*P(J)+');
 writeln(F0,'+',B[6]:10,'*Q(J)+',B[7]:10,'*I(J)*Q(J)+');
 writeln(F0,'+',B[8]:10,'*P(J)*K(J)+',B[9]:10,'*K(J)*Q(J)+');
 writeln(F0,'+',B[10]:10,'*U(J)+',B[11]:10,'*I(J)*U(J)+');
 writeln(F0,'+',B[12]:10,'*P(J)*U(J)+',B[13]:10,'*I(J)*P(J)*U(J)+');
 writeln(F0,'+',B[14]:10,'*V(J)+',B[15]:10,'*I(J)*V(J)+');
 writeln(F0,'+',B[16]:10,'*P(J)*V(J)+',B[17]:10,'*U(J)*K(J)+');
 writeln(F0,'+',B[18]:10,'*U(J)*Q(J)+',B[19]:10,'*I(J)*P(J)*V(J)+');
 writeln(F0,'+',B[20]:10,'*I(J)*U(J)*Q(J)+',B[21]:10,'*P(J)*U(J)*K(J)+');
 writeln(F0,'+',B[22]:10,'*K(J)*V(J)+',B[23]:10,'*Q(J)*V(J)+');
 writeln(F0,'+',B[24]:10,'*I(J)*Q(J)*V(J)+',B[25]:10,'*P(J)*K(J)*V(J)+');
 writeln(F0,'+',B[26]:10,'*U(J)*K(J)*Q(J)+',B[27]:10,'*K(J)*Q(J)*V(J),');
     end;
   if (X=3) or (X=27) or (X=9) then
     begin
 writeln(F0,'ГДЕ');
 writeln(F0,'I(J)=F(J)^',J1:10,'+',V1:10,',');
 writeln(F0,'K(J)=F(J)^',O1:10,'+',U1:10,'*F(J)^',J1:10,'+',Q1:10);
     end;
   if (X=9) or (X=27) then
     begin
 writeln(F0,'P(J)=H(J)^',J2:10,'+',V2:10,',');




                                                    512