Descargar como Notebook
Figura generada por segmentos de recta (secantes) dentro de una circunferencia. Generada por el Profesor alemán
Hansruedi Widmer (@HansruediWidmer), muy activo en twitter.
esquinas = Table[{Cos[n 2 Pi/25], Sin[n 2 Pi/25]}, {n, 0, 400}];
Graphics[Flatten[
Table[{Black,
Line[Flatten[
Table[Table[esquinas[[n j + k]], {j, 25}], {k, 0, n}], 1]]}, {n,
12}], 1]]
Agregándole diferentes colores,
esquinas = Table[{Cos[n 2 Pi/25], Sin[n 2 Pi/25]}, {n, 0, 400}];
colores = {Black, Red, Green, Blue, Yellow, Pink, Gray, Magenta,
Orange, Cyan, Brown, Purple};
Graphics[Flatten[
Table[{colores[[n]],
Line[Flatten[
Table[Table[esquinas[[n j + k]], {j, 25}], {k, 0, n}], 1]]}, {n,
12}], 1]]
Para aprender más sobre Mathematica ingrese
aquí sitio de aprendizaje de Wolfram o en mi website
ustamathematica.wixsite.com/basicas