<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
    <title></title>
  </head>
  <body text="#000000" bgcolor="#ffffff">
    Dear All!<br>
    <br>
    Copy & Paste is a weird thing.<br>
    <br>
    Now it's working fine. <br>
    <br>
    Sorry for my stupid post. <br>
    <br>
    Thanks a lot to Herbert!<br>
    <br>
    Markus<br>
    <br>
    <br>
    Am 13.04.2011 12:05, schrieb Herbert Voss:
    <blockquote cite="mid:4DA57565.7010805@FU-Berlin.DE" type="cite">Am
      13.04.2011 08:18, schrieb Markus Krebs:
      <br>
      <br>
      <blockquote type="cite">It may be useful for teaching to have a
        psNewton-macro
        <br>
      </blockquote>
      <br>
      Oh, there are a lot of useful things in the life :-)
      <br>
      <br>
      With the pst-plot from
      <br>
      <a class="moz-txt-link-freetext" href="http://texnik.dante.de/tex/generic/pst-plot/">http://texnik.dante.de/tex/generic/pst-plot/</a>
      <br>
      you can use:
      <br>
      <br>
      \documentclass{article}
      <br>
      \usepackage{pst-plot}
      <br>
      \begin{document}
      <br>
      <br>
      \def\f{-(1/192)*x^3-(1/12)*x-(1/192)*Pi*x^2-(1/12)*Pi+2}
      <br>
      \def\fDerive{-(3/192)*x^2-(1/12)-(2/192)*Pi*x}
      <br>
      <br>
      \psset{plotpoints=2000,unit=0.5,algebraic}
      <br>
      \begin{pspicture*}[showgrid](-20,-10)(8,20)
      <br>
      \psaxes[Dx=6,Dy=4]{->}(0,0)(-20,-10)(8,20)[$x$,270][$y$,0]
      <br>
      \psplot[algebraic,linewidth=2pt,linecolor=blue]{-20}{10}{\f}
      <br>
      \psxTick(-15){x_0}
      <br>
\psNewton[linecolor=red,linewidth=0.5pt,showDerivation=false]{-15}{\f}{10}
      <br>
      %
      <br>
      %-15, -9.567466932, -4.903526029, 3.026073041, 6.688396612,
      5.580230655 (Made by Maple)
      <br>
      \end{pspicture*}
      <br>
      <br>
      \begin{pspicture*}[showgrid](-20,-10)(8,20)
      <br>
      \psaxes[Dx=6,Dy=4]{->}(0,0)(-20,-10)(8,20)[$x$,270][$y$,0]
      <br>
      \psplot[algebraic,linewidth=2pt,linecolor=blue]{-20}{10}{\f}
      <br>
      \psxTick(-15){x_0}
      <br>
\psNewton[linecolor=red,linewidth=0.5pt,showpoints]{-15}{\f}[\fDerive]{10}
      <br>
      \end{pspicture*}
      <br>
      <br>
      \end{document}
      <br>
      <br>
      <br>
      \psNewton{xStart}{Func}[f-Derivation]{steps}
      <br>
      <br>
      Without the optional [f-Derivation] it uses an epsilon of 0.01
      <br>
      for the derivation
      <br>
      <br>
      Herbert
      <br>
      <pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_______________________________________________
PSTricks mailing list
<a class="moz-txt-link-abbreviated" href="mailto:PSTricks@tug.org">PSTricks@tug.org</a>
<a class="moz-txt-link-freetext" href="http://tug.org/mailman/listinfo/pstricks">http://tug.org/mailman/listinfo/pstricks</a>
archive: <a class="moz-txt-link-freetext" href="http://www.tug.org/pipermail/pstricks/">http://www.tug.org/pipermail/pstricks/</a></pre>
    </blockquote>
  </body>
</html>