
\def\Funct{exch}
\psset{xunit=5, yunit=1.1}
\begin{pspicture}(0,0)(2,7)\psgrid
\psplot[linewidth=4\pslinewidth, linecolor=green]{0}{2}{2.71828182846 x exp}
\psplotequadiff[linecolor=magenta, plotpoints=11]{0}{2}{1 1}{\Funct}
\psplotequadiff[linecolor=blue, plotpoints=101]{0}{2}{1 1}{\Funct}
\psplotequadiff[linecolor=red, method=rk4, plotpoints=11]{0}{2}{1 1}{\Funct}
\psplot[linewidth=4\pslinewidth, linecolor=green]{0}{2}{2.71828182846 dup x exp
exch x neg exp add 2 div}
\psplotequadiff[linecolor=magenta, plotpoints=11]{0}{2}{1 0}{\Funct}
\psplotequadiff[linecolor=blue, plotpoints=101]{0}{2}{1 0}{\Funct}
\psplotequadiff[linecolor=red, method=rk4, plotpoints=11]{0}{2}{1 0}{\Funct}
\psplot[linewidth=4\pslinewidth, linecolor=green]{0}{2}{2.71828182846 dup x exp
exch x neg exp sub 2 div}
\psplotequadiff[linecolor=magenta, plotpoints=11]{0}{2}{0 1}{\Funct}
\psplotequadiff[linecolor=blue, plotpoints=101]{0}{2}{0 1}{\Funct}
\psplotequadiff[linecolor=red, method=rk4, plotpoints=11]{0}{2}{0 1}{\Funct}
\rput*(2.1,1.9){\psline[linecolor=magenta](-.75cm,0)}
\rput*[l](2.1,1.9){\small\textsc{Euler} ordre 1 $h=1$}
\rput*(2.1,2.8){\psline[linecolor=blue](-.75cm,0)}
\rput*[l](2.1,2.8){\small\textsc{Euler} ordre 1 $h=0{,}1$}
\rput*(2.1,3.7){\psline[linecolor=red](-.75cm,0)}
\rput*[l](2.1,3.7){\small RK ordre 4 $h=1$}
\rput*(2.1,4.6){\psline[linecolor=green](-.75cm,0)}
\rput*[l](2.1,4.6){\small solution exacte}
\end{pspicture}

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