Cálculo con Mathematica

Os copio aquí el ejercicio por si a alguno os interesa ;)

raices[k_] := x /. Solve[x^k == 1, x]

argumentos[k_] := Sort[Arg[raices[k]], Less]

funcion[x_] := {Cos[x], Sin[x]};
cartesianas[k_] := funcion /@ argumentos[k]

Needs["Graphics`Arrow`"];
vectores[k_] := Table[Arrow[{0, 0}, cartesianas[k][[i]]], {i, k}]

polinomioregular[k_] :=
Show[Graphics[{vectores[k],
Line[Append[cartesianas[k], cartesianas[k][[1]]]],
Circle[{0, 0}, 1]}], AspectRatio -> 1];
polinomioregular[13]