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.