h=f-g
, - , { }, ,
.
(3.1) . , , . - , , .
: , ,
, .
, (3.1):
. , , , .
. .
b={19,17,5,17,6};
A B
R=LinearSolve[A,B]
, Mathematica , .
.
.
(4.1)
- . . .
- . Mathematica (4.1) . .
A=Table[(i+j)/(i^2+j^2),{i,1,6},{j,1,6}];
MatrixForm[A]
f=Expand[X.A.X]
, . , , .
, .
, .
. - . ( ):
(4.2)
, . .
|
|
( ): , ,
. (4.3)
.
<< LinearAlgebra`MatrixManipulation`
A=Table[(i+j)/(i^2+j^2),{i,1,6},{j,1,6}];
D=Table[Det[SubMatrix[A,{1,1},{k,k}]],{k,1,6}]
, .
(4.1)
(4.4)
(4.5)
, , .
, .
, , ..
. (4.6)
. (4.1) (4.6) , (4.6) (4.1). .
(4.1) . , ..
, , . , . , . . , .
.
.
A H=A
H
H[[2]]=H[[2]]+2*H[[1]];
H[[3]]=H[[3]]-H[[1]];
H[[4]]=H[[4]]+H[[1]];
MatrixForm[H]
H[[3]]=H[[3]]+H[[2]];
H[[4]]=H[[4]]-H[[2]]/3;
MatrixForm[H]
H[[3,3]]=1;H[[4,4]]=1;
T=Inverse[H];