Loop

[PDF] [TEX]

% !TEX TS-program = lualatex
% Created by Alain Matthes on 2023-11-10
% Copyright (c) 2023 AlterMundus.
\documentclass[margin=10pt]{standalone}
\usepackage{tkz-euclide}
\usepackage{tkz-elements}
\begin{document}

\begin{tkzelements}
  scale         = 1.5
  local r       = 3
  z.O           = point : new (0,0)
  max           = 100
  for i         = 1,max 
  do 
     z["A_"..i] = point : polar(r,2*i*math.pi/max)
  end
  a             = math.deg(get_angle (z.O,z.A_1,z.A_2))
\end{tkzelements}

\begin{tikzpicture}
   \pgfkeys{/pgf/number format/.cd,use comma}
   \let\pmpn\pgfmathprintnumber
   \tkzGetNodes
   \tkzDrawPolygon[cyan](A_1,A_...,A_\tkzUseLua{max})
   \tkzDrawCircle[red](O,A_1)
   \tkzDrawPoints[color=black](A_1,A_...,A_\tkzUseLua{max},O)
   \tkzDrawSegments(O,A_1 O,A_2)
   \tkzMarkAngle[size=2](A_1,O,A_2)
   \tkzLabelAngle[pos=3.4](A_1,O,A_2){$\pmpn{\tkzUseLua{a}}^\circ$}
\end{tikzpicture}
\end{document}