From 1d37fde2e023b21781cbcfa6c4d826e879b21c54 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 4 Feb 2018 21:38:21 +0000 Subject: pstricks-add (4feb18) git-svn-id: svn://tug.org/texlive/trunk@46541 c570f23f-e606-0410-a88d-b1316a301751 --- .../tex/latex/pstricks-add/pstricks-add.sty | 34 ++++++++++++++++++++-- 1 file changed, 32 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex/latex/pstricks-add') diff --git a/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty b/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty index c7b73696431..97fdcfab764 100644 --- a/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty +++ b/Master/texmf-dist/tex/latex/pstricks-add/pstricks-add.sty @@ -1,4 +1,4 @@ -%% $Id: pstricks-add.sty 718 2018-01-30 09:11:28Z herbert $ +%% $Id: pstricks-add.sty 721 2018-02-03 20:37:57Z herbert $ % \RequirePackage{pstricks} \RequirePackage{pst-plot} @@ -7,7 +7,7 @@ \RequirePackage{pst-math} \RequirePackage{multido} -\ProvidesPackage{pstricks-add}[2010/02/11 v. 0.14 package wrapper for +\ProvidesPackage{pstricks-add}[2018/02/03 v. 0.15 package wrapper for pstricks-add.tex (hv)] \input{pstricks-add.tex} \ProvidesFile{pstricks-add.tex} @@ -16,4 +16,34 @@ \ProvidesFile{pstricks-add.pro} [2009/12/17 v. 0.23, PostScript prologue file (hv)] \@addtofilelist{pstricks-add.pro}}{}% + +\RequirePackage{xparse} + +\ExplSyntaxOn +\DeclareExpandableDocumentCommand\psCalc{m}{\fp_to_decimal:n{#1}}% +\ExplSyntaxOff + +\def\psRiemannSum(#1,#2)#3#4{% (x0,x1) n f(#1) + \def\psFunction@##1{#4}% + \edef\ps@@dx{\psCalc{(#2-#1)/#3}}% + \edef\ps@@dxHalf{\psCalc{\ps@@dx/2}}% +% \typeout{dx=\ps@dx}% + \def\psRightSumValue{0}% + \def\psLeftSumValue{0}% + \def\psMiddleSumValue{0}% + \def\psDiffSumValue{0}% + \Multido{\rA=#1+\ps@@dx,\rB=\ps@@dx+\ps@@dx,\rC=\ps@@dxHalf+\ps@@dx}{#3}{% + \def\ps@rightY{\psCalc{\psFunction@{\rB}}}% + \def\ps@leftY{\psCalc{\psFunction@{\rA}}}% + \def\ps@middleY{\psCalc{\psFunction@{\rC}}}% +% \typeout{\ps@leftY, \ps@rightY }% + \edef\psLeftSumValue{\psCalc{\psLeftSumValue+\ps@@dx*\ps@leftY}}% + \edef\psRightSumValue{\psCalc{\psRightSumValue+\ps@@dx*\ps@rightY}}% + \edef\psMiddleSumValue{\psCalc{\psMiddleSumValue+\ps@@dx*\ps@middleY}}% + \edef\psDiffSumValue{\psCalc{\psDiffSumValue+abs(\ps@@dx*(\ps@rightY-\ps@leftY))}}% +% \typeout{\psLeftSumValue , \psRightSumValue }% + }% end \Multido +} + + \endinput -- cgit v1.2.3