summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-07-10 15:38:36 +0000
committerKarl Berry <karl@freefriends.org>2010-07-10 15:38:36 +0000
commit8b737baea7bdb20a8dfcc830e2b6c3cbebcc759d (patch)
tree3cca88f1a76d8c9eda0363e4b35b6343271a707e /Master
parent20b5954c1190deeeaa6fca5e731e7baddf30b348 (diff)
rm rangen, author request
git-svn-id: svn://tug.org/texlive/trunk@19346 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf-dist/doc/latex/rangen/README37
-rw-r--r--Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE6
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex53
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex27
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/randomR.tex44
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex38
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex24
-rw-r--r--Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex280
-rw-r--r--Master/texmf-dist/source/latex/rangen/rangen.dtx1987
-rw-r--r--Master/texmf-dist/source/latex/rangen/rangen.ins64
-rw-r--r--Master/texmf-dist/tex/latex/rangen/rangen.sty1173
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check2
-rwxr-xr-xMaster/tlpkg/libexec/ctan2tds1
-rw-r--r--Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc1
-rw-r--r--Master/tlpkg/tlpsrc/rangen.tlpsrc0
15 files changed, 2 insertions, 3735 deletions
diff --git a/Master/texmf-dist/doc/latex/rangen/README b/Master/texmf-dist/doc/latex/rangen/README
deleted file mode 100644
index 6ae2f48356d..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/README
+++ /dev/null
@@ -1,37 +0,0 @@
-The rangen Package
-
-The rangen package is a package that generates random integers,
-rational numbers, and decimal number. Actually, the package uses the
-lcg package (by Erich Janka) to generate random integers, while
-rangen builds rational numbers and decimal numbers from the
-generated integers. My purpose in writing this package was to be
-able to create random questions for the quizzes of exerquiz (part of
-AeB). Indeed, that is what you can do with this package: Write a
-quiz question based on a template (for example, differentiate
-$\a x^{\n}$ , where \a and \n are RVs (random variables) generated with
-rangen); determine if the user input is correct; and display the
-correct answer to the question.
-
-Beta Testers wanted: The package is still in development. I would
-invite anyone interested to test the package, looking for bugs.
-Also, suggested features would be appreciated.
-
-The rangen package requires the insdljs package from AeB. The
-package can be used without exerquiz, perhaps there are some
-applications to the generation of random numbers. As pointed out in
-the documentation, the fp package can be used to manipulate the
-numbers created by rangen.
-
-The home page for rangen is
-
- http://www.math.uakron.edu/~dpstory/rangen.html
-
-The home page for AeB is
-
- http://www.math.uakron.edu/~dpstory/webeq.html
-
-Comments and suggestions are always gratefully accepted and seriously
-considered.
-
-D. P. Story
-09/30/09
diff --git a/Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE b/Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE
deleted file mode 100644
index 68fd64ea249..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE
+++ /dev/null
@@ -1,6 +0,0 @@
-The following files have been removed in the TeX Live installation of
-the current package, typically due to duplication, lack of space, or
-missing source code. You can find these files on CTAN. If questions or
-concerns, email tex-live@tug.org.
-
- rangen_man.pdf
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex b/Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex
deleted file mode 100644
index 99170381509..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex
+++ /dev/null
@@ -1,53 +0,0 @@
-\documentclass{article}
-\usepackage[tight,designv]{web}
-\usepackage{insdljs}
-\usepackage[testmode,quiet]{rangen}
-%\usepackage[seed=30,quiet]{rangen}
-
-\parindent0pt\parskip6pt
-
-\begin{document}
-
-\RandomL{\a}{1,-1}$\texttt{\string\a}=\a, \cfmt\a x$
-
-\RandomP[index=5]{\a}{1,x,x^2,x^3}$\a$
-
-\RandomI{\indx}{5}
-\RandomP[index=\indx]{\q}{1+16,\cos(\pi),\pi\sin(\pi),\frac{d}{dx}\frac{1}{2}x^2,{\int \cos(x)\,dx}}
-
-$\displaystyle\q$
-
-\RandomI{\i}{2}\i
-\RandomP[index=\i]{\q}{1+16, \frac{d}{dx}\frac{1}{2}x^2}
-\RandomP[index=\i]{\a}{17,x}
-
-$ \q = \a $
-
-\RandomP{\q}{1+16,\frac{d}{dx}\frac{1}{2}x^2}
-\RandomP[index=\iOf\q]{\a}{17,x}
-
-$\displaystyle\q = \a $
-
-\RandomI{\i}{6}RandomI=\i
-
-\RandomL[index=1]{\a}{17,\rPI,3/4,\rE,88,1/2}\a\quad index=\iOf{\a}
-
-\RandomL[index=\i]{\a}{17,\rPI,3/4,\rE,88,1/2}\a\quad index=\iOf{\a}
-
-\RandomL{\a}{17,\rPI,3/4,\rE,88,1/2}\a\quad index=\iOf{\a}
-
-In practice, \verb!\RandomI! can be used to select one of n problems. Here, we have
-selected the
-\RandomI{\i}{6}
-\ifcase\i\relax\or
-first\or
-second\or
-third\or
-fourth\or
-fifth\or
-sixth\fi\space problem.
-
-
-
-
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex b/Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex
deleted file mode 100644
index ec2a9081a6f..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex
+++ /dev/null
@@ -1,27 +0,0 @@
-\documentclass{article}
-\usepackage[dvipsone]{insdljs}
-\usepackage[testmode,quiet]{rangen}
-
-
-\parindent0pt\parskip6pt
-
-\begin{document}
-
-\RandomQ{\a}[16]{1/8}{3/7}$ 1/8 \le \a \le 3/7 $
-
-\RandomQ{\b}[7]{\a}{15/16}$\a \le \b$
-
-\RandomQ[ne={0,-1}]{\n}{-3}{2/3}$x^{\efmt\n}$
-
-
-\defineQ{\a}{5}{3}\RandomQ{\b}[8]{\a*}{10}$ \a < \b $
-
-\RandomQ{\a}[8]{1}{5}\RandomQ{\b}[8]{\a}{10}$ \a \le \b $
-
-\RandomQ{\a}[8]{1}{5}\RandomQ{\b}[8]{1}{\a*}$ \a > \b $
-
-\RandomQ{\a}[2]{1}{5}\RandomQ{\b}[8]{1}{\a}$ \a \ge \b $
-
-\RandomQ{\a}[2]{1}{5}$\ifnum\typeOf\a=0\relax\cfmt\a\else(\cfmt\a)\fi x$
-
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/randomR.tex b/Master/texmf-dist/doc/latex/rangen/examples/randomR.tex
deleted file mode 100644
index 69f2f2ba1a5..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/randomR.tex
+++ /dev/null
@@ -1,44 +0,0 @@
-\documentclass{article}
-\usepackage[tight,designv]{web}
-\usepackage{insdljs}
-\usepackage[testmode,quiet]{rangen}
-
-\parindent0pt\parskip6pt
-
-\begin{document}
-
-\RandomR{\a}{-2.3}{2.3}\a
-
-\RandomL{\a}{17,\rPI,3/4,\rE,88,1/2}
-
-Choose at random a number from the list \verb!{17,\rPI,3/4,\rE,88,1/2}!:
-The choice is $\texttt{\a}$
-
-\rule{\linewidth}{.4pt}
-
-
-\defineR{\a}{-4.5}\defineR{\b}{5.343}
-
-\RandomR[round=2,showzeros]{\c}{\a}{\b}
-
-Random Real from the interval \texttt{[\a, \b ]} is \texttt{\c}
-
-\RandomR[round=2]{\a}{0}{10}\RandomR[round=2]{\b}{0}{12}
-
-\RandomR[round=2]{\c}{\a}{\b}
-
-A random Real taken from a random interval \texttt{[\a, \b ]} is \texttt{\c}
-
-
-\rule{\linewidth}{.4pt}
-
-
-\RandomR[round=2,showzeros]{\b}{0}{9.5}
-\RandomR[round=2]{\a}{-3}{\b}
-
-We require \verb!\b! to be greater than \texttt{\string\a}:
-$ \texttt{\string\b=\b} > \texttt{\a=\string\a} $
-
-$\texttt{\string\a}=\a\approx\nOf{\a}/\dOf{\a}$
-
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex b/Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex
deleted file mode 100644
index 233b8efd162..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex
+++ /dev/null
@@ -1,38 +0,0 @@
-\documentclass{article}
-\usepackage[dvipsone]{insdljs}
-\usepackage[testmode,quiet]{rangen}
-
-
-
-\parindent0pt\parskip6pt
-
-\begin{document}
-
-\RandomZ[ne={0,-1}]{\n}{-2}{2}$x^{\efmt\n}$
-
-\RandomZ[ne=\zZero]{\b}{-1}{1}
-The value of \texttt{\string\b=\b} and should be
-different from zero. Is it?
-
-\RandomZ{\a}{1}{5}\RandomZ{\b}{\a*}{10}$ \a < \b $
-
-\RandomZ{\a}{1}{5}\RandomZ{\b}{\a*}{10}$ \a \le \b $
-
-\RandomZ{\a}{1}{5}\RandomZ{\b}{1}{\a*}$ \a > \b $
-
-\RandomZ{\a}{1}{5}\RandomZ{\b}{1}{\a}$ \a \ge \b $
-
-\RandomZ[ne=0]{\b}{-1}{1}Is \texttt{\string\b}=\b\space zero?
-
-\RandomL{\a}{-2,4,6,-12,9,5,17}Select a number from a list \texttt{\string\a=\a}
-
-\RandomS{\si}\RandomS{\sii}
-\RandomZ[ne=0]{\a}{-5}{5}
-\RandomZ[ne=0]{\b}{1}{5}
-\RandomZ[ne=0]{\c}{1}{5}
-\RandomZ[ne=0]{\n}{1}{5}
-
-$ \cfmt\a x^{\efmt\n} \si \cfmt\b x \sii \c $
-
-
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex b/Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex
deleted file mode 100644
index e7e4fcffdaf..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex
+++ /dev/null
@@ -1,24 +0,0 @@
-\documentclass{article}
-\usepackage[tight,dvipsone,designv,nodirectory]{web}
-\usepackage{insdljs}
-\usepackage[testmode,quiet]{rangen}
-\usepackage{fp}
-
-\parindent0pt\parskip6pt
-
-\begin{document}
-
-\RandomQ{\a}[6]{2}{4}\RandomQ{\b}[6]{2}{4}\RandomS{\thisop}
-\gcd{\dOf\a}{\dOf\b}
-\FPeval\lcd{clip((\dOf\a)*(\dOf\b)/\thegcd)}
-\FPeval\si{clip(\lcd/(\dOf\a))}
-\FPeval\sii{clip(\lcd/(\dOf\b))}\def\thisop{+}
-\if\thisop+\FPeval\finalnum{clip((\si)*(\nOf\a)+(\sii)*(\nOf\b))}
-\else\FPeval\finalnum{clip((\si)*(\nOf\a)-(\sii)*(\nOf\b))}\fi
-\defineQ{\ans}{\finalnum}{\lcd}
-$$
-\ds\a \thisop \ds\b = \frac{(\si)(\nOf\a)+(\sii)(\nOf\b)}{\lcd}
- = \frac{\finalnum}{\lcd}\ifnum\lcd=\dOf\ans\else =\ds\ans\fi
-$$
-
-\end{document}
diff --git a/Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex b/Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex
deleted file mode 100644
index 217065c0e46..00000000000
--- a/Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex
+++ /dev/null
@@ -1,280 +0,0 @@
-\documentclass{article}
-\usepackage[fleqn]{amsmath}
-\usepackage[tight,dvipsone,designiii,nodirectory,usesf]{web}
-\usepackage{exerquiz}
-\usepackage[equations,ImplMulti,indefIntegral,limitArith,nodec]{dljslib}
-\usepackage[quiet,testmode]{rangen}
-
-\title{Experiments in Creating Random Problems}
-\author{D. P. Story}
-\subject{Test file for the rangen Package}
-\keywords{LaTeX, rangen, quizzes, random}
-
-\university{NORTHWEST FLORIDA STATE COLLEGE\\
- Department of Mathematics}
-\email{dpstory@acrotex.net}
-\version{1.0}
-
-%\nocopyright
-\norevisionLabel
-\makeatletter
-\def\eq@textFont{/TiRo}
-\makeatother
-
-\everyTextField{\BG{1 1 1}}
-\everyCheckBox{\BG{1 1 1}}
-\everyRespBoxMath{\rectW{1.9in}\textSize{0}}
-\everyRespBoxTxt{\rectW{1.9in}\textSize{0}}
-
-\newcommand{\cs}[1]{\texttt{\char`\\#1}}
-
-\renewcommand\nodecAlertMsg{%
- "A decimal answer is not acceptable here.
- Please express your answer using a fraction."}
-\newenvironment{eqComments}[1][\strut]{\smallskip\leftskip-\labelwidth
-\item[]\textbf{\textcolor{blue}{#1}}}{\par\smallskip}
-
-\begin{document}
-
-\maketitle
-
-\begin{shortquiz}*[sq] Answer each of the following. Passing is 100\%.
-
-\begin{questions}
-
-\begin{eqComments}[Arithmetic]\end{eqComments}
-
-%% addition
-\RandomQ{\a}[9]{1/8}{6/7}\RandomQ{\b}[8]{1/16}{15/16}
-
-\item $\displaystyle \ds\a + \ds\b =
- \RespBoxMath{ (\nOf\a * \dOf\b + \nOf\b * \dOf\a )/( \dOf\a * \dOf\b ) }{2}{.0001}{[0,2]}[{priorParse: \Array(nodec,NoAddOrSub)}]$\hfill
- \CorrAnsButton{rFrac( rEval( \nOf\a * \dOf\b + \nOf\b * \dOf\a )/rEval( \dOf\a * \dOf\b ) )}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-% subtraction
-\RandomQ{\a}[16]{1/16}{15/16}\RandomQ[ne=\a]{\b}[16]{1/8}{15/16}
-
-\item $\displaystyle \ds\a - \ds\b =
- \RespBoxMath{ (\nOf\a * \dOf\b - \nOf\b * \dOf\a )/( \dOf\a * \dOf\b ) }{2}{.0001}{[0,2]}[{priorParse: \Array(nodec,NoAddOrSub)}]$\hfill
- \CorrAnsButton{rFrac( rEval( \nOf\a * \dOf\b - \nOf\b * \dOf\a )/rEval( \dOf\a * \dOf\b ) )}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-% subtraction
-\RandomQ{\a}[16]{1/8}{15/16}\RandomQ[ne=\a]{\b}[16]{1/8}{15/16}
-
-\item $\displaystyle \ds\a - \ds\b =
- \RespBoxMath{ (\nOf\a * \dOf\b - \nOf\b * \dOf\a )/( \dOf\a * \dOf\b ) }{2}{.0001}{[0,2]}[{priorParse: \Array(nodec,NoAddOrSub)}]$\hfill
- \CorrAnsButton{rFrac( rEval( \nOf\a * \dOf\b - \nOf\b * \dOf\a )/rEval( \dOf\a * \dOf\b ) )}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\begin{eqComments}
-This next problem illustrates the use of \cs{RandomL} and \cs{RansomAS}. The summands are
-determined from a list of rational numbers. Addition or subtraction of the summands is determined
-by \cs{RandomAS}.
-\end{eqComments}
-
-%% Random add/subtr using RandomL and RandomAS
-\RandomL{\a}{1/2,2/3,5/3,2/5,6/5}\RandomL{\b}{4/3,3/4,8/7,3/2}\RandomS{\as}
-
-\item $\displaystyle \ds\a \as \ds\b =
- \RespBoxMath{ (\nOf\a * \dOf\b \as \nOf\b * \dOf\a )/( \dOf\a * \dOf\b ) }{2}{.0001}{[0,2]}[{priorParse: \Array(nodec,NoAddOrSub)}]$\hfill
- \CorrAnsButton{rFrac( rEval( \nOf\a * \dOf\b \as \nOf\b * \dOf\a )/rEval( \dOf\a * \dOf\b ) )}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-
-\begin{eqComments}
-This next example illustrates how you can create a solution to a problem. This is a simple
-addition problem using the built-in command \cs{qAdd}. Solutions to more advanced problems
-might be obtained using the \textsf{fp} package.
-\end{eqComments}
-
-\begin{writeRVsTo}{quizzes}
-\RandomQ{\a}[9]{1/8}{6/7}\RandomQ{\b}[7]{1/16}{15/16}
-\end{writeRVsTo}
-
-%% addition
-\item $\displaystyle \ds\a + \ds\b =
- \RespBoxMath{ (\nOf\a * \dOf\b + \nOf\b * \dOf\a )/( \dOf\a * \dOf\b ) }*{2}{.0001}{[0,2]}[{priorParse: \Array(nodec,NoAddOrSub)}]$\hfill
- \CorrAnsButton{rFrac( rEval( \nOf\a * \dOf\b + \nOf\b * \dOf\a )/rEval( \dOf\a * \dOf\b ) )}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\begin{solution}\relax\RNGadd\a\b\defineQ{\ans}{\rfNumer}{\rfDenom}%
-The solution to this problem is
-\begin{equation*}
- \boxed{\ds\a + \ds\b = \ds\ans}
-\end{equation*}
-\end{solution}
-
-
-\newpage
-\begin{eqComments}[Definite Integrals]\end{eqComments}
-
-\RandomQ{\a}[8]{1/4}{7/6}
-\RandomZ{\b}{1}{3}
-\RandomQ{\n}[8]{1/2}{3/2}
-\RandomZ[ne=0]{\c}{-3}{3}
-
-\item $\displaystyle\int_{\a}^{\b} \cfmt\c x^{\efmt\n}\,dx =
- \RespBoxMath{\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rEval(\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1))}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-
-\RandomQ{\a}{1/6}{2/9}
-\RandomZ{\b}{1}{10}
-\RandomQ[ne={0,-1}]{\n}[5]{-1}{1}
-\RandomZ[ne=0]{\c}{-3}{3}
-
-\item $\displaystyle\int_{\a}^{\b} \cfmt\c x^{\efmt\n}\,dx =
- \RespBoxMath{\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rEval(\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1))}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\RandomZ{\a}{1}{6}
-\RandomZ{\b}{\a*}{8}
-\RandomZ{\n}{1}{5}
-\RandomZ[ne=0]{\c}{-3}{3}
-
-\item $\displaystyle\int_{\a}^{\b} \cfmt\c x^{\efmt\n}\,dx =
- \RespBoxMath{\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rFrac(rEval(\c ( (\b)^(\n+1)-(\a)^(\n+1)))/rEval(\n+1))}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\RandomZ{\a}{1}{5}
-\RandomZ{\b}{\a*}{10}
-\RandomQ[ne={0,-1}]{\n}{-3}{2/3}
-\RandomZ[ne=0]{\c}{-3}{3}
-
-\item $\displaystyle\int_{\a}^{\b} \cfmt\c x^{\efmt\n}\,dx =
- \RespBoxMath{\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rEval(\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1))}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\RandomQ{\a}{1/4}{2/3}
-\RandomQ{\b}{\a*}{7/6}
-\RandomQ[ne={0,-1}]{\n}{-3}{2/3}
-\RandomZ[ne=0]{\c}{-3}{3}
-
-\item $\displaystyle\int_{\a}^{\b} \cfmt\c x^{\efmt\n}\,dx =
- \RespBoxMath{\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rEval(\c((\b)^(\n+1)-(\a)^(\n+1))/(\n+1))}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\begin{eqComments}
-This next problem was created from random lists of values using \cs{RandomL}.
-\end{eqComments}
-
-\RandomL{\c}{1/6,1/4,1/6,1/2}
-\RandomL{\a}{1,2,3,4,5,6}
-\ifnum\a=1
- \def\strAns{sin(PI/\dOf\c)}
-\else
- \def\strAns{(1/\a)(sin(\a*PI/\dOf\c))}
-\fi
-
-\item $\displaystyle\int_0^{\pi/\dOf\c} \cos(\cfmt\a x) \,dx =
- \RespBoxMath{(1/\a)(sin(\a*PI/\dOf\c))}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rEval(\strAns)}*{rngCorrAnsButton\RNGprintf{\%.4f}}\kern1bp\sqTallyBox
-
-
-\newpage
-\begin{eqComments}[Indefinite Integration]\end{eqComments}
-
-\RandomQ{\a}{1/6}{3/2}
-\RandomQ{\b}{1/6}{3/2}
-\RandomZ{\c}{1}{3}
-
-\item $\displaystyle\int \cds\a x^2 + \ds\b x + \c\,dx =
- \RespBoxMath{(\a/3)x^3+(\b/2) x^2 + \c x}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{(rFrac(rEval(\nOf\a)/rEval(3*\dOf\a))) x^3
- + (rFrac(rEval(\nOf\b)/rEval(2*\dOf\b))) x^2
- + \c x + C}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\RandomQ{\a}{1/3}{3}
-\RandomQ{\b}{1/6}{3/2}
-\RandomZ{\c}{1}{3}
-
-\item $\displaystyle\int \cds\a x^2 + \ds\b x + \c\,dx =
- \RespBoxMath{(\a/3)x^3+(\b/2) x^2 + \c x}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{(rFrac(rEval(\nOf\a)/rEval(3*\dOf\a))) x^3
- + (rFrac(rEval(\nOf\b)/rEval(2*\dOf\b))) x^2
- + \c x + C}*{rngCorrAnsButton}\kern1bp\sqTallyBox
-
-\newpage
-\begin{eqComments}[Differentiation]\end{eqComments}
-
-\RandomQ[ne=0]{\c}[4]{-2}{2}
-\RandomQ[ne=0]{\n}[1]{-3}{2}
-
-\item $\displaystyle \frac{d}{dx} \cds\c x^{\efmt\n} =
- \ifnum\nOf\n=\dOf\n
- \RespBoxMath{\c}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rFrac(\nOf\c/\dOf\c)}*{rngCorrAnsButton}%
- \else
- \RespBoxMath{\c*\n*x^(\n-1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rFrac(rEval(\nOf\c*\nOf\n)/rEval(\dOf\c*\dOf\n))
- x^(rFrac(rEval(\nOf\n-\dOf\n)/\dOf\n))}*{rngCorrAnsButton}%
- \fi
- \kern1bp\sqTallyBox
-
-\begin{eqComments}
-This next problem uses a random sign, defined by \cs{RandomS}.
-\end{eqComments}
-
-\RandomQ{\c}[4]{2}{3}\RandomS{\s}
-\RandomQ[ne=0]{\n}[2]{-3}{2}
-
-\item $\displaystyle \frac{d}{dx} \cfmt\s\ds\c x^{\efmt\n} =
- \ifnum\nOf\n=\dOf\n
- \RespBoxMath{\s\c}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{\s\nOf\c/\dOf\c}*{rngCorrAnsButton}%
- \else
- \RespBoxMath{\s\c*\n*x^(\n-1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rFrac(rEval(\s\nOf\c*\nOf\n)/rEval(\dOf\c*\dOf\n))
- x^(rFrac(rEval(\nOf\n-\dOf\n)/\dOf\n))}*{rngCorrAnsButton}%
- \fi
- \kern1bp\sqTallyBox
-
-
-\RandomQ[ne=0]{\c}[4]{-2}{5}
-\RandomQ{\n}[4]{2}{5}
-
-\item $\displaystyle \frac{d}{dx} \ds\c x^{\efmt\n} =
- \ifnum\nOf\n=\dOf\n
- \RespBoxMath{\c}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{\nOf\c/\dOf\c}*{rngCorrAnsButton}%
- \else
- \RespBoxMath{\c*\n*x^(\n-1)}{3}{.0001}{[0,2]}$\hfill
- \CorrAnsButton{rFrac(rEval(\nOf\c*\nOf\n)/rEval(\dOf\c*\dOf\n))
- x^(rFrac(rEval(\nOf\n-\dOf\n)/\dOf\n))}*{rngCorrAnsButton}%
- \fi
- \kern1bp\sqTallyBox
-
-\newpage
-
-\begin{eqComments}[Analytic Geometry]\end{eqComments}
-
-\RandomZ{\a}{-10}{9}
-\RandomZ{\b}{-10}{9}
-\RandomZ{\c}{\a*}{10}
-\RandomZ{\d}{\b*}{10}
-\defineDepQJS{\m}{\d - \b}{\c - \a}{rFrac(rEval(\nOf\m)/rEval(\dOf\m))}
-\defineDepQJS{\yIntercept}{\b - \a*\m}{1}{rFrac((rEval( \b * \dOf\m - \a*\nOf\m ))/(rEval(\dOf\m)))}
-
-
-\item Let $P(\,\a, \b\,)$ be a point and $Q(\,\c, \d\,)$ be a point. Find the equation of the line that
- passes through $P$ and $Q$.\par\kern3pt
- \RespBoxMath{y = \m*x + \yIntercept }(xy){3}{.0001}{[0,2]x[0,2]}*{ProcRespEq}\hfill
- \CorrAnsButton{y = \js\m\space x + \js\yIntercept}*{rngCorrAnsButton}%
- \kern1bp\sqTallyBox
-
-\RandomZ{\a}{-10}{9}
-\RandomZ{\b}{-10}{9}
-\RandomZ{\c}{\a*}{10}
-\RandomZ{\d}{\b*}{10}
-\defineDepQJS{\m}{\d - \b}{\c - \a}{rFrac(rEval(\nOf\m)/rEval(\dOf\m))}
-\defineDepQJS{\yIntercept}{\b - \a*\m}{1}{rFrac((rEval( \b * \dOf\m - \a*\nOf\m ))/(rEval(\dOf\m)))}
-
-\item Let $P(\,\a, \b\,)$ be a point and $Q(\,\c, \d\,)$ be a point. Find the equation of the line that
- passes through $P$ and $Q$.\par\kern3pt
- \RespBoxMath{y = \m*x + (\b - \a*\m) }(xy){3}{.0001}{[0,2]x[0,2]}*{ProcRespEq}\hfill
- \CorrAnsButton{y = \js\m\space x + \js\yIntercept}*{rngCorrAnsButton}%
- \kern1bp\sqTallyBox
-
-\end{questions}
-\end{shortquiz}
-\begin{flushright}
-\sqClearButton\kern1bp\sqTallyTotal
-\end{flushright}
-\end{document}
diff --git a/Master/texmf-dist/source/latex/rangen/rangen.dtx b/Master/texmf-dist/source/latex/rangen/rangen.dtx
deleted file mode 100644
index c189c79a2b6..00000000000
--- a/Master/texmf-dist/source/latex/rangen/rangen.dtx
+++ /dev/null
@@ -1,1987 +0,0 @@
-%\iffalse
-%<*copyright>
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Rangen.sty package, 2000-3-05 %%
-%% Copyright (C) 1999-2002 D. P. Story %%
-%% dpstory@uakron.edu %%
-%% %%
-%% This program can redistributed and/or modified under %%
-%% the terms of the LaTeX Project Public License %%
-%% Distributed from CTAN archives in directory %%
-%% macros/latex/base/lppl.txt; either version 1 of the %%
-%% License, or (at your option) any later version. %%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%</copyright>
-%<package>\NeedsTeXFormat{LaTeX2e}[1997/12/01]
-%<package>\ProvidesPackage{rangen}
-%<package> [2009/04/18 v1.3e Rangen: Generate Random Questions (dps)]
-%<*driver>
-\documentclass{ltxdoc}
-\usepackage[colorlinks,hyperindex]{hyperref}
-%\pdfstringdefDisableCommands{\let\\\textbackslash}
-%\EnableCrossrefs \CodelineIndex
-\begin{document}
- \GetFileInfo{rangen.sty}
-% \settowidth{\oddsidemargin}{0pt}%
-% \setlength{\evensidemargin}{0pt}
-% \setlength{\marginparsep}{0pt}
-% \setlength{\marginparwidth}{0pt}
-% \setlength\textwidth{6in}
-% \hoffset=.5in
-% \hsize = 6in
- \title{\textsf{Rangen}\texorpdfstring{\\}{:} Random Generation of Integer, Rational, and Real Numbers with
- Applications to the \texttt{exercise}, \texttt{quiz}, and \texttt{shortquiz} environments of \textsf{Exerquiz}}
- \author{D. P. Story\\
- Email: \texttt{dpstory@uakron.edu}}
- \date{processed \today}
- \maketitle
- \tableofcontents
- \let\Email\texttt
- \DocInput{rangen.dtx}
- \PrintIndex
-\end{document}
-%</driver>
-% \fi
-% \MakeShortVerb{|}
-% \StopEventually{}
-%
-% \DoNotIndex{\def,\edef,\gdef,\xdef,\global,\long,\let}
-% \DoNotIndex{\expandafter,\string,\the,\ifx,\else,\fi}
-% \DoNotIndex{\csname,\endcsname,\relax,\begingroup,\endgroup}
-% \DoNotIndex{\DeclareTextCommand,\DeclareTextCompositeCommand}
-% \DoNotIndex{\space,\@empty,\special}
-%
-% \begin{macrocode}
-%<*package>
-% \end{macrocode}
-% \section{Introduction}
-%
-% This package provides some commands for creating randomly generated integers, rational,
-% and real numbers. There are options for specifying constraints on the generation of the numbers.
-% Companion JavaScript functions are developed to use these random numbers as part of a
-% question in a \texttt{shortquiz} or \texttt{quiz}. The syntax of this package can be used
-% to pose number-related questions, the JavaScript can be used to create the answer to the
-% question based on a formula. You'll have to see it to believe it.
-%
-% \section{The Main Code}
-%
-% \subsection{Declare Options}
-%
-% This package has not options, but uses the really nice \textsf{lcg} Package,
-% by Erich Janka (\texttt{janka@utanet.at}). We simply pass any
-% options on to \textsf{lcd}.
-% \begin{macrocode}
-\newcount\seedCnt
-\DeclareOption{testmode}{%
- \InputIfFileExists{\jobname.seed}{}{\def\thisseed{1}}%
- \PassOptionsToPackage{seed=\thisseed}{lcg}%
- \AtEndOfPackage{\reseedEachRun}%
-}
-\def\reseedEachRun{%
- \seedCnt=\thisseed
- \advance\seedCnt1\relax
- \newwrite \rngWrite
- \immediate\openout\rngWrite \jobname.seed
- \immediate\write\rngWrite{\string\def\string\thisseed{\the\seedCnt}}
- \immediate\closeout\rngWrite
-}
-\def\RNG@Dec{.}
-\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{lcg}}
-\ProcessOptions
-\RequirePackage{lcg}[2008/09/10]
-% \end{macrocode}
-% Save the seed value so we can reproduce the same pseudo-random number sequence.
-% \begin{macrocode}
-\edef\rng@saveSeed{\the\cr@nd}
-% \end{macrocode}
-% There are three data types: Integer, Rational, and Real. The following macros
-% gives each of these types a numerical value, 0, 1 and 2, respectively.
-% \begin{macrocode}
-\newcount\loopCnt
-\def\maxLoopLimit{10}
-\def\typeCodeForz{0}
-\def\typeCodeForq{1}
-\def\typeCodeForr{2}
-% \end{macrocode}
-% Some scratch count registers
-% \begin{macrocode}
-\newcount\rng@cnta
-\newcount\rng@cntb
-% \end{macrocode}
-% A random variable is specified using a control sequence, e.g. \cs{a}. The following macro
-% extracts the underlying name of the command, e.g. \verb+\@gtVarName{\a}+ expands to \texttt{a},
-% and returns the name as the expansion of the macro \cs{@varName}.
-% \begin{macrocode}
-\def\@getVarName#1{%
- \edef\@varName{\expandafter\@gobble\string#1}%
-}
-% \end{macrocode}
-% The command \cs{@getVarType} takes one argument, a random variable, e.g., \cs{a}. This
-% command defines a macro \cs{varType} which expands to the data type the random variable is.
-% \begin{macrocode}
-\def\@getVarType#1{%
- \@getVarName{#1}\edef\varType{\csname typeof@\@varName\endcsname}}
-% \end{macrocode}
-% \subsection{GCD and Rational Reduction Commands}
-% \begin{macro}{\gcd}
-% Here we use Euclid's Algorithm to find the greatest common divisor of two integers.
-% \begin{macrocode}
-\def\gcd#1#2{{% #1 = a, #2 = b
- \ifnum#2=0 \edef\next{#1}\else
- \@tempcnta=#1 \@tempcntb=#2 \divide\@tempcnta by\@tempcntb
- \multiply\@tempcnta by\@tempcntb % q*b
- \@tempcntb=#1
- \advance\@tempcntb by-\@tempcnta % remainder in \@tempcntb
- \ifnum\@tempcntb=0
- \@tempcnta=#2
- \ifnum\@tempcnta < 0 \@tempcnta=-\@tempcnta\fi
- \xdef\gcd@next{\noexpand%
- \def\noexpand\thegcd{\the\@tempcnta}}%
- \else
- \xdef\gcd@next{\noexpand\gcd{#2}{\the\@tempcntb}}%
- \fi
- \fi}\gcd@next
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\lcm}
-% Now compute the least common multiple
-% \begin{macrocode}
-\def\lcm#1#2{% #1 = a, #2 = b
- \gcd{#1}{#2}%
- {\@tempcnta=#1
- \multiply\@tempcnta by#2
- \divide\@tempcnta by\thegcd
- \xdef\thelcm{\the\@tempcnta}}%
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\amodb}
-% Modular arithmetic \texttt{a mod b}, returns its results
-% as a macro \cs{retnmod}.
-% \begin{macrocode}
-\def\amodb#1#2{% #1 = a, #2 = b
- {\@tempcnta=#1
- \divide\@tempcnta by#2
- \multiply\@tempcnta by#2
- \@tempcntb=#1
- \advance\@tempcntb by-\@tempcnta
- \xdef\retnmod{\the\@tempcntb}}%
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\reduceFrac}
-% Reduce a fraction to lowest terms. The first argument is the numerator and the second
-% argument is the denominator. This command computes the \texttt{gcd} of the two integers,
-% divides each by the \texttt{gcd}, and returns the results in the two scratch count
-% registers \cs{@tempcnta} and \cs{@tempcntb}.
-% \begin{macrocode}
-\newcommand\reduceFrac[2]
-{%
- \gcd{#1}{#2}{\@tempcnta=#1 \divide\@tempcnta by\thegcd
- \@tempcntb=#2 \divide\@tempcntb by\thegcd
- \ifnum\@tempcntb<0\relax
-% \end{macrocode}
-% Always have the denominator as positive.
-% \begin{macrocode}
- \@tempcntb=-\@tempcntb
- \@tempcnta=-\@tempcnta
- \fi
- \xdef\rfNumer{\the\@tempcnta}\xdef\rfDenom{\the\@tempcntb}}%
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\convertRatTo}
-% Converts a fraction \texttt{a/b} (\texttt{\#1/\#2}) to a denominator of \texttt{\#3}. Will return
-% new numerator in \cs{rnd@Cnta} register. This will be exact if
-% \texttt{\#2} divides \texttt{\#3}.
-% \begin{macrocode}
-\def\convertRatTo#1#2#3{{%
- \@tempcnta=#3
- \multiply\@tempcnta by#1
- \divide\@tempcnta by#2
- \xdef\rng@retn@num{\the\@tempcnta}%
-}}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\RNGadd}
-% This is the support for rational arithmetic (addition and subtraction).
-% Adds two rational numbers, \texttt{\#1} and \texttt{\#2} together. These two rational numbers must have been defined
-% already, possibly by \cs{defineQ}. Usage: \verb+\RNGadd\a\b+. This macro returns a rational number:
-% the numerator in the \cs{rfNumer} command, and the denominator in the \cs{rfDenom} command.
-% For example,
-%\begin{verbatim}
-%\defineQ\a{1}{3}\defineQ\b{3}{5}\RNGadd\a\b
-%\makeatletter
-%The sum of $\frac{\nOf\a}{\dOf\a} + \frac{\nOf\b}{\dOf\b}
-% = \frac{\rfNumer}{\rfDenom}$
-%\makeatother
-%\end{verbatim}
-%This code typesets as $\frac{1}{3}+\frac{3}{5}=\frac{14}{15}$.
-% \begin{macrocode}
-\newcommand\RNGadd[2]{%
- \rng@cnta=\nOf#1 \multiply\rng@cnta by\dOf#2
- \rng@cntb=\nOf#2 \multiply\rng@cntb by\dOf#1
- \advance\rng@cnta by\the\rng@cntb
- \rng@cntb=\dOf#1 \multiply\rng@cntb by\dOf#2
- \reduceFrac{\the\rng@cnta}{\the\rng@cntb}
-}
-% \end{macrocode}
-% \end{macro}
-% This is a simple macro for detecting if the argument \texttt{\#1}
-% is a macro or not. Used when interval definitions of the
-% \cs{RandomZ/Q/R} macros.
-% \begin{macrocode}
-\def\rng@isControl#1{\@ifundefined{\expandafter\@gobble\string#1}%
- {\let\rng@isC@ntrol=0}{\let\rng@isC@ntrol=1}}
-% \end{macrocode}
-% This command determines if its argument has an \texttt{*}
-% prefixed or post-fixed to its argument.
-% If \cs{rng@isStariii} equals \texttt{*}, then an \texttt{*} exists.
-% \begin{itemize}
-% \item If there is no \texttt{*}, then the argument is \texttt{\#1}
-% \item \cs{rng@isStariii} equals \texttt{*}, there is \texttt{*},
-% If the argument has the form \cs{*a}, then \cs{rng@isStari} is \cs{@empty}
-% and the argument, stripped of the \texttt{*}, is given as \cs{rng@isStarii}
-% \item \cs{rng@isStariii} equals \texttt{*}, there is \texttt{*},
-% If the argument has the form \cs{a*}, then \cs{rng@isStarii} is \cs{@empty}
-% and the argument, stripped of the \texttt{*}, is given as \cs{rng@isStari}
-%\end{itemize}
-% \begin{macrocode}
-\def\rng@existStar#1{\rng@existSt@r#1**\@nil}
-\def\rng@existSt@r#1*#2*#3\@nil{\def\rng@isStari{#1}%
- \def\rng@isStarii{#2}\def\rng@isStariii{#3}%
-}
-\def\rng@NameEndpoint#1{%
- \ifx\rng@isStari\@empty
- \edef#1{\expandafter\noexpand\rng@isStarii}%
- \else\ifx\rng@isStarii\@empty
- \edef#1{\expandafter\noexpand\rng@isStari}%
- \fi\fi
-}
-% \end{macrocode}
-% \subsection{Define an Integer and a Rational}
-% \begin{macro}{\defineZ}
-% Define a integer for use in other macros.
-% \begin{macrocode}
-\newcommand\defineZ[2]
-{%
- \@getVarName#1\relax
- \expandafter\def\csname typeof@\@varName\endcsname{0}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{1}%
- \edef\display@TeXfmt{#2}\edef\inline@TeXfmt{#2}%
- \ifnum#2=1\relax\rng@makeOneFmtDefns
- \else\ifnum#2=-1\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2}%
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\defineQ}
-% The following macro defines a rational number. Usage
-% \verb+\defineQ\a{1}{2}+. This defines the rational number 1/2 and
-% gives it a name, \cs{a}.
-% \begin{macrocode}
-\newcommand\defineQ[3]
-{%
- \@getVarName#1\relax
- \expandafter\def\csname typeof@\@varName\endcsname{1}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{#3}%
- \edef\display@TeXfmt{\frac{#2}{#3}}\edef\inline@TeXfmt{#2/#3}%
- \ifnum#2=#3\relax\rng@makeOneFmtDefns
- \else\ifnum#2=-#3\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2/#3}%
- \simplifyCurrentQ
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\defineR}
-% This macro computes: (1) \cs{rng@intpart}; (2) \cs{rng@fracpart};
-% (3) \cs{rndnDec} (the number of decimals of the fractional part);
-% (4) \cs{rndPower} (the power of ten determined by \cs{rndnDec}).
-% \begin{macrocode}
-\newcommand{\defineR}[2]{%
- \@getVarName{#1}\RNGparseDec{#2}%
- \expandafter\def\csname typeof@\@varName\endcsname{2}%
- \reduceFrac{\rng@intpart\rng@fracpart}{\rndPower}%
- \expandafter\edef\csname n@\@varName\endcsname{\rfNumer}%
- \expandafter\edef\csname d@\@varName\endcsname{\rfDenom}%
- \edef\display@TeXfmt{#2}\edef\inline@TeXfmt{#2}%
- \ifnum\rfNumer=1\relax\rng@makeOneFmtDefns
- \else\ifnum\rfNumer=-1\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2}%
- \simplifyCurrentR
-}
-\newcommand{\simplifyCurrentR}{%
- \ifnum\csname d@\@varName\endcsname=1
- \expandafter\defineZ
- \csname\@varName\endcsname{\csname n@\@varName\endcsname}\fi
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macrocode}
-\def\rng@makeOneFmtDefns{%
-% inline
- \expandafter\def\csname\@varName!e\endcsname{}%
- \expandafter\def\csname\@varName!c\endcsname{}%
-% display
- \expandafter\def\csname\@varName*e\endcsname{}%
- \expandafter\def\csname\@varName*c\endcsname{}%
-}
-\def\rng@makeMinusOneFmtDefns{%
-% inline
- \expandafter\def\csname\@varName!e\endcsname{-1}%
- \expandafter\def\csname\@varName!c\endcsname{-}%
-% display
- \expandafter\def\csname\@varName*e\endcsname{-1}%
- \expandafter\def\csname\@varName*c\endcsname{-}%
-}
-\def\rng@makeOtherFmtDefns{%
-% inline
- \expandafter\let\csname\@varName!e\endcsname\inline@TeXfmt
- \expandafter\let\csname\@varName!c\endcsname\inline@TeXfmt
-% display
- \expandafter\let\csname\@varName*e\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName*c\endcsname\display@TeXfmt
-}
-% \end{macrocode}
-%
-% \subsection{Parse a Number}
-%
-% \subsubsection{Parsing a Rational}
-%
-% \begin{macro}{\RNGparseRat}
-% \begin{macrocode}
-\def\RNGparseRat#1{\expandafter\@chkslash#1//\@nil}
-\def\@chkslash#1/#2/#3\@nil{%
- \def\rng@num{#1}\def\rng@denom{#2}%
- \def\rng@parseQ@iii{#3}%
- \ifx\rng@denom\@empty\def\rng@denom{1}\fi
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{Parsing a Real}
-%
-% \begin{macro}{\RNGparseDec}
-% The argument \texttt{\#1} is a decimal number (or integer)
-% This macro computes: (1) \cs{rng@intpart}; (2) \cs{rng@fracpart};
-% (3) \cs{rndnDec} (the number of decimals of the fractional part);
-% (4) \cs{rndPower} (the power of ten determined by \cs{rndnDec}).
-% These variables will be overwritten the next time this command
-% is executed.
-% \begin{macrocode}
-\newcommand{\RNGparseDec}[1]{\edef\parse@argi{#1}%
- \expandafter\@chkdec\parse@argi..\@nil}
-\def\@chkdec#1.#2.#3\@nil{%
- \def\rng@intpart{#1}\def\rng@fracpart{#2}%
- \def\rng@parseR@iii{#3}\rng@getnDec}
-\def\rng@getnDec{%
- \begingroup
- \ifx\rng@fracpart\@empty\gdef\rndnDec{0}\gdef\rndPower{1}\else
- \count0=0\relax\count2=1\relax
- \expandafter\cntNumDec\rng@fracpart\end\fi
- \endgroup}
-\def\cntNumDec#1#2\end{%
- \advance\count0by1
- \def\rng@arg{#2}%
- \ifx\rng@arg\@empty
- \xdef\rndnDec{\the\count0}%
- \xdef\rndPower{1\@nameuse{rng@tz\the\count0}}%
- \let\rng@next\relax
- \else
- \def\rng@next{\cntNumDec#2\end}%
- \fi\rng@next
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\nDivisionsPowerOfTen}
-% This is a control of how many nodes to create in an interval
-% of real numbers, as defined by \cs{RandomR}. The argument is
-% an integer between 1 and 4 inclusive.
-% \begin{macrocode}
-\newcommand{\nDivisionsPowerOfTen}[1]{%
- \begingroup
- \count0=#1\relax
- \ifnum\count0>4\relax
- \PackageError{rangen}{Number of subdivisions too large}%
- {Reduce the argument of \string\nDivisionsPowerOfTen.}%
- \else
- \ifnum\count0<1\relax
- \PackageError{rangen}{Number of subdivisions too large}%
- {Increase the argument of \string\nDivisionsPowerOfTen.}%
- \fi\fi
- \xdef\RNGpowerOfTen{1\@nameuse{rng@tz#1}}%
- \endgroup
-}
-\nDivisionsPowerOfTen{2}
-% \end{macrocode}
-% \end{macro}
-%\subsection{Creating Random Things}
-%\subsubsection{Random Integer}
-% \begin{macro}{\RandomZ}
-% Randomly generates an integer in the specified range of values.
-%\begin{verbatim}
-%[#1] Optional parameter to modify the variable.
-% #2 The random variable being defined, e.g., \a
-% #3 lower limit of random integer
-% #4 upper limit of random integer
-%\end{verbatim}
-% \begin{macrocode}
-\newcommand\RandomZ[4][]
-{%
- \def\rng@ne@values{}%
- \setkeys{rangen}{ne,#1}%
-% \end{macrocode}
-% Now see if there is an \texttt{*}, and get un-stripped
-% argument.
-%
-% The \cs{rng@isControl} lets \cs{rng@isC@ntrol} to 0 if the arg is undefined,
-% and lets \cs{rng@isC@ntrol} to 1 if it is defined.
-% Check the left endpoint:
-% \begin{macrocode}
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
-% \end{macrocode}
-% \paragraph*{Left endpoint.}
-% \begin{macrocode}
- \rng@existStar{#3}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{%
- \noexpand\rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
-% \end{macrocode}
-% The LEP is a control sequence with a star, we need to increment the value
-% of \cs{rng@LEP} to the next largest integer.
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \rng@cnta=\rng@LEP
- \or % rational
- \rng@dima=\expandafter\nOf\rng@LEP pt
- \divide\rng@dima by\expandafter\dOf\rng@LEP
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@LEP}%
- \rng@cnta=\rng@intpart
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \rng@cnta=\rng@intpart
- \fi
- \advance\rng@cnta by1\relax
- \defineZ{\rng@LEP}{\the\rng@cnta}%
- \else
-% \end{macrocode}
-% Not a control sequence but has a star
-% \begin{macrocode}
- \defineZ{\rng@LEP}{\rng@LEP}%
- \fi
- \else
-% \end{macrocode}
-% No star, control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlLEP=1%
- \def\rng@LEP{#3}%
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineZ{\rng@LEP}{#3}%
- \or % rational
- \rng@dima=\nOf{#3}pt
- \divide\rng@dima by\dOf{#3}%
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@LEP}%
- \defineZ{\rng@LEP}{\rng@intpart}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \defineZ{\rng@LEP}{\rng@intpart}%
- \fi
- \else
-% \end{macrocode}
-% A number, no star
-% \begin{macrocode}
- \defineZ{\rng@LEP}{#3}%
- \fi
- \fi
-% \end{macrocode}
-% \paragraph*{Right endpoint.}
-% \begin{macrocode}
- \rng@existStar{#4}\rng@NameEndpoint{\rng@UEP}%
- \if\rng@isStariii*\edef\tmp@exp{%
- \noexpand\rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
-% \end{macrocode}
-% The UEP is a control sequence with a star, we need to increment the value
-% of \cs{rng@UEP} to the next largest integer.
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \rng@cnta=\rng@UEP
- \or % rational
- \rng@dima=\expandafter\nOf\rng@UEP pt
- \divide\rng@dima by\expandafter\dOf\rng@UEP
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@UEP}%
- \rng@cnta=\rng@intpart
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \rng@cnta=\rng@intpart
- \fi
- \advance\rng@cnta by-1\relax
- \defineZ{\rng@UEP}{\the\rng@cnta}%
- \else
-% \end{macrocode}
-% Not a control sequence but has a star
-% \begin{macrocode}
- \defineZ{\rng@UEP}{\rng@UEP}%
- \fi
- \else
-% \end{macrocode}
-% No star, control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#4}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlUEP=1%
- \def\rng@UEP{#4}%
- \@getVarType{#4}%
- \ifcase\varType % integer
- \defineZ{\rng@UEP}{#4}%
- \or % rational
- \rng@dima=\nOf{#4}pt
- \divide\rng@dima by\dOf{#4}%
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@UEP}%
- \defineZ{\rng@UEP}{\rng@intpart}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \defineZ{\rng@UEP}{\rng@intpart}%
- \fi
- \else
-% \end{macrocode}
-% A number, no star, assume it is an integer
-% \begin{macrocode}
- \defineZ{\rng@UEP}{#4}%
- \fi
- \fi
-% \end{macrocode}
-% \textbf{To Do.} Check if LEP is less than UEP, if not, notify user.
-% Save the random variable, e.g., \cs{a}
-% \begin{macrocode}
- \def\@currentName{#2}%
-% \end{macrocode}
-% Record the variable type
-% \begin{macrocode}
- \@getVarName{#2}%
- \expandafter\def\csname typeof@\@varName\endcsname{0}%
-% \end{macrocode}
-% Save the range of this variable
-% \begin{macrocode}
- \expandafter\edef\csname first@\@varName\endcsname{\rng@LEP}%
- \expandafter\edef\csname last@\@varName\endcsname{\rng@UEP}%
-% \end{macrocode}
-% Now get a value for the variable using \cs{rand}, defined in \texttt{lcg}
-% \begin{macrocode}
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
-% \end{macrocode}
-% Now define the integer.
-% \begin{macrocode}
- \defineZ{#2}{\arabic{rand}}%
-% \end{macrocode}
-% \paragraph*{Constraints}
-% We have a random Z, we now try to satisfy the \texttt{ne} condition.
-%
-% The macro \cs{rangen@ne} can be of the form \verb!{1,3,4,5}!. We try to
-% satisfy all the conditions specified by \cs{rangen@ne}
-% \begin{macrocode}
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
-% \end{macrocode}
-% We will try a total number of \cs{maxLoopLimit} to meet the required
-% conditions.
-% \begin{macrocode}
- \@whilenum\loopCnt<\maxLoopLimit\do{%
-% \end{macrocode}
-% Set \cs{rng@cnta=1}, if \cs{rng@cnta} is still 1 at the end of this
-% loop, the condition is satisfied.
-% conditions.
-% \begin{macrocode}
- \rng@cnta=1\relax
-% \end{macrocode}
-% We use a \cs{@for} loop to run through all the NE values
-% \begin{macrocode}
- \@for\ne@@tmp:=\rangen@ne\do{%
-% \end{macrocode}
-% If the current RV is equal to the current NE value, we fail, so we
-% ``and'' a zero into the \cs{rng@cnta} register.
-% \begin{macrocode}
- \ifnum\value{rand}=\ne@@tmp\relax
- \multiply\rng@cnta0\relax
- \else
-% \end{macrocode}
-% \dots otherwise, we ``and'' a one.
-% \begin{macrocode}
- \multiply\rng@cnta1\relax
- \fi
- }%
-% \end{macrocode}
-% If \cs{rng@cnt} is still equal to 1, all conditions have been met,
-% in this case we set \verb!\loopCnt=\maxLoopLimit! so we can exit the outer loop.
-% \begin{macrocode}
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
-% \end{macrocode}
-% Otherwise, we increment the loop, see if we have gone the limit, if
-% not, loop back with a new random choice.
-% \begin{macrocode}
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \fi
- \fi
- }%
- \fi
-% \end{macrocode}
-% Whether we fail or succeed, we'll go with the last RV. Hopefully, the
-% author is aware of the log file, and re-compile, possibly with a
-% wider range for the variable, or with a larger value of \cs{maxLoopLimit}.
-%
-% \begin{macrocode}
- \defineZ{#2}{\arabic{rand}}%
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macrocode}
-\def\updateZ#1#2{%
- \@getVarName#1\relax
- \expandafter\edef\csname\@varName\endcsname{#2}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{1}%
-}
-% \end{macrocode}
-%\subsubsection{Random Rational}
-% \begin{macro}{\RandomQ}
-% Randomly generate a rational number. The parameters for \cs{RandomQ} are
-%\begin{verbatim}
-%[#1] Optional parameter to modify the variable.
-% #2 The random variable being defined, e.g., \a
-%[#3] maximum denominator permitted (optional)
-% #4 rational number for lower endpoint of range
-% #5 rational number for upper endpoint of range
-%\end{verbatim}
-% Here, it is assume that the first rational number is less than the second. This macro
-% will randomly generate a rational number between rat1 and rat2, with a maximum denominator
-% specified in \texttt{\#3}.
-%
-% \medskip\noindent\textbf{Note: }To allow for random endpoints, if one or both are real numbers, we convert
-% them to rational numbers in \cs{@RandomQ}.
-%
-% We begin by getting the first two parameters:
-%\begin{verbatim}
-%[#1] Optional parameter to modify the variable.
-% #2 The random variable being defined, e.g., \a
-%\end{verbatim}
-% \begin{macrocode}
-\newcommand{\RandomQ}[2][]
-{%
- \setkeys{rangen}{ne,#1}%
- \def\rq@currentName{#2}%
- \@RandomQ
-}
-% \end{macrocode}
-% We use \cs{@RandomQ} to get the last three parameters of \cs{RandomQ}.
-% If the endpoints are not rational, they are converted to rationals.
-%\begin{verbatim}
-%[#1] maximum denominator permitted (optional)
-% #2 rational number for lower endpoint of range
-% #3 rational number for upper endpoint of range
-%\end{verbatim}
-% \begin{macrocode}
-\newcommand{\@RandomQ}[3][]
-{%
-% \end{macrocode}
-% Now see if there is an \texttt{*}, and get un-stripped
-% argument.
-%
-% The \cs{rng@isControl} lets \cs{rng@isC@ntrol} to 0 if the arg is undefined,
-% and lets \cs{rng@isC@ntrol} to 1 if it is defined.
-% Check the left endpoint:
-% \begin{macrocode}
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
-% \end{macrocode}
-% \paragraph*{Left endpoint}
-% \begin{macrocode}
- \rng@existStar{#2}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
-% \end{macrocode}
-% The LEP is a control sequence we get its type and convert to rational
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \defineQ{\rng@LEP}{\rng@LEP}{1}%
- \or % rational
- \edef\tmp@exp{\noexpand%
- \defineQ{\noexpand\rng@LEP}{\expandafter\nOf\rng@LEP}%
- {\expandafter\dOf\rng@LEP}}\tmp@exp
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \defineQ{\rng@LEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
-% \end{macrocode}
-% Not a control sequence but has a star, a number, we assume rational
-% \begin{macrocode}
- \RNGparseRat{\rng@LEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
-% \end{macrocode}
-% No star, is it a control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#2}%
- \if\rng@isC@ntrol1% a control sequence
- \@getVarType{#2}%
- \ifcase\varType % integer
- \defineQ{\rng@LEP}{#2}{1}%
- \or % rational
- \defineQ{\rng@LEP}{\nOf{#2}}{\dOf{#2}}%
- \or % real
- \defineR{\rng@LEP}{#2}%
- \RNGparseDec{\rng@LEP}%
- \defineQ{\rng@LEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else % a number, required to be rational
- \RNGparseRat{#2}%
- \defineQ{\rng@LEP}{\rng@num}{\rng@denom}%
- \fi
- \fi
-% \end{macrocode}
-% \paragraph*{Right endpoint}
-% \begin{macrocode}
- \rng@existStar{#3}\rng@NameEndpoint{\rng@UEP}%%
- \if\rng@isStariii*%
- \edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
-% \end{macrocode}
-% The UEP is a control sequence we get its type and convert to rational
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \defineQ{\rng@UEP}{\rng@UEP}{1}%
- \or % rational
- \edef\tmp@exp{\noexpand%
- \defineQ{\noexpand\rng@UEP}{\expandafter\nOf\rng@UEP}%
- {\expandafter\dOf\rng@UEP}}\tmp@exp
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
-% \end{macrocode}
-% Not a control sequence but has a star, a number, we assume rational
-% \begin{macrocode}
- \RNGparseRat{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
-% \end{macrocode}
-% No star, is it a control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% a control sequence
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineQ{\rng@UEP}{#3}{1}%
- \or % rational
- \defineQ{\rng@UEP}{\nOf{#3}}{\dOf{#3}}%
- \or % real
- \defineR{\rng@UEP}{#3}%
- \RNGparseDec{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else % a number, required to be rational
- \RNGparseRat{#3}%
- \defineQ{\rng@UEP}{\rng@num}{\rng@denom}%
- \fi
- \fi
- \@@RandomQ{#1}{\nOf{\rng@LEP}}{\dOf{\rng@LEP}}%
- {\nOf{\rng@UEP}}{\dOf{\rng@UEP}}%
-}
-% \end{macrocode}
-% Once all the parameters have been acquired, and
-% any needed conversions are made, we call \cs{@@RandomQ} which
-% actually generates the random rational.
-%\begin{verbatim}
-% #1 maximum denominator permitted
-% #2 numerator of first rational
-% #3 denominator of first rational
-% #4 numerator of second rational
-% #5 denominator of second rational
-%\end{verbatim}
-% \begin{macrocode}
-\newcommand{\@@RandomQ}[5]
-{%
-% \end{macrocode}
-% Now take parameters \texttt{\#2}--\texttt{\#5}, and make into two rationals
-% \begin{macrocode}
- \updateQ\@rqi{#2}{#3}\updateQ\@rqii{#4}{#5}%
-% \end{macrocode}
-% Find least common multiple between \texttt{\#3}, \texttt{\#5} and \texttt{\#1}
-% \begin{macrocode}
- \lcm{#3}{#5}\edef\@thelcm{\thelcm}%
- \def\@maxDenom{#1}%
- \ifx\@maxDenom\@empty\edef\@maxDenom{\@thelcm}\else
- \lcm{\@thelcm}{#1}\edef\@thelcm{\thelcm}\fi
-% \end{macrocode}
-% Now convert all rationals to have a denominator of \cs{@thelcm}
-% \begin{macrocode}
- \convertRatTo{\nOf\@rqi}{\dOf\@rqi}{\@thelcm}%
- \updateQ\@@rqi{\rng@retn@num}{\@thelcm}%
- \convertRatTo{\nOf\@rqii}{\dOf\@rqii}{\@thelcm}%
- \updateQ\@@rqii{\rng@retn@num}{\@thelcm}%
-% \end{macrocode}
-% get divisor
-% \begin{macrocode}
- \rng@cnta=\@thelcm \divide\rng@cnta by\@maxDenom
- \edef\@divisor{\the\rng@cnta}%
-% \end{macrocode}
-% Round up lower limit
-% \begin{macrocode}
- \rng@cnta=\nOf\@@rqi
- \divide\rng@cnta by\@divisor
- \advance\rng@cnta by1
-% \end{macrocode}
-% Round down the upper limit
-% \begin{macrocode}
- \rng@cntb=\nOf\@@rqii\divide\rng@cntb by\@divisor
-% \end{macrocode}
-% If a strict inequality is requested, we creep in a little.
-% \begin{macrocode}
- \if\rng@makeLEPStrict1\advance\rng@cnta1\relax\fi
- \if\rng@makeUEPStrict1\advance\rng@cntb-1\relax\fi
-% \end{macrocode}
-% construct numerator
-% \begin{macrocode}
- \expandafter\@getVarName\rq@currentName
- \let\save@varName\@varName
- \expandafter\edef\csname first@n@\@varName\endcsname{\the\rng@cnta}%
- \expandafter\edef\csname last@n@\@varName\endcsname{\the\rng@cntb}%
- \expandafter\edef\csname first@d@\@varName\endcsname{\@maxDenom}%
- \expandafter\edef\csname last@d@\@varName\endcsname{\@maxDenom}%
- \edef\rng@LEP{\csname first@n@\@varName\endcsname}%
- \edef\rng@UEP{\csname last@n@\@varName\endcsname}%
-%\typeout{\@varName: first=\rng@LEP,last=\rng@UEP}%
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
-% \end{macrocode}
-% Record the random variable name, e.g., \cs{a}, ...
-% \begin{macrocode}
- \let\@currentName\rq@currentName
- \expandafter\@getVarName\rq@currentName
- \expandafter\defineQ\@currentName{\arabic{rand}}{\@maxDenom}%
- \simplifyCurrentQ
- \expandafter\defineQ\@currentName{\expandafter\nOf\@currentName}%
- {\expandafter\dOf\@currentName}%
-% \end{macrocode}
-%
-% \paragraph*{Constraints}
-%
-% We now attempt to satisfy the NE constraints.
-% \begin{macrocode}
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
- \@whilenum\loopCnt<\maxLoopLimit\do{%
- \rng@cnta=1\relax
- \@for\ne@@tmp:=\rangen@ne\do{%
-% \end{macrocode}
-% Define a rational by the name of \cs{cmp@Name}, then make it have
-% the same denominator as \cs{@currentName}.
-% \begin{macrocode}
- \let\save@currentName\rq@currentName
- \RNGparseRat{\ne@@tmp}%
- \defineQ{\cmp@Name}{\rng@num}{\rng@denom}%
- \let\@varName\save@varName
- \syncronizeQs{\@varName}%
- \ifnum\csname n@\@varName\endcsname=\n@cmp@Name
- \multiply\rng@cnta0\relax
- \else
- \multiply\rng@cnta1\relax
- \fi
- }%
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \expandafter\@getVarName\rq@currentName
- \expandafter\defineQ\@currentName{\arabic{rand}}%
- {\@maxDenom}%
- \fi
- \fi
- }%
- \fi
- \simplifyCurrentQ
- \expandafter\defineQ\@currentName{\expandafter\nOf\@currentName}%
- {\expandafter\dOf\@currentName}%
-% \end{macrocode}
-% If the denominator is equal to 1, let's change the data type to an integer.
-% \begin{macrocode}
- \let\@currentName\rq@currentName
- \expandafter\@getVarName\rq@currentName
- \ifnum\csname d@\@varName\endcsname=1\relax\expandafter
- \defineZ\@currentName{\expandafter\nOf\@currentName}%
- \fi
- \simplifyCurrentQ
-}
-% \end{macrocode}
-% \end{macro}
-% \begin{macro}{\updateQ}
-% Updates the value of a rational number, its numerator and denominator
-% without changing any of the format macros.
-% \begin{macrocode}
-\newcommand\updateQ[3]
-{%
- \@getVarName#1\relax
- \expandafter\edef\csname\@varName\endcsname{#2/#3}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{#3}%
-}
-% \end{macrocode}
-% \end{macro}
-% A macro for performing routine adjustments on a rational number.
-% \begin{macrocode}
-\def\simplifyCurrentQ
-{%
-% \end{macrocode}
-% Reduce fraction: Reduce the fraction to its lowest terms.
-% \begin{macrocode}
- \reduceFrac{\csname n@\@varName\endcsname}%
- {\csname d@\@varName\endcsname}%
-% \end{macrocode}
-% \cs{reduceFrac} returns results in \cs{@tempcnta} and \cs{@tempcntb}, now
-% update the numerator and denominator
-% \begin{macrocode}
- \expandafter\edef\csname n@\@varName\endcsname{\rfNumer}%
- \expandafter\edef\csname d@\@varName\endcsname{\rfDenom}%
-% \end{macrocode}
-% If the numerator is zero, then zero out \cs{@varName} and special format
-% \begin{macrocode}
- \ifnum\csname n@\@varName\endcsname=0
- \expandafter\edef\csname\@varName\endcsname{0}%
- \edef\display@TeXfmt{0}\edef\inline@TeXfmt{0}%
- \else
-% \end{macrocode}
-% If numerator equals denominator, just replace by 1
-% \begin{macrocode}
- \ifnum\csname n@\@varName\endcsname=\csname d@\@varName\endcsname
- \expandafter\defineZ\csname\@varName\endcsname{1}%
- \else
-% \end{macrocode}
-% If numerator equals -denominator, just replace by -1
-% \begin{macrocode}
- \ifnum\csname n@\@varName\endcsname
- =-\csname d@\@varName\endcsname
- \expandafter\defineZ\csname\@varName\endcsname{-1}%
- \else
-% \end{macrocode}
-% If denominator equals 1, modify value; otherwise, ok.
-% \begin{macrocode}
- \ifnum\csname d@\@varName\endcsname=1
- \expandafter\defineZ\csname\@varName\endcsname
- {\csname n@\@varName\endcsname}%
- \else
- \expandafter\edef\csname \@varName\endcsname{%
- \csname n@\@varName\endcsname/%
- \csname d@\@varName\endcsname}%
- \edef\display@TeXfmt{%
- \frac{\csname n@\@varName\endcsname}
- {\csname d@\@varName\endcsname}}%
- \edef\inline@TeXfmt{%
- \csname n@\@varName\endcsname/%
- \csname d@\@varName\endcsname}%
- \expandafter\let
- \csname\@varName*\endcsname\display@TeXfmt
- \fi
- \fi
- \fi
- \fi
-}
-% \end{macrocode}
-% \begin{macro}{\nOf}
-% \begin{macro}{\dOf}
-% \begin{macro}{\iOf}
-% \begin{macro}{\typeOf}
-% User access to numerator and denominator of random variables.
-% \begin{macrocode}
-\newcommand\nOf[1]{\csname n@\expandafter\@gobble\string#1\endcsname}
-\newcommand\dOf[1]{\csname d@\expandafter\@gobble\string#1\endcsname}
-% \end{macrocode}
-% For a variable created by \cs{RandomL}, the index of the number chosen (1-based)
-% can be accessed through the \cs{iOf} command.
-% \begin{macrocode}
-\newcommand{\iOf}[1]{\csname i@\expandafter\@gobble\string#1\endcsname}
-% \end{macrocode}
-% Get the type of a RV, \cs{ifnum}\cs{typeOf}\cs{a}=0 (integer), 1 (rational), 2 (real),
-% 3 (literal, created by \cs{RandomP}).
-% \begin{macrocode}
-\newcommand\typeOf[1]{%
- \csname typeof@\expandafter\@gobble\string#1\endcsname}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-%\subsubsection{Random Real}
-%
-% We attempt to generate a random real number, in a given interval of real numbers.
-%
-% The following are some data and switches used by \cs{RandomReal}.
-% \begin{macrocode}
-\newif\iftrailingzeros\trailingzerosfalse
-\@namedef{rng@tz1}{0}
-\@namedef{rng@tz2}{00}
-\@namedef{rng@tz3}{000}
-\@namedef{rng@tz4}{0000}
-\@namedef{rng@tz5}{00000}
-\@namedef{rng@tz6}{000000}
-\@namedef{rng@tz7}{0000000}
-\@namedef{rng@tz8}{00000000}
-\def\rng@true{true}\def\rng@false{false}
-\newdimen\rng@dima
-\newdimen\rng@dimb
-\newdimen\rng@dimc
-% \end{macrocode}
-% \begin{macro}{\RandomR}
-% Create a real number at random within the given interval. For example,
-%\begin{verbatim}
-% \RandomR[<key-values>]{\a}{3.45}{6.45}
-%\end{verbatim}
-% \begin{macro}{round}
-% \begin{macro}{showzeros}
-% The key-value pairs recognized by \cs{RandomZ|Q|R}.
-% \begin{macrocode}
-\define@key{rangen}{ne}[]{\edef\rangen@ne{#1}}
-\define@key{rangen}{round}[]{\def\rangen@round{#1}}
-\define@key{rangen}{showzeros}[]{\def\rangen@showzeros{#1}%
- \ifx\rangen@showzeros\@empty\global\trailingzerostrue\else
- \ifx\rangen@showzeros\rng@true\global\trailingzerostrue\else
- \global\trailingzerosfalse\fi\fi}
-\define@key{rangen}{index}[]{\edef\rangen@index{#1}}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-%\begin{verbatim}
-%[#1] = options
-% #2 = name of real to correct
-% #3 = lower endpoint of interval
-% #4 = upper endpoint of interval
-%\end{verbatim}
-% \begin{macrocode}
-\newcommand{\RandomR}[4][]{%
- \setkeys{rangen}{ne,round,showzeros=false,#1}%
-% \end{macrocode}
-% Now see if there is an \texttt{*}, and get un-stripped
-% argument.
-%
-% The \cs{rng@isControl} lets \cs{rng@isC@ntrol} to 0 if the arg is undefined,
-% and lets \cs{rng@isC@ntrol} to 1 if it is defined.
-% Check the left endpoint:
-% \begin{macrocode}
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
- \def\rng@lcg@first{0}\edef\rng@lcg@last{\RNGpowerOfTen}%
-% \end{macrocode}
-% \paragraph{Left endpoint.} Check the left endpoint:
-% \begin{macrocode}
- \rng@existStar{#3}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
- \def\rng@lcg@first{1}%
-% \end{macrocode}
-% The LEP is a control sequence with a star. Convert LEP to a real
-% number as needed.
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \defineR{\rng@LEP}{\rng@LEP\RNG@Dec}%
- \or % rational
- \rng@dima=\expandafter\nOf\rng@LEP pt
- \divide\rng@dima by\expandafter\dOf\rng@LEP
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
-% \end{macrocode}
-% Not a control sequence, but has a star
-% \begin{macrocode}
- \else
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
- \else
-% \end{macrocode}
-% No star, control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlLEP=1\def\rng@LEP{#3}%
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineR{\rng@LEP}{\rng@LEP\RNG@Dec}%
- \or % rational
- \rng@dima=\nOf{#3}pt
- \divide\rng@dima by\dOf{#3}%
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
- \else
-% \end{macrocode}
-% A number, no star, number is required to be real
-% \begin{macrocode}
- \defineR{\rng@LEP}{#3}%
- \fi
- \fi
-% \end{macrocode}
-% \paragraph{Right endpoint.} Check the right endpoint:
-% \begin{macrocode}
- \rng@existStar{#4}\rng@NameEndpoint{\rng@UEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
- \rng@cnta=\rng@lcg@last\advance\rng@cnta-1\relax
- \edef\rng@lcg@last{\the\rng@cnta}%
-% \end{macrocode}
-% The UEP is a control sequence with a star. Convert UEP to a real
-% number as needed.
-% \begin{macrocode}
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \defineR{\rng@UEP}{\rng@UEP\RNG@Dec}%
- \or % rational
- \rng@dima=\expandafter\nOf\rng@UEP pt
- \divide\rng@dima by\expandafter\dOf\rng@UEP
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
-% \end{macrocode}
-% Not a control sequence, but has a star
-% \begin{macrocode}
- \else
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
- \else
-% \end{macrocode}
-% No star, control sequence or not?
-% \begin{macrocode}
- \rng@isControl{#4}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlUEP=1\def\rng@UEP{#4}%
- \@getVarType{#4}%
- \ifcase\varType % integer
- \defineR{\rng@UEP}{\rng@UEP\RNG@Dec}%
- \or % rational
- \rng@dima=\nOf{#4}pt
- \divide\rng@dima by\dOf{#4}%
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
- \else
-% \end{macrocode}
-% A number, no star, number is required to be real
-% \begin{macrocode}
- \defineR{\rng@UEP}{#4}%
- \fi
- \fi
-% \end{macrocode}
-% Prepare to generate the random real
-% \begin{macrocode}
- \def\@currentName{#2}\@getVarName{#2}%
-% \end{macrocode}
-% Save upper and lower endpoints where they are expected to be.
-% \begin{macrocode}
- \expandafter\edef\csname first@\@varName\endcsname{\rng@LEP}%
- \expandafter\edef\csname last@\@varName\endcsname{\rng@UEP}%
-% \end{macrocode}
-% Get a random real, and declare it to be a real number using \cs{defineR}.
-% \begin{macrocode}
- \rng@getRandomR
- \defineR{#2}{\strip@pt\rng@dima}%
-% \end{macrocode}
-% Round and remove trailing zeros.
-% \begin{macrocode}
- \ifx\rangen@round\@empty\else
- \RNGround{#2}{#2}{\rangen@round}%
- \rng@dima=#2pt\relax
- \defineR{#2}{\strip@pt\rng@dima}%
- \fi
-% \end{macrocode}
-% \paragraph{Constraints.} Let's try to apply constraints. We only allow one constraint.
-% \begin{macrocode}
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
- \@whilenum\loopCnt<\maxLoopLimit\do{%
- \rng@cnta=1\relax
- \@for\ne@@tmp:=\rangen@ne\do{%
- \rng@dima=#2pt
- \ifdim\rng@dima=\ne@@tmp pt\relax
- \multiply\rng@cnta0\relax\else
- \multiply\rng@cnta1\relax\fi
- }%
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@getRandomR
- \defineR{#2}{\strip@pt\rng@dima}%
-% \end{macrocode}
-% Round and remove trailing zeros.
-% \begin{macrocode}
- \ifx\rangen@round\@empty\else
- \RNGround{#2}{#2}{\rangen@round}%
- \rng@dima=#2pt\relax
- \defineR{#2}{\strip@pt\rng@dima}%
- \fi
- \fi
- \fi
- }%
- \fi
-% \end{macrocode}
-% \paragraph{Formatting.} Begin formatting of the real, keys recognized are
-% \texttt{round} and \texttt{showzeros}.
-% \begin{macrocode}
- \rnd@ProcessRealFormat{#2}%
-% \end{macrocode}
-% We declare our number.
-% \begin{macrocode}
- \def\@currentName{#2}%
- \defineR{#2}{#2}%
-}
-% \end{macrocode}
-% Get a new random real and return it in the \cs{rng@dima}
-% \begin{macrocode}
-\def\rng@getRandomR{%
-% \end{macrocode}
-% Put the endpoints in dimension registers so we can subtract them.
-% \begin{macrocode}
- \rng@dima=\rng@LEP pt
- \rng@dimb=\rng@UEP pt
-% \end{macrocode}
-% Compute the difference between upper and lower, then strip off the \texttt{pt},
-% to make it a decimal number.
-% \begin{macrocode}
- \advance\rng@dimb-\rng@dima
-% \edef\r@getDiff{\strip@pt\rng@dimb}%
-% \end{macrocode}
-% Get a random integer from the interval 0 to \cs{RNGpowerOfTen}.
-% the default value of the latter command is 100, and it can be changed
-% using \cs{nDivisionsPowerOfTen}. The idea is to divide the interval
-% from the lower bound to the upper bound into \cs{RNGpowerOfTen} nodes,
-% and we choose one of these nodes are random.
-%
-% If the endpoints where strict, then we changed \cs{rng@lcg@first}
-% from 0 to 1 (if the lower endpoint is strict); and changed
-% \cs{rng@lcg@last} from \cs{RNGpowerOfTen} to \texttt{\string\RNGpowerOfTen-1}
-% (if the upper end point is strict).
-% \begin{macrocode}
- \rng@chgrand[first=\rng@lcg@first,last=\rng@lcg@last]\rand
-% \end{macrocode}
-% Divide the length of the interval by \cs{RNGpowerOfTen},
-% and store the result in \cs{rng@dimb}, then multiply
-% that by \verb!\arabic{rand}!.
-% \begin{macrocode}
- \divide\rng@dimb by\RNGpowerOfTen\relax
- \rng@dimb=\arabic{rand}\rng@dimb
-% \end{macrocode}
-% Finally, the left-end point is still in \cs{rng@dima}
-% we add the result in \cs{rng@dimb} to \cs{rng@dima}
-% to compute our random rational.
-% \begin{macrocode}
- \advance\rng@dima by\rng@dimb
-}
-\def\rnd@ProcessRealFormat#1{%
- \ifx\rangen@round\@empty
- \rng@dima=#1pt\relax
- \defineR{#1}{\strip@pt\rng@dima}%
- \else
- \RNGround{#1}{#1}{\rangen@round}%
- \rng@dima=#1pt\relax
- \defineR{#1}{\strip@pt\rng@dima}%
- \iftrailingzeros
- {\RNGparseDec{#1}\count0=\decPls\relax
- \advance\count0-\rndnDec\relax
- \ifnum\count0>0\relax\xdef#1{%
- \rng@intpart\RNG@Dec\rng@fracpart%
-\@nameuse{rng@tz\the\count0}}%
- \fi}%
- \defineR{#1}{#1}%
- \fi
- \fi
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{Random Sign}
-% \begin{macro}{\RandomS}
-% We randomly generate a \texttt{+} or \texttt{-} sign
-% for addition and subtraction. The first optional argument
-% is a rational number between 0 and 1. The default is \texttt{1/2}.
-% This number represents the probably of a \texttt{+} sign.
-% \begin{macrocode}
-\newcommand{\RandomS}[2][1/2]{%
- \RNGparseRat{#1}%
- \ifnum\rng@num<0\relax
- \PackageError{rangen}{A positive numerator is required}%
- {The rational number must be between 0 and 1}\fi
- \ifnum\rng@denom<0\relax
- \PackageError{rangen}{A positive denominator is required}%
- {The rational number must be between 0 and 1}\fi
- \ifnum\rng@num>\rng@denom\relax
- \PackageError{rangen}{The rational must be between 0 and 1}%
- {The rational number must be between 0 and 1}\fi
- \rng@chgrand[first=1,last=\rng@denom]\rand
- \@getVarName{#2}%
- \ifnum\value{rand}>\rng@num\relax\def#2{-}%
- \rng@makeMinusOneFmtDefns
- \def\display@TeXfmt{-}\def\inline@TeXfmt{-}%
- \else\def#2{+}\rng@makeOneFmtDefns
- \def\display@TeXfmt{}\def\inline@TeXfmt{}\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{Random Number from a List}
-%
-% \begin{macro}{\RandomL}
-% Select a number of any type from a comma-delimited list.
-%\begin{verbatim}
-% \RandomL[key-values]{\RV}{<comma-delimited list>}
-%\end{verbatim}
-% Currently, the only key recognized is the \texttt{index} key.
-% If the \texttt{index} key is specified, the number whose index is specified
-% is retrieved from the list.
-% \begin{macrocode}
-\newcommand{\RandomL}[3][]{%
- \let\rangen@index\@empty
- \setkeys{rangen}{#1}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax}\edef\n@rng@listItems{\the\rng@cnta}%
- \ifx\rangen@index\@empty
- \rng@chgrand[first=1,last=\n@rng@listItems]\rand
- \else
- \rng@cnta=\rangen@index
- \advance\rng@cnta-1\relax
- \amodb{\rng@cnta}{\n@rng@listItems}%
- \rng@cnta=\retnmod
- \advance\rng@cnta1\relax
- \value{rand}=\rng@cnta
- \fi
- \@getVarName{#2}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax\ifnum\rng@cnta=\arabic{rand}%
- \edef\rng@choice{\@@tmp}\fi}%
- \def\@currentName{#2}%
-% \end{macrocode}
-% Now, determine the type of this choice, and make appropriate
-% data type definition.
-% \begin{macrocode}
- \RNGparseDec{\rng@choice}%
- \if\rng@parseR@iii\RNG@Dec\defineR{#2}{\rng@choice}%
- \else\RNGparseRat{\rng@choice}%
- \if\rng@parseQ@iii/\defineQ{#2}{\rng@num}{\rng@denom}%
- \else\defineZ{#2}{\rng@choice}\fi\fi
-}
-% \end{macrocode}
-% \end{macro}
-
-% \subsubsection{Random Problem from a List}
-%
-% \begin{macro}{\RandomP}
-% Select a literal from a comma-delimited list of literals.
-%\begin{verbatim}
-% \RandomP[key-values]{\RV}{<comma-delimited list>}
-%\end{verbatim}
-% Currently, the only key recognized is the \texttt{index} key.
-% If the \texttt{index} key is specified, the number whose index is specified
-% is retrieved from the list.
-% \begin{macrocode}
-\newcommand{\RandomP}[3][]{%
- \let\rangen@index\@empty
- \setkeys{rangen}{#1}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax}\edef\n@rng@listItems{\the\rng@cnta}%
- \ifx\rangen@index\@empty
- \rng@chgrand[first=1,last=\n@rng@listItems]\rand
- \else
- \rng@cnta=\rangen@index
- \advance\rng@cnta-1\relax
- \amodb{\rng@cnta}{\n@rng@listItems}%
- \rng@cnta=\retnmod
- \advance\rng@cnta1\relax
- \value{rand}=\rng@cnta
- \fi
- \@getVarName{#2}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax\ifnum\rng@cnta=\arabic{rand}%
- \rng@toks=\expandafter{\@@tmp}\edef#2{\the\rng@toks}%
- \expandafter\def\csname typeof@\@varName\endcsname{3}\fi}%
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsubsection{Random Index}
-%
-% \begin{macro}{\RandomI}
-% This command creates an implied list of \verb!{1, 2, 3,...,n}!,
-% and randomly selects a number from this list. The result is
-% defined as an integer, and held in the macro \texttt{\#1}.
-%\begin{verbatim}
-% \Random{\i}{n} --> select \i from {1, 2, 3,...,n} at random
-%\end{verbatim}
-%A random index, \cs{i}, created by \cs{RandomI}, can be used
-%in the \cs{RandomL} command; for example,
-%\begin{verbatim}
-% \RandomL[index=\i]{\a}{17,\rPI,3/4,\rE,88,1/2}
-%\end{verbatim}
-%The value of \cs{a} is determined by the index \cs{i}.
-% \begin{macrocode}
-\newcommand{\RandomI}[2]{%
- \rng@chgrand[first=1,last=#2]\rand
- \defineZ{#1}{\arabic{rand}}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsection{Some Constants}
-%
-% \begin{macro}{\zZero}
-% \begin{macro}{\zOne}
-% \begin{macro}{\zMinusOne}
-% \begin{macro}{\rPI}
-% \begin{macro}{\rE}
-% Define three convenience integers corresponding to $0$, $1$, and $-1$.
-% \begin{macrocode}
-\defineZ{\zZero}{0}
-\defineZ{\zOne}{1}
-\defineZ{\zMinusOne}{-1}
-\defineR{\rPI}{3.1415927}
-\defineR{\rE}{2.7182818}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-%
-% This macro takes \cs{@varName} and \cs{cmp@Name} and converts to the same common
-% denominator. This makes it easy to make comparisons between two rational numbers.
-% \begin{macrocode}
-\def\syncronizeQs#1{\edef\sync@arg{#1}%
- \lcm{\csname d@\sync@arg\endcsname}{\d@cmp@Name}%
- \edef\@thelcm{\thelcm}%
- \convertRatTo{\n@cmp@Name}{\d@cmp@Name}{\@thelcm}%
- \updateQ\cmp@Name{\rng@retn@num}{\@thelcm}%
- \convertRatTo{\csname n@\sync@arg\endcsname}%
- {\csname d@\sync@arg\endcsname}{\@thelcm}\expandafter
- \defineQ\csname\sync@arg\endcsname{\rng@retn@num}{\@thelcm}%
-}
-% \end{macrocode}
-% \subsection{Formatting Commands}
-% \begin{macro}{\ds}
-% \begin{macro}{\eds}
-% \begin{macro}{\cds}
-% Displays an alternate representation (\textbf display\textbf style) of the random variable. Usage \cs{ds}\cs{a}.
-% This displays the contents of \cs{display@TeXfmt} for this variable. The value of \cs{display@TeXfmt}
-% is effected by the formatting commands above.
-%
-% For a rational number \cs{a}, the expression \cs{ds}\cs{a} expands either to the special format representation, or
-% to a rational of the form $\frac{p}{q}$.
-% \begin{macrocode}
-\newcommand\ds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*\endcsname
-}
-\newcommand\eds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*e\endcsname
-}
-\newcommand\cds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*c\endcsname
-}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \begin{macro}{\fmt}
-% \begin{macro}{\efmt}
-% \begin{macro}{\cfmt}
-% Displays a special format for the random variable. Usage \cs{ds}\cs{a}.
-% This displays the contents of \cs{display@TeXfmt} for this variable.
-% Same as \cs{ds}, but does not display a display style if there is not
-% special formatting.
-%
-% For a rational number \cs{a}, the expression \cs{ds}\cs{a} expands either to the special format representation, or
-% to a rational of the form $p/q$.
-% \begin{macrocode}
-\newcommand\fmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!\endcsname
-}
-\newcommand\efmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!e\endcsname
-}
-\newcommand\cfmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!c\endcsname
-}
-% \end{macrocode}
-% \end{macro}
-% \end{macro}
-% \end{macro}
-% \begin{macro}{\js}
-% Used within \cs{CorrAnsButton} to get a more precise expansion of a variable. Used with variables
-% that have been defined using \cs{defineDepVar}. When you say \verb+\js\m+, for example,
-% the \cs{eval@JSfmt} is expanded.
-% \par\medskip\noindent
-% \textbf{Usage:} \verb+\CorrAnsButton*{y = \js\m\space x }+
-% \begin{macrocode}
-\newcommand\js[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!*\endcsname
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsection{Commands specialized to Reals}
-
-% \begin{macro}{\RNGround}
-% Round \texttt{\#1} to \texttt{\#3} decimal places, and leave result in \texttt{\#2}.
-% \begin{macrocode}
-\def\RNGround#1#2#3{%
- \begingroup
- \def\rng@ctrlName{#1}%
- \def\rng@sourceName{#2}%
- \def\rng@nDecPl{#3}%
- \RNGparseDec{#2}%
- \ifnum\rndnDec<#3\relax
- \xdef\theseDigits{\rng@fracpart}%
- \let\rng@next\relax
- \else
- \count0=0\relax
- \gdef\theseDigits{}%
- \def\rng@next{\expandafter\@rng@round\rng@fracpart\end}%
- \fi
- \rng@next
- \xdef\decPls{\@ifundefined{save@rng@nDecPl}%
- {\rng@nDecPl}{\save@rng@nDecPl}}%
- \ifx\theseDigits\@empty
- \xdef#1{\rng@intpart}\else
- \xdef#1{\rng@intpart\RNG@Dec\theseDigits}\fi
- \endgroup
-}
-\def\@rng@round#1{%
- \ifx#1\end\let\rng@next\relax
- \else
- \ifnum\rng@nDecPl=0\relax
- \ifnum#1>4\relax
- \count0=\rng@intpart\relax
- \ifnum\rng@intpart<0\relax
- \advance\count0by-1\relax
- \else
- \advance\count0by1\relax
- \fi
- \xdef\rng@intpart{\the\count0}%
- \fi
- \gdef\theseDigits{}%
- \let\rng@next\rng@gobbletoend
- \else
- \advance\count0by1\relax
- \ifnum\count0=\rng@nDecPl\relax
- \def\rng@next{\@@rng@round#1}%
- \else
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\@rng@round
- \fi
- \fi
- \fi
- \rng@next
-}
-\def\rng@gobbletoend#1\end{}
-\def\@@rng@round#1#2{%
- \ifx#2\end%
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\relax
- \else
- \ifnum#2>4\relax\count2=#1\relax
- \ifnum\count2=9\relax
- \count0=\rng@nDecPl\relax
- \ifnum\count0=1\relax
- \count0=\rng@intpart\relax
- \ifnum\rng@intpart<0\relax
- \advance\count0by-1\relax
- \else
- \advance\count0by1\relax
- \fi
- \xdef\rng@intpart{\the\count0}%
- \let\rng@next\rng@gobbletoend
- \else
- \advance\count0by-1\relax\expandafter
- \xdef\rng@sourceName{%
- \rng@intpart\RNG@Dec\theseDigits#1}%
- \edef\save@rng@nDecPl{\rng@nDecPl}%
- \edef\rng@next{\noexpand\RNGround{%
- \expandafter\noexpand\rng@ctrlName}%
- {\expandafter\noexpand\rng@sourceName}%
- {\the\count0}\noexpand\rng@gobbletoend}%
- \fi
- \else
- \advance\count2by1\relax
- \xdef\theseDigits{\theseDigits\the\count2}%
- \let\rng@next\rng@gobbletoend
- \fi
- \else % \ifnum#2<=4
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\rng@gobbletoend
- \fi
- \fi
- \rng@next
-}
-% \end{macrocode}
-% \end{macro}
-% Used with \cs{CorrAnsButton} and \texttt{rngCorrAnsButton}, like so,
-%\begin{verbatim}
-% \CorrAnsButton{rEval(\strAns)}*{rngCorrAnsButton\RNGprintf{\%.2f}}
-%\end{verbatim}
-% \begin{macrocode}
-\def\RNGprintf#1{("#1",\@gobble}
-% \end{macrocode}
-%
-% \subsection{User Defined Dependent Variables for JavaScript}
-% \begin{macro}{\defineDepQJS}
-% Define a rational as a function of other integers. This macro defines
-% \cs{fmt} and \cs{ds} for the variable, but its primary use it
-% for \cs{js}. This command is aimed at the JavaScript side of things
-%\begin{verbatim}
-%#1 = name of rational to be defined, e.g., \a
-%#2 = numerator
-%#3 = denominator
-%#4 = \js expression for #1
-%\end{verbatim}
-% Usage:
-%\begin{verbatim}
-% \defineDepQJS{\m}{\d-\b}{\c-\a}
-% {rFrac(rEval(\nOf\m)/rEval(\dOf\m))}
-% ...
-% \CorrAnsButton{y = \js\m\space x}*{rngCorrAnsButton}%
-%\end{verbatim}
-% The above example would calculate equation of the line passing through
-% the two points \verb!P(\a,\b)! and \verb!Q(\c,\d)!. The code is used
-% in the \cs{CorrAnsButton} to have the answer appear.
-% \begin{macrocode}
-\newcommand\defineDepQJS[4]{%
- \@getVarName#1
- \expandafter\edef\csname\@varName\endcsname{(#2)/(#3)}%
- \expandafter\edef\csname n@\@varName\endcsname{(#2)}%
- \expandafter\edef\csname d@\@varName\endcsname{(#3)}%
- \edef\display@TeXfmt{\csname\@varName\endcsname}%
- \edef\inline@TeXfmt{\csname\@varName\endcsname}%
- \def\dv@argiv{#4}\ifx\dv@argiv\@empty
- \edef\eval@JSfmt{\csname\@varName\endcsname}\else
- \edef\eval@JSfmt{#4}\fi
- \expandafter\let\csname\@varName!*\endcsname\eval@JSfmt
-}
-% \end{macrocode}
-% \end{macro}
-%
-% \subsection{Writing RVs to Solution Files}
-% \begin{macrocode}
-\def\rng@writeCurrentSeed#1{\immediate\write#1{\string\makeatletter
- \string\global\string\cr@nd=\the\cr@nd\string\relax
- \string\makeatother}}
-% \end{macrocode}
-% Token register to hold the verbatim contents of the \texttt{writeRVsTo} environment.
-% \begin{macrocode}
-\newtoks\rng@toks
-\def\wrv@ex@solns{exercises}%
-\def\wrv@ex@quiz{quizzes}%
-% \end{macrocode}
-% \begin{environment}{writeRVsTo}
-% This environment takes its environment contents and writes it to
-% two files, one file is \cs{jobname\_rvs.cut} which is input back
-% into the source file immediately. The second parameter
-% accepts the string \texttt{exercises} or \texttt{quizzes}, or a write
-% handle to write to an auxiliary file. The environment was designed for
-% use with the \texttt{exercise}, \texttt{quiz}, and \texttt{shortquiz} environments
-% of \textsf{exerquiz}.
-% \begin{macrocode}
-\newenvironment{writeRVsTo}[2][]
-{%
- \def\wrv@argii{#2}%
- \ifx\wrv@argii\wrv@ex@quiz\let\wrv@out\quiz@solns
- \else\ifx\wrv@argii\wrv@ex@solns\let\wrv@out\ex@solns\else
- \let\wrv@out#2\fi\fi
- \rng@writeCurrentSeed\wrv@out
- \rng@toks={}%
- \def\verbatim@processline{%
- \xdef\rng@temp{\the\rng@toks\the\verbatim@line}%
- \global\rng@toks=\expandafter{\rng@temp}}%
- \let\do\@makeother\dospecials\catcode`\^^M\active
- #1%
- \verbatim@start
-}{ \immediate\write\wrv@out{\the\rng@toks}%
- \newwrite\rng@writeRVs
- \immediate\openout\rng@writeRVs\jobname_rvs.cut
- \immediate\write\rng@writeRVs{\the\rng@toks}%
- \immediate\closeout\rng@writeRVs
- \aftergroup\rng@Input@RVs
-}
-% \end{macrocode}
-% \end{environment}
-% After the \texttt{writeRVsTo} environment writes the RVs to
-% \cs{jobname\_rvs.cut}. The environment executes
-% \cs{rng@Input@RVs} to input the file back into the source file.
-% \begin{macrocode}
-\def\rng@Input@RVs{\InputIfFileExists{\jobname_rvs.cut}{}{}}
-% \end{macrocode}
-% \subsection{Redefine lcg Package Macro}
-% \begin{macrocode}
-\def\rng@p@stkeysr@nd{%
- \@rderr@nd% last < first -> swap
- \cutr@nger@nd% range too big -> cut
-} % end of \def\p@stkeysr@nd
-\def\rng@chgrand{\@ifnextchar[\rng@chgr@nd{\rng@chgr@nd[]}}
-\def\rng@chgr@nd[#1]{%
- \@tempcnta=\z@
- \@tempcntb=\z@
- \setkeys{Init}{#1}%
- \rng@p@stkeysr@nd%
- \@utputr@nd%
-} % end of \def\rng@chgrand
-% \end{macrocode}
-% \subsection{DLJS Support}
-% \begin{macrocode}
-\begin{insDLJS}[partialExpand]{partial}{Rangen}
-var partre = /rEval|rFrac/;
-% \end{macrocode}
-% The arguments for this function take two forms
-% (1) \texttt{fieldname}, \texttt{theanswer} (the default); (2)
-% \texttt{theformat}, \texttt{fieldname}, \texttt{theanswer}. The later case
-% is created by using the \cs{RNGprintf} command that inserts allows the
-% document author to insert a \texttt{printf} formatting template. For example,
-%\begin{verbatim}
-% \CorrAnsButton{rEval(\strAns)}*{rngCorrAnsButton\RNGprintf{\%.4f}}
-%\end{verbatim}
-% \begin{macrocode}
-function rngCorrAnsButton()
-{
- var theprecision,fieldname,theanswer;
- if (arguments.length==3) {
- var theformat=arguments[0];
- var fieldname=arguments[1];
- var theanswer=arguments[2];
- } else {
- var fieldname=arguments[0];
- var theanswer=arguments[1];
- }
- theanswer = partialExpand(0,theanswer);
- if (arguments.length==3)
- theanswer=util.printf(theformat,eval(theanswer));
- DisplayAnswer(fieldname,theanswer);
-}
-% \end{macrocode}
-% The JavaScript function \texttt{partialExpand} searches through \texttt{Ans} in search of
-% \texttt{rEval} and \texttt{rFrac}. It calls itself recursively to search for the inner most
-% appearances of these two functions. It evaluates these two functions starting with the inner
-% most and working its way outward.
-% \begin{macrocode}
-function partialExpand(level,Ans)
-{
- Ans = correctPlusMinus(Ans)
- level += 1;
-\db console.println("Enter level = " + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true ) {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = " + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
-% subExp = partialExpand(level, subExp);
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- + eval(m[0]+"(level,subExp)") + Ans.substring(eP+1);
-\db console.println("level = " + level%
- +": New Ans: " + Ans);\db %
- } else {
- if ( level == 1 ) {
-\db console.println("Level 1 break");\db %
- break;
- }
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- Ans = correctPlusMinus(Ans);
- return Ans;
-}
-% \end{macrocode}
-% Evaluates the value of \texttt{Ans}.
-% \begin{macrocode}
-function rEval(level, Ans)
-{
- level += 1;
-\db console.println("Enter rEval: level = "%
- + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true )
- {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = " + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- +eval(m[0]+"(level,subExp)")+Ans.substring(eP+1);
-\db console.println("level = "%
- + level +": New Ans: " + Ans);\db %
- } else {
- Ans = ParseInput(Ans);
-\db console.println("Ready to eval at level = "%
- + level + ": Ans = " + Ans);\db%
- with(Math) { Ans = eval( Ans ) };
-\db console.println("After eval at level = "%
- + level + ": Ans = " + Ans);\db%
- break;
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- return Ans;
-}
-% \end{macrocode}
-% Evaluates an rational number by evaluating the value of the numerator and denominator separately.
-% \begin{macrocode}
-function rFrac(level, Ans)
-{
- level += 1;
-\db console.println("Enter rFrac level = "%
- + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true ) {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = "%
- + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- + eval(m[0]+"(level,subExp)") + Ans.substring(eP+1);
-\db console.println("level = " + level%
- +": New Ans: " + Ans);\db %
- } else {
- var numDenom = Ans.split("/");
- numDenom[0] = eval(numDenom[0]);
- numDenom[1] = eval(numDenom[1]);
- var g = gcd(numDenom[0], numDenom[1]);
- numDenom[0] /= g;
- numDenom[1] /= g;
- if ( numDenom[1] == 1)
- Ans = numDenom[0];
- else
- Ans = numDenom.join("/");
-\db console.println("Reduce: " + numDenom.join("/"));\db%
- break;
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- return Ans;
-}
-function correctPlusMinus(Ans)
-{
- Ans = "" + Ans;
- Ans = Ans.replace(/\s*([\+-])\s*\1\s*/g, " + ");
- Ans = Ans.replace(/\s*\+\s*-\s*/g, " - ");
-% Ans = Ans.replace(/\s*\+\s*\+\s*/g, " + ");
-% Ans = Ans.replace(/\s*-\s*-\s*/g, " + ");
- Ans = Ans.replace(/\s*-\s*\+\s*/g, " - ");
- return Ans;
-}
-function gcd(a,b)
-{
- var x = a, y = b, r;
- while (true)
- {
- r = x \% y;
- if ( r == 0 ) break;
- x = y;
- y = r;
- }
- return Math.abs(y);
-}
-function lcm (a,b) { return (a*b)/gcd(a,b); }
-\end{insDLJS}
-%</package>
-% \end{macrocode}
-\endinput
diff --git a/Master/texmf-dist/source/latex/rangen/rangen.ins b/Master/texmf-dist/source/latex/rangen/rangen.ins
deleted file mode 100644
index c9335e7f873..00000000000
--- a/Master/texmf-dist/source/latex/rangen/rangen.ins
+++ /dev/null
@@ -1,64 +0,0 @@
-%%
-%% This file will generate fast loadable files and documentation
-%% driver files from the doc files in this package when run through
-%% LaTeX or TeX.
-%%
-%% Copyright 1999-2002 D. P. Story
-%%
-%% This file is part of the `Web and Exerquiz Distribution'.
-%% -------------------------------------------
-%%
-%% It may be distributed under the conditions of the LaTeX Project Public
-%% License, either version 1.2 of this license or (at your option) any
-%% later version. The latest version of this license is in
-%% http://www.latex-project.org/lppl.txt
-%% and version 1.2 or later is part of all distributions of LaTeX
-%% version 1999/12/01 or later.
-%%
-%% --------------- start of docstrip commands ------------------
-%%
-\def\filedate{2001/05/26}
-\def\batchfile{rangen.ins}
-%
-% If you can assume that the target audience for the document all have
-% Acrobat Reader 5.0 or later, then chance the following switch to true,
-% else, leave it as false.
-
-\input docstrip
-\ifx\generate\undefined
- \Msg{**********************************************}
- \Msg{*}
- \Msg{* This installation requires docstrip}
- \Msg{* version 2.4 or later.}
- \Msg{*}
- \Msg{* An older version of docstrip has been input}
- \Msg{*}
- \Msg{**********************************************}
- \errhelp{Move or rename old docstrip.tex and get a newer one.}
- \errmessage{Old docstrip in input path}
- \batchmode
- \csname @@end\endcsname\end
-\fi
-
-\keepsilent
-\askforoverwritefalse
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\preamble
-\endpreamble
-
-\generate
-{%
- \file{rangen.sty}{\from{rangen.dtx}{copyright,package}}
-}
-
-\Msg{***************************************************************}
-\Msg{*}
-\Msg{* \space To finish the installation you have to copy the files }
-\Msg{*}
-\Msg{* \space *.sty, *.cfg and *.def into a directory searched by TeX}
-\Msg{*}
-\Msg{***************************************************************}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\endinput
diff --git a/Master/texmf-dist/tex/latex/rangen/rangen.sty b/Master/texmf-dist/tex/latex/rangen/rangen.sty
deleted file mode 100644
index 7f5feb52ebe..00000000000
--- a/Master/texmf-dist/tex/latex/rangen/rangen.sty
+++ /dev/null
@@ -1,1173 +0,0 @@
-%%
-%% This is file `rangen.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% rangen.dtx (with options: `copyright,package')
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Rangen.sty package, 2000-3-05 %%
-%% Copyright (C) 1999-2002 D. P. Story %%
-%% dpstory@uakron.edu %%
-%% %%
-%% This program can redistributed and/or modified under %%
-%% the terms of the LaTeX Project Public License %%
-%% Distributed from CTAN archives in directory %%
-%% macros/latex/base/lppl.txt; either version 1 of the %%
-%% License, or (at your option) any later version. %%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\NeedsTeXFormat{LaTeX2e}[1997/12/01]
-\ProvidesPackage{rangen}
- [2009/04/18 v1.3e Rangen: Generate Random Questions (dps)]
-\newcount\seedCnt
-\DeclareOption{testmode}{%
- \InputIfFileExists{\jobname.seed}{}{\def\thisseed{1}}%
- \PassOptionsToPackage{seed=\thisseed}{lcg}%
- \AtEndOfPackage{\reseedEachRun}%
-}
-\def\reseedEachRun{%
- \seedCnt=\thisseed
- \advance\seedCnt1\relax
- \newwrite \rngWrite
- \immediate\openout\rngWrite \jobname.seed
- \immediate\write\rngWrite{\string\def\string\thisseed{\the\seedCnt}}
- \immediate\closeout\rngWrite
-}
-\def\RNG@Dec{.}
-\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{lcg}}
-\ProcessOptions
-\RequirePackage{lcg}[2008/09/10]
-\edef\rng@saveSeed{\the\cr@nd}
-\newcount\loopCnt
-\def\maxLoopLimit{10}
-\def\typeCodeForz{0}
-\def\typeCodeForq{1}
-\def\typeCodeForr{2}
-\newcount\rng@cnta
-\newcount\rng@cntb
-\def\@getVarName#1{%
- \edef\@varName{\expandafter\@gobble\string#1}%
-}
-\def\@getVarType#1{%
- \@getVarName{#1}\edef\varType{\csname typeof@\@varName\endcsname}}
-\def\gcd#1#2{{% #1 = a, #2 = b
- \ifnum#2=0 \edef\next{#1}\else
- \@tempcnta=#1 \@tempcntb=#2 \divide\@tempcnta by\@tempcntb
- \multiply\@tempcnta by\@tempcntb % q*b
- \@tempcntb=#1
- \advance\@tempcntb by-\@tempcnta % remainder in \@tempcntb
- \ifnum\@tempcntb=0
- \@tempcnta=#2
- \ifnum\@tempcnta < 0 \@tempcnta=-\@tempcnta\fi
- \xdef\gcd@next{\noexpand%
- \def\noexpand\thegcd{\the\@tempcnta}}%
- \else
- \xdef\gcd@next{\noexpand\gcd{#2}{\the\@tempcntb}}%
- \fi
- \fi}\gcd@next
-}
-\def\lcm#1#2{% #1 = a, #2 = b
- \gcd{#1}{#2}%
- {\@tempcnta=#1
- \multiply\@tempcnta by#2
- \divide\@tempcnta by\thegcd
- \xdef\thelcm{\the\@tempcnta}}%
-}
-\def\amodb#1#2{% #1 = a, #2 = b
- {\@tempcnta=#1
- \divide\@tempcnta by#2
- \multiply\@tempcnta by#2
- \@tempcntb=#1
- \advance\@tempcntb by-\@tempcnta
- \xdef\retnmod{\the\@tempcntb}}%
-}
-\newcommand\reduceFrac[2]
-{%
- \gcd{#1}{#2}{\@tempcnta=#1 \divide\@tempcnta by\thegcd
- \@tempcntb=#2 \divide\@tempcntb by\thegcd
- \ifnum\@tempcntb<0\relax
- \@tempcntb=-\@tempcntb
- \@tempcnta=-\@tempcnta
- \fi
- \xdef\rfNumer{\the\@tempcnta}\xdef\rfDenom{\the\@tempcntb}}%
-}
-\def\convertRatTo#1#2#3{{%
- \@tempcnta=#3
- \multiply\@tempcnta by#1
- \divide\@tempcnta by#2
- \xdef\rng@retn@num{\the\@tempcnta}%
-}}
-\newcommand\RNGadd[2]{%
- \rng@cnta=\nOf#1 \multiply\rng@cnta by\dOf#2
- \rng@cntb=\nOf#2 \multiply\rng@cntb by\dOf#1
- \advance\rng@cnta by\the\rng@cntb
- \rng@cntb=\dOf#1 \multiply\rng@cntb by\dOf#2
- \reduceFrac{\the\rng@cnta}{\the\rng@cntb}
-}
-\def\rng@isControl#1{\@ifundefined{\expandafter\@gobble\string#1}%
- {\let\rng@isC@ntrol=0}{\let\rng@isC@ntrol=1}}
-\def\rng@existStar#1{\rng@existSt@r#1**\@nil}
-\def\rng@existSt@r#1*#2*#3\@nil{\def\rng@isStari{#1}%
- \def\rng@isStarii{#2}\def\rng@isStariii{#3}%
-}
-\def\rng@NameEndpoint#1{%
- \ifx\rng@isStari\@empty
- \edef#1{\expandafter\noexpand\rng@isStarii}%
- \else\ifx\rng@isStarii\@empty
- \edef#1{\expandafter\noexpand\rng@isStari}%
- \fi\fi
-}
-\newcommand\defineZ[2]
-{%
- \@getVarName#1\relax
- \expandafter\def\csname typeof@\@varName\endcsname{0}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{1}%
- \edef\display@TeXfmt{#2}\edef\inline@TeXfmt{#2}%
- \ifnum#2=1\relax\rng@makeOneFmtDefns
- \else\ifnum#2=-1\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2}%
-}
-\newcommand\defineQ[3]
-{%
- \@getVarName#1\relax
- \expandafter\def\csname typeof@\@varName\endcsname{1}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{#3}%
- \edef\display@TeXfmt{\frac{#2}{#3}}\edef\inline@TeXfmt{#2/#3}%
- \ifnum#2=#3\relax\rng@makeOneFmtDefns
- \else\ifnum#2=-#3\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2/#3}%
- \simplifyCurrentQ
-}
-\newcommand{\defineR}[2]{%
- \@getVarName{#1}\RNGparseDec{#2}%
- \expandafter\def\csname typeof@\@varName\endcsname{2}%
- \reduceFrac{\rng@intpart\rng@fracpart}{\rndPower}%
- \expandafter\edef\csname n@\@varName\endcsname{\rfNumer}%
- \expandafter\edef\csname d@\@varName\endcsname{\rfDenom}%
- \edef\display@TeXfmt{#2}\edef\inline@TeXfmt{#2}%
- \ifnum\rfNumer=1\relax\rng@makeOneFmtDefns
- \else\ifnum\rfNumer=-1\relax\rng@makeMinusOneFmtDefns
- \else\rng@makeOtherFmtDefns\fi\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
- \expandafter\edef\csname\@varName\endcsname{#2}%
- \simplifyCurrentR
-}
-\newcommand{\simplifyCurrentR}{%
- \ifnum\csname d@\@varName\endcsname=1
- \expandafter\defineZ
- \csname\@varName\endcsname{\csname n@\@varName\endcsname}\fi
-}
-\def\rng@makeOneFmtDefns{%
- \expandafter\def\csname\@varName!e\endcsname{}%
- \expandafter\def\csname\@varName!c\endcsname{}%
- \expandafter\def\csname\@varName*e\endcsname{}%
- \expandafter\def\csname\@varName*c\endcsname{}%
-}
-\def\rng@makeMinusOneFmtDefns{%
- \expandafter\def\csname\@varName!e\endcsname{-1}%
- \expandafter\def\csname\@varName!c\endcsname{-}%
- \expandafter\def\csname\@varName*e\endcsname{-1}%
- \expandafter\def\csname\@varName*c\endcsname{-}%
-}
-\def\rng@makeOtherFmtDefns{%
- \expandafter\let\csname\@varName!e\endcsname\inline@TeXfmt
- \expandafter\let\csname\@varName!c\endcsname\inline@TeXfmt
- \expandafter\let\csname\@varName*e\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName*c\endcsname\display@TeXfmt
-}
-\def\RNGparseRat#1{\expandafter\@chkslash#1//\@nil}
-\def\@chkslash#1/#2/#3\@nil{%
- \def\rng@num{#1}\def\rng@denom{#2}%
- \def\rng@parseQ@iii{#3}%
- \ifx\rng@denom\@empty\def\rng@denom{1}\fi
-}
-\newcommand{\RNGparseDec}[1]{\edef\parse@argi{#1}%
- \expandafter\@chkdec\parse@argi..\@nil}
-\def\@chkdec#1.#2.#3\@nil{%
- \def\rng@intpart{#1}\def\rng@fracpart{#2}%
- \def\rng@parseR@iii{#3}\rng@getnDec}
-\def\rng@getnDec{%
- \begingroup
- \ifx\rng@fracpart\@empty\gdef\rndnDec{0}\gdef\rndPower{1}\else
- \count0=0\relax\count2=1\relax
- \expandafter\cntNumDec\rng@fracpart\end\fi
- \endgroup}
-\def\cntNumDec#1#2\end{%
- \advance\count0by1
- \def\rng@arg{#2}%
- \ifx\rng@arg\@empty
- \xdef\rndnDec{\the\count0}%
- \xdef\rndPower{1\@nameuse{rng@tz\the\count0}}%
- \let\rng@next\relax
- \else
- \def\rng@next{\cntNumDec#2\end}%
- \fi\rng@next
-}
-\newcommand{\nDivisionsPowerOfTen}[1]{%
- \begingroup
- \count0=#1\relax
- \ifnum\count0>4\relax
- \PackageError{rangen}{Number of subdivisions too large}%
- {Reduce the argument of \string\nDivisionsPowerOfTen.}%
- \else
- \ifnum\count0<1\relax
- \PackageError{rangen}{Number of subdivisions too large}%
- {Increase the argument of \string\nDivisionsPowerOfTen.}%
- \fi\fi
- \xdef\RNGpowerOfTen{1\@nameuse{rng@tz#1}}%
- \endgroup
-}
-\nDivisionsPowerOfTen{2}
-\newcommand\RandomZ[4][]
-{%
- \def\rng@ne@values{}%
- \setkeys{rangen}{ne,#1}%
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
- \rng@existStar{#3}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{%
- \noexpand\rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \rng@cnta=\rng@LEP
- \or % rational
- \rng@dima=\expandafter\nOf\rng@LEP pt
- \divide\rng@dima by\expandafter\dOf\rng@LEP
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@LEP}%
- \rng@cnta=\rng@intpart
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \rng@cnta=\rng@intpart
- \fi
- \advance\rng@cnta by1\relax
- \defineZ{\rng@LEP}{\the\rng@cnta}%
- \else
- \defineZ{\rng@LEP}{\rng@LEP}%
- \fi
- \else
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlLEP=1%
- \def\rng@LEP{#3}%
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineZ{\rng@LEP}{#3}%
- \or % rational
- \rng@dima=\nOf{#3}pt
- \divide\rng@dima by\dOf{#3}%
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@LEP}%
- \defineZ{\rng@LEP}{\rng@intpart}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \defineZ{\rng@LEP}{\rng@intpart}%
- \fi
- \else
- \defineZ{\rng@LEP}{#3}%
- \fi
- \fi
- \rng@existStar{#4}\rng@NameEndpoint{\rng@UEP}%
- \if\rng@isStariii*\edef\tmp@exp{%
- \noexpand\rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \rng@cnta=\rng@UEP
- \or % rational
- \rng@dima=\expandafter\nOf\rng@UEP pt
- \divide\rng@dima by\expandafter\dOf\rng@UEP
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@UEP}%
- \rng@cnta=\rng@intpart
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \rng@cnta=\rng@intpart
- \fi
- \advance\rng@cnta by-1\relax
- \defineZ{\rng@UEP}{\the\rng@cnta}%
- \else
- \defineZ{\rng@UEP}{\rng@UEP}%
- \fi
- \else
- \rng@isControl{#4}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlUEP=1%
- \def\rng@UEP{#4}%
- \@getVarType{#4}%
- \ifcase\varType % integer
- \defineZ{\rng@UEP}{#4}%
- \or % rational
- \rng@dima=\nOf{#4}pt
- \divide\rng@dima by\dOf{#4}%
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \RNGparseDec{\rng@UEP}%
- \defineZ{\rng@UEP}{\rng@intpart}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \defineZ{\rng@UEP}{\rng@intpart}%
- \fi
- \else
- \defineZ{\rng@UEP}{#4}%
- \fi
- \fi
- \def\@currentName{#2}%
- \@getVarName{#2}%
- \expandafter\def\csname typeof@\@varName\endcsname{0}%
- \expandafter\edef\csname first@\@varName\endcsname{\rng@LEP}%
- \expandafter\edef\csname last@\@varName\endcsname{\rng@UEP}%
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \defineZ{#2}{\arabic{rand}}%
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
- \@whilenum\loopCnt<\maxLoopLimit\do{%
- \rng@cnta=1\relax
- \@for\ne@@tmp:=\rangen@ne\do{%
- \ifnum\value{rand}=\ne@@tmp\relax
- \multiply\rng@cnta0\relax
- \else
- \multiply\rng@cnta1\relax
- \fi
- }%
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \fi
- \fi
- }%
- \fi
- \defineZ{#2}{\arabic{rand}}%
-}
-\def\updateZ#1#2{%
- \@getVarName#1\relax
- \expandafter\edef\csname\@varName\endcsname{#2}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{1}%
-}
-\newcommand{\RandomQ}[2][]
-{%
- \setkeys{rangen}{ne,#1}%
- \def\rq@currentName{#2}%
- \@RandomQ
-}
-\newcommand{\@RandomQ}[3][]
-{%
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
- \rng@existStar{#2}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \defineQ{\rng@LEP}{\rng@LEP}{1}%
- \or % rational
- \edef\tmp@exp{\noexpand%
- \defineQ{\noexpand\rng@LEP}{\expandafter\nOf\rng@LEP}%
- {\expandafter\dOf\rng@LEP}}\tmp@exp
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \RNGparseDec{\rng@LEP}%
- \defineQ{\rng@LEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
- \RNGparseRat{\rng@LEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
- \rng@isControl{#2}%
- \if\rng@isC@ntrol1% a control sequence
- \@getVarType{#2}%
- \ifcase\varType % integer
- \defineQ{\rng@LEP}{#2}{1}%
- \or % rational
- \defineQ{\rng@LEP}{\nOf{#2}}{\dOf{#2}}%
- \or % real
- \defineR{\rng@LEP}{#2}%
- \RNGparseDec{\rng@LEP}%
- \defineQ{\rng@LEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else % a number, required to be rational
- \RNGparseRat{#2}%
- \defineQ{\rng@LEP}{\rng@num}{\rng@denom}%
- \fi
- \fi
- \rng@existStar{#3}\rng@NameEndpoint{\rng@UEP}%%
- \if\rng@isStariii*%
- \edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \defineQ{\rng@UEP}{\rng@UEP}{1}%
- \or % rational
- \edef\tmp@exp{\noexpand%
- \defineQ{\noexpand\rng@UEP}{\expandafter\nOf\rng@UEP}%
- {\expandafter\dOf\rng@UEP}}\tmp@exp
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \RNGparseDec{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
- \RNGparseRat{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% a control sequence
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineQ{\rng@UEP}{#3}{1}%
- \or % rational
- \defineQ{\rng@UEP}{\nOf{#3}}{\dOf{#3}}%
- \or % real
- \defineR{\rng@UEP}{#3}%
- \RNGparseDec{\rng@UEP}%
- \defineQ{\rng@UEP}{\rng@intpart}{\rng@fracpart}%
- \fi
- \else % a number, required to be rational
- \RNGparseRat{#3}%
- \defineQ{\rng@UEP}{\rng@num}{\rng@denom}%
- \fi
- \fi
- \@@RandomQ{#1}{\nOf{\rng@LEP}}{\dOf{\rng@LEP}}%
- {\nOf{\rng@UEP}}{\dOf{\rng@UEP}}%
-}
-\newcommand{\@@RandomQ}[5]
-{%
- \updateQ\@rqi{#2}{#3}\updateQ\@rqii{#4}{#5}%
- \lcm{#3}{#5}\edef\@thelcm{\thelcm}%
- \def\@maxDenom{#1}%
- \ifx\@maxDenom\@empty\edef\@maxDenom{\@thelcm}\else
- \lcm{\@thelcm}{#1}\edef\@thelcm{\thelcm}\fi
- \convertRatTo{\nOf\@rqi}{\dOf\@rqi}{\@thelcm}%
- \updateQ\@@rqi{\rng@retn@num}{\@thelcm}%
- \convertRatTo{\nOf\@rqii}{\dOf\@rqii}{\@thelcm}%
- \updateQ\@@rqii{\rng@retn@num}{\@thelcm}%
- \rng@cnta=\@thelcm \divide\rng@cnta by\@maxDenom
- \edef\@divisor{\the\rng@cnta}%
- \rng@cnta=\nOf\@@rqi
- \divide\rng@cnta by\@divisor
- \advance\rng@cnta by1
- \rng@cntb=\nOf\@@rqii\divide\rng@cntb by\@divisor
- \if\rng@makeLEPStrict1\advance\rng@cnta1\relax\fi
- \if\rng@makeUEPStrict1\advance\rng@cntb-1\relax\fi
- \expandafter\@getVarName\rq@currentName
- \let\save@varName\@varName
- \expandafter\edef\csname first@n@\@varName\endcsname{\the\rng@cnta}%
- \expandafter\edef\csname last@n@\@varName\endcsname{\the\rng@cntb}%
- \expandafter\edef\csname first@d@\@varName\endcsname{\@maxDenom}%
- \expandafter\edef\csname last@d@\@varName\endcsname{\@maxDenom}%
- \edef\rng@LEP{\csname first@n@\@varName\endcsname}%
- \edef\rng@UEP{\csname last@n@\@varName\endcsname}%
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \let\@currentName\rq@currentName
- \expandafter\@getVarName\rq@currentName
- \expandafter\defineQ\@currentName{\arabic{rand}}{\@maxDenom}%
- \simplifyCurrentQ
- \expandafter\defineQ\@currentName{\expandafter\nOf\@currentName}%
- {\expandafter\dOf\@currentName}%
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
- \@whilenum\loopCnt<\maxLoopLimit\do{%
- \rng@cnta=1\relax
- \@for\ne@@tmp:=\rangen@ne\do{%
- \let\save@currentName\rq@currentName
- \RNGparseRat{\ne@@tmp}%
- \defineQ{\cmp@Name}{\rng@num}{\rng@denom}%
- \let\@varName\save@varName
- \syncronizeQs{\@varName}%
- \ifnum\csname n@\@varName\endcsname=\n@cmp@Name
- \multiply\rng@cnta0\relax
- \else
- \multiply\rng@cnta1\relax
- \fi
- }%
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@chgrand[first=\rng@LEP,last=\rng@UEP]\rand
- \expandafter\@getVarName\rq@currentName
- \expandafter\defineQ\@currentName{\arabic{rand}}%
- {\@maxDenom}%
- \fi
- \fi
- }%
- \fi
- \simplifyCurrentQ
- \expandafter\defineQ\@currentName{\expandafter\nOf\@currentName}%
- {\expandafter\dOf\@currentName}%
- \let\@currentName\rq@currentName
- \expandafter\@getVarName\rq@currentName
- \ifnum\csname d@\@varName\endcsname=1\relax\expandafter
- \defineZ\@currentName{\expandafter\nOf\@currentName}%
- \fi
- \simplifyCurrentQ
-}
-\newcommand\updateQ[3]
-{%
- \@getVarName#1\relax
- \expandafter\edef\csname\@varName\endcsname{#2/#3}%
- \expandafter\edef\csname n@\@varName\endcsname{#2}%
- \expandafter\edef\csname d@\@varName\endcsname{#3}%
-}
-\def\simplifyCurrentQ
-{%
- \reduceFrac{\csname n@\@varName\endcsname}%
- {\csname d@\@varName\endcsname}%
- \expandafter\edef\csname n@\@varName\endcsname{\rfNumer}%
- \expandafter\edef\csname d@\@varName\endcsname{\rfDenom}%
- \ifnum\csname n@\@varName\endcsname=0
- \expandafter\edef\csname\@varName\endcsname{0}%
- \edef\display@TeXfmt{0}\edef\inline@TeXfmt{0}%
- \else
- \ifnum\csname n@\@varName\endcsname=\csname d@\@varName\endcsname
- \expandafter\defineZ\csname\@varName\endcsname{1}%
- \else
- \ifnum\csname n@\@varName\endcsname
- =-\csname d@\@varName\endcsname
- \expandafter\defineZ\csname\@varName\endcsname{-1}%
- \else
- \ifnum\csname d@\@varName\endcsname=1
- \expandafter\defineZ\csname\@varName\endcsname
- {\csname n@\@varName\endcsname}%
- \else
- \expandafter\edef\csname \@varName\endcsname{%
- \csname n@\@varName\endcsname/%
- \csname d@\@varName\endcsname}%
- \edef\display@TeXfmt{%
- \frac{\csname n@\@varName\endcsname}
- {\csname d@\@varName\endcsname}}%
- \edef\inline@TeXfmt{%
- \csname n@\@varName\endcsname/%
- \csname d@\@varName\endcsname}%
- \expandafter\let
- \csname\@varName*\endcsname\display@TeXfmt
- \fi
- \fi
- \fi
- \fi
-}
-\newcommand\nOf[1]{\csname n@\expandafter\@gobble\string#1\endcsname}
-\newcommand\dOf[1]{\csname d@\expandafter\@gobble\string#1\endcsname}
-\newcommand{\iOf}[1]{\csname i@\expandafter\@gobble\string#1\endcsname}
-\newcommand\typeOf[1]{%
- \csname typeof@\expandafter\@gobble\string#1\endcsname}
-\newif\iftrailingzeros\trailingzerosfalse
-\@namedef{rng@tz1}{0}
-\@namedef{rng@tz2}{00}
-\@namedef{rng@tz3}{000}
-\@namedef{rng@tz4}{0000}
-\@namedef{rng@tz5}{00000}
-\@namedef{rng@tz6}{000000}
-\@namedef{rng@tz7}{0000000}
-\@namedef{rng@tz8}{00000000}
-\def\rng@true{true}\def\rng@false{false}
-\newdimen\rng@dima
-\newdimen\rng@dimb
-\newdimen\rng@dimc
-\define@key{rangen}{ne}[]{\edef\rangen@ne{#1}}
-\define@key{rangen}{round}[]{\def\rangen@round{#1}}
-\define@key{rangen}{showzeros}[]{\def\rangen@showzeros{#1}%
- \ifx\rangen@showzeros\@empty\global\trailingzerostrue\else
- \ifx\rangen@showzeros\rng@true\global\trailingzerostrue\else
- \global\trailingzerosfalse\fi\fi}
-\define@key{rangen}{index}[]{\edef\rangen@index{#1}}
-\newcommand{\RandomR}[4][]{%
- \setkeys{rangen}{ne,round,showzeros=false,#1}%
- \let\rng@CtrlLEP=0\let\rng@CtrlUEP=0%
- \let\rng@makeLEPStrict=0\let\rng@makeUEPStrict=0%
- \def\rng@lcg@first{0}\edef\rng@lcg@last{\RNGpowerOfTen}%
- \rng@existStar{#3}\rng@NameEndpoint{\rng@LEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlLEP=1\let\rng@makeLEPStrict=1%
- \def\rng@lcg@first{1}%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@LEP}}\tmp@exp
- \ifcase\varType % integer
- \defineR{\rng@LEP}{\rng@LEP\RNG@Dec}%
- \or % rational
- \rng@dima=\expandafter\nOf\rng@LEP pt
- \divide\rng@dima by\expandafter\dOf\rng@LEP
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
- \else
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
- \else
- \rng@isControl{#3}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlLEP=1\def\rng@LEP{#3}%
- \@getVarType{#3}%
- \ifcase\varType % integer
- \defineR{\rng@LEP}{\rng@LEP\RNG@Dec}%
- \or % rational
- \rng@dima=\nOf{#3}pt
- \divide\rng@dima by\dOf{#3}%
- \defineR{\rng@LEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@LEP}{\rng@LEP}%
- \fi
- \else
- \defineR{\rng@LEP}{#3}%
- \fi
- \fi
- \rng@existStar{#4}\rng@NameEndpoint{\rng@UEP}%
- \if\rng@isStariii*\edef\tmp@exp{\noexpand%
- \rng@isControl{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \if\rng@isC@ntrol1% a control sequence
- \let\rng@CtrlUEP=1\let\rng@makeUEPStrict=1%
- \rng@cnta=\rng@lcg@last\advance\rng@cnta-1\relax
- \edef\rng@lcg@last{\the\rng@cnta}%
- \edef\tmp@exp{\noexpand%
- \@getVarType{\expandafter\noexpand\rng@UEP}}\tmp@exp
- \ifcase\varType % integer
- \defineR{\rng@UEP}{\rng@UEP\RNG@Dec}%
- \or % rational
- \rng@dima=\expandafter\nOf\rng@UEP pt
- \divide\rng@dima by\expandafter\dOf\rng@UEP
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
- \else
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
- \else
- \rng@isControl{#4}%
- \if\rng@isC@ntrol1% control sequence
- \let\rng@CtrlUEP=1\def\rng@UEP{#4}%
- \@getVarType{#4}%
- \ifcase\varType % integer
- \defineR{\rng@UEP}{\rng@UEP\RNG@Dec}%
- \or % rational
- \rng@dima=\nOf{#4}pt
- \divide\rng@dima by\dOf{#4}%
- \defineR{\rng@UEP}{\strip@pt\rng@dima}%
- \or % real
- \defineR{\rng@UEP}{\rng@UEP}%
- \fi
- \else
- \defineR{\rng@UEP}{#4}%
- \fi
- \fi
- \def\@currentName{#2}\@getVarName{#2}%
- \expandafter\edef\csname first@\@varName\endcsname{\rng@LEP}%
- \expandafter\edef\csname last@\@varName\endcsname{\rng@UEP}%
- \rng@getRandomR
- \defineR{#2}{\strip@pt\rng@dima}%
- \ifx\rangen@round\@empty\else
- \RNGround{#2}{#2}{\rangen@round}%
- \rng@dima=#2pt\relax
- \defineR{#2}{\strip@pt\rng@dima}%
- \fi
- \ifx\rangen@ne\@empty\else\loopCnt=0\relax
- \@whilenum\loopCnt<\maxLoopLimit\do{%
- \rng@cnta=1\relax
- \@for\ne@@tmp:=\rangen@ne\do{%
- \rng@dima=#2pt
- \ifdim\rng@dima=\ne@@tmp pt\relax
- \multiply\rng@cnta0\relax\else
- \multiply\rng@cnta1\relax\fi
- }%
- \ifnum\rng@cnta=1\relax % all conditions met
- \loopCnt=\maxLoopLimit
- \else % if \rng@cnta \ne 1, try again
- \advance\loopCnt1\relax
- \ifnum\loopCnt=\maxLoopLimit
- \PackageWarning{rangen}{Not all conditions met
- after \maxLoopLimit\space tries}%
- \else
- \rng@getRandomR
- \defineR{#2}{\strip@pt\rng@dima}%
- \ifx\rangen@round\@empty\else
- \RNGround{#2}{#2}{\rangen@round}%
- \rng@dima=#2pt\relax
- \defineR{#2}{\strip@pt\rng@dima}%
- \fi
- \fi
- \fi
- }%
- \fi
- \rnd@ProcessRealFormat{#2}%
- \def\@currentName{#2}%
- \defineR{#2}{#2}%
-}
-\def\rng@getRandomR{%
- \rng@dima=\rng@LEP pt
- \rng@dimb=\rng@UEP pt
- \advance\rng@dimb-\rng@dima
- \rng@chgrand[first=\rng@lcg@first,last=\rng@lcg@last]\rand
- \divide\rng@dimb by\RNGpowerOfTen\relax
- \rng@dimb=\arabic{rand}\rng@dimb
- \advance\rng@dima by\rng@dimb
-}
-\def\rnd@ProcessRealFormat#1{%
- \ifx\rangen@round\@empty
- \rng@dima=#1pt\relax
- \defineR{#1}{\strip@pt\rng@dima}%
- \else
- \RNGround{#1}{#1}{\rangen@round}%
- \rng@dima=#1pt\relax
- \defineR{#1}{\strip@pt\rng@dima}%
- \iftrailingzeros
- {\RNGparseDec{#1}\count0=\decPls\relax
- \advance\count0-\rndnDec\relax
- \ifnum\count0>0\relax\xdef#1{%
- \rng@intpart\RNG@Dec\rng@fracpart%
-\@nameuse{rng@tz\the\count0}}%
- \fi}%
- \defineR{#1}{#1}%
- \fi
- \fi
-}
-\newcommand{\RandomS}[2][1/2]{%
- \RNGparseRat{#1}%
- \ifnum\rng@num<0\relax
- \PackageError{rangen}{A positive numerator is required}%
- {The rational number must be between 0 and 1}\fi
- \ifnum\rng@denom<0\relax
- \PackageError{rangen}{A positive denominator is required}%
- {The rational number must be between 0 and 1}\fi
- \ifnum\rng@num>\rng@denom\relax
- \PackageError{rangen}{The rational must be between 0 and 1}%
- {The rational number must be between 0 and 1}\fi
- \rng@chgrand[first=1,last=\rng@denom]\rand
- \@getVarName{#2}%
- \ifnum\value{rand}>\rng@num\relax\def#2{-}%
- \rng@makeMinusOneFmtDefns
- \def\display@TeXfmt{-}\def\inline@TeXfmt{-}%
- \else\def#2{+}\rng@makeOneFmtDefns
- \def\display@TeXfmt{}\def\inline@TeXfmt{}\fi
- \expandafter\let\csname\@varName*\endcsname\display@TeXfmt
- \expandafter\let\csname\@varName!\endcsname\inline@TeXfmt
-}
-\newcommand{\RandomL}[3][]{%
- \let\rangen@index\@empty
- \setkeys{rangen}{#1}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax}\edef\n@rng@listItems{\the\rng@cnta}%
- \ifx\rangen@index\@empty
- \rng@chgrand[first=1,last=\n@rng@listItems]\rand
- \else
- \rng@cnta=\rangen@index
- \advance\rng@cnta-1\relax
- \amodb{\rng@cnta}{\n@rng@listItems}%
- \rng@cnta=\retnmod
- \advance\rng@cnta1\relax
- \value{rand}=\rng@cnta
- \fi
- \@getVarName{#2}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax\ifnum\rng@cnta=\arabic{rand}%
- \edef\rng@choice{\@@tmp}\fi}%
- \def\@currentName{#2}%
- \RNGparseDec{\rng@choice}%
- \if\rng@parseR@iii\RNG@Dec\defineR{#2}{\rng@choice}%
- \else\RNGparseRat{\rng@choice}%
- \if\rng@parseQ@iii/\defineQ{#2}{\rng@num}{\rng@denom}%
- \else\defineZ{#2}{\rng@choice}\fi\fi
-}
-
-\newcommand{\RandomP}[3][]{%
- \let\rangen@index\@empty
- \setkeys{rangen}{#1}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax}\edef\n@rng@listItems{\the\rng@cnta}%
- \ifx\rangen@index\@empty
- \rng@chgrand[first=1,last=\n@rng@listItems]\rand
- \else
- \rng@cnta=\rangen@index
- \advance\rng@cnta-1\relax
- \amodb{\rng@cnta}{\n@rng@listItems}%
- \rng@cnta=\retnmod
- \advance\rng@cnta1\relax
- \value{rand}=\rng@cnta
- \fi
- \@getVarName{#2}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
- \rng@cnta=0\relax\@for\@@tmp:=#3\do{%
- \advance\rng@cnta1\relax\ifnum\rng@cnta=\arabic{rand}%
- \rng@toks=\expandafter{\@@tmp}\edef#2{\the\rng@toks}%
- \expandafter\def\csname typeof@\@varName\endcsname{3}\fi}%
-}
-\newcommand{\RandomI}[2]{%
- \rng@chgrand[first=1,last=#2]\rand
- \defineZ{#1}{\arabic{rand}}%
- \expandafter\edef\csname i@\@varName\endcsname{\arabic{rand}}%
-}
-\defineZ{\zZero}{0}
-\defineZ{\zOne}{1}
-\defineZ{\zMinusOne}{-1}
-\defineR{\rPI}{3.1415927}
-\defineR{\rE}{2.7182818}
-\def\syncronizeQs#1{\edef\sync@arg{#1}%
- \lcm{\csname d@\sync@arg\endcsname}{\d@cmp@Name}%
- \edef\@thelcm{\thelcm}%
- \convertRatTo{\n@cmp@Name}{\d@cmp@Name}{\@thelcm}%
- \updateQ\cmp@Name{\rng@retn@num}{\@thelcm}%
- \convertRatTo{\csname n@\sync@arg\endcsname}%
- {\csname d@\sync@arg\endcsname}{\@thelcm}\expandafter
- \defineQ\csname\sync@arg\endcsname{\rng@retn@num}{\@thelcm}%
-}
-\newcommand\ds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*\endcsname
-}
-\newcommand\eds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*e\endcsname
-}
-\newcommand\cds[1]{%
- \expandafter\csname\expandafter\@gobble\string#1*c\endcsname
-}
-\newcommand\fmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!\endcsname
-}
-\newcommand\efmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!e\endcsname
-}
-\newcommand\cfmt[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!c\endcsname
-}
-\newcommand\js[1]{%
- \expandafter\csname\expandafter\@gobble\string#1!*\endcsname
-}
-
-\def\RNGround#1#2#3{%
- \begingroup
- \def\rng@ctrlName{#1}%
- \def\rng@sourceName{#2}%
- \def\rng@nDecPl{#3}%
- \RNGparseDec{#2}%
- \ifnum\rndnDec<#3\relax
- \xdef\theseDigits{\rng@fracpart}%
- \let\rng@next\relax
- \else
- \count0=0\relax
- \gdef\theseDigits{}%
- \def\rng@next{\expandafter\@rng@round\rng@fracpart\end}%
- \fi
- \rng@next
- \xdef\decPls{\@ifundefined{save@rng@nDecPl}%
- {\rng@nDecPl}{\save@rng@nDecPl}}%
- \ifx\theseDigits\@empty
- \xdef#1{\rng@intpart}\else
- \xdef#1{\rng@intpart\RNG@Dec\theseDigits}\fi
- \endgroup
-}
-\def\@rng@round#1{%
- \ifx#1\end\let\rng@next\relax
- \else
- \ifnum\rng@nDecPl=0\relax
- \ifnum#1>4\relax
- \count0=\rng@intpart\relax
- \ifnum\rng@intpart<0\relax
- \advance\count0by-1\relax
- \else
- \advance\count0by1\relax
- \fi
- \xdef\rng@intpart{\the\count0}%
- \fi
- \gdef\theseDigits{}%
- \let\rng@next\rng@gobbletoend
- \else
- \advance\count0by1\relax
- \ifnum\count0=\rng@nDecPl\relax
- \def\rng@next{\@@rng@round#1}%
- \else
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\@rng@round
- \fi
- \fi
- \fi
- \rng@next
-}
-\def\rng@gobbletoend#1\end{}
-\def\@@rng@round#1#2{%
- \ifx#2\end%
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\relax
- \else
- \ifnum#2>4\relax\count2=#1\relax
- \ifnum\count2=9\relax
- \count0=\rng@nDecPl\relax
- \ifnum\count0=1\relax
- \count0=\rng@intpart\relax
- \ifnum\rng@intpart<0\relax
- \advance\count0by-1\relax
- \else
- \advance\count0by1\relax
- \fi
- \xdef\rng@intpart{\the\count0}%
- \let\rng@next\rng@gobbletoend
- \else
- \advance\count0by-1\relax\expandafter
- \xdef\rng@sourceName{%
- \rng@intpart\RNG@Dec\theseDigits#1}%
- \edef\save@rng@nDecPl{\rng@nDecPl}%
- \edef\rng@next{\noexpand\RNGround{%
- \expandafter\noexpand\rng@ctrlName}%
- {\expandafter\noexpand\rng@sourceName}%
- {\the\count0}\noexpand\rng@gobbletoend}%
- \fi
- \else
- \advance\count2by1\relax
- \xdef\theseDigits{\theseDigits\the\count2}%
- \let\rng@next\rng@gobbletoend
- \fi
- \else % \ifnum#2<=4
- \xdef\theseDigits{\theseDigits#1}%
- \let\rng@next\rng@gobbletoend
- \fi
- \fi
- \rng@next
-}
-\def\RNGprintf#1{("#1",\@gobble}
-\newcommand\defineDepQJS[4]{%
- \@getVarName#1
- \expandafter\edef\csname\@varName\endcsname{(#2)/(#3)}%
- \expandafter\edef\csname n@\@varName\endcsname{(#2)}%
- \expandafter\edef\csname d@\@varName\endcsname{(#3)}%
- \edef\display@TeXfmt{\csname\@varName\endcsname}%
- \edef\inline@TeXfmt{\csname\@varName\endcsname}%
- \def\dv@argiv{#4}\ifx\dv@argiv\@empty
- \edef\eval@JSfmt{\csname\@varName\endcsname}\else
- \edef\eval@JSfmt{#4}\fi
- \expandafter\let\csname\@varName!*\endcsname\eval@JSfmt
-}
-\def\rng@writeCurrentSeed#1{\immediate\write#1{\string\makeatletter
- \string\global\string\cr@nd=\the\cr@nd\string\relax
- \string\makeatother}}
-\newtoks\rng@toks
-\def\wrv@ex@solns{exercises}%
-\def\wrv@ex@quiz{quizzes}%
-\newenvironment{writeRVsTo}[2][]
-{%
- \def\wrv@argii{#2}%
- \ifx\wrv@argii\wrv@ex@quiz\let\wrv@out\quiz@solns
- \else\ifx\wrv@argii\wrv@ex@solns\let\wrv@out\ex@solns\else
- \let\wrv@out#2\fi\fi
- \rng@writeCurrentSeed\wrv@out
- \rng@toks={}%
- \def\verbatim@processline{%
- \xdef\rng@temp{\the\rng@toks\the\verbatim@line}%
- \global\rng@toks=\expandafter{\rng@temp}}%
- \let\do\@makeother\dospecials\catcode`\^^M\active
- #1%
- \verbatim@start
-}{ \immediate\write\wrv@out{\the\rng@toks}%
- \newwrite\rng@writeRVs
- \immediate\openout\rng@writeRVs\jobname_rvs.cut
- \immediate\write\rng@writeRVs{\the\rng@toks}%
- \immediate\closeout\rng@writeRVs
- \aftergroup\rng@Input@RVs
-}
-\def\rng@Input@RVs{\InputIfFileExists{\jobname_rvs.cut}{}{}}
-\def\rng@p@stkeysr@nd{%
- \@rderr@nd% last < first -> swap
- \cutr@nger@nd% range too big -> cut
-} % end of \def\p@stkeysr@nd
-\def\rng@chgrand{\@ifnextchar[\rng@chgr@nd{\rng@chgr@nd[]}}
-\def\rng@chgr@nd[#1]{%
- \@tempcnta=\z@
- \@tempcntb=\z@
- \setkeys{Init}{#1}%
- \rng@p@stkeysr@nd%
- \@utputr@nd%
-} % end of \def\rng@chgrand
-\begin{insDLJS}[partialExpand]{partial}{Rangen}
-var partre = /rEval|rFrac/;
-function rngCorrAnsButton()
-{
- var theprecision,fieldname,theanswer;
- if (arguments.length==3) {
- var theformat=arguments[0];
- var fieldname=arguments[1];
- var theanswer=arguments[2];
- } else {
- var fieldname=arguments[0];
- var theanswer=arguments[1];
- }
- theanswer = partialExpand(0,theanswer);
- if (arguments.length==3)
- theanswer=util.printf(theformat,eval(theanswer));
- DisplayAnswer(fieldname,theanswer);
-}
-function partialExpand(level,Ans)
-{
- Ans = correctPlusMinus(Ans)
- level += 1;
-\db console.println("Enter level = " + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true ) {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = " + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- + eval(m[0]+"(level,subExp)") + Ans.substring(eP+1);
-\db console.println("level = " + level%
- +": New Ans: " + Ans);\db %
- } else {
- if ( level == 1 ) {
-\db console.println("Level 1 break");\db %
- break;
- }
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- Ans = correctPlusMinus(Ans);
- return Ans;
-}
-function rEval(level, Ans)
-{
- level += 1;
-\db console.println("Enter rEval: level = "%
- + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true )
- {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = " + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- +eval(m[0]+"(level,subExp)")+Ans.substring(eP+1);
-\db console.println("level = "%
- + level +": New Ans: " + Ans);\db %
- } else {
- Ans = ParseInput(Ans);
-\db console.println("Ready to eval at level = "%
- + level + ": Ans = " + Ans);\db%
- with(Math) { Ans = eval( Ans ) };
-\db console.println("After eval at level = "%
- + level + ": Ans = " + Ans);\db%
- break;
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- return Ans;
-}
-function rFrac(level, Ans)
-{
- level += 1;
-\db console.println("Enter rFrac level = "%
- + level +": Ans: " + Ans);\db%
- var n=0, m, bP, eP, subExp;
- while ( true ) {
-\db console.println("Searching a level " + level);\db%
- try { m = Ans.match(partre); }
- catch (e) { break; }
- if ( m != null ) {
- bP = m.index + m[0].length;
- eP = FindBalP(Ans, bP, true);
-\db console.println("bP = "%
- + bP + " : eP = " + eP);\db%
- var subExp = Ans.substring(bP+1, eP);
-\db console.println("Found \'" + subExp%
- + "\' at level = " + level);\db%
- // n = beginning of "rEval",
- // eP = beginning of balanced parens,
- // bP = end of balanced parens
- Ans = Ans.substring(0, m.index)
- + eval(m[0]+"(level,subExp)") + Ans.substring(eP+1);
-\db console.println("level = " + level%
- +": New Ans: " + Ans);\db %
- } else {
- var numDenom = Ans.split("/");
- numDenom[0] = eval(numDenom[0]);
- numDenom[1] = eval(numDenom[1]);
- var g = gcd(numDenom[0], numDenom[1]);
- numDenom[0] /= g;
- numDenom[1] /= g;
- if ( numDenom[1] == 1)
- Ans = numDenom[0];
- else
- Ans = numDenom.join("/");
-\db console.println("Reduce: " + numDenom.join("/"));\db%
- break;
- }
- }
-\db console.println("Return Ans: " + Ans);\db%
- return Ans;
-}
-function correctPlusMinus(Ans)
-{
- Ans = "" + Ans;
- Ans = Ans.replace(/\s*([\+-])\s*\1\s*/g, " + ");
- Ans = Ans.replace(/\s*\+\s*-\s*/g, " - ");
- Ans = Ans.replace(/\s*-\s*\+\s*/g, " - ");
- return Ans;
-}
-function gcd(a,b)
-{
- var x = a, y = b, r;
- while (true)
- {
- r = x \% y;
- if ( r == 0 ) break;
- x = y;
- y = r;
- }
- return Math.abs(y);
-}
-function lcm (a,b) { return (a*b)/gcd(a,b); }
-\end{insDLJS}
-\endinput
-%%
-%% End of file `rangen.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index bf1de0977a0..43c61353cf4 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -267,7 +267,7 @@ my @TLP_working = qw(
pst2pdf pstool pstricks pstricks-add
psu-thesis ptptex purifyeps pxfonts
qcm qobitree qstest qsymbols qtree quotmark
- r_und_s randbild randtext rangen rccol rcs rcs-multi rcsinfo
+ r_und_s randbild randtext rccol rcs rcs-multi rcsinfo
recipe recipecard recycle
refman refstyle regcount register relsize renditions resumemac revtex
rjlparshap rlepsf rmpage
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index 04199b7ee0b..5f0db956af2 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -595,6 +595,7 @@ $Master = "$mydir/../..";
'r2bib', "die 'skipping, requires compilation'",
'ragged2e', "die 'skipping, part of ms'",
'rake4latex', "die 'skipping, requires rake4latex'",
+ 'rangen', "die 'skipping, per author request'",
'ratexdb', "die 'skipping, needs sql, etc.'",
'realcalc', "die 'skipping, nosell license'",
'references', "die 'skipping, requires binary'",
diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
index 9fbd9308e36..29407c21cc0 100644
--- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc
@@ -502,7 +502,6 @@ depend qsymbols
depend quotchap
depend quotmark
depend randtext
-depend rangen
depend rccol
depend rcs-multi
depend rcsinfo
diff --git a/Master/tlpkg/tlpsrc/rangen.tlpsrc b/Master/tlpkg/tlpsrc/rangen.tlpsrc
deleted file mode 100644
index e69de29bb2d..00000000000
--- a/Master/tlpkg/tlpsrc/rangen.tlpsrc
+++ /dev/null