<br><font size=2 face="Courier">Hi,</font>
<br><font size=2 face="Courier">I am trying to introduce a new CDF-normal
operator (GAUSSI) to pst-math.pro.</font>
<br><font size=2 face="Courier">Unfortunately, the code does not work.
What am I doing wrong? Any Ideas?</font>
<br>
<br><font size=2 face="Courier">/GAUSSI {dup mul 2 mul  %x mu 2*sigma^2
    3 Elements</font>
<br><font size=2 face="Courier">dup          
          %x mu 2*sigma^2 2*sigma^2    
4 Elements</font>
<br><font size=2 face="Courier">4 -2 roll          
    %2*sigma^2 2*sigma^2 x mu     4 Elements</font>
<br><font size=2 face="Courier">t exch          
       %2*sigma^2 2*sigma^2 x t mu     5
Elements</font>
<br><font size=2 face="Courier">sub dup mul        
    %2*sigma^2 2*sigma^2 x (t-mu)^2     4 Elements</font>
<br><font size=2 face="Courier">4 -1 roll          
    %2*sigma^2 x (t-mu)^2 2*sigma^2     4 Elements</font>
<br><font size=2 face="Courier">div neg          
      %2*sigma^2 x -(t-mu)^2/(2*sigma^2)     3
Elements</font>
<br><font size=2 face="Courier">EXP          
          %2*sigma^2 x exp(-(t-mu)^2/(2*sigma^2))
    3 Elements</font>
<br><font size=2 face="Courier">3 -1 roll          
    %x exp(-(t-mu)^2/(2*sigma^2)) 2*sigma^2     3 Elements</font>
<br><font size=2 face="Courier">PI mul          
       %x exp(-(t-mu)^2/(2*sigma^2)) 2*sigma^2*Pi  
  3 Elements</font>
<br><font size=2 face="Courier">sqrt div          
     %x exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi)  
  2 Elements</font>
<br><font size=2 face="Courier">{ exch } 0.001        
 %x { exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi) } .001  
  5 Elements</font>
<br><font size=2 face="Courier">-10 /t          
       %x { exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi)
} .001 -10 /t     7 Elements   Note:-10 is an approximation
for -infinity</font>
<br><font size=2 face="Courier">7 -1 roll          
    %{ exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi) } .001 -10
/t x     7 Elements</font>
<br><font size=2 face="Courier">exch          
         %{ exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi)
} .001 -10 x /t     7 Elements</font>
<br><font size=2 face="Courier">7 -4 roll          
    %-10 x /t { exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi)
} .001     7 Elements</font>
<br><font size=2 face="Courier">SIMPSON          
      %-10 x /t { exp(-(t-mu)^2/(2*sigma^2))/sqrt(2*sigma^2*Pi)
} .001 SIMPSON   8 Elements</font>
<br><font size=2 face="Courier">} bind def</font>
<br>
<br><font size=2 face="sans-serif">\documentclass[a4paper,10pt]{article}</font>
<br><font size=2 face="sans-serif">\usepackage{pstricks}</font>
<br><font size=2 face="sans-serif">\usepackage{pstricks-add}</font>
<br><font size=2 face="sans-serif">\usepackage{pst-plot}</font>
<br><font size=2 face="sans-serif">\begin{document}</font>
<br><font size=2 face="sans-serif">    \psset{xunit=0.7, yunit=4}</font>
<br><font size=2 face="sans-serif">    \begin{pspicture}(-6,0)(6,1.1)</font>
<br><font size=2 face="sans-serif">        \psaxes[Ox=0,
dy=0.1, Dy=0.1]{->}(0,0)(-6,0)(6,1.1)</font>
<br><font size=2 face="sans-serif">        \psplot[plotpoints=1000,
linecolor=red,linewidth=1.5pt]{-5}{5}{x 0 1 GAUSS}      
 %PDF N(0,1)</font>
<br><font size=2 face="sans-serif">        \psplot[plotpoints=1000,
linecolor=blue,linewidth=1.5pt]{-5}{5}{x 0 1 GAUSSI}      
 %CDF N(0,1) </font>
<br><font size=2 face="sans-serif">    \end{pspicture}</font>
<br><font size=2 face="sans-serif">\end{document}</font>
<br>
<br><font size=2 face="sans-serif">Mit freundlichen Grüßen / Kind regards,<br>
Matthias</font>
<br>
<span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#000000">-- </span><br>
<br>
<span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#000000">Informationen (einschließlich Pflichtangaben) zu einzelnen, innerhalb der EU tätigen Gesellschaften und Zweigniederlassungen des Konzerns Deutsche Bank finden Sie unter </span><span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#0000ff"><u>http://www.deutsche-bank.de/de/content/pflichtangaben.htm</u></span><span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#000000">. Diese E-Mail enthält vertrauliche und/ oder rechtlich geschützte Informationen. Wenn Sie nicht der richtige Adressat sind oder diese E-Mail irrtümlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese E-Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser E-Mail ist nicht gestattet.</span><br>
<br>
<span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#000000">Please refer to </span><span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#0000ff"><u>http://www.db.com/en/content/eu_disclosures.htm</u></span><span style="font-family:'Microsoft Sans Serif',sans-serif; font-size:8pt; color:#000000"> for information (including mandatory corporate particulars) on selected Deutsche Bank branches and group companies registered or incorporated in the European Union. This e-mail may contain confidential and/or privileged information. If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and delete this e-mail. Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly forbidden.</span>