Image

¿Cómo crear animaciones matemáticas usando LaTeX?

En este video explico cómo realizar una animación a partir de imágenes, de un archivo en pdf y utilizando solamente código.


\documentclass{article}
\usepackage{animate}
\usepackage{graphicx}
\usepackage{ifthen}
\usepackage{tikz}
\newcounter{a}
\setcounter{a}{-6}
\newcounter{grado}
\setcounter{grado}{0}
\begin{document}
  \textbf{Animación a partir de varias imágenes c1.png, c2.png,..., c6.png}   
  \begin{center}
    \animategraphics[controls,loop,width=0.5\linewidth]{3}{c}{1}{9}
  \end{center}
  
  \newpage
  \textbf{Animación a partir de varias páginas del archivo un tparabolico.pdf}
  
  \begin{center}
    \begin{figure}
      \animategraphics[controls]{1}{tparabolico}{}{}
    \end{figure}
  \end{center}
  
  \newpage
  \textbf{Animación utilizando un buche While}
  
  \begin{center}
    \begin{animateinline}[loop, poster = first, controls]{2}  
      \whiledo{\thea<7}{
        \begin{tikzpicture}
          \draw[thick,->,blue] (-3,0)--(3,0) node[below] {$x$}; % x axis
          \draw[thick,->,blue] (0,-3)--(0,3) node[left] {$y$}; % y axis
          \draw[ultra thick,cyan] (0,0) -- (0.5*\thea,0.5*\thea); 
        \end{tikzpicture}
        \stepcounter{a}
        
        \ifthenelse{\thea<7}{
          \newframe
        }{
        \end{animateinline}
      }
    } 
  \end{center}
  
  
  
  
  
  \newpage
  \textbf{Animación utilizando un buche While}
  \begin{center}
    \begin{animateinline}[loop, poster = first, controls]{30} 
      \whiledo{\thegrado<359}{
        \begin{tikzpicture}
          \draw[thick,->,blue] (-3,0)--(3,0) node[below] {$x$}; % x axis
          \draw[thick,->,blue] (0,-3)--(0,3) node[left] {$y$}; % y axis
          \draw[ultra thick,red,->] (0,0) -- (\thegrado:2.5cm);
          \draw[dashed,cyan,-] (0,0) |- (\thegrado:2.5cm);
          \draw[dashed,cyan,-] (0,0) -| (\thegrado:2.5cm);
        \end{tikzpicture}
        \stepcounter{grado}
        
        \ifthenelse{\thegrado<359}{
          \newframe
        }{
        \end{animateinline}
      }
    } 
  \end{center}  
\end{document}

        

tparabolico.tex
\documentclass{article}
\usepackage[papersize={12cm,6.8cm},top=1mm,left=1mm,right=1mm,]{geometry}
\usepackage{graphicx}
\usepackage{tikz}
\begin{document}
  \foreach \i in {0,1,2,...,10}{
    \begin{tikzpicture}
    \draw[thick,->,blue] (0,0)--(10,0) node[below] {$x$}; % x axis
    \draw[thick,->,blue] (0,0)--(0,5) node[left] {$y$}; % y axis
    \node[red] at (\i,2.0*\i-0.20*\i*\i){$\bullet$};
    \draw[domain=0:\i, smooth, variable=\x, cyan] plot ({\x}, {2.0*\x-0.20*\x*\x});
    \node at (5,-0.3){$0.2x(10-x)$};
  \end{tikzpicture}

}

\end{document}
        

© Profesor Favián Arenas. 2023. Diseñado por HTML Codex