<font face="Arial, Helvetica, sans-serif">Dear Herbert,<br>
<br>
Thanks for your instructions, which I have followed assiduously, I hope. Try this code on for size.<br>
<br>
------<br>
\def\psPoisson{\pst@object{psPoisson}}%<br>
\def\psPoisson@i#1#2{\psPoisson@ii#1,,\@nil{#2}}%<br>
\def\psPoisson@ii#1,#2,#3\@nil#4{%<br>
\def\pst@tempA{#2}%<br>
\ifx\pst@tempA\@empty\psPoisson@iii{0}{#1}{#4}\else<br>
\psPoisson@iii{#1}{#2}{#4}\fi}%<br>
\def\psPoisson@iii#1#2#3{%<br>
\begin@SpecialObj%<br>
\addto@pscode{<br>
/scx { \pst@number\psxunit mul } def<br>
/scy { \pst@number\psyunit mul } def<br>
/M #1 def<br>
/N #2 def<br>
/lambda #3 def<br>
/elambda Euler #3 neg exp def % e^-lambda<br>
/dx \psFunc@barwidth 2 div def<br>
/kOld dx neg M add def % addition of M here<br>
kOld scx 0 moveto % starting point<br>
/Y elambda def % start value<br>
0 1 M 1 sub { % skip over first M-1 rectangles<br>
/k exch def % whilst recursing probabilities<br>
k 0 eq { /Y elambda def }{ /Y Y lambda mul k div def } ifelse<br>
} for % nothing happens if M=0<br>
M 1 N { % N-M+1 times<br>
/k exch def % save loop variable<br>
k 0 eq { /Y elambda def }{ /Y Y lambda mul k div def } ifelse<br>
kOld scx 0 L kOld scx Y scy L k dx add scx Y scy L<br>
\ifPst@markZeros k dx add scx 0 L \fi<br>
\ifPst@printValue<br>
gsave \psk@PSfont findfont \psk@fontscale scalefont setfont<br>
Y \psk@valuewidth string cvs<br>
k scx \psk@fontscale 2 div add<br>
Y scy \pst@number\pslabelsep add moveto<br>
90 rotate show grestore<br>
\fi<br>
/kOld kOld 1 add def<br>
} for<br>
\ifPst@markZeros\else k dx add scx 0 L \fi % last line down to x-axis<br>
}%<br>
\psk@fillstyle<br>
\pst@stroke<br>
\end@SpecialObj%<br>
}<br>
------<br>
<br>
It seems to work, e.g. \psPoisson{45}{30}, \psPoisson{20,45}{30}, even \psPoisson{25,25}{30}. No more psclip (yippee! ) Anything untoward is a bug, not a feature. If you agree, then \psBinomial is next.<br>
<br>
Yours,<br>
<br>
Gerry Coombes<br>
<br>
</font><div class="AOLPromoFooter">
<hr style="margin-top:10px;" />
Get a FREE AOL Email account with unlimited storage. Plus, share and store photos and experience exclusively recorded live music Sessions from your favourite artists. <a href="http://info.aol.co.uk/joinnow/?ncid=548" target="_blank">Click Here</a> for more information.<br />
</div>