\def\Func{exch 3.1415926 div 180 mul sin -9.8 mul}
\psset{yunit=2.5, xunit=4}
\begin{pspicture}(0,-2)(3,2)\psgrid
\psplot[linewidth=3\pslinewidth, linecolor=Orange]{0}{3}{x 3.1415926 div 180 mul 9.8 sqrt mul cos .1 mul}
\psplotequadiff[linecolor=blue, method=rk4, plotpoints=50]{0}{3}{.1 0}{\Func}
\psplot[linewidth=3\pslinewidth, linecolor=Orange]{0}{3}{x 3.1415926 div 180 mul 9.8 sqrt mul cos .25 mul}
\psplotequadiff[linecolor=blue, method=rk4, plotpoints=50]{0}{3}{.25 0}{\Func}
\psplotequadiff[linecolor=blue, method=rk4, plotpoints=50]{0}{3}{.5 0}{\Func}
\psplotequadiff[linecolor=blue, method=rk4, plotpoints=50]{0}{3}{1 0}{\Func}
\psplotequadiff[linecolor=blue, method=rk4, plotpoints=100]{0}{3}{3.1415926 2 div 0}{\Func}
\end{pspicture}

—
Syracuse — Dernière modification : 13 juin 2004 (0.07s - 3776271 - 20 novembre 2008)