69
SS:=SS+K[J]*Q[J]*V[J]*Y[J];
O[27]:=O[27]+(K[J]*Q[J]*V[J])*(K[J]*Q[J]*V[J]);
end;
B[27]:=SS/O[27];
end;{GB2040}
procedure GB3660(A,B,E,N,R:real; var V0,U0,Q0:real);
var L2,N0,R0,N3,N4,N5:real;
begin
N0:=(ste(A,N)+ste(B,N)+ste(E,N))/3;
R0:=(ste(A,R)+ste(B,R)+ste(E,R))/3;
L2:=2*N;
N3:=(ste(A,L2)+ste(B,L2)+ste(E,L2))/3;
N4:=N+R;
N5:=(ste(A,N4)+ste(B,N4)+ste(E,N4))/3;
V0:=-N0;
U0:=(N0*R0-N5)/(N3-N0*N0);
Q0:=-(R0+U0*N0);
end;{GB3660}
procedure GB3710(A,B,C,D,N,R,S:real; var V0,U0,Q0,I0,M0,F0:real);
var
N0,R0,S0,L2,N3,K2,R3,N4,N5,N6,N7,R4,R5,P0,Z1,Z2,Z3:real;
begin
N0:=(ste(A,N)+ste(B,N)+ste(C,N)+ste(D,N))/4;
R0:=(ste(A,R)+ste(B,R)+ste(C,R)+ste(D,R))/4;
S0:=(ste(A,S)+ste(B,S)+ste(C,S)+ste(D,S))/4;
L2:=2*N;
N3:=(ste(A,L2)+ste(B,L2)+ste(C,L2)+ste(D,L2))/4;
K2:=2*R;
R3:=(ste(A,K2)+ste(B,K2)+ste(C,K2)+ste(D,K2))/4;
N4:=N+R;
N5:=(ste(A,N4)+ste(B,N4)+ste(C,N4)+ste(D,N4))/4;
N6:=N+S;
N7:=(ste(A,N6)+ste(B,N6)+ste(C,N6)+ste(D,N6))/4;
R4:=R+S;
R5:=(ste(A,R4)+ste(B,R4)+ste(C,R4)+ste(D,R4))/4;
V0:=-N0;
U0:=(N0*R0-N5)/(N3-N0*N0);
Q0:=-(R0+U0*N0);
P0:=(N0*S0-N7)/(N3-N0*N0);
Z1:=R0*S0-R5+P0*(N0*R0-N5);
Z2:=U0*(N0*S0-N7)+U0*P0*(N0*N0-N3);
Z3:=R3-R0*R0+2*U0*(N5-N0*R0);
I0:=(Z1+Z2)/(Z3+(N3-N0*N0)*U0*U0);
M0:=I0*U0+P0;
F0:=-(S0+I0*R0+M0*N0);
end;{GB3710}
procedure GB3860(A,B,C,D,E,N,R,S,W:real;
var V0,U0,Q0,I0,M0,F0,G0,H0,K0,L0:real);
var
N0,R0,S0,W0,L2,N3,K2,R3,M2,S3,N4,N5:real;
N6,N7,N8,N9,R4,R5,R6,R7,S4,S5,P0:real;
Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z0,Z8,Z9,T7:real;
T8,T9,G3,G4,G5,G6,G7:real;
begin
N0:=(ste(A,N)+ste(B,N)+ste(C,N)+ste(D,N)+ste(E,N))/5;
R0:=(ste(A,R)+ste(B,R)+ste(C,R)+ste(D,R)+ste(E,R))/5;
S0:=(ste(A,S)+ste(B,S)+ste(C,S)+ste(D,S)+ste(E,S))/5;
W0:=(ste(A,W)+ste(B,W)+ste(C,W)+ste(D,W)+ste(E,W))/5;
L2:=2*N;
N3:=(ste(A,L2)+ste(B,L2)+ste(C,L2)+ste(D,L2)+ste(E,L2))/5;
K2:=2*R;
R3:=(ste(A,K2)+ste(B,K2)+ste(C,K2)+ste(D,K2)+ste(E,K2))/5;
M2:=2*S;