問題 4.1

p[t_]:={Cos[t],Sin[t]};
A=(({{4, -1}, {2, 1}}));
Manipulate[
Show[
ParametricPlot[{A.p[t],p[t]},{t,0,2*Pi}],
Graphics[Arrow[{{0,0},p[k]}]],
Graphics[Arrow[{{0,0},A.p[k]}]]
],
{k,0,2*Pi}
]

Eigenvalues[A]

Eigenvectors[A]