Source de ode06.tex
Retour    vers le bas
Fichier TeX
Image PNG
\def\Funct{exch neg}
    \psset{xunit=1, yunit=5}%%4pi=12.5663706144
    \def\quatrepi{12.5663706144}
    \begin{pspicture}(0,-1)(\quatrepi,1)\psgrid
      %%cos(x)
      \psplot[linewidth=4\pslinewidth, linecolor=green]{0}{\quatrepi}{x 3.1415926 div 180 mul
      cos}
      %\psplotequadiff[linecolor=magenta, plotpoints=31]{0}{\quatrepi}{1 0}{\Funct}
      \psplotequadiff[linecolor=blue, plotpoints=201]{0}{3.1415926}{1 0}{\Funct}
      \psplotequadiff[linecolor=red, method=rk4, plotpoints=31]{0}{\quatrepi}{1 0}{\Funct}
      %%sin(x)
      \psplot[linewidth=4\pslinewidth, linecolor=green]{0}{\quatrepi}{x 3.1415926 div 180 mul
      sin}
      %\psplotequadiff[linecolor=magenta, plotpoints=31]{0}{\quatrepi}{0 1}{\Funct}
      \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}

 

Validation CSS Validation XHTML — Syracuse — Dernière modification : 13 juin 2004 (0.08s - 3777101 - 20 novembre 2008) vers le haut