On a related question to this, I am now experimenting the labelling with the circle points,
With[{n = 150, k = 2},
With[{a = Exp[-2 Pi*I*Range[1., n]/n]},
Graphics@GraphicsComplex[
ReIm[I*Join[a, a^k]], {
Circle[],
{Red, PointSize[Medium], Point@Range@n},
MapThread[
Text[#, #, #2] &,
{5 Range@30, ReIm[-1.5 I*a[[5 Range@30]]]}
]
}
]
]]
Since it's difficult to label all numbers, I am only labelling every 5 points.
But, I am wondering, is it possible to efficiently change the direction of the texts, so that I CAN
then label all points, like this
Or label the numbers by veritcally stacking the digits like this