Recursive

Autor

Enric Cosme Llópez

Publicat

March 10, 2018

RC.tex
\documentclass[portrait, a3, final]{a0poster}
\usepackage[utf8]{inputenc}
\usepackage[english]{babel}
\usepackage{amsbsy,amsmath,amssymb}
\usepackage{amsfonts}
\usepackage{amscd}
\usepackage{epsfig}
\usepackage{graphicx}
\usepackage{color}
\usepackage{pstricks}
\usepackage{url}
\usepackage{xcolor}
\usepackage{hhline}
\usepackage{wrapfig}
\usepackage{colortbl}
\usepackage{animate}
\usepackage{array}

\usepackage{tikz}
\usetikzlibrary{calc}
\usepackage[top=3in, bottom=1.5in, left=1in, right=1in]{geometry}

\begin{document}
\thispagestyle{empty}
\begin{center}
\begin{tikzpicture}[scale=1.4]  
\pgfmathsetmacro{\R}{-10} 
\pgfmathsetmacro{\r}{7}
\pgfmathsetmacro{\T}{2}
\pgfmathsetmacro{\O}{-3}
\pgfmathsetmacro{\time}{55}
\pgfmathsetmacro{\inctime}{.05}
 
\foreach \t in {0,\inctime,...,\time}{
  \pgfmathsetmacro{\xa}{(\R+\r)*cos((\t*pi)/\T r)-(\r+\O)*cos((pi*(\R+\r)*\t)/(\T*\r) r)}
  \pgfmathsetmacro{\xb}{(\R+\r)*sin((\t*pi)/\T r)-(\r+\O)*sin((pi*(\R+\r)*\t)/(\T*\r) r)}
  \pgfmathsetmacro{\vol}{.4+0.005*(\xa*\xa*\xb*\xb)}
  \node[circle, fill=yellow!60!green, opacity=.4, scale=\vol] at (\xa,\xb)    {$\color{green!30!black}\blacklozenge$}; 
}     
\end{tikzpicture}
\end{center}
\end{document}
\end{document}