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}
- .