Entrada destacada

Distancia media de dos puntos en un cuadrado unitario

miércoles, 19 de octubre de 2022

miércoles, 12 de octubre de 2022

Envolvente Lineal

                                                                                                              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

miércoles, 5 de octubre de 2022

Frase Célebre de Edward Rothstein

La música y las matemáticas responden a una especie 
de "apetito" abstracto,
un deseo que es en parte intelectual, en parte estético, 
en parte emocional y,
en parte, incluso, físico.

Edward Rothstein