From 064deb07bb23380362fff63e0d3f1162d2ea2765 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 6 Jun 2020 21:12:15 +0000 Subject: pst-func (6jun20) git-svn-id: svn://tug.org/texlive/trunk@55439 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-func/pst-func.tex | 48 ++++++++++++++++++++-- 1 file changed, 45 insertions(+), 3 deletions(-) (limited to 'Master/texmf-dist/tex/generic/pst-func') 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 0bef36090b6..c581b1e49f1 100644 --- a/Master/texmf-dist/tex/generic/pst-func/pst-func.tex +++ b/Master/texmf-dist/tex/generic/pst-func/pst-func.tex @@ -1,4 +1,4 @@ -%% $Id: pst-func.tex 861 2018-12-13 20:40:06Z herbert $ +%% $Id: pst-func.tex 1184 2020-06-06 18:36:57Z herbert $ %% %% This is file `pst-func.tex', %% @@ -31,8 +31,8 @@ % interface to the `xkeyval' package \pst@addfams{pst-func} % -\def\fileversion{0.93} -\def\filedate{2019/05/17} +\def\fileversion{0.95} +\def\filedate{2020/06/06} \message{`PST-func' v\fileversion, \filedate\space (hv)} % \pstheader{pst-func.pro} @@ -268,6 +268,48 @@ }% }\ignorespaces} % +\define@key[psset]{pst-func}{n}[1]{\def\psk@func@n{#1 }} +\psset[pst-func]{n=0} +\def\psLaguerre{\@ifnextchar[{\psLaguerre@i}{\psLaguerre@i[]}}%% hv 20200111 +\def\psLaguerre@i[#1](#2,#3){{%%% n + \pst@killglue% + \psplot[#1]{#2}{#3}{% + /L_n 1 def + 0 1 \psk@func@n { + /k_i ED + -1 k_i exp k_i factorial div + \psk@func@n k_i MoverN mul + x k_i exp mul L_n add + /L_n ED + } for + x \pst@number\psxunit mul L_n + %dup == %\pst@number\psyunit div + }% +}\ignorespaces} +% +\def\psLegendre{\@ifnextchar[{\psLegendre@i}{\psLegendre@i[]}}%% hv 20200115 +\def\psLegendre@i[#1](#2,#3){{%%% n + \pst@killglue% + \psplot[#1]{#2}{#3}{% + /P_n 0 def + \psk@func@n 0 eq { /P_1 1 def }{ \psk@func@n 1 eq { /P_1 x def } + { /P_0 1 def + /P_1 x def + 2 1 \psk@func@n { + /k_i ED + k_i dup add 1 sub x mul P_1 mul % (2n-1)*x*P_1 + k_i 1 sub P_0 mul sub % − ( n−1 ) P_{n-2}(x) + k_i div + /P_0 P_1 def + /P_1 ED + } for +%n Pn ( x ) = ( 2n − 1 ) P_{n−1}(x) − ( n−1 ) P_{n-2}(x) + } ifelse } ifelse + x \pst@number\psxunit mul P_1 + %dup == %\pst@number\psyunit div + }% +}\ignorespaces} +% \define@key[psset]{pst-func}{sigma}[0.5]{\def\psk@sigma{#1 }} \define@key[psset]{pst-func}{mue}[0]{\def\psk@mue{#1 }} \define@key[psset]{pst-func}{nue}[1]{\def\psk@nue{#1 }} -- cgit v1.2.3