generic 1

git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 217 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
new file mode 100644
index 00000000000..122dfc0353a
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -0,0 +1,217 @@
+%%
+%% This is file `pst-func.tex',
+%%
+%% IMPORTANT NOTICE:
+%%
+%% Package `pst-func.tex'
+%%
+%% Herbert Voss <voss@pstricks.de>
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN archives
+%% in directory macros/latex/base/lppl.txt.
+%%
+%% DESCRIPTION:
+%%   `pst-func' is a PSTricks package to plot special functions
+%%
+%% For a ChangeLog go the the end
+%%
+\csname PSTfuncLoaded\endcsname
+\let\PSTfuncLoaded\endinput
+% Requires PSTricks, pst-node
+\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
+\ifx\PSTnodesLoaded\endinput\else\input pst-plot.tex\fi
+\ifx\PSTXKeyLoaded\endinput\else\input pst-xkey.tex \fi
+%
+\edef\PstAtCode{\the\catcode`\@} \catcode`\@=11\relax
+% interface to the `xkeyval' package
+\pst@addfams{pst-func}
+
+\def\fileversion{0.38}
+\def\filedate{2004/11/08}
+\message{`PST-func' v\fileversion, \filedate\space (Herbert Voss)}
+%
+\pstheader{pst-func.pro}
+%\def\pst@funcdict{tx@FuncDict begin }
+%\def\tx@saveCoor{\pst@3ddict saveCoor end }
+%\def\tx@ConvertTo2D{\pst@3ddict ConvertTo2D end }
+
+\define@key[psset]{pst-func}{cosCoeff}{\edef\psk@cosCoeff{#1}}
+\define@key[psset]{pst-func}{sinCoeff}{\edef\psk@sinCoeff{#1}}
+\psset[pst-func]{cosCoeff=0,sinCoeff=1} % coeff=a0 a1 a2 a3 ...
+%
+\def\psFourier{\@ifnextchar[{\psFourier@i}{\psFourier@i[]}}
+\def\psFourier@i[#1]#2#3{{%
+  \pst@killglue
+  \psset{#1}
+  \psplot{#2}{#3}{%
+      /type (cos) def
+      /Fourier {
+        aload length /n exch def
+        n -1 roll 2 div n 1 roll % a0/2
+        n 1 sub -1 0 {
+          /i exch def
+          i x mul 180 mul 3.141592 div
+          type (sin) eq {sin}{cos} ifelse
+          mul n 1 roll
+        } for
+        n 1 sub -1 1 { pop add } for
+      } def
+      [\psk@cosCoeff] Fourier
+      /type (sin) def
+      [0 \psk@sinCoeff] Fourier add
+    }%
+}\ignorespaces}
+%
+\define@key[psset]{pst-func}{coeff}{\edef\psk@coeff{#1}}
+\define@key[psset]{pst-func}{Abbreviation}{\edef\psk@Deriviation{#1}}% compatibility
+\define@key[psset]{pst-func}{Derivation}{\edef\psk@Derivation{#1}}
+\newif\ifPst@markZeros%	
+\define@key[psset]{pst-func}{markZeros}[true]{\@nameuse{Pst@markZeros#1}}
+\define@key[psset]{pst-func}{epsZero}{\edef\psk@epsZero{#1}}
+\define@key[psset]{pst-func}{dZero}{\edef\psk@dZero{#1}}
+\define@key[psset]{pst-func}{zeroLineTo}{\edef\psk@zeroLineTo{#1}}
+\define@key[psset]{pst-func}{zeroLineColor}{\pst@getcolor{#1}\psk@zeroLineColor}
+\newdimen\psk@zeroLineWidth
+\define@key[psset]{pst-func}{zeroLineWidth}{\pssetlength\psk@zeroLineWidth{#1}}
+\define@key[psset]{pst-func}{zeroLineStyle}{%
+  \@ifundefined{psls@#1}%
+    {\@pstrickserr{Line style `#1' not defined}\@eha}%
+    {\edef\psk@zeroLineStyle{#1}}%
+}
+\psset[pst-func]{%
+       coeff=0 1,      % coeff=a0 a1 a2 a3 ...
+       Derivation=0, % 0 is the original function
+       markZeros=false,% no dots for the zeros
+       epsZero=0.1,    % the distance between two zero points   
+       dZero=0.1,      % the distance of the x value for scanning the function
+       zeroLineTo=-1,  % a line to the value of the lineTo's Derivation (-1= none)
+       zeroLineStyle=dashed,%
+       zeroLineWidth=0.5\pslinewidth,%
+       zeroLineColor=black}%
+%
+\def\psPolynomial{\pst@object{psPolynomial}}
+\def\psPolynomial@i#1#2{{%
+  \begin@OpenObj
+  \@nameuse{beginplot@\psplotstyle}%
+  \gdef\psplot@init{}%
+  \@nameuse{testqp@\psplotstyle}%
+  \addto@pscode{%
+    tx@FuncDict begin
+    /coeff [ \psk@coeff ] def
+    /x0 #1 def /x1 #2 def
+    /dx x1 x0 sub \psk@plotpoints\space div def
+    /Derivation \psk@Derivation\space def
+    \ifPst@markZeros 
+      gsave
+      \pst@number\psk@zeroLineWidth SLW
+      \pst@usecolor\psk@zeroLineColor
+      \psk@epsZero\space \psk@dZero\space FindZeros 
+      pstZeros aload length {
+        /xZero exch def
+        xZero \pst@number\psxunit mul /xPixel exch def
+        \psk@dotsize
+        \@nameuse{psds@\psk@dotstyle}%
+        xPixel 0 Dot 
+        \psk@zeroLineTo\space 0 ge { % line to function \psk@lineTo
+          xPixel 0 moveto
+          xZero coeff \psk@zeroLineTo\space FuncValue 
+          \pst@number\psyunit mul xPixel exch L
+          \@nameuse{psls@\psk@zeroLineStyle}
+        } if
+      } repeat
+      grestore
+    \fi
+    /x x0 def
+    /xy {
+      x coeff Derivation FuncValue \pst@number\psyunit mul 
+      x \pst@number\psxunit mul exch
+    } def
+    xy moveto
+  }%
+  \if@pst%	lines and dots
+    \psPolynomial@ii%
+  \else%	curves
+    \psPolynomial@iii%
+  \fi%
+  \end@OpenObj
+}\ignorespaces}
+%
+\def\psPolynomial@ii{%
+  \addto@pscode{%
+     xy \@nameuse{beginqp@\psplotstyle}
+    \psk@plotpoints {
+      xy \@nameuse{doqp@\psplotstyle}
+      /x x dx add def
+    } repeat
+    xy \@nameuse{doqp@\psplotstyle}
+    end
+  }%
+  \@nameuse{endqp@\psplotstyle}%
+}
+\def\psPolynomial@iii{%    curves
+  \addto@pscode{%
+    mark
+    /n 2 def
+    \psk@plotpoints {
+      xy
+      n 2 roll
+      /n n 2 add def
+      /x x dx add def
+    } repeat
+    /x x1 def
+    xy
+    n 2 roll
+    end
+  }%
+  \@nameuse{endplot@\psplotstyle}%
+}
+%
+% Bessel 2004-06-08
+% Manuel Luque, Herbert Voss
+% Look at the end for some more documentation about the algorithm
+%
+\define@key[psset]{pst-func}{constI}{\edef\psk@constI{#1}}
+\define@key[psset]{pst-func}{constII}{\edef\psk@constII{#1}}
+\psset{constI=1,constII=0}
+%
+\def\psBessel{\@ifnextchar[{\psBessel@i}{\psBessel@i[]}}
+\def\psBessel@i[#1]#2#3#4{{%%%  #2 = n
+  \pst@killglue
+  \psset{plotpoints=500}%
+  \psset{#1}%
+  \parametricplot{#3}{#4}{%
+    /J1 0 def
+    /k { 57.29577951 mul } def
+    /xBessel t k def
+    0 0.1 180 {
+      /tB exch k def
+      /J1 J1 0.1 xBessel
+        tB sin mul tB #2\space mul sub cos mul add def
+    } for
+    t J1 180 div \psk@constI\space mul \psk@constII\space add
+  }%
+}\ignorespaces}
+%
+\define@key[psset]{pst-func}{sigma}{\edef\psk@sigma{#1}}
+\psset{sigma=0.5}
+%
+\def\psGauss{\@ifnextchar[{\psGauss@i}{\psGauss@i[]}}
+\def\psGauss@i[#1]#2#3{{%
+    \pst@killglue%
+    \psset{plotpoints=200}%
+    \psset{#1}%
+    \pstVerb{%
+        /euler 2.718282 def
+        /Const 1 \psk@sigma\space div 6.2831 sqrt div def
+    }%
+    \psplot{#2}{#3}{%
+        euler x dup mul 2 div \psk@sigma\space dup mul div neg exp Const mul%
+    }%
+}\ignorespaces}
+%
+\catcode`\@=\PstAtCode\relax
+%
+%% END: pst-abspos.tex
+\endinput
+%