>>577

これでどうでしょう。

rotate[x_, y_, t_] := {x Cos[t] - y Sin[t], x Sin[t] + y Cos[t]}

Ar[r_, t_] := 0
At[r_, t_] := 1;

With[{r = Sqrt[x^2 + y^2], t = ArcTan[x, y]},
VectorPlot[rotate[Ar[r, t], At[r, t], t], {x, -10, 10}, {y, -10, 10}]]