\documentclass[crop,border=3,tikz,convert={outext=.svg,command=\unexpanded{pdf2svg
    \infile\space\outfile}},multi=false]{standalone}
\usepackage{ifthen}
\usetikzlibrary{math,decorations.pathmorphing,patterns}
\pgfdeclarelayer{background}
\pgfdeclarelayer{foreground}
\pgfsetlayers{background,main,foreground}

\begin{document}

\def\myt{5.1}
\def\mypi{3.141592653589793}

\newcommand{\spring}[2]{
  \def\s{0.015}
  \tikzmath{\l = ((#2)-(#1+8*\s))*9 ;}
  \draw[] (#1,0)--(#1+\s,0);
  \draw[decoration={aspect=0.33, segment length=\l,
    amplitude=2mm,coil},decorate] (#1+\s,0)--(#2,0);
}

\newcommand{\wave}[4]{
  \def\myA{#1}
  \def\mya{#2}
  \def\myB{#3}
  \def\myb{#4}
  \def\olda{0}

  \draw[ultra thick,blue,smooth,domain=0:10,samples=100] plot
  function {0.5*(\myA*exp(-\mya*(10-x-\myt)**2)+\myB*exp(-\myb*(x-\myt)**2))
  -1};

  \foreach \a in {0,0.5,...,10}{
    \tikzmath{\myy=
      0.2*(\myA*exp(-\mya*(10-\a-\myt)^2)+\myB*exp(-\myb*(\a-\myt)^2));
    }
    \tikzmath{\myv=
      0.5*(\mya*(10-\a-\myt)* \myA*exp(-\mya*(10-\a-\myt)^2)
      +\myb*(\a-\myt)*\myB*exp(-\myb*(\a-\myt)^2));
    }

    \tikzmath{\myoldy=
      0.2*(\myA*exp(-\mya*(10-\a+0.5-\myt)^2)+\myB*exp(-\myb*(\a-0.5-\myt)^2));
    }

    \ifthenelse{\lengthtest{\myy pt > 0.1 pt} \OR \lengthtest{\myy pt < -0.1 pt}}{
      \draw[red,->,tips=proper] (\a,0) -++ (\myy,0);
    }{
      \draw[red] (\a,0) -++ (\myy,0);
    }

    \draw[red,fill=white] (\a,0) circle (0.6mm);
    \begin{pgfonlayer}{foreground}
      \fill[red] (\a+\myy,0) circle (0.6mm);
    \end{pgfonlayer}
    \ifthenelse{\lengthtest{\a pt > 0 pt}}{
      \spring{\a-0.5+\myoldy}{\a+\myy};
    }
    % \pgfmathparse{\a==4?1:0}
    %\ifthenelse{\lengthtest{\myv pt > 0.1 pt} \OR \lengthtest{\myv pt < -0.1 pt}}{
    %  \draw[thick,->,tips=proper] (\a+\myy,1) -++ (\myv,0);
    %}{
    %  \draw[thick] (\a+\myy,1) -++ (\myv,0);
    %}
  }
}
\newcommand{\sinewave}[1]{
  \def\mypi{3.141592653589793}
  \def\myx{\myt}

  \draw[ultra thick,blue,smooth,domain=0:9.5,samples=40] plot
  function {0.7*sin(x-\myx)-1};
  \draw[ultra thick,dotted,blue,smooth,domain=9.5:10,samples=5] plot
  function {0.7*sin(x-\myx)-1};

  \foreach \a in {0,0.5,...,10}{
    \tikzmath{\myy=0.35*sin(180/\mypi*(\a-\myx));}
    \tikzmath{\myoldy=0.35*sin(180/\mypi*(\a-0.5-\myx));}
    \ifthenelse{\lengthtest{\myy pt > 0.1 pt} \OR \lengthtest{\myy pt < -0.1 pt}}{
      \draw[red,->,tips=proper] (\a,0) -++ (\myy,0);
    }{
      \draw[red] (\a,0) -++ (\myy,0);
    }
    \draw[red,fill=white] (\a,0) circle (0.6mm);
    \begin{pgfonlayer}{foreground}
      \fill[red] (\a+\myy,0) circle (0.6mm);
    \end{pgfonlayer}
    \ifthenelse{\lengthtest{\a pt > 0 pt}}{
      \spring{\a-0.5+\myoldy}{\a+\myy};
    }
  }
}

\begin{tikzpicture}[>=latex,scale=1]
  \begin{pgfonlayer}{background}
    \fill[white] (-0.5,-8) rectangle (10.5,4);
  \end{pgfonlayer}
  \clip (0,-8) rectangle (10,4);
  \begin{pgfonlayer}{foreground}
    \clip (0,-8) rectangle (10,4);
  \end{pgfonlayer}
  % \draw[thick,->] (0,-0.3) -- (0,2.8) node[above]{\Large $y$};
  %\draw[thick,->] (-0.1,0) -- (10.5,0) node[below]{\Large $x$};
  \foreach \a in {-1.5,-1,...,0}{
    \draw[dotted] (0,\a) -- (10,\a);
  }
  \wave{1}{5}{1}{5}
  \begin{scope}[shift={(0,-2.5)}]
    %\draw[thick,->] (0,-1.7) -- (0,1.8) node[above]{\Large $y$};
    %\draw[thick,->] (-0.1,0) -- (10.5,0) node[below]{\Large $x$};
    \foreach \a in {-2,-1.5,...,0}{
      \draw[dotted] (0,\a) -- (10,\a);
    }
    \wave{-1.5}{5}{1.5}{5}
  \end{scope}
  \begin{scope}[shift={(0,3)}]
    %\draw[thick,->] (0,-1.7) -- (0,1.8) node[above]{\Large $y$};
    %\draw[thick,->] (-0.1,0) -- (10.5,0) node[below]{\Large $x$};
    \foreach \a in {-2,-1.5,...,0}{
      \draw[dotted] (0,\a) -- (10,\a);
    }
    \wave{-1.3}{0.8}{1.4}{10}
  \end{scope}
  \begin{scope}[shift={(0,-5.5)}]
    %\draw[thick,->] (0,-1.7) -- (0,1.8) node[above]{\Large $y$};
    %\draw[thick,->] (-0.1,0) -- (10.5,0) node[below]{\Large $x$};
    \foreach \a in {-2,-1.5,...,0}{
      \draw[dotted] (0,\a) -- (10,\a);
    }
    \sinewave{-1.3}{0.8}{1.4}{10}
  \end{scope}
\end{tikzpicture}
\end{document}