Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 81 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

81
forJ:=1toXdo
begin
SS:=SS+U[J]*Q[J]*V[J]*Y[J];
O[29]:=O[29]+(U[J]*Q[J]*V[J])*(U[J]*Q[J]*V[J]);
end;
B[29]:=SS/O[29];
SS:=0;O[30]:=0;
forJ:=1toXdo
begin
SS:=SS+I[J]*U[J]*Q[J]*V[J]*Y[J];
O[30]:=O[30]+(I[J]*U[J]*Q[J]*V[J])*(I[J]*U[J]*Q[J]*V[J]);
end;
B[30]:=SS/O[30];
SS:=0;O[31]:=0;
forJ:=1toXdo
begin
SS:=SS+P[J]*U[J]*Q[J]*V[J]*Y[J];
O[31]:=O[31]+(P[J]*U[J]*Q[J]*V[J])*(P[J]*U[J]*Q[J]*V[J]);
end;
B[31]:=SS/O[31];
SS:=0;O[32]:=0;
forJ:=1toXdo
begin
SS:=SS+I[J]*P[J]*U[J]*Q[J]*V[J]*Y[J];
O[32]:=O[32]+(I[J]*P[J]*U[J]*Q[J]*V[J])*
(I[J]*P[J]*U[J]*Q[J]*V[J]);
end;
B[32]:=SS/O[32];
end;{GB1110}
procedureGB2480(A,B,N:real;varV0:real);
begin
V0:=‐(ste(A,N)+ste(B,N))/2;
write('Коэффициентортогонализации');
write(F0,'Коэффициентортогонализации');
end;{GB2480}
procedureGB2490;
begin
forJ:=1toXdo
I[J]:=ste(F[J],J1)+V1;
end;{GB2490}
procedureGB2500;
begin
forJ:=1toXdo
P[J]:=ste(H[J],J2)+V2;
end;{GB2500}
procedureGB2510;
begin
forJ:=1toXdo
U[J]:=ste(L[J],J3)+V3;
  for J:=1 to X do
   begin
     SS:=SS+U[J]*Q[J]*V[J]*Y[J];
     O[29]:=O[29]+(U[J]*Q[J]*V[J])*(U[J]*Q[J]*V[J]);
   end;
  B[29]:=SS/O[29];
  SS:=0; O[30]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*U[J]*Q[J]*V[J]*Y[J];
     O[30]:=O[30]+(I[J]*U[J]*Q[J]*V[J])*(I[J]*U[J]*Q[J]*V[J]);
   end;
  B[30]:=SS/O[30];
  SS:=0; O[31]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*U[J]*Q[J]*V[J]*Y[J];
     O[31]:=O[31]+(P[J]*U[J]*Q[J]*V[J])*(P[J]*U[J]*Q[J]*V[J]);
   end;
  B[31]:=SS/O[31];
  SS:=0; O[32]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*U[J]*Q[J]*V[J]*Y[J];
     O[32]:=O[32]+(I[J]*P[J]*U[J]*Q[J]*V[J])*
     (I[J]*P[J]*U[J]*Q[J]*V[J]);
   end;
  B[32]:=SS/O[32];
 end;{GB1110}
procedure GB2480(A,B,N:real; var V0:real);
 begin
  V0:=‐(ste(A,N)+ste(B,N))/2;
  write('Коэффициент ортогонализации ');
  write(F0,'Коэффициент ортогонализации ');
 end;{GB2480}
procedure GB2490;
 begin
  for J:=1 to X do
   I[J]:=ste(F[J],J1)+V1;
 end;{GB2490}
procedure GB2500;
 begin
  for J:=1 to X do
   P[J]:=ste(H[J],J2)+V2;
 end;{GB2500}
procedure GB2510;
 begin
  for J:=1 to X do
   U[J]:=ste(L[J],J3)+V3;
                                                                 81

Страницы