texlive[64732] Master/texmf-dist: pst-math (17oct22)

commits+karl at tug.org commits+karl at tug.org
Mon Oct 17 22:19:57 CEST 2022 

Revision: 64732
          http://tug.org/svn/texlive?view=revision&revision=64732
Author:   karl
Date:     2022-10-17 22:19:56 +0200 (Mon, 17 Oct 2022)
Log Message:
-----------
pst-math (17oct22)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/generic/pst-math/Changes
    trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf
    trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex
    trunk/Master/texmf-dist/dvips/pst-math/pst-math.pro
    trunk/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
    trunk/Master/texmf-dist/tex/latex/pst-math/pst-math.sty

Modified: trunk/Master/texmf-dist/doc/generic/pst-math/Changes
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-math/Changes	2022-10-17 20:19:27 UTC (rev 64731)
+++ trunk/Master/texmf-dist/doc/generic/pst-math/Changes	2022-10-17 20:19:56 UTC (rev 64732)
@@ -1,4 +1,5 @@
 ..... pst-math.sty/pro
+0.66 2022-10-17  - fix bug with random list (doubled first entry)
 0.65 2018-12-16  - allow lists with more than 100 numbers
 0.64 2018-12-13  - added macros for creating lists of randoms
 0.63 2014-07-30  - added the arc secans functions

Modified: trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex	2022-10-17 20:19:27 UTC (rev 64731)
+++ trunk/Master/texmf-dist/doc/generic/pst-math/pst-math-doc.tex	2022-10-17 20:19:56 UTC (rev 64732)
@@ -1,4 +1,4 @@
-%% $Id: pst-math-doc.tex 864 2018-12-15 21:15:11Z herbert $
+%% $Id: pst-math-doc.tex 887 2018-12-29 13:17:59Z herbert $
 \documentclass[fontsize=11pt,english,BCOR=10mm,DIV=12,bibliography=totoc,parskip=false,
    headings=small, headinclude=false,footinclude=false,oneside,abstract=on]{pst-doc}
 \usepackage{pst-math}

Modified: trunk/Master/texmf-dist/dvips/pst-math/pst-math.pro
===================================================================
--- trunk/Master/texmf-dist/dvips/pst-math/pst-math.pro	2022-10-17 20:19:27 UTC (rev 64731)
+++ trunk/Master/texmf-dist/dvips/pst-math/pst-math.pro	2022-10-17 20:19:56 UTC (rev 64732)
@@ -53,7 +53,7 @@
       add					% build the sum
     } for
     Pi 2 mul sqrt z div mul
-    z 5.5 add z 0.5 add exp mul ENeperian z 5.5 add neg exp mul 
+    z 5.5 add z 0.5 add Power mul ENeperian z 5.5 add neg Power mul % Power is controlled exp
   end } bind def
 %    
 /GAMMALN {dup dup dup 5.5 add dup ln 3 -1 roll .5 add mul sub neg 1.000000000190015

Modified: trunk/Master/texmf-dist/tex/generic/pst-math/pst-math.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/pst-math/pst-math.tex	2022-10-17 20:19:27 UTC (rev 64731)
+++ trunk/Master/texmf-dist/tex/generic/pst-math/pst-math.tex	2022-10-17 20:19:56 UTC (rev 64732)
@@ -20,8 +20,8 @@
 \csname PSTmathLoaded\endcsname
 \let\PSTmathLoaded\endinput
 \ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
-\def\fileversion{0.64}
-\def\filedate{2018/12/13}
+\def\fileversion{0.66}
+\def\filedate{2022/10/17}
 \message{`pst-math' v\fileversion\space, (CJ,hv)}
 
 \pstheader{pst-math.pro}

Modified: trunk/Master/texmf-dist/tex/latex/pst-math/pst-math.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pst-math/pst-math.sty	2022-10-17 20:19:27 UTC (rev 64731)
+++ trunk/Master/texmf-dist/tex/latex/pst-math/pst-math.sty	2022-10-17 20:19:56 UTC (rev 64732)
@@ -1,4 +1,4 @@
-% $Id: pst-math.sty 864 2018-12-15 21:15:11Z herbert $
+% $Id: pst-math.sty 867 2018-12-16 12:07:22Z herbert $
 %%
 %% This is file `pst-math.sty'.
 %%
@@ -12,7 +12,7 @@
 %%
 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{pst-math}[2018/12/16 v 0.65 package wrapper for PSTricks pst-math.tex]
+\ProvidesPackage{pst-math}[2022/10/17 v 0.66 package wrapper for PSTricks pst-math.tex]
 \RequirePackage{pst-calculate}
 \RequirePackage{ifluatex}
 \RequirePackage{xstring}
@@ -31,12 +31,12 @@
   \setcounter{Random at Right}{#2}%
   \setcounter{Random at No@max}{#3}%
   \setcounter{Rand at No}{0}%
-  \def\RandomNumbers{}%
+  \gdef\RandomNumbers{}%
   \def\R at Control{}%
   \multido{\iA=1+1}{\theRandom at No@max}{\xdef\R at Control{0\R at Control}}%
 }
 
-\def\RandomNumbers{}%\pscalculate{randint(\theRandom at Left,\theRandom at Right)}}
+\def\RandomNumbers{}
 
 \def\makeSimpleRandomNumberList{%
   \def\RandomNumbers{}%
@@ -52,18 +52,26 @@
 %
 \def\makeRandomNumberList{%
   \edef\@Number{\pscalculate{randint(\theRandom at Left,\theRandom at Right)}}% Zufallszahl
-  \add at Number{\@Number}}
+    \add at Number{\@Number}}
 
+\def\R at Left{}\def\R at Right{}\def\R at Value{}%
+
 \def\add at Number#1{%
-  \def\R at Left{}\def\R at Right{}\def\R at Value{}%
   \StrChar{\R at Control}{#1}[\R at Value]
   \ifnum\R at Value=0 
     \stepcounter{Rand at No}%
-    \ifnum\theRand at No=1\relax
-      \gdef\RandomNumbers{#1}%
+    \ifx\RandomNumbers\@empty %  the first number ??
+      \xdef\RandomNumbers{#1}%
     \else
       \xdef\RandomNumbers{\RandomNumbers,#1}%
     \fi
+%    \ifnum\theRand at No=1\relax
+%      \gdef\RandomNumbers{#1}%
+%      \RandomNumbers\\
+%    \else
+%      \xdef\RandomNumbers{\RandomNumbers,#1}%
+%      \RandomNumbers\\
+%    \fi
     \StrLeft{\R at Control}{\the\numexpr#1-1}[\R at Left]%
     \StrRight{\R at Control}{\the\numexpr\theRandom at No@max-#1}[\R at Right]%
     \xdef\R at Control{\R at Left1\R at Right}%
@@ -76,13 +84,13 @@
   \next
 }
 \def\getNumberFromList#1{%
-  \global\count0 = 1
+  \setcounter{Rand at No}{1}%
   \edef\x{\noexpand\get at Index#1;\RandomNumbers}\x,,\relax}
 \def\get at Index#1;#2,#3,#4\relax{%
-  \ifnum\the\count0=#1 
+  \ifnum\theRand at No = #1 
     \def\next{#2}%
   \else
-    \global\advance\count0 by 1
+    \stepcounter{Rand at No}%
     \def\next{\get at Index#1;#3,#4\relax}%
   \fi
   \next

More information about the tex-live-commits mailing list.