
\def\Funct{exch neg}
\psset{xunit=1, yunit=5} \def\quatrepi{12.5663706144}
\begin{pspicture}(0,-1)(\quatrepi,1)\psgrid
\psplot[linewidth=4\pslinewidth, linecolor=green]{0}{\quatrepi}{x 3.1415926 div 180 mul
cos}
\psplotequadiff[linecolor=blue, plotpoints=201]{0}{3.1415926}{1 0}{\Funct}
\psplotequadiff[linecolor=red, method=rk4, plotpoints=31]{0}{\quatrepi}{1 0}{\Funct}
\psplot[linewidth=4\pslinewidth, linecolor=green]{0}{\quatrepi}{x 3.1415926 div 180 mul
sin}
\psplotequadiff[linecolor=blue, plotpoints=201]{0}{3.1415926}{0 1}{\Funct}
\psplotequadiff[linecolor=red, method=rk4, plotpoints=31]{0}{\quatrepi}{0 1}{\Funct}
\rput*(3.3,.9){\psline[linecolor=magenta](-.75cm,0)}
\rput*[l](3.3,.9){\small\textsc{Euler} ordre 1 $h=1$}
\rput*(3.3,.8){\psline[linecolor=blue](-.75cm,0)}
\rput*[l](3.3,.8){\small\textsc{Euler} ordre 1 $h=0{,}1$}
\rput*(3.3,.7){\psline[linecolor=red](-.75cm,0)}
\rput*[l](3.3,.7){\small RK ordre 4 $h=1$}
\rput*(3.3,.6){\psline[linecolor=green](-.75cm,0)}
\rput*[l](3.3,.6){\small solution exacte}
\end{pspicture}

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