4-20 Cannabis

Descargar como Notebook

Colaboración del Profesor Jony Romero

420, 4 : 20 o 4/20 (pronunciado cuatro - veinte) es un término de código en la cultura del cannabis que se refiere al consumo de marihuana.

Una explicación del origen del término proviene de la historia de un grupo de adolescentes del colegio San Rafael, en California en 1971, quienes se autodenominaron los Waldos. Se reunían después de clases a las 4:20 p.m. para fumar marihuana en la estatua de Louis Pasteur. Se eligió esa hora porque las clases terminaban a las 3:20 y las actividades extracurriculares o los castigos terminaban a las 4:20. Por costumbre, el 20 de abril (4/20, en el calendario estadounidense) se convirtió en una fiesta y posteriormente en el Día Mundial del Cannabis, fecha en la que mucha gente acudía a consumirla.1 En algunas localidades, esta celebración coincide con el Día de la Tierra.

PolarPlot[(1 + 0.9 Cos[8 t]) (1 + 0.1 Cos[24 t]) (0.9 + 
    0.05 Cos[200 t]) (1 + Sin[t]), {t, -Pi, Pi}, PlotStyle -> Green]

Otra Forma

PolarPlot[
 Evaluate@Table[
   a (1 + 0.9 Cos[8 t]) (1 + 0.1 Cos[24 t]) (0.9 + 
      0.05 Cos[200 t]) (1 + Sin[t]), {a, 0.1, 1, 0.05}], {t, -Pi, Pi},PlotStyle -> Green, PlotRange -> {{-2.5, 2.5}, {-0.5, 4.2}}]

Otra Forma

Show@Table[
  PolarPlot[
   a (1 + 0.9 Cos[8 t]) (1 + 0.1 Cos[24 t]) (0.9 + 
      0.05 Cos[200 t]) (1 + Sin[t]), {t, -Pi, Pi}, 
   PlotStyle -> RGBColor[0, a, 0], Axes -> None, 
   PlotRange -> {{-2.5, 2.5}, {-0.5, 4.2}}], {a, 0.1, 1, 0.02}]

Para aprender más sobre Mathematica ingrese aquí sitio de aprendizaje de Wolfram o en mi website ustamathematica.wixsite.com/basicas