Eigenvectors in 2D

Manipulate[
Graphics[
{PointSize[Large],
Point[{0,0}],
Text[Row[{Style["A",Italic]," = ",NumberForm[MatrixForm[A={{a,b},{c,d}}],{2,1}]}],{3.4,3.9}],
{Dashed,Circle[],Circle[{0,0},2],Circle[{0,0},3],Circle[{0,0},4]},
Red,
Arrow[{{0,0},p}],
Text[Row[{Style["u",Italic]," = ",NumberForm[MatrixForm[p],{3,2}]}],{3.4,3.3}],
Blue,
Text[Row[{Style["A·u",Italic]," = ",NumberForm[MatrixForm[A.p],{3,2}]}],{3.4,2.7}],
Arrow[{{0,0},A.p}]
},
PlotRange->4.3,
Frame->True,
ImageSize->{800,800},
PlotLabel->"Align the arrows to find an eigenvector and its corresponding eigenvalue."
],
{{p,{1,0}},{-4.3,-4.3},{4.3,4.3},Locator},"coefficients of matrix A:",
{{a,0.5,"(Subscript[a, 11])"},-5,5,.1,ImageSize->Tiny},
{{b,0,"(Subscript[a, 12])"},-5,5,.1,ImageSize->Tiny},
{{c,0,"(Subscript[a, 21])"},-5,5,.1,ImageSize->Tiny},
{{d,0.5,"(Subscript[a, 22])"},-5,5,.1,ImageSize->Tiny},
ControlPlacement->Left,
TrackedSymbols:>Manipulate,
AutorunSequencing->{1,2,4}
]