.


:




:

































 

 

 

 





Mathematica

Mathematica.

, . , . , , - .

 

. ,

, , . , .

.

, , - .

. , .

, , , , , , ,- ( .

.

, , , .

, , .

Mathematica.

 

 

. . .

 

 

A={{5,8,12},{6,4,7},{9,11,6}}

 

{{5,8,12},{6,4,7},{9,11,6}}

MatrixForm , .. .

 

MatrixForm[A]

 

 

 

c Mathematica , . BasicInput. . . , Ctr Enter . .

 

 

.

 

 

 

, , A, ,

 

A,

 

A[[2]]

{6,4,7}

Mathematica.

1. .

.

 

 

2. .

 

.

 

 

3. .

 

. .

 

4. .

 

( ). ,

 

, , ,

, .

 

 

(). . . - , .. . - , .. . .

, , , .

 

 

5. .

 

: , - .. .

 

 

6. .

 

:

1. .

2. .

3. , .

Mathematica.

 

 

 

12.

 

 

, 13.

 

 

. , , , . , . , .

 

 

.

. . , . , , , , .

, . , .

.

 

 

. .

A[[1]]=A[[1]]/A[[1,2]];

 

, , .

A[[2]]=A[[2]]-A[[1]]*A[[2,2]];

A[[3]]=A[[3]]-A[[1]]*A[[3,2]];

A[[4]]=A[[4]]-A[[1]]*A[[4,2]];

MatrixForm[A]

. .

Max[Abs[{A[[2]],A[[3]],A[[4]]}]];

 

 

. .

A[[3]]=A[[3]]/A[[3,5]];

, , .

A[[1]]=A[[1]]-A[[3]]*A[[1,5]];

A[[2]]=A[[2]]-A[[3]]*A[[2,5]];

A[[4]]=A[[4]]-A[[3]]*A[[4,5]];

MatrixForm[A]

. .

Max[Abs[{A[[2]],A[[4]]}]]

 

.

A[[4]]=A[[4]]/A[[4,3]];

, , .

A[[1]]=A[[1]]-A[[4]]*A[[1,3]];

A[[2]]=A[[2]]-A[[4]]*A[[2,3]];

A[[3]]=A[[3]]-A[[4]]*A[[3,3]];

MatrixForm[A]

.

Max[Abs[A[[2]]]]

 

. .

A[[2]]=A[[2]]/A[[2,4]];

, , .

A[[1]]=A[[1]]-A[[2]]*A[[1,4]];

A[[3]]=A[[3]]-A[[2]]*A[[3,4]];

A[[4]]=A[[4]]-A[[2]]*A[[4,4]];

MatrixForm[A]

 

 

Mathematica , . , , , , .

.

 

 

7. .

 

 

Mathematica , , . .

 

Det[A]

78853750347132695363584/30947323736623528969

 

, .

 

X=Table[x[n],{n,1,8}];

 

.

Det[B];

 

Factor[%]

 

8. .

 

 

- , , . . ,

.

Mathematica

 

10 .

 

- , , . . . , , .

, Mathematica.

 

 

, .

- . ,

.

Mathematica

.

 

11. .

, , . , , .

, .

, Mathematica .

 

 

2. .

 

, ( ) .

Mathematica

. (2.1)

() . Mathematica

, - , .

, .

, .

, , , . , , .

f1={3,8,11};

f2={5,-1,4};

f3={1,-2,3};

, . , , .

 

f={f1,f2,f3};Det[f]

-172

 

, .

g1=f1;e1=g1/Norm[g1]

g2=f2-f2.e1*e1;e2=FullSimplify[g2/Norm[g2]]

g3=f3-f3.e1*e1-f3.e2*e2;e3=FullSimplify[g3/Norm[g3]]

,

{ } .

a={7,2,11}

- .

 





:


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


:

:

- , 20 40 . - .
==> ...

1795 - | 1758 -


© 2015-2024 lektsii.org - -

: 0.083 .