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

  end;{OUT_F_H_L}
procedure GB2820;
 begin
   writeln(F0,'Математическая модель');
   if X=2 then
     begin
      writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
     end;
   if X=4 then
     begin
      writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
      writeln(F0,'+',B[4],'*I(J)*P(J),');
     end;
   if X=8 then
     begin
      writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
      writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
      writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
      writeln(F0,'+',B[8],'*I(J)*P(J)*U(J),');
     end;
   if X=16 then
     begin
      writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
      writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
      writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
      writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
      writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
      writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
      writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
      writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J),');
     end;
   if X=32 then
     begin
      writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
      writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
      writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
      writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
      writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
      writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
      writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
      writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J)+',B[17],'*V(J)+');
      writeln(F0,'+',B[18],'*I(J)*V(J)+',B[19],'P(J)*V(J)+');
      writeln(F0,'+',B[20],'*I(J)*P(J)*V(J)+',B[21],'*U(J)*V(J)+');
      writeln(F0,'+',B[22],'*I(J)*U(J)*V(J)+',B[23],'*P(J)*U(J)*V(J)+');
      writeln(F0,'+',B[24],'*I(J)*P(J)*U(J)*V(J)+',B[25],'*Q(J)*V(J)+');
      writeln(F0,'+',B[26],'*I(J)*Q(J)*V(J)+',B[27],'*P(J)*Q(J)*V(J)+');
      writeln(F0,'+',B[28],'*I(J)*P(J)*Q(J)*V(J)+');
      writeln(F0,'+',B[29],'*U(J)*Q(J)*V(J)+');
      writeln(F0,'+',B[30],'*I(J)*U(J)*Q(J)*V(J)+');
      writeln(F0,'+',B[31],'*P(J)*U(J)*Q(J)*V(J)+');
      writeln(F0,'+',B[32],'*I(J)*P(J)*U(J)*Q(J)*V(J),');
     end;
   if (X=2)or(X=4)or(X=8)or(X=16)or(X=32) then
     begin
      writeln(F0,'ГДЕ');
      writeln(F0,'I(J)=F(J)^',J1,'+',V1);
      writeln(F0,'Обозначение:F(J)- 1-ый фактор ');




                                                       144