aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/interp/ChangeLog35
-rw-r--r--src/interp/Makefile.in70
-rw-r--r--src/interp/Makefile.pamphlet153
-rw-r--r--src/interp/bc-matrix.boot.pamphlet2
-rw-r--r--src/interp/nag-c02.boot.pamphlet2
-rw-r--r--src/interp/nag-c05.boot.pamphlet2
-rw-r--r--src/interp/nag-c06.boot.pamphlet10
-rw-r--r--src/interp/nag-d01.boot.pamphlet4
-rw-r--r--src/interp/nag-d02.boot.pamphlet2
-rw-r--r--src/interp/nag-d03.boot.pamphlet2
-rw-r--r--src/interp/nag-e01.boot.pamphlet6
-rw-r--r--src/interp/nag-e02.boot.pamphlet2
-rw-r--r--src/interp/nag-e02b.boot.pamphlet2
-rw-r--r--src/interp/nag-e04.boot.pamphlet240
-rw-r--r--src/interp/nag-f01.boot.pamphlet2
-rw-r--r--src/interp/nag-f02.boot.pamphlet2
-rw-r--r--src/interp/nag-f04.boot.pamphlet2
-rw-r--r--src/interp/nag-f07.boot.pamphlet14
-rw-r--r--src/interp/nag-s.boot.pamphlet2
-rw-r--r--src/interp/showimp.boot.pamphlet2
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)