.


:




:

































 

 

 

 


f




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];





:


: 2016-11-12; !; : 550 |


:

:

.
==> ...

1762 - | 1614 -


© 2015-2024 lektsii.org - -

: 0.024 .