application de pst-ressort : un pistolet à ressort et oscillations périodiques

 

Quelques éléments théoriques et deux animations réalisées avec le package animate sont inclus dans le répertoire :

pst-ressort-package

Les images pour l'animation au format Gif sont obtenues avec le code suivant :

\documentclass{article}
\usepackage{pst-ressort,multido}
\usepackage{pst-slpe}
\usepackage[a4paper,margin=1cm]{geometry}

\SpecialCoor
\pagestyle{empty}
\begin{document}
\begin{center}
\psset{li=10,N=50,dl=0,nS=15,unit=1,alpha=12}%
\psset{unit=0.75}
\multido{\rt=0+0.0094,\i=0+1,\rb=-0.0282+0.0078}{30}{%
\begin{pspicture}(-1,0)(1,32)
\psframe*[linecolor=yellow!20](-1,0)(1,32)
\psgrid[subgriddiv=0,gridcolor=lightgray,griddots=10,gridlabels=0pt]
\psframe[fillstyle=hlines,linestyle=none,hatchsep=2pt](-1,0)(1,-0.2)
\psline(-1,0)(1,0)
\psframe(-1,0)(1,32)
\pstVerb{
    /RadtoDeg { 180 mul Pi div } bind def         % convert from radian to degrees
    /Pi 3.14159265359 def
    /m' 0.010 def
    /k' 20 def
    /z0 0.05 def
    /zv 0.10 def
    /g' 9.81 def
    /O' k' m' div sqrt def
    /T' 2 Pi mul O' div def}%
\ifnum\i<5 br="">\pstVerb{
      /z' z0 zv sub g' O' dup mul div add O' RadtoDeg \rt\space mul cos mul
          g' O' dup mul div sub zv add def
      }%
\psRessort[linewidth=0.05,linecolor=blue](0,0)(! 0 z' 100 mul)
\rput(! 0 z' 100 mul 0.6 add){\psBall(0,0){black}{0.6}}
\else
\pstVerb{
      /t' \rb\space def
      /z' 0.5 g' mul t' dup mul mul neg 2 t' mul add zv add def
      }%
\psRessort[linewidth=0.05,linecolor=blue](0,0)(0,10)
\rput(! 0 z' 100 mul 0.6 add){\psBall(0,0){black}{0.6}}
\fi
\end{pspicture}\newpage}
\end{center}
\end{document}

Tous les  fichiers sont dans le répertoire :

pst-ressort-package