\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
Ejercicio
(%i2) |
A
:
matrix
(
[
3
,
1
,
0
,
0
]
,
[
3
,
1
,
0
,
0
]
,
[
0
,
0
,
1
,
1
]
,
[
0
,
0
,
1
,
1
]
)
$
[ vals , vecs ] : eigenvectors ( A ) ; |
\[\operatorname{ }\left[ \left[ \left[ 0\operatorname{,}2\operatorname{,}4\right] \operatorname{,}\left[ 2\operatorname{,}1\operatorname{,}1\right] \right] \operatorname{,}\left[ \left[ \left[ 1\operatorname{,}-3\operatorname{,}0\operatorname{,}0\right] \operatorname{,}\left[ 0\operatorname{,}0\operatorname{,}1\operatorname{,}-1\right] \right] \operatorname{,}\left[ \left[ 0\operatorname{,}0\operatorname{,}1\operatorname{,}1\right] \right] \operatorname{,}\left[ \left[ 1\operatorname{,}1\operatorname{,}0\operatorname{,}0\right] \right] \right] \right] \]
(%i4) |
P
:
transpose
(
matrix
(
vecs
[
1
]
[
1
]
,
vecs
[
1
]
[
2
]
,
vecs
[
2
]
[
1
]
,
vecs
[
3
]
[
1
]
)
)
;
mat_trace ( P . transpose ( P ) ) ; |
\[\operatorname{ }\begin{pmatrix}1 & 0 & 0 & 1\\ -3 & 0 & 0 & 1\\ 0 & 1 & 1 & 0\\ 0 & -1 & 1 & 0\end{pmatrix}\]
\[\operatorname{ }16\]
Created with wxMaxima.