summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-11-15 22:20:36 +0000
committerKarl Berry <karl@freefriends.org>2018-11-15 22:20:36 +0000
commit2f440ca3dc3a3aa309df9143dfe3ce0c8cc29e7a (patch)
treecc5fe1fc7b35e0a8610e0d90b15073fade66656f /Master/texmf-dist
parent32c0c7bb05daec4ed2c82cef7f06599e92579aa9 (diff)
pst-func (15nov18)
git-svn-id: svn://tug.org/texlive/trunk@49166 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/generic/pst-func/Changes1
-rw-r--r--Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdfbin3911316 -> 3910246 bytes
-rw-r--r--Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex14
-rw-r--r--Master/texmf-dist/dvips/pst-func/pst-func.pro50
-rw-r--r--Master/texmf-dist/tex/generic/pst-func/pst-func.tex12
5 files changed, 43 insertions, 34 deletions
diff --git a/Master/texmf-dist/doc/generic/pst-func/Changes b/Master/texmf-dist/doc/generic/pst-func/Changes
index 3fa24cd4261..6631b7f9601 100644
--- a/Master/texmf-dist/doc/generic/pst-func/Changes
+++ b/Master/texmf-dist/doc/generic/pst-func/Changes
@@ -1,4 +1,5 @@
..... pst-func.tex
+0.90 2018-11-14 - fix bug with latest Ghostscript
0.89 2018-04-08 - added labelangle and labeldistance for \psZero,
0.88 2017-08-24 - use always URW fonts instead of PostScript,
eg Helvetica->NimbusSanL
diff --git a/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdf b/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdf
index 3711135db29..94a83645b63 100644
--- a/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex b/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex
index 00bac51fcf1..bd34476ee19 100644
--- a/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex
@@ -1184,11 +1184,11 @@ The integral sin and cosin are defined as
\begin{LTXexample}[pos=t]
\psset{xunit=0.5}
-\begin{pspicture}(-15,-4.5)(15,2)
- \psaxes[dx=1cm,Dx=2]{->}(0,0)(-15.1,-4)(15,2)
- \psplot[plotpoints=1000]{-14.5}{14.5}{ x RadtoDeg sin x div }
- \psSi[plotpoints=1500,linecolor=red,linewidth=1pt]{-14.5}{14.5}
- \pssi[plotpoints=1500,linecolor=blue,linewidth=1pt]{-14.5}{14.5}
+\begin{pspicture}(-14,-4.5)(14,2)
+ \psaxes[dx=1cm,Dx=2]{->}(0,0)(-13.1,-4)(13,2)
+ \psplot[plotpoints=1000]{-12.5}{12.5}{ x RadtoDeg sin x div }
+ \psSi[plotpoints=1500,linecolor=red,linewidth=1pt]{-12.5}{12.5}
+ \pssi[plotpoints=1500,linecolor=blue,linewidth=1pt]{-12.5}{12.5}
\rput(-5,1.5){\color{red}$Si(x)=\int\limits_{0}^x \frac{\sin(t)}{t}\dt$}
\rput(8,-1.5){\color{blue}$si(x)=-\int\limits_{x}^{\infty} \frac{\sin(t)}{t}\dt=Si(x)-\frac{\pi}{2}$}
\rput(8,.5){$f(x)= \frac{\sin(t)}{t}$}
@@ -1199,8 +1199,8 @@ The integral sin and cosin are defined as
\begin{LTXexample}[pos=t]
\psset{xunit=0.5}
-\begin{pspicture*}(-15,-4.2)(15,4.2)
- \psaxes[dx=1cm,Dx=2]{->}(0,0)(-15.1,-4)(15,4)
+\begin{pspicture*}(-13,-4.2)(13,4.2)
+ \psaxes[dx=1cm,Dx=2]{->}(0,0)(-12.1,-4)(12,4)
\psplot[plotpoints=1000]{-14.5}{14.5}{ x RadtoDeg cos x Div }
\psCi[plotpoints=500,linecolor=red,linewidth=1pt]{-11.5}{11.5}
\psci[plotpoints=500,linecolor=blue,linewidth=1pt]{-11.5}{11.5}
diff --git a/Master/texmf-dist/dvips/pst-func/pst-func.pro b/Master/texmf-dist/dvips/pst-func/pst-func.pro
index 25a8995ee10..8be99845cd6 100644
--- a/Master/texmf-dist/dvips/pst-func/pst-func.pro
+++ b/Master/texmf-dist/dvips/pst-func/pst-func.pro
@@ -23,15 +23,18 @@ tx@FuncDict begin
%
/eps1 1.0e-05 def
/eps2 1.0e-04 def
+/eps5 1.0e-05 def
/eps8 1.0e-08 def
%
/PiHalf 1.57079632679489661925640 def
/CEuler 0.5772156649 def % Euler-Mascheroni constant
%
/factorial { % n on stack, returns n!
- dup 0 eq { 1 }{
- dup 1 gt { dup 1 sub factorial mul } if }
- ifelse } def
+ dup 32 gt { pop 1e32 } {
+ dup 0 eq { 1 }{
+ dup 1 gt { dup 1 sub factorial mul } if }
+ ifelse } ifelse
+} def
%
/MoverN { % m n on stack, returns the binomial coefficient m over n
2 dict begin
@@ -121,44 +124,49 @@ tx@FuncDict begin
end
false /Lineto /lineto load def Line
} def
-%
+%%
/Si { % integral sin from 0 to x (arg on stack)
- /arg exch def
- /Sum arg def
- /sign -1 def
- /index 3 def
- {
- arg index exp index div index factorial div sign mul
+ 10 dict begin % hold all local
+ /arg exch def % x
+ /Sum arg def %
+ /sign -1 def
+ /I 3 def
+ { % a sequence of x - x^3/(3*3!) + x^5/(5*5!) -...+...
+ arg I Power dup abs 1e30 gt { pop exit } if
+ I factorial div I div sign mul
dup abs eps8 lt { pop exit } if
Sum add /Sum exch def
/sign sign neg def
- /index index 2 add def
+ /I I 2 add def
} loop
Sum
+ end
} def
+%
/si { % integral sin from x to infty -> si(x)=Si(x)-pi/2
Si PiHalf sub
} def
+%
/Ci { % integral cosin from x to infty (arg on stack)
+ 10 dict begin % hold all local
abs /arg exch def
arg 0 eq { 0 } {
- /argExp 1 def
- /fact 1 def
/Sum CEuler arg ln add def
/sign -1 def
- /index 2 def
+ /I 2 def
{
- /argExp argExp arg arg mul mul def
- /fact fact index 1 sub index mul mul def
- argExp index div fact div sign mul
- dup abs exch Sum add /Sum exch def
- eps8 lt { exit } if
- /sign sign neg def
- /index index 2 add def
+ arg I Power dup abs 1e30 gt { pop exit } if
+ I factorial div I div sign mul
+ dup abs eps8 lt { pop exit } if
+ Sum add /Sum exch def
+ /sign sign neg def
+ /I I 2 add def
} loop
Sum
} ifelse
+ end
} def
+%
/ci { % integral cosin from x to infty -> ci(x)=-Ci(x)+ln(x)+CEuler
dup Ci neg exch abs ln add CEuler add
} def
diff --git a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
index 8b9572fc3d6..f65c20d6c7b 100644
--- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
+++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex
@@ -31,8 +31,8 @@
% interface to the `xkeyval' package
\pst@addfams{pst-func}
%
-\def\fileversion{0.89}
-\def\filedate{2018/04/08}
+\def\fileversion{0.90}
+\def\filedate{2018/11/14}
\message{`PST-func' v\fileversion, \filedate\space (hv)}
%
\pstheader{pst-func.pro}
@@ -1238,10 +1238,10 @@
\def\pst@tempA{#1}%
\ifdim#1pt<\z@ \psline(#1,0)(0,0)\def\pst@tempA{0}\fi
\psplot[algebraic=false]{\pst@tempA}{#2}{
- \psk@alpha \psk@beta \psk@alpha neg exp mul % alpha*beta^(-alpha)
- x \psk@alpha 1 sub exp % x^(alpha-1)
+ \psk@alpha \psk@beta \psk@alpha neg Power mul % alpha*beta^(-alpha)
+ x \psk@alpha 1 sub Power % x^(alpha-1)
mul
- Euler x \psk@beta div \psk@alpha exp neg exp % e^(-(x/beta)^alpha))
+ Euler x \psk@beta div \psk@alpha Power neg Power % e^(-(x/beta)^alpha))
mul }
\end@OpenObj%
\ignorespaces%
@@ -1254,7 +1254,7 @@
\ifdim#1pt<\z@ \psline(#1,0)(0,0)\def\pst@tempA{0}\fi
\psplot[algebraic=false]{\pst@tempA}{#2}{
1
- Euler x \psk@beta div \psk@alpha exp neg exp % e^(-(x/beta)^alpha))
+ Euler x \psk@beta div \psk@alpha Power neg Power % e^(-(x/beta)^alpha))
sub
}%
\end@OpenObj%