\documentclass{article}
\usepackage{pstricks}
\usepackage{multido}
\begin{document}
 \[\begin{pspicture}(-7.6,-.5)(7.32,2.5)
    \newdimen\totaljump     % This measures where the orgin is
    \newdimen\jumpinterval  % This measures how much the origin moves each time
    %%%%% First we draw the left hand side. Because we are utilizing borders, we have %%%%%
    %%%%% to draw from left to right, so compute by hand what the unit should be.     %%%%%
    \psset{unit=0.17293822569mm,border=.05,linewidth=.03}
    \totaljump=-75mm
    \jumpinterval=0.17293822569mm
    \multido{}{20}{
      % Move the origin to the appropriate place %%%%
      \psset{origin={\totaljump,0}, unit= 1.25, border=.05, linewidth=.03}
      % Draw a piece of the curve
      \pscurve(-.1,.1)(-.2,.3)(0,1.5)(1,.7)(2.3,.3)(2,-.05)(1.1,-.2)(1,-.1)
      % Scale the jumpinterval by .8 and increment totaljump
      \multiply\jumpinterval by 5 \divide\jumpinterval by 4
      \advance\totaljump by \jumpinterval
    }
    %%%% Now we draw one piece of the curve in the middle %%%%
    %%%% to get the two ends to match up nicely.          %%%%
    \psset{unit=1.5cm,border=.05,linewidth=.03}
    \pscurve(-.15,.12)(-.2,.3)(0,1.7)(1,.7)(1.8,.3)(1.6,-.05)(1.1,-.2)(.95,-.15)
    %%%% Now draw the right hand side %%%%
    \psset{origin={12mm,0}}
    \totaljump=12mm
    \jumpinterval=12mm
    \multido{}{20}{
      \advance\totaljump by \jumpinterval
      \multiply\jumpinterval by 4 \divide\jumpinterval by 5
      \pscurve(-.1,.1)(-.2,.3)(0,1.5)(1,.7)(1.6,.3)(1.4,-.05)(1.1,-.2)(.9,-.1)
      \psset{origin={\totaljump,0}, unit= .8, border=.05, linewidth=.03}
    }
 \end{pspicture}\]
\end{document}
