diff options
author | Karl Berry <karl@freefriends.org> | 2018-11-15 22:20:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-11-15 22:20:36 +0000 |
commit | 2f440ca3dc3a3aa309df9143dfe3ce0c8cc29e7a (patch) | |
tree | cc5fe1fc7b35e0a8610e0d90b15073fade66656f | |
parent | 32c0c7bb05daec4ed2c82cef7f06599e92579aa9 (diff) |
pst-func (15nov18)
git-svn-id: svn://tug.org/texlive/trunk@49166 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-func/Changes | 1 | ||||
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-func/pst-func-doc.pdf | bin | 3911316 -> 3910246 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/generic/pst-func/pst-func-doc.tex | 14 | ||||
-rw-r--r-- | Master/texmf-dist/dvips/pst-func/pst-func.pro | 50 | ||||
-rw-r--r-- | Master/texmf-dist/tex/generic/pst-func/pst-func.tex | 12 |
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 Binary files differindex 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 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% |