diff options
author | dos-reis <gdr@axiomatics.org> | 2007-10-11 08:14:53 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2007-10-11 08:14:53 +0000 |
commit | 4e8869ad7f8dfe1de8b53d3696da5dd17824df0e (patch) | |
tree | 3f2281c5100cbc5facaa1db598ccb456d36c6489 | |
parent | 1b192667b7dc3f8a0ad9fcc78c0a2f527c95b9fc (diff) | |
download | open-axiom-4e8869ad7f8dfe1de8b53d3696da5dd17824df0e.tar.gz |
* Makefile.pamphlet (<<nag-c02.clisp>>): Remove.
(<<nag-c05.clisp>>): Likewise.
(<<nag-c06.clisp>>): Likewise.
(<<nag-d01.clisp>>): Likewise.
(<<nag-d02.clisp>>): Likewise.
(<<nag-d03.clisp>>): Likewise.
(<<nag-e01.clisp>>): Likewise.
(<<nag-e02.clisp>>): Likewise.
(<<nag-e04.clisp>>): Likewise.
(<<nag-f01.clisp>>): Likewise.
(<<nag-f02.clisp>>): Likewise.
(<<nag-f04.clisp>>): Likewise.
(<<nag-f07.clisp>>): Likewise.
(<<nag-s.clisp>>): Likewise.
* bc-matrix.boot.pamphlet (bcInputExplicitMatrix): Fix thinko.
* showimp.boot.pamphlet (getCategoriesOfDomain): Likewise.
* nag-c02.boot.pamphlet: Push into package "BOOT".
* nag-c05.boot.pamphlet: Likewise.
* nag-c06.boot.pamphlet: Likewise. Fix thinko.
* nag-d01.boot.pamphlet: Likewise.
* nag-d02.boot.pamphlet: Push into package "BOOT".
* nag-d03.boot.pamphlet: Likewise.
* nag-e01.boot.pamphlet: Likewise. Fix thinko.
* nag-e02.boot.pamphlet: Push into package "BOOT".
* nag-e02b.boot.pamphlet: Likewise.
* nag-e04.boot.pamphlet: Likewise. Make compilable by bootsys.
* nag-f01.boot.pamphlet: Push into package "BOOT".
* nag-f02.boot.pamphlet: Likewise.
* nag-f04.boot.pamphlet: Likewise.
* nag-f07.boot.pamphlet: Likewise. Fix thinko.
* nag-s.boot.pamphlet: Likewise.
* showimp.boot.pamphlet: Fix thinko.
-rw-r--r-- | src/interp/ChangeLog | 35 | ||||
-rw-r--r-- | src/interp/Makefile.in | 70 | ||||
-rw-r--r-- | src/interp/Makefile.pamphlet | 153 | ||||
-rw-r--r-- | src/interp/bc-matrix.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-c02.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-c05.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-c06.boot.pamphlet | 10 | ||||
-rw-r--r-- | src/interp/nag-d01.boot.pamphlet | 4 | ||||
-rw-r--r-- | src/interp/nag-d02.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-d03.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-e01.boot.pamphlet | 6 | ||||
-rw-r--r-- | src/interp/nag-e02.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-e02b.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-e04.boot.pamphlet | 240 | ||||
-rw-r--r-- | src/interp/nag-f01.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-f02.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-f04.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/nag-f07.boot.pamphlet | 14 | ||||
-rw-r--r-- | src/interp/nag-s.boot.pamphlet | 2 | ||||
-rw-r--r-- | src/interp/showimp.boot.pamphlet | 2 |
20 files changed, 199 insertions, 357 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index b75ca327..00864911 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,5 +1,40 @@ 2007-10-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + * Makefile.pamphlet (<<nag-c02.clisp>>): Remove. + (<<nag-c05.clisp>>): Likewise. + (<<nag-c06.clisp>>): Likewise. + (<<nag-d01.clisp>>): Likewise. + (<<nag-d02.clisp>>): Likewise. + (<<nag-d03.clisp>>): Likewise. + (<<nag-e01.clisp>>): Likewise. + (<<nag-e02.clisp>>): Likewise. + (<<nag-e04.clisp>>): Likewise. + (<<nag-f01.clisp>>): Likewise. + (<<nag-f02.clisp>>): Likewise. + (<<nag-f04.clisp>>): Likewise. + (<<nag-f07.clisp>>): Likewise. + (<<nag-s.clisp>>): Likewise. + * bc-matrix.boot.pamphlet (bcInputExplicitMatrix): Fix thinko. + * showimp.boot.pamphlet (getCategoriesOfDomain): Likewise. + * nag-c02.boot.pamphlet: Push into package "BOOT". + * nag-c05.boot.pamphlet: Likewise. + * nag-c06.boot.pamphlet: Likewise. Fix thinko. + * nag-d01.boot.pamphlet: Likewise. + * nag-d02.boot.pamphlet: Push into package "BOOT". + * nag-d03.boot.pamphlet: Likewise. + * nag-e01.boot.pamphlet: Likewise. Fix thinko. + * nag-e02.boot.pamphlet: Push into package "BOOT". + * nag-e02b.boot.pamphlet: Likewise. + * nag-e04.boot.pamphlet: Likewise. Make compilable by bootsys. + * nag-f01.boot.pamphlet: Push into package "BOOT". + * nag-f02.boot.pamphlet: Likewise. + * nag-f04.boot.pamphlet: Likewise. + * nag-f07.boot.pamphlet: Likewise. Fix thinko. + * nag-s.boot.pamphlet: Likewise. + * showimp.boot.pamphlet: Fix thinko. + +2007-10-11 Gabriel Dos Reis <gdr@cs.tamu.edu> + * bookvol5.pamphlet (|loadExposureGroupData|): Define unconditionally. Don't use "AXIOM" variable. * as.boot.pamphlet (as): Remove dead code. diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in index 0b9eab63..49ea5a0a 100644 --- a/src/interp/Makefile.in +++ b/src/interp/Makefile.in @@ -799,76 +799,6 @@ msgdb.clisp: msgdb.boot @ echo 346 making $@ from $< @ echo '(old-boot::boot "msgdb.boot")' | ${DEPSYS} -nag-c02.clisp: nag-c02.boot - @ echo 152 making $@ from $< - @ echo '(old-boot::boot "nag-c02.boot")' | ${DEPSYS} - - -nag-c05.clisp: nag-c05.boot - @ echo 156 making $@ from $< - @ echo '(old-boot::boot "nag-c05.boot")' | ${DEPSYS} - - -nag-c06.clisp: nag-c06.boot - @ echo 160 making $@ from $< - @ echo '(old-boot::boot "nag-c06.boot")' | ${DEPSYS} - - -nag-d01.clisp: nag-d01.boot - @ echo 164 making $@ from $< - @ echo '(old-boot::boot "nag-d01.boot")' | ${DEPSYS} - - -nag-d02.clisp: nag-d02.boot - @ echo 168 making $@ from $< - @ echo '(old-boot::boot "nag-d02.boot")' | ${DEPSYS} - - -nag-d03.clisp: nag-d03.boot - @ echo 172 making $@ from $< - @ echo '(old-boot::boot "nag-d03.boot")' | ${DEPSYS} - - -nag-e01.clisp: nag-e01.boot - @ echo 176 making $@ from $< - @ echo '(old-boot::boot "nag-e01.boot")' | ${DEPSYS} - - -nag-e02.clisp: nag-e02.boot - @ echo 184 making $@ from $< - @ echo '(old-boot::boot "nag-e02.boot")' | ${DEPSYS} - - -nag-e04.clisp: nag-e04.boot - @ echo 188 making $@ from $< - @ echo '(old-boot::boot "nag-e04.boot")' | ${DEPSYS} - - -nag-f01.clisp: nag-f01.boot - @ echo 192 making $@ from $< - @ echo '(old-boot::boot "nag-f01.boot")' | ${DEPSYS} - - -nag-f02.clisp: nag-f02.boot - @ echo 196 making $@ from $< - @ echo '(old-boot::boot "nag-f02.boot")' | ${DEPSYS} - - -nag-f04.clisp: nag-f04.boot - @ echo 200 making $@ from $< - @ echo '(old-boot::boot "nag-f04.boot")' | ${DEPSYS} - - -nag-f07.clisp: nag-f07.boot - @ echo 204 making $@ from $< - @ echo '(old-boot::boot "nag-f07.boot")' | ${DEPSYS} - - -nag-s.clisp: nag-s.boot - @ echo 208 making $@ from $< - @ echo '(old-boot::boot "nag-s.boot")' | ${DEPSYS} - - newfort.clisp: newfort.boot @ echo 349 making $@ from $< @ echo '(old-boot::boot "newfort.boot")' | ${DEPSYS} diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index e3dd2a29..ebec650c 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -1175,131 +1175,6 @@ c-util.clisp: c-util.boot @ -\subsection{nag-c02.boot \cite{43}} - -<<nag-c02.clisp>>= -nag-c02.clisp: nag-c02.boot - @ echo 152 making $@ from $< - @ echo '(old-boot::boot "nag-c02.boot")' | ${DEPSYS} - -@ - -\subsection{nag-c05.boot \cite{44}} - -<<nag-c05.clisp>>= -nag-c05.clisp: nag-c05.boot - @ echo 156 making $@ from $< - @ echo '(old-boot::boot "nag-c05.boot")' | ${DEPSYS} - -@ - -\subsection{nag-c06.boot \cite{45}} - -<<nag-c06.clisp>>= -nag-c06.clisp: nag-c06.boot - @ echo 160 making $@ from $< - @ echo '(old-boot::boot "nag-c06.boot")' | ${DEPSYS} - -@ - -\subsection{nag-d01.boot \cite{46}} - -<<nag-d01.clisp>>= -nag-d01.clisp: nag-d01.boot - @ echo 164 making $@ from $< - @ echo '(old-boot::boot "nag-d01.boot")' | ${DEPSYS} - -@ - -\subsection{nag-d02.boot \cite{47}} - -<<nag-d02.clisp>>= -nag-d02.clisp: nag-d02.boot - @ echo 168 making $@ from $< - @ echo '(old-boot::boot "nag-d02.boot")' | ${DEPSYS} - -@ - -\subsection{nag-d03.boot \cite{48}} - -<<nag-d03.clisp>>= -nag-d03.clisp: nag-d03.boot - @ echo 172 making $@ from $< - @ echo '(old-boot::boot "nag-d03.boot")' | ${DEPSYS} - -@ - -\subsection{nag-e01.boot \cite{49}} - -<<nag-e01.clisp>>= -nag-e01.clisp: nag-e01.boot - @ echo 176 making $@ from $< - @ echo '(old-boot::boot "nag-e01.boot")' | ${DEPSYS} - -@ - -\subsection{nag-e02.boot \cite{51}} - -<<nag-e02.clisp>>= -nag-e02.clisp: nag-e02.boot - @ echo 184 making $@ from $< - @ echo '(old-boot::boot "nag-e02.boot")' | ${DEPSYS} - -@ - -\subsection{nag-e04.boot \cite{52}} - -<<nag-e04.clisp>>= -nag-e04.clisp: nag-e04.boot - @ echo 188 making $@ from $< - @ echo '(old-boot::boot "nag-e04.boot")' | ${DEPSYS} - -@ - -\subsection{nag-f01.boot \cite{53}} - -<<nag-f01.clisp>>= -nag-f01.clisp: nag-f01.boot - @ echo 192 making $@ from $< - @ echo '(old-boot::boot "nag-f01.boot")' | ${DEPSYS} - -@ - -\subsection{nag-f02.boot \cite{54}} - -<<nag-f02.clisp>>= -nag-f02.clisp: nag-f02.boot - @ echo 196 making $@ from $< - @ echo '(old-boot::boot "nag-f02.boot")' | ${DEPSYS} - -@ - -\subsection{nag-f04.boot \cite{55}} - -<<nag-f04.clisp>>= -nag-f04.clisp: nag-f04.boot - @ echo 200 making $@ from $< - @ echo '(old-boot::boot "nag-f04.boot")' | ${DEPSYS} - -@ - -\subsection{nag-f07.boot \cite{56}} - -<<nag-f07.clisp>>= -nag-f07.clisp: nag-f07.boot - @ echo 204 making $@ from $< - @ echo '(old-boot::boot "nag-f07.boot")' | ${DEPSYS} - -@ - -\subsection{nag-s.boot \cite{57}} - -<<nag-s.clisp>>= -nag-s.clisp: nag-s.boot - @ echo 208 making $@ from $< - @ echo '(old-boot::boot "nag-s.boot")' | ${DEPSYS} - -@ \subsection{category.boot \cite{58}} @@ -2151,34 +2026,6 @@ boot-pkg.$(FASLEXT): boot-pkg.lisp <<msgdb.clisp>> -<<nag-c02.clisp>> - -<<nag-c05.clisp>> - -<<nag-c06.clisp>> - -<<nag-d01.clisp>> - -<<nag-d02.clisp>> - -<<nag-d03.clisp>> - -<<nag-e01.clisp>> - -<<nag-e02.clisp>> - -<<nag-e04.clisp>> - -<<nag-f01.clisp>> - -<<nag-f02.clisp>> - -<<nag-f04.clisp>> - -<<nag-f07.clisp>> - -<<nag-s.clisp>> - <<newfort.clisp>> <<nruncomp.clisp>> diff --git a/src/interp/bc-matrix.boot.pamphlet b/src/interp/bc-matrix.boot.pamphlet index f19d2948..30cee0d0 100644 --- a/src/interp/bc-matrix.boot.pamphlet +++ b/src/interp/bc-matrix.boot.pamphlet @@ -127,7 +127,7 @@ bcInputExplicitMatrix(htPage,junk) == wrows := # STRINGIMAGE nrows wcols := # STRINGIMAGE ncols labelList := - "append"/[[f for j in 1..ncols] for i in 1..nrows] where f == + "append"/[[f for j in 1..ncols] for i in 1..nrows] where f() == rowpart := STRCONC('"{\em Row",htStringPad(i,wrows)) colpart := STRCONC('", Column",htStringPad(j,wcols),'":}\space{2}") prefix := STRCONC(rowpart,colpart) diff --git a/src/interp/nag-c02.boot.pamphlet b/src/interp/nag-c02.boot.pamphlet index ed5821e7..6d0e40db 100644 --- a/src/interp/nag-c02.boot.pamphlet +++ b/src/interp/nag-c02.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + c02aff() == htInitPage('"C02AFF - All Zeros of a Complex Polynomial",nil) htMakePage '( diff --git a/src/interp/nag-c05.boot.pamphlet b/src/interp/nag-c05.boot.pamphlet index 8b49400d..5e072489 100644 --- a/src/interp/nag-c05.boot.pamphlet +++ b/src/interp/nag-c05.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + c05adf() == htInitPage('"C05ADF - Zero of continuous function in given interval, Bus and Dekker algorithm",nil) htMakePage '( diff --git a/src/interp/nag-c06.boot.pamphlet b/src/interp/nag-c06.boot.pamphlet index 6bf1b75b..6ea240c3 100644 --- a/src/interp/nag-c06.boot.pamphlet +++ b/src/interp/nag-c06.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + c06eaf() == htInitPage('"C06EAF - Single 1-D real discrete Fourier transform ",nil) htMakePage '( @@ -304,7 +306,7 @@ c06ecfSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :labelList] page := htInitPage("C06ECF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage) htSay '"\menuitemstyle{}\tab{2} Real parts of sequence: \tab{30} " @@ -438,7 +440,7 @@ c06ekfSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :labelList] page := htInitPage("C06EKF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage) htSay '"\menuitemstyle{}\tab{2} Elements of period of vector {\em x}: " @@ -1638,7 +1640,7 @@ c06gqfSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :newList] page := htInitPage("C06GQF - Complex conjugate of multiple Hermitian sequences ",htpPropertyList htPage) htSay '"\newline " @@ -1772,7 +1774,7 @@ c06gsfSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :newList] page := htInitPage("C06GSF - Convert Hermitian sequences to general complex sequences ",htpPropertyList htPage) htSay '"\newline " diff --git a/src/interp/nag-d01.boot.pamphlet b/src/interp/nag-d01.boot.pamphlet index a4b2f373..5d2afbe2 100644 --- a/src/interp/nag-d01.boot.pamphlet +++ b/src/interp/nag-d01.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + d01ajf() == htInitPage('"D01AJF - 1-D quadrature, adaptive, finite interval, allowing for badly-behaved integrands", nil) htMakePage '( @@ -782,7 +784,7 @@ d01gafSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :labelList] page := htInitPage("D01GAF - 1-D quadrature, integration of function defined by data values", htpPropertyList htPage) htSay '"\menuitemstyle{}\tab{2} Enter values for {\em x}: \tab{38} " diff --git a/src/interp/nag-d02.boot.pamphlet b/src/interp/nag-d02.boot.pamphlet index 93edfc46..fb0c00a4 100644 --- a/src/interp/nag-d02.boot.pamphlet +++ b/src/interp/nag-d02.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + d02bbf() == htInitPage('"D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output",nil) htMakePage '( diff --git a/src/interp/nag-d03.boot.pamphlet b/src/interp/nag-d03.boot.pamphlet index 19717651..a59cf4c8 100644 --- a/src/interp/nag-d03.boot.pamphlet +++ b/src/interp/nag-d03.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + d03edf() == htInitPage('"D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ",nil) htMakePage '( diff --git a/src/interp/nag-e01.boot.pamphlet b/src/interp/nag-e01.boot.pamphlet index 227dabde..0aa2f106 100644 --- a/src/interp/nag-e01.boot.pamphlet +++ b/src/interp/nag-e01.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + e01baf() == htInitPage('"E01BAF - Interpolating functions, cubic spline interpolant, one variable", nil) htMakePage '( @@ -97,7 +99,7 @@ e01bafSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :labelList] page := htInitPage("E01BAF - Interpolating functions, cubic spline interpolant, one variable",htpPropertyList htPage) htSay '"\menuitemstyle{}\tab{2} Values of x: \tab{30} " @@ -229,7 +231,7 @@ e01befSolve htPage == (isDomain P (Polynomial $EmptyMode)) (isDomain S (String)) (isDomain F (Float)) - (isDomain PI (PositiveInteger))), + (isDomain PI (PositiveInteger))), :labelList] page := htInitPage("E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable",htpPropertyList htPage) htSay '"\menuitemstyle{}\tab{2} Values of \space{1} " diff --git a/src/interp/nag-e02.boot.pamphlet b/src/interp/nag-e02.boot.pamphlet index 3d738dd1..a1f2e843 100644 --- a/src/interp/nag-e02.boot.pamphlet +++ b/src/interp/nag-e02.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + e02adf() == htInitPage('"E02ADF - Least-squares curve fit, by polynomials, arbitrary data points", nil) htMakePage '( diff --git a/src/interp/nag-e02b.boot.pamphlet b/src/interp/nag-e02b.boot.pamphlet index d9874717..85f29cfb 100644 --- a/src/interp/nag-e02b.boot.pamphlet +++ b/src/interp/nag-e02b.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + -- READ THIS NOW! -- -- The automatic make fails to compile this file properly, leaving a diff --git a/src/interp/nag-e04.boot.pamphlet b/src/interp/nag-e04.boot.pamphlet index 7a63d8e1..13113010 100644 --- a/src/interp/nag-e04.boot.pamphlet +++ b/src/interp/nag-e04.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + e04dgf() == htInitPage('"E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil) htMakePage '( @@ -1914,125 +1916,125 @@ e04ucfSolve(htPage) == (isDomain I (Integer))), :aList,:blList,:buList,:cList,:funcList,:xList, :'( - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Crash tolerance, {\it cra}: ") - (text . "\newline ") - (bcStrings (20 "0.01" cra F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Derivative level, {\it der}: ") - (text . "\newline ") - (bcStrings (5 3 der PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Feasibility tolerance, {\it fea}: ") - (text . "\newline ") - (bcStrings (20 "0.1053671201E-7" fea F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Function Precision, {\it fun}: ") - (text . "\newline ") - (bcStrings (20 "0.4373903510E-14" fun F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "{\it r} is a Hessian matrix :") - (radioButtons hess - ("" " No" hFalse) - ("" " Yes" hTrue)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Infinite bound size, {\it infb}: ") - (text . "\newline ") - (bcStrings (20 "1.00E+15" infb F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Infinite step size, {\it infs}: ") - (text . "\newline ") - (bcStrings (20 "1.00E+15" infs F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Linear feasibility tolerance, {\it linf}: ") - (text . "\newline ") - (bcStrings (20 "0.1053671201E-7" linf F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Linesearch tolerance, {\it lint}: ") - (text . "\newline ") - (bcStrings (20 "0.9" lint F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "List parameters:") - (radioButtons list - ("" " No" false) - ("" " Yes" true)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Major iteration limit, {\it maji}: ") - (text . "\newline ") - (bcStrings (5 30 maji PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Major print level, {\it majp}: ") - (text . "\newline ") - (bcStrings (5 1 majp PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Minor iteration limit, {\it mini}: ") - (text . "\newline ") - (bcStrings (5 81 mini PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Minor print level, {\it minp}: ") - (text . "\newline ") - (bcStrings (5 0 minp PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Monitoring channel, {\it mon}. ") - (text . "(Ignored in Foundation Library version.) ") - (text . "\newline ") - (bcStrings (5 "-1" mon F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Nonlinear feasibiltity tolerance, {\it nonf}: ") - (text . "\newline ") - (bcStrings (20 "1.05E-08" nonf F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Optimality tolerance, {\it opt}: ") - (text . "\newline ") - (bcStrings (20 "3.26E-08" opt F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Step limit, {\it ste}: ") - (text . "\newline ") - (bcStrings (5 "2.0" ste F)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Start objective check at variable, {\it stao}: ") - (text . "\newline ") - (bcStrings (5 1 stao PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Start constraint check at variable, {\it stac}: ") - (text . "\newline ") - (bcStrings (5 1 stac PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Stop objective check at variable, {\it stoo}: ") - (text . "\newline ") - (bcStrings (5 9 stoo PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Stop objective check at variable, {\it stoc}: ") - (text . "\newline ") - (bcStrings (5 9 stoc PI)) - (text . "\blankline ") - (text . "\menuitemstyle{}\tab{2} ") - (text . "Verify level, {\it ver}: ") - (text . "\newline ") + (text . "\blankline ")_ + (text . "\newline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Crash tolerance, {\it cra}: ")_ + (text . "\newline ")_ + (bcStrings (20 "0.01" cra F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Derivative level, {\it der}: ")_ + (text . "\newline ")_ + (bcStrings (5 3 der PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Feasibility tolerance, {\it fea}: ")_ + (text . "\newline ")_ + (bcStrings (20 "0.1053671201E-7" fea F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Function Precision, {\it fun}: ")_ + (text . "\newline ")_ + (bcStrings (20 "0.4373903510E-14" fun F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2}")_ + (text . "{\it r} is a Hessian matrix :")_ + (radioButtons hess _ + ("" " No" hFalse)_ + ("" " Yes" hTrue))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Infinite bound size, {\it infb}: ")_ + (text . "\newline ")_ + (bcStrings (20 "1.00E+15" infb F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Infinite step size, {\it infs}: ")_ + (text . "\newline ")_ + (bcStrings (20 "1.00E+15" infs F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Linear feasibility tolerance, {\it linf}: ")_ + (text . "\newline ")_ + (bcStrings (20 "0.1053671201E-7" linf F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Linesearch tolerance, {\it lint}: ")_ + (text . "\newline ")_ + (bcStrings (20 "0.9" lint F))_ + (text . "\blankline ")_ + (text . "\newline ")_ + (text . "\menuitemstyle{}\tab{2}")_ + (text . "List parameters:")_ + (radioButtons list _ + ("" " No" false)_ + ("" " Yes" true))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Major iteration limit, {\it maji}: ")_ + (text . "\newline ")_ + (bcStrings (5 30 maji PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Major print level, {\it majp}: ")_ + (text . "\newline ")_ + (bcStrings (5 1 majp PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Minor iteration limit, {\it mini}: ")_ + (text . "\newline ")_ + (bcStrings (5 81 mini PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Minor print level, {\it minp}: ")_ + (text . "\newline ")_ + (bcStrings (5 0 minp PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Monitoring channel, {\it mon}. ")_ + (text . "(Ignored in Foundation Library version.) ")_ + (text . "\newline ")_ + (bcStrings (5 "-1" mon F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Nonlinear feasibiltity tolerance, {\it nonf}: ")_ + (text . "\newline ")_ + (bcStrings (20 "1.05E-08" nonf F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Optimality tolerance, {\it opt}: ")_ + (text . "\newline ")_ + (bcStrings (20 "3.26E-08" opt F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Step limit, {\it ste}: ")_ + (text . "\newline ")_ + (bcStrings (5 "2.0" ste F))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Start objective check at variable, {\it stao}: ")_ + (text . "\newline ")_ + (bcStrings (5 1 stao PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Start constraint check at variable, {\it stac}: ")_ + (text . "\newline ")_ + (bcStrings (5 1 stac PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Stop objective check at variable, {\it stoo}: ")_ + (text . "\newline ")_ + (bcStrings (5 9 stoo PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Stop objective check at variable, {\it stoc}: ")_ + (text . "\newline ")_ + (bcStrings (5 9 stoc PI))_ + (text . "\blankline ")_ + (text . "\menuitemstyle{}\tab{2} ")_ + (text . "Verify level, {\it ver}: ")_ + (text . "\newline ")_ (bcStrings (5 3 ver PI)))] page := htInitPage('"E04UCF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil) htSay '"\menuitemstyle{}\tab{2} " diff --git a/src/interp/nag-f01.boot.pamphlet b/src/interp/nag-f01.boot.pamphlet index 7751874b..43c8b303 100644 --- a/src/interp/nag-f01.boot.pamphlet +++ b/src/interp/nag-f01.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + f01brf() == htInitPage("F01BRF - LU factorization of real sparse matrix",nil) htMakePage '( diff --git a/src/interp/nag-f02.boot.pamphlet b/src/interp/nag-f02.boot.pamphlet index ccbd74f5..e19d9df5 100644 --- a/src/interp/nag-f02.boot.pamphlet +++ b/src/interp/nag-f02.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + f02aaf() == htInitPage('"F02AAF - All eigenvalues of real symmetric matrix (Black box)",nil) htMakePage '( diff --git a/src/interp/nag-f04.boot.pamphlet b/src/interp/nag-f04.boot.pamphlet index da36ae78..37f4951d 100644 --- a/src/interp/nag-f04.boot.pamphlet +++ b/src/interp/nag-f04.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + f04adf() == htInitPage("F04ADF - Solution of complex simultaneous linear equations, with multiple right-hand sides (Black box)",nil) htMakePage '( diff --git a/src/interp/nag-f07.boot.pamphlet b/src/interp/nag-f07.boot.pamphlet index 3de2bb32..a2eb3b2d 100644 --- a/src/interp/nag-f07.boot.pamphlet +++ b/src/interp/nag-f07.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + f07adf() == htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil) htMakePage '( @@ -267,10 +269,10 @@ f07aefSolve htPage == bList := [['text,:prefix],:bList] equationPart := [ '(domainConditions - (isDomain EM $EmptyMode) + (isDomain EM $EmptyMode) (isDomain S (String)) - (isDomain F (Float)) - (isDomain I (Integer))) + (isDomain F (Float)) + (isDomain I (Integer))) ,:aList,:ipList,:bList] page := htInitPage('"F07AEF - Solution of a real system of linear equations with multiple right-hand sides after factorization by F07ADF",nil) htSay '"\menuitemstyle{}\tab{2} " @@ -608,10 +610,10 @@ f07fefSolve htPage == bList := [['text,:prefix],:bList] equationPart := [ '(domainConditions - (isDomain EM $EmptyMode) + (isDomain EM $EmptyMode) (isDomain S (String)) - (isDomain F (Float)) - (isDomain I (Integer))) + (isDomain F (Float)) + (isDomain I (Integer))) ,:aList,:bList] page := htInitPage('"F07FEF - Solution of a real symmetric positive-definite system of linear equations with multiple right-hand sides after factorization by F07FDF",nil) htSay '"\menuitemstyle{}\tab{2} " diff --git a/src/interp/nag-s.boot.pamphlet b/src/interp/nag-s.boot.pamphlet index 1e2d0486..99c54d7f 100644 --- a/src/interp/nag-s.boot.pamphlet +++ b/src/interp/nag-s.boot.pamphlet @@ -46,6 +46,8 @@ <<*>>= <<license>> +)package "BOOT" + s01eaf() == page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil) htMakePage '( diff --git a/src/interp/showimp.boot.pamphlet b/src/interp/showimp.boot.pamphlet index 49b72338..0e1d1865 100644 --- a/src/interp/showimp.boot.pamphlet +++ b/src/interp/showimp.boot.pamphlet @@ -184,7 +184,7 @@ getCategoriesOfDomain domain == [fn for i in 0..MAXINDEX predkeyVec | test] where test() == predkeyVec.i and (x := catforms . i) isnt ['DomainSubstitutionMacro,:.] - fn == + fn() == VECP x => devaluate x devaluateSlotDomain(x,domain) |