Краткое описание

Source

nodes = Table[Cos[(2 k - 1)/(2 n) \[Pi]], {n, 1, 50}, {k, n}];

i = 1;
dat = Transpose[{#, ConstantArray[i++, Length[#]]}] & /@ nodes;

ListPlot[dat, AxesLabel -> {x, n}, AxesStyle -> Black, ImageSize -> 450, PlotStyle -> PointSize[0.01]]

Лицензирование

Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:

Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International

Вы можете свободно:

• делиться произведением – копировать, распространять и передавать данное произведение
• создавать производные – переделывать данное произведение

При соблюдении следующих условий:

• атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
• распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue