diff options
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/README | 37 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE | 6 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex | 53 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex | 27 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/randomR.tex | 44 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex | 38 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex | 24 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex | 280 | ||||
| -rw-r--r-- | Master/texmf-dist/source/latex/rangen/rangen.dtx | 1987 | ||||
| -rw-r--r-- | Master/texmf-dist/source/latex/rangen/rangen.ins | 64 | ||||
| -rw-r--r-- | Master/texmf-dist/tex/latex/rangen/rangen.sty | 1173 | ||||
| -rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 2 | ||||
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 28 | ||||
| -rw-r--r-- | Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc | 1 | ||||
| -rw-r--r-- | Master/tlpkg/tlpsrc/rangen.tlpsrc | 0 |
15 files changed, 3759 insertions, 5 deletions
diff --git a/Master/texmf-dist/doc/latex/rangen/README b/Master/texmf-dist/doc/latex/rangen/README new file mode 100644 index 00000000000..6ae2f48356d --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/README @@ -0,0 +1,37 @@ +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 new file mode 100644 index 00000000000..68fd64ea249 --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/doc/README.TEXLIVE @@ -0,0 +1,6 @@ +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 new file mode 100644 index 00000000000..99170381509 --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/randomLIP.tex @@ -0,0 +1,53 @@ +\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 new file mode 100644 index 00000000000..ec2a9081a6f --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/randomQ.tex @@ -0,0 +1,27 @@ +\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 new file mode 100644 index 00000000000..69f2f2ba1a5 --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/randomR.tex @@ -0,0 +1,44 @@ +\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 new file mode 100644 index 00000000000..233b8efd162 --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/randomZ.tex @@ -0,0 +1,38 @@ +\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 new file mode 100644 index 00000000000..e7e4fcffdaf --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/rangen_fp.tex @@ -0,0 +1,24 @@ +\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 new file mode 100644 index 00000000000..217065c0e46 --- /dev/null +++ b/Master/texmf-dist/doc/latex/rangen/examples/rangen_tst.tex @@ -0,0 +1,280 @@ +\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 new file mode 100644 index 00000000000..c189c79a2b6 --- /dev/null +++ b/Master/texmf-dist/source/latex/rangen/rangen.dtx @@ -0,0 +1,1987 @@ +%\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 new file mode 100644 index 00000000000..c9335e7f873 --- /dev/null +++ b/Master/texmf-dist/source/latex/rangen/rangen.ins @@ -0,0 +1,64 @@ +%% +%% 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 new file mode 100644 index 00000000000..7f5feb52ebe --- /dev/null +++ b/Master/texmf-dist/tex/latex/rangen/rangen.sty @@ -0,0 +1,1173 @@ +%% +%% 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 6ce71dfdf89..7591b6613b8 100755 --- a/Master/tlpkg/bin/tlpkg-ctan-check +++ b/Master/tlpkg/bin/tlpkg-ctan-check @@ -213,7 +213,7 @@ my @WorkingTLP = qw( pst2pdf pstool pstricks pstricks-add psu-thesis ptptex purifyeps pxfonts qcm qobitree qstest qsymbols qtree quotmark - r_und_s randbild rccol rcs rcs-multi rcsinfo + r_und_s randbild rangen rccol rcs rcs-multi rcsinfo recipe recipecard recycle refman refstyle regcount register resumemac rjlparshap diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index add8c4f5444..1bcaf1478d1 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -2070,29 +2070,45 @@ sub runjob # if MORE is true, remove additional files matching something in # $moreclean and create a README.TEXLIVE which lists the removed files. # -# This only deletes files in the current directory. Should fix. +# As a kludge created for rangen, if KILLPATT starts with a directory +# path (e.g., doc/), we cd to that directory before globbing (and cd +# back at the end). +# +# (Switching all the kill patterns to globs, so we could just use the +# glob function, seemed too ugly. And removing the file in a posthook +# would have meant a separate fn for README.TEXLIVE, also ugly.) # sub killfiles { my ($killpatt,$more) = @_; + print "killfiles($killpatt,$more)\n"; + return unless $killpatt; + + # cd to a leading directory name in KILLPATT. + my $origdir = ""; + if ($killpatt =~ m,^(.*)/,,) { + chomp ($origdir = `pwd`); + &xchdir ($1); + $killpatt =~ s,^$1/,,; + } + local *DOT; opendir (DOT, ".") || die "opendir(.) failed: $! in " . `pwd`; my @delfiles = (); for (grep (/$killpatt/, readdir (DOT))) { - print "\t Removing $_\n"; if (unlink ($_)) { + print "\t Removing $_\n"; push (@delfiles, $_); } else { warn "unlink($_) failed: $!"; } } - for (grep (/\.ps$/, @filenames)) { (my $pdf = $_) =~ s/ps$/pdf/; next unless grep (/$pdf/, @filenames); - print "\t Remove ps $_ (since have $pdf)\n"; + print "\t Removing ps $_ (since have $pdf)\n"; unlink ($_) && push (@delfiles, $_); } @@ -2111,6 +2127,10 @@ EOF } close RTL; } + + # if we cd'd, cd back. + &xchdir ($origdir) if $origdir; + &buildfilelist(); } diff --git a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc index b472dc66e7b..01c8c243a98 100644 --- a/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc +++ b/Master/tlpkg/tlpsrc/collection-latexextra.tlpsrc @@ -441,6 +441,7 @@ 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 new file mode 100644 index 00000000000..e69de29bb2d --- /dev/null +++ b/Master/tlpkg/tlpsrc/rangen.tlpsrc |