aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/bc-matrix.boot (renamed from src/interp/bc-matrix.boot.pamphlet)22
-rw-r--r--src/interp/nag-c02.boot (renamed from src/interp/nag-c02.boot.pamphlet)34
-rw-r--r--src/interp/nag-c05.boot (renamed from src/interp/nag-c05.boot.pamphlet)42
-rw-r--r--src/interp/nag-c06.boot (renamed from src/interp/nag-c06.boot.pamphlet)70
-rw-r--r--src/interp/nag-d01.boot (renamed from src/interp/nag-d01.boot.pamphlet)100
-rw-r--r--src/interp/nag-d02.boot (renamed from src/interp/nag-d02.boot.pamphlet)70
-rw-r--r--src/interp/nag-d03.boot (renamed from src/interp/nag-d03.boot.pamphlet)28
-rw-r--r--src/interp/nag-e01.boot (renamed from src/interp/nag-e01.boot.pamphlet)52
-rw-r--r--src/interp/nag-e02.boot (renamed from src/interp/nag-e02.boot.pamphlet)352
-rw-r--r--src/interp/nag-e02b.boot (renamed from src/interp/nag-e02b.boot.pamphlet)128
-rw-r--r--src/interp/nag-e04.boot (renamed from src/interp/nag-e04.boot.pamphlet)116
-rw-r--r--src/interp/nag-f01.boot (renamed from src/interp/nag-f01.boot.pamphlet)70
-rw-r--r--src/interp/nag-f02.boot (renamed from src/interp/nag-f02.boot.pamphlet)82
-rw-r--r--src/interp/nag-f04.boot (renamed from src/interp/nag-f04.boot.pamphlet)46
-rw-r--r--src/interp/nag-f07.boot (renamed from src/interp/nag-f07.boot.pamphlet)32
-rw-r--r--src/interp/nag-s.boot (renamed from src/interp/nag-s.boot.pamphlet)22
-rw-r--r--src/interp/showimp.boot (renamed from src/interp/showimp.boot.pamphlet)28
-rw-r--r--src/interp/topics.boot.pamphlet263
18 files changed, 458 insertions, 1099 deletions
diff --git a/src/interp/bc-matrix.boot.pamphlet b/src/interp/bc-matrix.boot
index 30cee0d0..bf1d349c 100644
--- a/src/interp/bc-matrix.boot.pamphlet
+++ b/src/interp/bc-matrix.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp bc-matrix.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -169,9 +153,3 @@ bcMatrixGen htPage ==
STRCONC('"matrix(",matstring,'")")
systemError nil
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-c02.boot.pamphlet b/src/interp/nag-c02.boot
index 6d0e40db..a7cf81f6 100644
--- a/src/interp/nag-c02.boot.pamphlet
+++ b/src/interp/nag-c02.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-c02.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -68,7 +52,7 @@ c02aff() ==
(text . "\newline")
(text . "\newline \menuitemstyle{} \tab{2} Scale value:")
(radioButtons scale
- ("" " True" true)
+ ("" " True" true)
("" " False" false))
(text . "\blankline ")
(text . "\newline \menuitemstyle{} \tab{2} Ifail value:")
@@ -106,7 +90,7 @@ c02affSolve htPage ==
(isDomain P (Polynomial $EmptyMode))
(isDomain S (String))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("C02AFF - All Zeros of a Complex Polynomial", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} Enter the coefficients of the polynomial: "
htSay '"\blankline "
@@ -167,7 +151,7 @@ c02affDefaultSolve (htPage, scale, ifail) ==
(bcStrings (10 "1.0" i6 F))
(text . "\newline ")
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c02affGen)
+ htMakeDoneButton('"Continue",'c02affGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'scale,scale)
htpSetProperty(page,'ifail,ifail)
@@ -212,7 +196,7 @@ c02agf() ==
(text . "\newline")
(text . "\newline \menuitemstyle{} \tab{2} Scale value:")
(radioButtons scale
- ("" " True" true)
+ ("" " True" true)
("" " False" false))
(text . "\blankline ")
(text . "\newline \menuitemstyle{} \tab{2} Ifail value:")
@@ -246,7 +230,7 @@ c02agfSolve htPage ==
(isDomain P (Polynomial $EmptyMode))
(isDomain S (String))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("C02AGF - All Zeros of a Real Polynomial", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the coefficients of the polynomial: "
@@ -288,7 +272,7 @@ c02agfDefaultSolve (htPage, scale, ifail) ==
(bcStrings (10 "6.0" r6 F))
(text . "\newline ")
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c02agfGen)
+ htMakeDoneButton('"Continue",'c02agfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'scale,scale)
htpSetProperty(page,'ifail,ifail)
@@ -310,9 +294,3 @@ c02agfGen htPage ==
linkGen STRCONC ('"c02agf([",realstring,"],",STRINGIMAGE n,",",scale,",",STRINGIMAGE ifail,")")
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-c05.boot.pamphlet b/src/interp/nag-c05.boot
index 5e072489..80436694 100644
--- a/src/interp/nag-c05.boot.pamphlet
+++ b/src/interp/nag-c05.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-c05.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -178,10 +162,10 @@ c05nbfSolve htPage ==
funcList := [:funcList,middle,:vecList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList]
+ (isDomain I (Integer))),
+ :funcList]
page := htInitPage("C05NBF - Solution of system of nonlinear equations using function values only", htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions \htbitmap{fi} below in terms of X[1]...X[n]: "
@@ -254,10 +238,10 @@ c05nbfGen htPage ==
while y repeat
if i < (n+1) then
temp1 := STRCONC ((first y).1," ")
- temp1list := [temp1,:temp1list]
+ temp1list := [temp1,:temp1list]
else
temp2 := (first y).1
- temp2list := [temp2,:temp2list]
+ temp2list := [temp2,:temp2list]
y := rest y
i := i + 1
string1 := bcwords2liststring temp1list
@@ -328,10 +312,10 @@ c05pbfSolve htPage ==
funcList := [:funcList,middle,:vecList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList]
+ (isDomain I (Integer))),
+ :funcList]
page := htInitPage('"C05PBF - Solution of system of nonlinear equations using first derivatives",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions \htbitmap{fi} below in terms of X[1]...X[n]: "
@@ -404,10 +388,10 @@ c05pbfGen htPage ==
while y repeat
if i < (n+1) then
temp1 := STRCONC ((first y).1," ")
- temp1list := [temp1,:temp1list]
+ temp1list := [temp1,:temp1list]
else
temp2 := (first y).1
- temp2list := [temp2,:temp2list]
+ temp2list := [temp2,:temp2list]
y := rest y
i := i + 1
string1 := bcwords2liststring temp1list
@@ -418,9 +402,3 @@ c05pbfGen htPage ==
middle := STRCONC (middle,xtol,",",STRINGIMAGE ifail,",")
linkGen STRCONC (prefix,middle,"(",string2,"::Vector Expression(Float))::ASP35(FCN))")
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-c06.boot.pamphlet b/src/interp/nag-c06.boot
index 6ea240c3..f5733a6a 100644
--- a/src/interp/nag-c06.boot.pamphlet
+++ b/src/interp/nag-c06.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-c06.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -92,7 +76,7 @@ c06eafSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :labelList]
+ :labelList]
page := htInitPage("C06EAF - Single 1-D real discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the sequence to be transformed: "
@@ -135,7 +119,7 @@ c06eafDefaultSolve (htPage, ifail) ==
(text . "Note : On exit, the transformed sequence is stored ")
(text . "in Hermitian form ")
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06eafGen)
+ htMakeDoneButton('"Continue",'c06eafGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -197,7 +181,7 @@ c06ebfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :labelList]
+ :labelList]
page := htInitPage("C06EBF - Single 1-D real discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the sequence to be transformed, stored in Hermitian form: "
@@ -238,7 +222,7 @@ c06ebfDefaultSolve (htPage, ifail) ==
(text . "\blankline ")
(text . "Note : On exit, the components of the discrete Fourier transform")
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06ebfGen)
+ htMakeDoneButton('"Continue",'c06ebfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -307,7 +291,7 @@ c06ecfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("C06ECF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Real parts of sequence: \tab{30} "
htSay '"\menuitemstyle{}\tab{32} Imaginary parts: "
@@ -357,7 +341,7 @@ c06ecfDefaultSolve (htPage, ifail) ==
(text . "\tab{32} ")
(bcStrings (10 "0.16298" y7 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c06ecfGen)
+ htMakeDoneButton('"Continue",'c06ecfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -441,7 +425,7 @@ c06ekfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("C06EKF - Single 1-D complex discrete Fourier transform ",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Elements of period of vector {\em x}: "
htSay '"\tab{31} "
@@ -501,7 +485,7 @@ c06ekfDefaultSolve (htPage, job, ifail) ==
(text . "\tab{34} ")
(bcStrings (10 "0.00" y9 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c06ekfGen)
+ htMakeDoneButton('"Continue",'c06ekfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'job,job)
@@ -600,7 +584,7 @@ c06fpfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :matList,:trigList]
+ :matList,:trigList]
page := htInitPage("C06FPF - Multiple 1-D real discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter each sequence to be transformed, {\it x}. "
@@ -678,7 +662,7 @@ c06fpfDefaultSolve (htPage, init,ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (6 "0.0" t12 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06fpfGen)
+ htMakeDoneButton('"Continue",'c06fpfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'init,init)
@@ -783,7 +767,7 @@ c06fqfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :matList,:trigList]
+ :matList,:trigList]
page := htInitPage("C06FQF - Multiple 1-D Hermitian discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter each sequence to be transformed, {\it x}. "
@@ -861,7 +845,7 @@ c06fqfDefaultSolve (htPage, init,ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (6 "0.0" t12 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06fqfGen)
+ htMakeDoneButton('"Continue",'c06fqfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'init,init)
@@ -979,7 +963,7 @@ c06frfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :xList,:yList,:trigList]
+ :xList,:yList,:trigList]
page := htInitPage("C06FRF - Multiple 1-D real discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the real parts of each sequence to be transformed, {\it x}. "
@@ -1087,7 +1071,7 @@ c06frfDefaultSolve (htPage, init,ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (6 "0.0" t12 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06frfGen)
+ htMakeDoneButton('"Continue",'c06frfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'init,init)
@@ -1219,7 +1203,7 @@ c06fufSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :xList,:yList,:trigmList,:trignList]
+ :xList,:yList,:trigmList,:trignList]
page := htInitPage("C06FUF - 2-D complex discrete Fourier transform ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the real part of each sequence to be transformed, {\it x}. "
@@ -1330,7 +1314,7 @@ c06fufDefaultSolve (htPage, init,ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (6 "0.0" tn10 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06fufGen)
+ htMakeDoneButton('"Continue",'c06fufGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'init,init)
@@ -1415,7 +1399,7 @@ c06gbfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :labelList]
+ :labelList]
page := htInitPage("C06GBF - Complex conjugate of a Hermitian sequence ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the Hermitian sequence to be transformed stored in Hermitian form: "
@@ -1457,7 +1441,7 @@ c06gbfDefaultSolve (htPage, ifail) ==
(text . "\blankline ")
(text . "Note : On exit, the imaginary values are negated ")
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06gbfGen)
+ htMakeDoneButton('"Continue",'c06gbfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1521,7 +1505,7 @@ c06gcfSolve htPage ==
equationPart := [
'(domainConditions
(isDomain F (Float))),
- :labelList]
+ :labelList]
page := htInitPage("C06GCF - Complex conjugate of a Hermitian sequence ", htpPropertyList htPage)
htSay '"\menuitemstyle{} \tab{2} "
htSay '"Enter the imaginary parts of the sequence: "
@@ -1562,7 +1546,7 @@ c06gcfDefaultSolve (htPage, ifail) ==
(text . "\blankline ")
(text . "Note : On exit, these values are negated ")
(text . "\blankline "))
- htMakeDoneButton('"Continue",'c06gcfGen)
+ htMakeDoneButton('"Continue",'c06gcfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1641,7 +1625,7 @@ c06gqfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :newList]
+ :newList]
page := htInitPage("C06GQF - Complex conjugate of multiple Hermitian sequences ",htpPropertyList htPage)
htSay '"\newline "
htSay '"\menuitemstyle{}\tab{2} Please enter each sequence to be "
@@ -1692,7 +1676,7 @@ c06gqfDefaultSolve (htPage, ifail) ==
(bcStrings (6 "0.8723" y26 F))
(bcStrings (6 "0.4815" y36 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c06gqfGen)
+ htMakeDoneButton('"Continue",'c06gqfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
@@ -1775,7 +1759,7 @@ c06gsfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :newList]
+ :newList]
page := htInitPage("C06GSF - Convert Hermitian sequences to general complex sequences ",htpPropertyList htPage)
htSay '"\newline "
htSay '"\menuitemstyle{}\tab{2} Please enter each sequence to be "
@@ -1826,7 +1810,7 @@ c06gsfDefaultSolve (htPage, ifail) ==
(bcStrings (6 "0.8723" y26 F))
(bcStrings (6 "0.4815" y36 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'c06gsfGen)
+ htMakeDoneButton('"Continue",'c06gsfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
@@ -1848,9 +1832,3 @@ c06gsfGen htPage ==
linkGen STRCONC ('"c06gsf(",STRINGIMAGE m,",",STRINGIMAGE n,",[",realstring,"],", STRINGIMAGE ifail,")")
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-d01.boot.pamphlet b/src/interp/nag-d01.boot
index 5d2afbe2..9d85ecff 100644
--- a/src/interp/nag-d01.boot.pamphlet
+++ b/src/interp/nag-d01.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-d01.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -52,9 +36,9 @@ d01ajf() ==
htInitPage('"D01AJF - 1-D quadrature, adaptive, finite interval, allowing for badly-behaved integrands", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01ajf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01ajf| '|NagIntegrationPackage|)} for this routine")
@@ -126,9 +110,9 @@ d01akf() ==
htInitPage('"D01AKF - 1-D quadrature, adaptive, finite interval, method suitable for oscillating functions", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01akf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01akf| '|NagIntegrationPackage|)} for this routine")
@@ -200,9 +184,9 @@ d01alf() ==
htInitPage('"D01ALF - 1-D quadrature, adaptive, finite interval, allowing for singularities at user-specified break-points ", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01alf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01alf| '|NagIntegrationPackage|)} for this routine")
@@ -292,9 +276,9 @@ d01amf() ==
htInitPage('"D01AMF 1-D quadrature, adaptive, infinite or semi-infinite interval",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01amf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01amf| '|NagIntegrationPackage|)} for this routine")
@@ -376,9 +360,9 @@ d01anf() ==
htInitPage('"D01ANF - 1-D quadrature, adaptive, finite interval, weight function cos(\omega x) or sin(\omega x)", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01anf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01anf| '|NagIntegrationPackage|)} for this routine")
@@ -466,9 +450,9 @@ d01apf() ==
htInitPage('"D01APF - 1-D quadrature, adaptive, finite interval, weight function with end point singularities of algebraico-logarithmic type", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01apf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01apf| '|NagIntegrationPackage|)} for this routine")
@@ -567,9 +551,9 @@ d01aqf() ==
htInitPage('"D01AQF - 1-D quadrature, adaptive, finite interval, weight function 1/(x-c), Cauchy principal value (Hilbert transform)",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01aqf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01aqf| '|NagIntegrationPackage|)} for this routine")
@@ -647,9 +631,9 @@ d01asf() ==
htInitPage('"D01ASF - 1-D quadrature, adaptive, semi-infinite interval, weight function cos(\omega x) or sin(\omega x)", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01asf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01asf| '|NagIntegrationPackage|)} for this routine")
@@ -785,7 +769,7 @@ d01gafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :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} "
htSay '"\menuitemstyle{}\tab{40} Enter values for {\em y}: "
@@ -895,7 +879,7 @@ d01gafDefaultSolve (htPage, ifail) ==
(text . "\blankline ")
(text . "Note:\space{1}{\em x} values in ascending or descending order only ")
(text . "\blankline"))
- htMakeDoneButton('"Continue",'d01gafGen)
+ htMakeDoneButton('"Continue",'d01gafGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -922,9 +906,9 @@ d01fcf() ==
htInitPage('"D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01fcf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01fcf| '|NagIntegrationPackage|)} for this routine")
@@ -1011,7 +995,7 @@ d01fcfSolve htPage ==
(isDomain P (Polynomial $EmptyMode))
(isDomain S (String))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage('"D01FCF - Multi-dimensional adaptive quadrature over hyper-rectangle",nil)
htSay '"Please enter the limits of integration:- "
htSay '"\blankline "
@@ -1059,7 +1043,7 @@ d01fcfDefaultSolve(htPage,minpts,maxpts,eps,lenwrk,expression,ifail) ==
(bcStrings (10 "1.0" b4 F))
(text . "\newline ")
(text . "\blankline"))
- htMakeDoneButton('"Continue",'d01fcfGen)
+ htMakeDoneButton('"Continue",'d01fcfGen)
htpSetProperty(page,'ndim,ndim)
htpSetProperty(page,'expression,expression)
htpSetProperty(page,'minpts,minpts)
@@ -1100,9 +1084,9 @@ d01gbf() ==
htInitPage('"D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01gbf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01gbf| '|NagIntegrationPackage|)} for this routine")
@@ -1188,7 +1172,7 @@ d01gbfSolve htPage ==
(isDomain P (Polynomial $EmptyMode))
(isDomain S (String))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage('"D01GBF - Multi-dimensional quadrature over hyper-rectangle, Monte Carlo method",nil)
htSay '"Please enter the limits of integration:- "
htSay '"\blankline "
@@ -1236,7 +1220,7 @@ d01gbfDefaultSolve(htPage,mincls,maxcls,eps,lenwrk,expression,ifail) ==
(bcStrings (10 "1.0" b4 F))
(text . "\newline ")
(text . "\blankline"))
- htMakeDoneButton('"Continue",'d01gbfGen)
+ htMakeDoneButton('"Continue",'d01gbfGen)
htpSetProperty(page,'ndim,ndim)
htpSetProperty(page,'expression,expression)
htpSetProperty(page,'mincls,mincls)
@@ -1280,9 +1264,9 @@ d01bbf() ==
htInitPage('"D01BBF - Weights and abscissae for Gaussian quadrature rules",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
- (isDomain PI (PositiveInteger))
- (isDomain F (Float)))
+ (isDomain EM $EmptyMode)
+ (isDomain PI (PositiveInteger))
+ (isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXd01bbf} for this routine ")
(text . "\newline ")
(text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|d01bbf| '|NagIntegrationPackage|)} for this routine")
@@ -1353,9 +1337,3 @@ d01bbfGen htPage ==
prefix := STRCONC("d01bbf(",a," ,",b," ,",STRINGIMAGE itype," ,")
end := STRCONC(STRINGIMAGE n," ,",STRINGIMAGE gtype," ,",STRINGIMAGE ifail,")")
linkGen STRCONC(prefix,end)
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-d02.boot.pamphlet b/src/interp/nag-d02.boot
index fb0c00a4..69510bac 100644
--- a/src/interp/nag-d02.boot.pamphlet
+++ b/src/interp/nag-d02.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-d02.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -138,11 +122,11 @@ d02bbfSolve htPage ==
vList := [['text,:mid],:vList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:yList,:vList]
+ (isDomain I (Integer))),
+ :funcList,:yList,:vList]
page := htInitPage('"D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions (i.e. the derivatives) below "
@@ -332,11 +316,11 @@ d02bhfSolve htPage ==
vList := [['text,:mid],:vList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:yList,:vList]
+ (isDomain I (Integer))),
+ :funcList,:yList,:vList]
page := htInitPage('"D02BHF - ODEs, IVP, Runge-Kutta-Merson method, until function of solution is zero",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -519,11 +503,11 @@ d02cjfSolve htPage ==
uList := [['text,:midd],:uList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:yList,:vList,:uList]
+ (isDomain I (Integer))),
+ :funcList,:yList,:vList,:uList]
page := htInitPage('"D02CJF - ODEs, IVP, Adams method, until function of solution is zero, intermediate output",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -720,11 +704,11 @@ d02ejfSolve htPage ==
uList := [['text,:midd],:uList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:yList,:vList,:uList]
+ (isDomain I (Integer))),
+ :funcList,:yList,:vList,:uList]
page := htInitPage('"D02EJF - ODEs, stiff IVP, BDF method, until function of solution is zero, intermediate output",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions (i.e. the derivatives) below \htbitmap{fi} "
@@ -972,11 +956,11 @@ d02gafSolve htPage ==
xList := [['text,:end],:xList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:uList,:vList,:xList]
+ (isDomain I (Integer))),
+ :funcList,:uList,:vList,:xList]
page := htInitPage('"D02GAF - ODEs, boundary value problem, finite difference technique with deferred correction, simple nonlinear problem", nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions (i.e. the derivatives) below as functions of "
@@ -1321,11 +1305,11 @@ d02gbfSolve htPage ==
xList := [['text,:end],:xList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :cList,:dList,:gamList,:fList,:gList,:xList]
+ (isDomain I (Integer))),
+ :cList,:dList,:gamList,:fList,:gList,:xList]
page := htInitPage('"D02GBF - ODEs, boundary value problem, finite difference technique with deferred correction, general nonlinear problem", nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the matrix {\it C} form the equation {\it Cy(a) + Dy(b)} "
@@ -1667,11 +1651,11 @@ d02kefSolve htPage ==
hList := [['text,:middle],:hList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :xpList,:cList,:ylList,:yrList,:hList]
+ (isDomain I (Integer))),
+ :xpList,:cList,:ylList,:yrList,:hList]
page := htInitPage('"D02KEF - 2nd order Sturm-Liouville problem, regular/singular system, finite/infinite range, eigenvalue and eigenfunction, user-specified break-points", nil)
htSay '"\menuitemstyle{}\tab{2} Enter points where boundary "
htSay '"conditions are to be imposed {\it xpoint}: \newline "
@@ -1986,11 +1970,11 @@ d02rafSolve htPage ==
xList := [['text,:mid],:xList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,:gList,:xList]
+ (isDomain I (Integer))),
+ :funcList,:gList,:xList]
page := htInitPage('"D02RAF - ODEs, general nonlinear boundary value problem, finite difference technique with deferred correction, continuation facility",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions \htbitmap{fi} (i.e. the derivatives) below "
@@ -2162,9 +2146,3 @@ d02rafCopOut() ==
(text . "{\center{\em Please use the command line.}}"))
htMakeDoneButton('"Continue",'d02raf)
htShowPage()
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-d03.boot.pamphlet b/src/interp/nag-d03.boot
index a59cf4c8..912d8cea 100644
--- a/src/interp/nag-d03.boot.pamphlet
+++ b/src/interp/nag-d03.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-d03.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -204,11 +188,11 @@ d03edfSolve htPage ==
uList := [['text,:mid],:uList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :aList,:rList,:uList]
+ (isDomain I (Integer))),
+ :aList,:rList,:uList]
page := htInitPage('"D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the matrix {\it a(lda,7)}: "
@@ -655,9 +639,3 @@ d03faf() ==
(text . "\menuitemstyle{}\tab{2} ")
(text . "\spadcommand{)read d03faf \bound{s0}} "))
htShowPage()
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-e01.boot.pamphlet b/src/interp/nag-e01.boot
index 0aa2f106..51e56996 100644
--- a/src/interp/nag-e01.boot.pamphlet
+++ b/src/interp/nag-e01.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-e01.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -100,7 +84,7 @@ e01bafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01BAF - Interpolating functions, cubic spline interpolant, one variable",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of x: \tab{30} "
htSay '"\menuitemstyle{}\tab{32} Corresponding values of y: "
@@ -150,7 +134,7 @@ e01bafDefaultSolve (htPage, ifail) ==
(text . "\tab{32} ")
(bcStrings (10 "2.7183" y7 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01bafGen)
+ htMakeDoneButton('"Continue",'e01bafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -232,7 +216,7 @@ e01befSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01BEF - Interpolating functions, monoticity preserving, piecewise cubic Hermite, one variable",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{30} "
@@ -293,7 +277,7 @@ e01befDefaultSolve (htPage, ifail) ==
(text . "\tab{32} ")
(bcStrings (10 "0.99999" y9 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01befGen)
+ htMakeDoneButton('"Continue",'e01befGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -391,7 +375,7 @@ e01bffSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01BFF - Interpolated values, interpolant computed by E01BEF, function only, one variable",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -500,7 +484,7 @@ e01bffDefaultSolve (htPage, ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (10 "20.0" px11 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01bffGen)
+ htMakeDoneButton('"Continue",'e01bffGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
@@ -611,7 +595,7 @@ e01bgfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01BGF - Interpolated values, interpolant computed by E01BEF, function and 1st derivative, one variable",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -719,7 +703,7 @@ e01bgfDefaultSolve (htPage, ifail) ==
(text . "\newline \tab{2} ")
(bcStrings (10 "20.0" px11 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01bgfGen)
+ htMakeDoneButton('"Continue",'e01bgfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
@@ -823,7 +807,7 @@ e01bhfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01BHF - Interpolated values, interpolant computed by E01BEF, definite integral, one variable",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -906,7 +890,7 @@ e01bhfDefaultSolve (htPage,a,b,ifail) ==
(text . "\tab{42} ")
(bcStrings (10 "0.00000" z9 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01bhfGen)
+ htMakeDoneButton('"Continue",'e01bhfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'a,a)
htpSetProperty(page,'b,b)
@@ -1112,7 +1096,7 @@ e01dafDefaultSolve (htPage,ifail) ==
(bcStrings (6 "4.90" z57 F))
(bcStrings (6 "5.00" z67 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01dafGen)
+ htMakeDoneButton('"Continue",'e01dafGen)
htpSetProperty(page,'mx,mx)
htpSetProperty(page,'my,my)
htpSetProperty(page,'ifail,ifail)
@@ -1200,7 +1184,7 @@ e01safSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01SAF - Interpolating functions, method of Renka and Cline,two variables",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1408,7 +1392,7 @@ e01safDefaultSolve (htPage, ifail) ==
(text . "\tab{42} ")
(bcStrings (10 "44.08" z30 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01safGen)
+ htMakeDoneButton('"Continue",'e01safGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ifail,ifail)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
@@ -1526,7 +1510,7 @@ e01sefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E01SEF - Interpolating functions, modified Shepard's method, two variables",htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1738,7 +1722,7 @@ e01sefDefaultSolve (htPage,rnq,rnw,nq,nw,ifail) ==
(text . "\tab{42} ")
(bcStrings (10 "44.08" z30 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e01sefGen)
+ htMakeDoneButton('"Continue",'e01sefGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'rnq,rnq)
htpSetProperty(page,'rnw,rnw)
@@ -1774,9 +1758,3 @@ e01sefGen htPage ==
prefix := STRCONC(prefix,dstring,"],",STRINGIMAGE nw,", ",STRINGIMAGE nq)
prefix := STRCONC(prefix,", ",rnw,", ",rnq,", ",STRINGIMAGE ifail,")")
linkGen prefix
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-e02.boot.pamphlet b/src/interp/nag-e02.boot
index a1f2e843..56588e73 100644
--- a/src/interp/nag-e02.boot.pamphlet
+++ b/src/interp/nag-e02.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-e02.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -130,7 +114,7 @@ e02adfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02ADF - Least-squares curve fit, by polynomials, arbitrary data points", htpPropertyList htPage)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -227,7 +211,7 @@ e02adfDefaultSolve (htPage,k,nrows,ifail) ==
(text . "\tab{42} ")
(bcStrings (10 "0.20" z11 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02adfGen)
+ htMakeDoneButton('"Continue",'e02adfGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'k,k)
htpSetProperty(page,'nrows,nrows)
@@ -316,7 +300,7 @@ e02aefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02AEF - Evaluation of fitted polynomial in one variable from Chebyshev series from", nil)
htSay '"\menuitemstyle{}\tab{2} Enter the coefficients of {\it a(n+1)}:"
htSay '"\blankline "
@@ -351,7 +335,7 @@ e02aefDefaultSolve (htPage,xcap,ifail) ==
(text . "\newline \tab{15} ")
(bcStrings (10 "0.0625" a5 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'e02aefGen)
+ htMakeDoneButton('"Continue",'e02aefGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'xcap,xcap)
htpSetProperty(page,'ifail,ifail)
@@ -510,7 +494,7 @@ e02agfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:xfList,:ipList,:yfList]
+ :labelList,:xfList,:ipList,:yfList]
page := htInitPage("E02AGF - Least-squares polynomial fit, values and derivatives may be constrained, arbitrary data values",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -622,7 +606,7 @@ e02agfDefaultSolve (htPage,nrows,xmin,xmax,ifail) ==
(bcStrings (10 "0.0" lyf14 F))
(text . "\newline \tab{2} ")
(bcStrings (10 "0.0" lyf15 F)))
- htMakeDoneButton('"Continue",'e02agfGen)
+ htMakeDoneButton('"Continue",'e02agfGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'k,k)
htpSetProperty(page,'nrows,nrows)
@@ -795,7 +779,7 @@ e02ahfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02AHF - Derivative of fitted polynomial in Chebyshev series",nil)
htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}:"
htMakePage equationPart
@@ -839,7 +823,7 @@ e02ahfDefaultSolve (htPage,xmin,xmax,iaone,ladifone,ifail) ==
(text . "\newline \tab{15}")
(bcStrings (10 "0.00004" a7 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02ahfGen)
+ htMakeDoneButton('"Continue",'e02ahfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'la,la)
htpSetProperty(page,'ladif,ladif)
@@ -978,7 +962,7 @@ e02ajfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02AJF - Integral of fitted polynomial in Chebyshev series form",nil)
htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}: "
htMakePage equationPart
@@ -1023,7 +1007,7 @@ e02ajfDefaultSolve (htPage,xmin,xmax,iaone,iaintone,qatmone,ifail) ==
(text . "\newline \tab{15}")
(bcStrings (10 "0.00004" a7 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02ajfGen)
+ htMakeDoneButton('"Continue",'e02ajfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'la,la)
htpSetProperty(page,'laint,laint)
@@ -1146,7 +1130,7 @@ e02akfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02AKF - Evaluation of fitted polynomial in one variable, from Chebyshev series form",nil)
htSay '"\menuitemstyle{}\tab{2} Coefficients of {\it a(la)}:"
htMakePage equationPart
@@ -1188,7 +1172,7 @@ e02akfDefaultSolve (htPage,xmin,xmax,x,iaone,ifail) ==
(text . "\newline \tab{15}")
(bcStrings (10 "0.00004" a7 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02akfGen)
+ htMakeDoneButton('"Continue",'e02akfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'la,la)
htpSetProperty(page,'x,x)
@@ -1299,7 +1283,7 @@ e02bafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamdaList]
+ :labelList,:lamdaList]
page := htInitPage("E02BAF - Least-squares curve cubic spline fit",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -1421,7 +1405,7 @@ e02bafDefaultSolve (htPage,ifail) ==
(bcStrings (6 "4.00" l3 F))
(bcStrings (6 "8.00" l4 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02bafGen)
+ htMakeDoneButton('"Continue",'e02bafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'ncap,ncap)
htpSetProperty(page,'ifail,ifail)
@@ -1526,7 +1510,7 @@ e02bbfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02BBF - Evaluation of fitted cubic spline, function only",nil)
htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1596,7 +1580,7 @@ e02bbfDefaultSolve (htPage,x,ifail) ==
(text . "\tab{22} ")
(bcStrings (10 "0.00" c11 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02bbfGen)
+ htMakeDoneButton('"Continue",'e02bbfGen)
htpSetProperty(page,'ncap,ncap)
htpSetProperty(page,'x,x)
htpSetProperty(page,'ifail,ifail)
@@ -1697,7 +1681,7 @@ e02bcfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02BCF - Evaluation of fitted cubic spline, function and derivatives",nil)
htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1779,7 +1763,7 @@ e02bcfDefaultSolve (htPage,x,deriv,ifail) ==
(text . "\tab{22} ")
(bcStrings (10 "0.00" c14 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02bcfGen)
+ htMakeDoneButton('"Continue",'e02bcfGen)
htpSetProperty(page,'ncap,ncap)
htpSetProperty(page,'x,x)
htpSetProperty(page,'deriv,deriv)
@@ -1866,7 +1850,7 @@ e02bdfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage("E02BDF - Evaluation of fitted cubic spline, definite integral",nil)
htSay '"\menuitemstyle{}\tab{2} Knots \htbitmap{lamdai}: "
htSay '"\tab{20} \menuitemstyle{}\tab{22} "
@@ -1950,7 +1934,7 @@ e02bdfDefaultSolve(htPage,ifail) ==
(bcStrings (10 "0.00" c14 F)))
htpSetProperty(page,'ncap,ncap)
htpSetProperty(page,'ifail,ifail)
- htMakeDoneButton('"Continue",'e02bdfGen)
+ htMakeDoneButton('"Continue",'e02bdfGen)
htpSetProperty(page,'inputArea, htpInputAreaAlist htPage)
htShowPage()
@@ -2083,7 +2067,7 @@ e02befColdSolve(htPage,m,nest,lwrk,s,ifail) ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage('"E02BEF - Least-squares curve cubic spline fit, automatic knot placement",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{20} \menuitemstyle{}\tab{22} "
@@ -2205,7 +2189,7 @@ e02befDefaultSolve (htPage,nest,lwrk,s,ifail) ==
(text . "\tab{42} ")
(bcStrings (10 "1.00" z15 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02befColdGen)
+ htMakeDoneButton('"Continue",'e02befColdGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'nest,nest)
htpSetProperty(page,'lwrk,lwrk)
@@ -2340,7 +2324,7 @@ e02defSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamList,:muList,:cList]
+ :labelList,:lamList,:muList,:cList]
page := htInitPage('"E02DEF - Evaluation of a fitted bicubic spline at a vector of points",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
htSay '"\tab{20} \menuitemstyle{}\tab{22} Values of \htbitmap{yr}:"
@@ -2425,50 +2409,50 @@ e02defDefaultSolve (htPage,ifail) ==
(text . "\blankline \menuitemstyle{}\tab{2} ")
(text . "Enter values for {\it c((nxest-4)*(nyest-4))}:")
(text . "\newline ")
- (bcStrings (8 "1" c1 F))
- (bcStrings (8 "1.1333" c2 F))
- (bcStrings (8 "1.3667" c3 F))
- (bcStrings (8 "1.7" c4 F))
- (bcStrings (8 "1.9" c5 F))
- (bcStrings (8 "2" c6 F))
- (bcStrings (8 "1.2" c7 F))
- (bcStrings (8 "1.3333" c8 F))
- (bcStrings (8 "1.5667" c9 F))
- (bcStrings (8 "1.9" c10 F))
- (bcStrings (8 "2.1" c11 F))
- (bcStrings (8 "2.2" c12 F))
- (bcStrings (8 "1.5833" c13 F))
- (bcStrings (8 "1.7167" c14 F))
- (bcStrings (8 "1.95" c15 F))
- (bcStrings (8 "2.2833" c16 F))
- (bcStrings (8 "2.4833" c17 F))
- (bcStrings (8 "2.5833" c18 F))
- (bcStrings (8 "2.1433" c19 F))
- (bcStrings (8 "2.2767" c20 F))
- (bcStrings (8 "2.51" c21 F))
- (bcStrings (8 "2.8433" c22 F))
- (bcStrings (8 "3.0433" c23 F))
- (bcStrings (8 "3.1433" c24 F))
- (bcStrings (8 "2.8667" c25 F))
- (bcStrings (8 "3" c26 F))
- (bcStrings (8 "3.2333" c27 F))
- (bcStrings (8 "3.5667" c28 F))
- (bcStrings (8 "3.7667" c29 F))
- (bcStrings (8 "3.8667" c30 F))
- (bcStrings (8 "3.4667" c31 F))
- (bcStrings (8 "3.6" c32 F))
- (bcStrings (8 "3.8333" c33 F))
- (bcStrings (8 "4.1667" c34 F))
- (bcStrings (8 "4.3667" c35 F))
- (bcStrings (8 "4.4667" c36 F))
- (bcStrings (8 "4" c37 F))
- (bcStrings (8 "4.1333" c38 F))
- (bcStrings (8 "4.3667" c39 F))
- (bcStrings (8 "4.7" c40 F))
- (bcStrings (8 "4.9" c41 F))
- (bcStrings (8 "5" c42 F))
+ (bcStrings (8 "1" c1 F))
+ (bcStrings (8 "1.1333" c2 F))
+ (bcStrings (8 "1.3667" c3 F))
+ (bcStrings (8 "1.7" c4 F))
+ (bcStrings (8 "1.9" c5 F))
+ (bcStrings (8 "2" c6 F))
+ (bcStrings (8 "1.2" c7 F))
+ (bcStrings (8 "1.3333" c8 F))
+ (bcStrings (8 "1.5667" c9 F))
+ (bcStrings (8 "1.9" c10 F))
+ (bcStrings (8 "2.1" c11 F))
+ (bcStrings (8 "2.2" c12 F))
+ (bcStrings (8 "1.5833" c13 F))
+ (bcStrings (8 "1.7167" c14 F))
+ (bcStrings (8 "1.95" c15 F))
+ (bcStrings (8 "2.2833" c16 F))
+ (bcStrings (8 "2.4833" c17 F))
+ (bcStrings (8 "2.5833" c18 F))
+ (bcStrings (8 "2.1433" c19 F))
+ (bcStrings (8 "2.2767" c20 F))
+ (bcStrings (8 "2.51" c21 F))
+ (bcStrings (8 "2.8433" c22 F))
+ (bcStrings (8 "3.0433" c23 F))
+ (bcStrings (8 "3.1433" c24 F))
+ (bcStrings (8 "2.8667" c25 F))
+ (bcStrings (8 "3" c26 F))
+ (bcStrings (8 "3.2333" c27 F))
+ (bcStrings (8 "3.5667" c28 F))
+ (bcStrings (8 "3.7667" c29 F))
+ (bcStrings (8 "3.8667" c30 F))
+ (bcStrings (8 "3.4667" c31 F))
+ (bcStrings (8 "3.6" c32 F))
+ (bcStrings (8 "3.8333" c33 F))
+ (bcStrings (8 "4.1667" c34 F))
+ (bcStrings (8 "4.3667" c35 F))
+ (bcStrings (8 "4.4667" c36 F))
+ (bcStrings (8 "4" c37 F))
+ (bcStrings (8 "4.1333" c38 F))
+ (bcStrings (8 "4.3667" c39 F))
+ (bcStrings (8 "4.7" c40 F))
+ (bcStrings (8 "4.9" c41 F))
+ (bcStrings (8 "5" c42 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'e02defGen)
+ htMakeDoneButton('"Continue",'e02defGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'px,px)
htpSetProperty(page,'py,py)
@@ -2627,7 +2611,7 @@ e02dffSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :xList,:yList,:lamList,:muList,:cList]
+ :xList,:yList,:lamList,:muList,:cList]
page := htInitPage('"E02DFF - Evaluation of a fitted bicubic spline at a mesh of points",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}:\newline "
htMakePage equationPart
@@ -2702,50 +2686,50 @@ e02dffDefaultSolve (htPage,lwrk,liwrk,ifail) ==
(text . "\blankline ")
(text . "\menuitemstyle{}\tab{2} Enter values of {\it c((px-4)*(py-4))}:")
(text . "\newline ")
- (bcStrings (8 "1" c1 F))
- (bcStrings (8 "1.1333" c2 F))
- (bcStrings (8 "1.3667" c3 F))
- (bcStrings (8 "1.7" c4 F))
- (bcStrings (8 "1.9" c5 F))
- (bcStrings (8 "2" c6 F))
- (bcStrings (8 "1.2" c7 F))
- (bcStrings (8 "1.3333" c8 F))
- (bcStrings (8 "1.5667" c9 F))
- (bcStrings (8 "1.9" c10 F))
- (bcStrings (8 "2.1" c11 F))
- (bcStrings (8 "2.2" c12 F))
- (bcStrings (8 "1.5833" c13 F))
- (bcStrings (8 "1.7167" c14 F))
- (bcStrings (8 "1.95" c15 F))
- (bcStrings (8 "2.2833" c16 F))
- (bcStrings (8 "2.4833" c17 F))
- (bcStrings (8 "2.5833" c18 F))
- (bcStrings (8 "2.1433" c19 F))
- (bcStrings (8 "2.2767" c20 F))
- (bcStrings (8 "2.51" c21 F))
- (bcStrings (8 "2.8433" c22 F))
- (bcStrings (8 "3.0433" c23 F))
- (bcStrings (8 "3.1433" c24 F))
- (bcStrings (8 "2.8667" c25 F))
- (bcStrings (8 "3" c26 F))
- (bcStrings (8 "3.2333" c27 F))
- (bcStrings (8 "3.5667" c28 F))
- (bcStrings (8 "3.7667" c29 F))
- (bcStrings (8 "3.8667" c30 F))
- (bcStrings (8 "3.4667" c31 F))
- (bcStrings (8 "3.6" c32 F))
- (bcStrings (8 "3.8333" c33 F))
- (bcStrings (8 "4.1667" c34 F))
- (bcStrings (8 "4.3667" c35 F))
- (bcStrings (8 "4.4667" c36 F))
- (bcStrings (8 "4" c37 F))
- (bcStrings (8 "4.1333" c38 F))
- (bcStrings (8 "4.3667" c39 F))
- (bcStrings (8 "4.7" c40 F))
- (bcStrings (8 "4.9" c41 F))
- (bcStrings (8 "5" c42 F))
+ (bcStrings (8 "1" c1 F))
+ (bcStrings (8 "1.1333" c2 F))
+ (bcStrings (8 "1.3667" c3 F))
+ (bcStrings (8 "1.7" c4 F))
+ (bcStrings (8 "1.9" c5 F))
+ (bcStrings (8 "2" c6 F))
+ (bcStrings (8 "1.2" c7 F))
+ (bcStrings (8 "1.3333" c8 F))
+ (bcStrings (8 "1.5667" c9 F))
+ (bcStrings (8 "1.9" c10 F))
+ (bcStrings (8 "2.1" c11 F))
+ (bcStrings (8 "2.2" c12 F))
+ (bcStrings (8 "1.5833" c13 F))
+ (bcStrings (8 "1.7167" c14 F))
+ (bcStrings (8 "1.95" c15 F))
+ (bcStrings (8 "2.2833" c16 F))
+ (bcStrings (8 "2.4833" c17 F))
+ (bcStrings (8 "2.5833" c18 F))
+ (bcStrings (8 "2.1433" c19 F))
+ (bcStrings (8 "2.2767" c20 F))
+ (bcStrings (8 "2.51" c21 F))
+ (bcStrings (8 "2.8433" c22 F))
+ (bcStrings (8 "3.0433" c23 F))
+ (bcStrings (8 "3.1433" c24 F))
+ (bcStrings (8 "2.8667" c25 F))
+ (bcStrings (8 "3" c26 F))
+ (bcStrings (8 "3.2333" c27 F))
+ (bcStrings (8 "3.5667" c28 F))
+ (bcStrings (8 "3.7667" c29 F))
+ (bcStrings (8 "3.8667" c30 F))
+ (bcStrings (8 "3.4667" c31 F))
+ (bcStrings (8 "3.6" c32 F))
+ (bcStrings (8 "3.8333" c33 F))
+ (bcStrings (8 "4.1667" c34 F))
+ (bcStrings (8 "4.3667" c35 F))
+ (bcStrings (8 "4.4667" c36 F))
+ (bcStrings (8 "4" c37 F))
+ (bcStrings (8 "4.1333" c38 F))
+ (bcStrings (8 "4.3667" c39 F))
+ (bcStrings (8 "4.7" c40 F))
+ (bcStrings (8 "4.9" c41 F))
+ (bcStrings (8 "5" c42 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02dffGen)
+ htMakeDoneButton('"Continue",'e02dffGen)
htpSetProperty(page,'mx,mx)
htpSetProperty(page,'my,my)
htpSetProperty(page,'px,px)
@@ -2883,7 +2867,7 @@ e02gafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:bList]
+ :labelList,:bList]
page := htInitPage('"E02GAF - \htbitmap{l1}-approximation by general linear function",nil)
htSay '"\menuitemstyle{}\tab{2} Values of {\it A(la,n+2)}:"
htMakePage equationPart
@@ -2958,7 +2942,7 @@ e02gafDefaultSolve (htPage,toler,ifail) ==
(bcStrings (9 "4.333" b3 F))
(bcStrings (9 "4.418" b4 F))
(bcStrings (9 "4.625" b5 F)))
- htMakeDoneButton('"Continue",'e02gafGen)
+ htMakeDoneButton('"Continue",'e02gafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'n,n)
htpSetProperty(page,'toler,toler)
@@ -3119,7 +3103,7 @@ e02dafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamList,:muList,:pList]
+ :labelList,:lamList,:muList,:pList]
page := htInitPage('"E02DAF - Least-squares surface fit, bicubic splines",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
htSay '"\tab{15} \menuitemstyle{}\tab{17} Values of \htbitmap{yr}:"
@@ -3401,93 +3385,93 @@ e02dafDefaultSolve (htPage,eps,nws,npoint,ifail) ==
(text . "\blankline ")
(text . "\menuitemstyle{}\tab{2} Enter values for point:")
(text . "\newline \tab{2}")
- (bcStrings (6 3 p1 PI))
+ (bcStrings (6 3 p1 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 6 p2 PI))
+ (bcStrings (6 6 p2 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 4 p3 PI))
+ (bcStrings (6 4 p3 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 5 p4 PI))
+ (bcStrings (6 5 p4 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 7 p5 PI))
+ (bcStrings (6 7 p5 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 10 p6 PI))
+ (bcStrings (6 10 p6 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 8 p7 PI))
+ (bcStrings (6 8 p7 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 9 p8 PI))
+ (bcStrings (6 9 p8 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 11 p9 PI))
+ (bcStrings (6 11 p9 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 13 p10 PI))
+ (bcStrings (6 13 p10 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 12 p11 PI))
+ (bcStrings (6 12 p11 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 15 p12 PI))
+ (bcStrings (6 15 p12 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 14 p13 PI))
+ (bcStrings (6 14 p13 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 18 p14 PI))
+ (bcStrings (6 18 p14 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 16 p15 PI))
+ (bcStrings (6 16 p15 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 17 p16 PI))
+ (bcStrings (6 17 p16 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 19 p17 PI))
+ (bcStrings (6 19 p17 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 20 p18 PI))
+ (bcStrings (6 20 p18 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 21 p19 PI))
+ (bcStrings (6 21 p19 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 30 p20 PI))
+ (bcStrings (6 30 p20 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 23 p21 PI))
+ (bcStrings (6 23 p21 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 26 p22 PI))
+ (bcStrings (6 26 p22 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 24 p23 PI))
+ (bcStrings (6 24 p23 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 25 p24 PI))
+ (bcStrings (6 25 p24 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 27 p25 PI))
+ (bcStrings (6 27 p25 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 28 p26 PI))
+ (bcStrings (6 28 p26 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p27 PI))
+ (bcStrings (6 0 p27 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 29 p28 PI))
+ (bcStrings (6 29 p28 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p29 PI))
+ (bcStrings (6 0 p29 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p30 PI))
+ (bcStrings (6 0 p30 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 2 p31 PI))
+ (bcStrings (6 2 p31 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 22 p32 PI))
+ (bcStrings (6 22 p32 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 1 p33 PI))
+ (bcStrings (6 1 p33 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p34 PI))
+ (bcStrings (6 0 p34 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p35 PI))
+ (bcStrings (6 0 p35 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p36 PI))
+ (bcStrings (6 0 p36 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p37 PI))
+ (bcStrings (6 0 p37 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p38 PI))
+ (bcStrings (6 0 p38 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p39 PI))
+ (bcStrings (6 0 p39 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p40 PI))
+ (bcStrings (6 0 p40 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p41 PI))
+ (bcStrings (6 0 p41 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p42 PI))
+ (bcStrings (6 0 p42 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p43 PI))
+ (bcStrings (6 0 p43 PI))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02dafGen)
+ htMakeDoneButton('"Continue",'e02dafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'px,px)
htpSetProperty(page,'py,py)
@@ -3654,7 +3638,7 @@ e02dcfSolve htPage ==
error = 'one => '1
'-1
((mx = 11 and my = 9) and start = 1) =>
- e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
+ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
start = 1 => e02dcfColdSolve (htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail)
-- warm start not really possible from hyperdoc
-- as inputing a workspace array of dimension 592 is asking too much
@@ -3696,7 +3680,7 @@ e02dcfColdSolve(htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail) ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :xList,:yList,:fList]
+ :xList,:yList,:fList]
page := htInitPage('"E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid",nil)
htSay '"\menuitemstyle{}\tab{2} Values of {\it x(mx)}: \newline "
htMakePage equationPart
@@ -3849,7 +3833,7 @@ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
(bcStrings (8 "-5.93" f97 F))
(bcStrings (8 "-5.6387" f98 F))
(bcStrings (8 "-3.9319" f99 F)))
- htMakeDoneButton('"Continue",'e02dcfColdGen)
+ htMakeDoneButton('"Continue",'e02dcfColdGen)
htpSetProperty(page,'mx,mx)
htpSetProperty(page,'my,my)
htpSetProperty(page,'nxest,nxest)
@@ -4026,7 +4010,7 @@ e02ddfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
+ :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -4071,7 +4055,7 @@ e02ddfColdSolve(htPage,m,nxest,nyest,lwrk,liwrk,s,ifail) ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -4346,7 +4330,7 @@ e02ddfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
(text . "\tab{47}")
(bcStrings (8 "1" w30 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02ddfColdGen)
+ htMakeDoneButton('"Continue",'e02ddfColdGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'nxest,nxest)
htpSetProperty(page,'nyest,nyest)
@@ -4554,7 +4538,7 @@ e02zafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamList,:muList]
+ :labelList,:lamList,:muList]
page := htInitPage('"E02ZAF - Sort 2-D sata into panels for fitting bicubic splines",nil)
htSay '"\menuitemstyle{}\tab{2} {\it x(m)}: "
htSay '"\tab{30} \menuitemstyle{}\tab{32} {\it y(m)}: "
@@ -4631,7 +4615,7 @@ e02zafDefaultSolve (htPage,npoint,ifail) ==
(bcStrings (8 "0.80" mu5 F))
(bcStrings (8 "1.20" mu6 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'e02zafGen)
+ htMakeDoneButton('"Continue",'e02zafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'px,px)
htpSetProperty(page,'py,py)
@@ -4687,9 +4671,3 @@ e02zafGen htPage ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-e02b.boot.pamphlet b/src/interp/nag-e02b.boot
index 85f29cfb..aa307b1b 100644
--- a/src/interp/nag-e02b.boot.pamphlet
+++ b/src/interp/nag-e02b.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-e02b.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -183,7 +167,7 @@ e02dafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamList,:muList,:pList]
+ :labelList,:lamList,:muList,:pList]
page := htInitPage('"E02DAF - Least-squares surface fit, bicubic splines",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \htbitmap{xr}: "
htSay '"\tab{15} \menuitemstyle{}\tab{17} Values of \htbitmap{yr}:"
@@ -465,93 +449,93 @@ e02dafDefaultSolve (htPage,eps,nws,npoint,ifail) ==
(text . "\blankline ")
(text . "\menuitemstyle{}\tab{2} Enter values for point:")
(text . "\newline \tab{2}")
- (bcStrings (6 3 p1 PI))
+ (bcStrings (6 3 p1 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 6 p2 PI))
+ (bcStrings (6 6 p2 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 4 p3 PI))
+ (bcStrings (6 4 p3 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 5 p4 PI))
+ (bcStrings (6 5 p4 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 7 p5 PI))
+ (bcStrings (6 7 p5 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 10 p6 PI))
+ (bcStrings (6 10 p6 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 8 p7 PI))
+ (bcStrings (6 8 p7 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 9 p8 PI))
+ (bcStrings (6 9 p8 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 11 p9 PI))
+ (bcStrings (6 11 p9 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 13 p10 PI))
+ (bcStrings (6 13 p10 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 12 p11 PI))
+ (bcStrings (6 12 p11 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 15 p12 PI))
+ (bcStrings (6 15 p12 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 14 p13 PI))
+ (bcStrings (6 14 p13 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 18 p14 PI))
+ (bcStrings (6 18 p14 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 16 p15 PI))
+ (bcStrings (6 16 p15 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 17 p16 PI))
+ (bcStrings (6 17 p16 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 19 p17 PI))
+ (bcStrings (6 19 p17 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 20 p18 PI))
+ (bcStrings (6 20 p18 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 21 p19 PI))
+ (bcStrings (6 21 p19 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 30 p20 PI))
+ (bcStrings (6 30 p20 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 23 p21 PI))
+ (bcStrings (6 23 p21 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 26 p22 PI))
+ (bcStrings (6 26 p22 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 24 p23 PI))
+ (bcStrings (6 24 p23 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 25 p24 PI))
+ (bcStrings (6 25 p24 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 27 p25 PI))
+ (bcStrings (6 27 p25 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 28 p26 PI))
+ (bcStrings (6 28 p26 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p27 PI))
+ (bcStrings (6 0 p27 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 29 p28 PI))
+ (bcStrings (6 29 p28 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p29 PI))
+ (bcStrings (6 0 p29 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p30 PI))
+ (bcStrings (6 0 p30 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 2 p31 PI))
+ (bcStrings (6 2 p31 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 22 p32 PI))
+ (bcStrings (6 22 p32 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 1 p33 PI))
+ (bcStrings (6 1 p33 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p34 PI))
+ (bcStrings (6 0 p34 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p35 PI))
+ (bcStrings (6 0 p35 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p36 PI))
+ (bcStrings (6 0 p36 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p37 PI))
+ (bcStrings (6 0 p37 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p38 PI))
+ (bcStrings (6 0 p38 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p39 PI))
+ (bcStrings (6 0 p39 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p40 PI))
+ (bcStrings (6 0 p40 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p41 PI))
+ (bcStrings (6 0 p41 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p42 PI))
+ (bcStrings (6 0 p42 PI))
(text . "\newline \tab{2}")
- (bcStrings (6 0 p43 PI))
+ (bcStrings (6 0 p43 PI))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02dafGen)
+ htMakeDoneButton('"Continue",'e02dafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'px,px)
htpSetProperty(page,'py,py)
@@ -718,7 +702,7 @@ e02dcfSolve htPage ==
error = 'one => '1
'-1
((mx = 11 and my = 9) and start = 1) =>
- e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
+ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail)
start = 1 => e02dcfColdSolve (htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail)
-- warm start not really possible from hyperdoc
-- as inputing a workspace array of dimension 592 is asking too much
@@ -760,7 +744,7 @@ e02dcfColdSolve(htPage,mx,my,nxest,nyest,lwrk,liwrk,s,ifail) ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :xList,:yList,:fList]
+ :xList,:yList,:fList]
page := htInitPage('"E02DCF - Least-squares curve by bicubic splines with automatic knot placement, data on a rectangular grid",nil)
htSay '"\menuitemstyle{}\tab{2} Values of {\it x(mx)}: \newline "
htMakePage equationPart
@@ -913,7 +897,7 @@ e02dcfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
(bcStrings (8 "-5.93" f97 F))
(bcStrings (8 "-5.6387" f98 F))
(bcStrings (8 "-3.9319" f99 F)))
- htMakeDoneButton('"Continue",'e02dcfColdGen)
+ htMakeDoneButton('"Continue",'e02dcfColdGen)
htpSetProperty(page,'mx,mx)
htpSetProperty(page,'my,my)
htpSetProperty(page,'nxest,nxest)
@@ -1090,7 +1074,7 @@ e02ddfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
+ :labelList,:lamdaList,:muList,:nxList,:nyList,:wList]
page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -1135,7 +1119,7 @@ e02ddfColdSolve(htPage,m,nxest,nyest,lwrk,liwrk,s,ifail) ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList]
+ :labelList]
page := htInitPage('"E02DDF - Least-squares surface fit by bicubic splines with automatic knot placement, scattered data",nil)
htSay '"\menuitemstyle{}\tab{2} Values of \space{1} "
htSay '"\htbitmap{xr}: \tab{15} \menuitemstyle{}\tab{17} "
@@ -1410,7 +1394,7 @@ e02ddfDefaultSolve (htPage,nxest,nyest,lwrk,liwrk,s,ifail) ==
(text . "\tab{47}")
(bcStrings (8 "1" w30 F))
(text . "\blankline"))
- htMakeDoneButton('"Continue",'e02ddfColdGen)
+ htMakeDoneButton('"Continue",'e02ddfColdGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'nxest,nxest)
htpSetProperty(page,'nyest,nyest)
@@ -1618,7 +1602,7 @@ e02zafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:lamList,:muList]
+ :labelList,:lamList,:muList]
page := htInitPage('"E02ZAF - Sort 2-D sata into panels for fitting bicubic splines",nil)
htSay '"\menuitemstyle{}\tab{2} {\it x(m)}: "
htSay '"\tab{30} \menuitemstyle{}\tab{32} {\it y(m)}: "
@@ -1695,7 +1679,7 @@ e02zafDefaultSolve (htPage,npoint,ifail) ==
(bcStrings (8 "0.80" mu5 F))
(bcStrings (8 "1.20" mu6 F))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'e02zafGen)
+ htMakeDoneButton('"Continue",'e02zafGen)
htpSetProperty(page,'m,m)
htpSetProperty(page,'px,px)
htpSetProperty(page,'py,py)
@@ -1751,9 +1735,3 @@ e02zafGen htPage ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-e04.boot.pamphlet b/src/interp/nag-e04.boot
index 13113010..e20eb98e 100644
--- a/src/interp/nag-e04.boot.pamphlet
+++ b/src/interp/nag-e04.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-e04.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -157,9 +141,9 @@ e04dgfSolve(htPage) ==
'(domainConditions
(isDomain EM $EmptyMode)
(isDomain F (Float))
- (isDomain I (Integer))),
- :funcList,
- :optList]
+ (isDomain I (Integer))),
+ :funcList,
+ :optList]
page := htInitPage('"E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the objective function, {\it F(x)} in terms of X[1]...X[n]: "
@@ -218,7 +202,7 @@ e04dgfGen htPage ==
lis := '"true"
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
f := (first y).1
@@ -252,7 +236,7 @@ e04dgfGen htPage ==
y := rest y
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
f := (first y).1
@@ -350,7 +334,7 @@ e04fdfSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :funcList]
+ :funcList]
page:= htInitPage('"E04FDF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using function values only",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions \htbitmap{fi} below in terms XC[1]...XC[n]: "
@@ -435,12 +419,12 @@ e04fdfGen htPage ==
y := alist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
for i in 1..m repeat
temp := STRCONC ((first y).1," ")
- ulist := [temp,:ulist]
+ ulist := [temp,:ulist]
y := rest y
ustring := bcwords2liststring ulist
prefix := STRCONC("e04fdf(",STRINGIMAGE m,",",STRINGIMAGE n,", ")
@@ -536,7 +520,7 @@ e04gcfSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :funcList]
+ :funcList]
page:= htInitPage('"E04GCF - Unconstrained minimum of a sum of squares, combined Gauss-Newton and modified Newton algorithm using 1st derivatives",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the functions \htbitmap{fi} below in terms of XC[1]...XC[n]: "
@@ -621,12 +605,12 @@ e04gcfGen htPage ==
y := alist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
for i in 1..m repeat
temp := STRCONC ((first y).1," ")
- ulist := [temp,:ulist]
+ ulist := [temp,:ulist]
y := rest y
ustring := bcwords2liststring ulist
prefix := STRCONC("e04gcf(",STRINGIMAGE m,",",STRINGIMAGE n,", ")
@@ -738,7 +722,7 @@ e04jafSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :funcList,:blList,:buList,:xList]
+ :funcList,:blList,:buList,:xList]
page:= htInitPage('"E04JAF - Minimum, function of several variables, quasi-Newton algorithm, simple bounds, using function values only",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the function {\it F(x)} below in terms of XC[1]...XC[n]: "
@@ -807,17 +791,17 @@ e04jafGen htPage ==
y := alist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- bulist := [temp,:bulist]
+ bulist := [temp,:bulist]
y := rest y
bustring := bcwords2liststring bulist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- bllist := [temp,:bllist]
+ bllist := [temp,:bllist]
y := rest y
blstring := bcwords2liststring bllist
f := (first y).1
@@ -832,7 +816,7 @@ e04mbf() ==
htInitPage('"E04MBF - Linear programming problem",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain PI (PositiveInteger))
(isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXe04mbf} for this routine ")
@@ -975,7 +959,7 @@ e04mbfSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :aList,:blList,:buList,:cList,:xList]
+ :aList,:blList,:buList,:cList,:xList]
page:= htInitPage('"E04MBF - Linear programming problem",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the elements of the array {\it a(nrowa,n)}: \newline "
@@ -1145,22 +1129,22 @@ e04mbfGen htPage ==
y := alist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- clist := [temp,:clist]
+ clist := [temp,:clist]
y := rest y
cstring := bcwords2liststring clist
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- bulist := [temp,:bulist]
+ bulist := [temp,:bulist]
y := rest y
bustring := bcwords2liststring bulist
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- bllist := [temp,:bllist]
+ bllist := [temp,:bllist]
y := rest y
blstring := bcwords2liststring bllist
for i in 1..nrowa repeat -- matrix A
@@ -1189,7 +1173,7 @@ e04naf() ==
htInitPage('"E04NAF - Quadratic programming problem",nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain PI (PositiveInteger))
(isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXe04naf} for this routine ")
@@ -1419,7 +1403,7 @@ e04nafSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :aList,:blList,:buList,:cList,:fList,:hList,:xList,:iList]
+ :aList,:blList,:buList,:cList,:fList,:hList,:xList,:iList]
page:= htInitPage('"E04NAF - Quadratic programming problem",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the elements of the array {\it a(nrowa,n)}: \newline "
@@ -1701,12 +1685,12 @@ e04nafGen htPage ==
y := alist
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- ilist := [temp,:ilist]
+ ilist := [temp,:ilist]
y := rest y
istring := bcwords2liststring ilist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
for i in 1..nrowh repeat -- matrix H
@@ -1720,22 +1704,22 @@ e04nafGen htPage ==
hmatstr := bcwords2liststring [bcwords2liststring x for x in hmatlist]
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- flist := [temp,:flist]
+ flist := [temp,:flist]
y := rest y
fstring := bcwords2liststring flist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- clist := [temp,:clist]
+ clist := [temp,:clist]
y := rest y
cstring := bcwords2liststring clist
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- bulist := [temp,:bulist]
+ bulist := [temp,:bulist]
y := rest y
bustring := bcwords2liststring bulist
for i in 1..(n+nclin) repeat
temp := STRCONC ((first y).1," ")
- bllist := [temp,:bllist]
+ bllist := [temp,:bllist]
y := rest y
blstring := bcwords2liststring bllist
for i in 1..nrowa repeat -- matrix A
@@ -1766,7 +1750,7 @@ e04ucf() ==
htInitPage('"E04UCF - Minimum, function of several variables, sequential QP method, nonlinear constraints, using function values and optionally 1st derivatives", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain PI (PositiveInteger))
(isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXe04ucf} for this routine ")
@@ -1914,7 +1898,7 @@ e04ucfSolve(htPage) ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :aList,:blList,:buList,:cList,:funcList,:xList,
+ :aList,:blList,:buList,:cList,:funcList,:xList,
:'(
(text . "\blankline ")_
(text . "\newline ")_
@@ -2104,16 +2088,16 @@ e04ucfDefaultSolve(htPage,nclin,ncnln,nrowa,nrowj,nrowr,liwork,lwork,ifail) ==
(text . "\menuitemstyle{}\tab{2}")
(text . "Enter the nonlinear constraint functions, {\it c(ncnln)} ")
(text . "in terms of X[1]...X[n]: ")
- (text . "\newline ")
+ (text . "\newline ")
(bcStrings (55 "X[1]**2 + X[2]**2 + X[3]**2 + X[4]**2" cx1 EM))
- (text . "\newline ")
+ (text . "\newline ")
(bcStrings (55 "X[1]*X[2]*X[3]*X[4]" cx2 EM))
- (text . "\newline ")
+ (text . "\newline ")
(text . "\blankline ")
(text . "\menuitemstyle{}\tab{2}")
(text . "Enter the objective function, {\it F(x)} ")
(text . "in terms of X[1]...X[n]: ")
- (text . "\newline ")
+ (text . "\newline ")
(bcStrings (55 "X[1]*X[4]*(X[1] + X[2] + X[3]) + X[3]" of EM))
(text . "\blankline ")
(text . "\menuitemstyle{}\tab{2}")
@@ -2179,24 +2163,24 @@ e04ucfGen htPage ==
ver := 3
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
f := (first y).1
y := rest y
for i in 1..ncnln repeat
temp := STRCONC ((first y).1," ")
- cxlist := [temp,:cxlist]
+ cxlist := [temp,:cxlist]
y := rest y
cxstring := bcwords2liststring cxlist
for i in 1..(n+nclin+ncnln) repeat
temp := STRCONC ((first y).1," ")
- bulist := [temp,:bulist]
+ bulist := [temp,:bulist]
y := rest y
buu := bcwords2liststring bulist
for i in 1..(n+nclin+ncnln) repeat
temp := STRCONC ((first y).1," ")
- bllist := [temp,:bllist]
+ bllist := [temp,:bllist]
y := rest y
bll := bcwords2liststring bllist
for i in 1..nrowa repeat -- matrix A
@@ -2267,24 +2251,24 @@ e04ucfGen htPage ==
y := rest y
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- xlist := [temp,:xlist]
+ xlist := [temp,:xlist]
y := rest y
xstring := bcwords2liststring xlist
f := (first y).1
y := rest y
for i in 1..ncnln repeat
temp := STRCONC ((first y).1," ")
- cxlist := [temp,:cxlist]
+ cxlist := [temp,:cxlist]
y := rest y
cxstring := bcwords2liststring cxlist
for i in 1..(n+nclin+ncnln) repeat
temp := STRCONC ((first y).1," ")
- bulist := [temp,:bulist]
+ bulist := [temp,:bulist]
y := rest y
buu := bcwords2liststring bulist
for i in 1..(n+nclin+ncnln) repeat
temp := STRCONC ((first y).1," ")
- bllist := [temp,:bllist]
+ bllist := [temp,:bllist]
y := rest y
bll := bcwords2liststring bllist
for i in 1..nrowa repeat -- matrix A
@@ -2336,7 +2320,7 @@ e04ycf() ==
htInitPage('"E04YCF - Covariance matrix for non-linear least-squares problem", nil)
htMakePage '(
(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain PI (PositiveInteger))
(isDomain F (Float)))
(text . "\windowlink{Manual Page}{manpageXXe04ycf} for this routine ")
@@ -2431,7 +2415,7 @@ e04ycfSolve htPage ==
(isDomain EM $EmptyMode)
(isDomain F (Float))
(isDomain I (Integer))),
- :sList,:vList]
+ :sList,:vList]
page:= htInitPage('"E04YCF - Covariance matrix for non-linear least-squares problem", nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the elements of the array {\it s(n)}: \newline "
@@ -2498,12 +2482,12 @@ e04ycfGen htPage ==
y := alist
for i in 1..(lv*n) repeat
temp := STRCONC ((first y).1," ")
- vlist := [temp,:vlist]
+ vlist := [temp,:vlist]
y := rest y
vstring := bcwords2liststring vlist
for i in 1..n repeat
temp := STRCONC ((first y).1," ")
- slist := [temp,:slist]
+ slist := [temp,:slist]
y := rest y
sstring := bcwords2liststring slist
prefix := STRCONC("e04ycf(",STRINGIMAGE job,",", STRINGIMAGE m,", ")
@@ -2514,9 +2498,3 @@ e04ycfGen htPage ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-f01.boot.pamphlet b/src/interp/nag-f01.boot
index 43c8b303..bbb511b6 100644
--- a/src/interp/nag-f01.boot.pamphlet
+++ b/src/interp/nag-f01.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-f01.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -91,12 +75,12 @@ f01brf() ==
(text . "\blankline")
(text . "\menuitemstyle{}\tab{2} Grow value:")
(radioButtons grow
- ("" " True" gr_true)
+ ("" " True" gr_true)
("" " False" gr_false))
(text . "\blankline")
(text . "\menuitemstyle{}\tab{2} Lblock value:")
(radioButtons lblock
- ("" " True" lb_true)
+ ("" " True" lb_true)
("" " False" lb_false))
(text . "\blankline ")
(text . "\newline \tab{2} ")
@@ -158,7 +142,7 @@ f01brfSolve htPage ==
'0
ifail := 100*cfail + 10*bfail + afail
((n = '6 and nz = '15) and (licn = '150 and lirn = '75))
- => f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail)
+ => f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail)
labelList :=
"append"/[f(i) for i in 1..nz] where f(i) ==
prefix := ('"\newline \tab{2} ")
@@ -184,7 +168,7 @@ f01brfSolve htPage ==
(isDomain EM ($EmptyMode))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:abortList]
+ :labelList,:abortList]
page := htInitPage("F01BRF - LU factorization of real sparse matrix",nil)
htSay '"\menuitemstyle{}\tab{2} Non-zero elements of A: "
htSay '"\tab{30} \menuitemstyle{}\tab{32} Row: "
@@ -315,7 +299,7 @@ f01brfDefaultSolve(htPage,pivot,grow,lblock,ifail) ==
(bcStrings (8 "true" abort_two EM))
(bcStrings (8 "false" abort_three EM))
(bcStrings (8 "true" abort_four EM)))
- htMakeDoneButton('"Continue",'f01brfGen)
+ htMakeDoneButton('"Continue",'f01brfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'nz,nz)
htpSetProperty(page,'licn,licn)
@@ -483,7 +467,7 @@ f01mafSolve htPage ==
droptl := htpLabelInputString(htPage, 'droptl)
densw := htpLabelInputString(htPage, 'densw)
((n = '16 and nz = '40) and (licn = '90 and lirn = '50))
- => f01mafDefaultSolve(htPage,droptl,densw,ifail)
+ => f01mafDefaultSolve(htPage,droptl,densw,ifail)
labelList :=
"append"/[f(i) for i in 1..nz] where f(i) ==
prefix := ('"\newline \tab{2} ")
@@ -508,7 +492,7 @@ f01mafSolve htPage ==
(isDomain EM ($EmptyMode))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:abortList]
+ :labelList,:abortList]
page := htInitPage("F01MAF - \htbitmap{llt} factorization of real sparse symmetric positive-definite matrix",nil)
htSay '"\menuitemstyle{}\tab{2} Non-zero elements of A: "
htSay '"\tab{30} \menuitemstyle{}\tab{32} Row: "
@@ -788,7 +772,7 @@ f01mafDefaultSolve(htPage,droptl,densw,ifail) ==
(bcStrings (8 "true" abort_one EM))
(bcStrings (8 "true" abort_two EM))
(bcStrings (8 "true" abort_three EM)))
- htMakeDoneButton('"Continue",'f01mafGen)
+ htMakeDoneButton('"Continue",'f01mafGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'nz,nz)
htpSetProperty(page,'licn,licn)
@@ -906,7 +890,7 @@ f01mcfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:nrowList]
+ :labelList,:nrowList]
page := htInitPage("F01MCF - \htbitmap{ldlt} factorization of real symmetric positive-definite variable-bandwidth matrix",nil)
htSay '"\menuitemstyle{}\tab{2} Elements of matrix {\it A} in row by row "
htSay '"order: \newline \tab{2} "
@@ -957,7 +941,7 @@ f01mcfDefaultSolve (htPage,ifail) ==
(bcStrings (6 5 n5 PI))
(bcStrings (6 3 n6 PI))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'f01mcfGen)
+ htMakeDoneButton('"Continue",'f01mcfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'lal,lal)
htpSetProperty(page,'ifail,ifail)
@@ -1055,7 +1039,7 @@ f01qcfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..lda] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1066,7 +1050,7 @@ f01qcfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage("F01QCF - QR factorization or real m by n matrix (m \htbitmap{great=} n)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1251,7 +1235,7 @@ f01qdfSolve htPage ==
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1259,7 +1243,7 @@ f01qdfSolve htPage ==
bList :=
"append"/[fb(i,ncolb) for i in 1..ldb] where fb(i,ncolb) ==
labelList :=
- "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
+ "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", bnam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1279,7 +1263,7 @@ f01qdfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bList,:zList]
+ :matList,:bList,:zList]
page := htInitPage('"F01QDF - Operations with orthogonal matrices, compute {\it QB} or \htbitmap{f01qdf} after factorization by F01QCF or F01QDF",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1493,7 +1477,7 @@ f01qefSolve htPage ==
matList :=
"append"/[fa(i,ncolq) for i in 1..lda] where fa(i,ncolq) ==
labelList :=
- "append"/[ga(i,j) for j in 1..ncolq] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..ncolq] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[7, "0.0", anam, 'F]]]
prefix := ('"\newline ")
@@ -1511,7 +1495,7 @@ f01qefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:zList]
+ :matList,:zList]
page := htInitPage('"F01QEF - Operations with orthogonal matrices, form columns of {\it Q} after factorization by F01QCF or F01QFF",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it Q}: "
htSay '"\newline "
@@ -1688,7 +1672,7 @@ f01rcfSolve htPage ==
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[16, "0.0 + 0.0*%i", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1699,7 +1683,7 @@ f01rcfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage('"F01RCF - {\it QR} factorization of complex {\it m} by {\it n} matrix (m \htbitmap{great=} n)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1885,7 +1869,7 @@ f01rdfSolve htPage ==
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[16, "0.0 + 0.0*%i", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1893,7 +1877,7 @@ f01rdfSolve htPage ==
bList :=
"append"/[fb(i,ncolb) for i in 1..ldb] where fb(i,ncolb) ==
labelList :=
- "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
+ "append"/[gb(i,j) for j in 1..ncolb] where gb(i,j) ==
bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[16, "0.0 + 0.0*%i", bnam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1913,7 +1897,7 @@ f01rdfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bList,:zList]
+ :matList,:bList,:zList]
page := htInitPage('"F01RDF - Operations with orthogonal matrices, compute {\it QB} or \htbitmap{f01rdf} after factorization by F01QCF or F01RDF",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2132,7 +2116,7 @@ f01refSolve htPage ==
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[20, "0.0 + 0.0*%i", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -2150,7 +2134,7 @@ f01refSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:zList]
+ :matList,:zList]
page := htInitPage('"F01REF - Operations with unitary matrices, form columns of {\it Q} after factorization by F01RCF",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2246,9 +2230,3 @@ f01refGen htPage ==
prefix := STRCONC(prefix,matstring,", ",STRINGIMAGE ifail,")")
linkGen prefix
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-f02.boot.pamphlet b/src/interp/nag-f02.boot
index e19d9df5..f0cb92ed 100644
--- a/src/interp/nag-f02.boot.pamphlet
+++ b/src/interp/nag-f02.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-f02.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -100,7 +84,7 @@ f02aafSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -111,7 +95,7 @@ f02aafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage("F02AAF - All eigenvalues of real symmetric matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -244,7 +228,7 @@ f02abfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -255,7 +239,7 @@ f02abfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage("F02ABF - All eigenvalues and eigenvectors of real symmetric matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -389,7 +373,7 @@ f02adfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -410,7 +394,7 @@ f02adfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02ADF - All eigenvalues of generalized real eigenproblem of the form Ax = \lambda Bx where A and B are symmetric and B is positive definite",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -584,7 +568,7 @@ f02aefSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -605,7 +589,7 @@ f02aefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02AEF - All eigenvalues and eigenvectors of generalized real eigenproblem of the form Ax = \lambda Bx where A and B are symmetric and B is positive definite",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -769,7 +753,7 @@ f02affSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -780,7 +764,7 @@ f02affSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage("F02AFF - All eigenvalues of real matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -922,7 +906,7 @@ f02agfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -933,7 +917,7 @@ f02agfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage("F02AGF - All eigenvalues and eigenvectors of real matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1073,7 +1057,7 @@ f02ajfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..iar] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1094,7 +1078,7 @@ f02ajfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02AJF - All eigenvalues of complex matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1278,7 +1262,7 @@ f02akfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..iar] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1299,7 +1283,7 @@ f02akfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02AKF - All eigenvalues and eigenvectors of complex matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1474,7 +1458,7 @@ f02awfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..iar] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1495,7 +1479,7 @@ f02awfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02AWF - All eigenvalues of complex Hermitian matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it AR}: "
htSay '"\newline \tab{2} "
@@ -1679,7 +1663,7 @@ f02axfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..iar] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1700,7 +1684,7 @@ f02axfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F02AXF - All eigenvalues and eigenvectors of complex Hermitian matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter real values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1896,7 +1880,7 @@ f02bbfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1907,7 +1891,7 @@ f02bbfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList]
+ :matList]
page := htInitPage('"F02BBF - Selected eigenvalues and eigenvectors of real symmetric matrix (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2086,7 +2070,7 @@ f02bjfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -2107,7 +2091,7 @@ f02bjfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage('"F02BJF - All eigenvalues and optionally eigenvectors of generalized eigenproblem by {\it QZ} algorithm, real matrices (Black box)",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2361,11 +2345,11 @@ f02wefSolve htPage ==
error = 'one => '1
'-1
((m = '5 and n = '3) and ncolb = '1) =>
- f02wefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldpt,wantp,ifail)
+ f02wefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldpt,wantp,ifail)
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[10, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -2386,7 +2370,7 @@ f02wefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bList]
+ :matList,:bList]
page := htInitPage('"F02WEF - SVD of real matrix",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2608,11 +2592,11 @@ f02xefSolve htPage ==
error = 'one => '1
'-1
((m = '5 and n = '3) and ncolb = '1) =>
- f02xefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldph,wantp,ifail)
+ f02xefDefaultSolve(htPage,lda,ldb,wantq,ldq,ldph,wantp,ifail)
matList :=
"append"/[fa(i,n) for i in 1..lda] where fa(i,n) ==
labelList :=
- "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
+ "append"/[ga(i,j) for j in 1..n] where ga(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[15, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -2633,7 +2617,7 @@ f02xefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bList]
+ :matList,:bList]
page := htInitPage('"F02XEF - SVD of complex matrix",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -2749,9 +2733,3 @@ f02xefGen htPage ==
linkGen STRCONC(prefix,STRINGIMAGE ifail,")")
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-f04.boot.pamphlet b/src/interp/nag-f04.boot
index 37f4951d..2d50f701 100644
--- a/src/interp/nag-f04.boot.pamphlet
+++ b/src/interp/nag-f04.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-f04.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -119,7 +103,7 @@ f04adfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
ianam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[12, "0.0 + 0.0*%i", ianam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -127,7 +111,7 @@ f04adfSolve htPage ==
bmatList :=
"append"/[fb(i,m) for i in 1..ib] where fb(i,m) ==
blabelList :=
- "append"/[gb(i,j) for j in 1..m] where gb(i,j) ==
+ "append"/[gb(i,j) for j in 1..m] where gb(i,j) ==
bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[12, "0.0 + 0.0*%i", bnam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -282,7 +266,7 @@ f04arfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", ianam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -443,7 +427,7 @@ f04asfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", ianam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -622,7 +606,7 @@ f04atfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..ia] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
ianam := INTERN STRCONC ('"ia",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", ianam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -826,7 +810,7 @@ f04fafSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :dList,:eList,:bList]
+ :dList,:eList,:bList]
page := htInitPage("F04FAF - Solution of real symmetric positive-definite tridiagonal simultaneous linear equations, one right-hand side (Black box)",nil)
htMakePage equationPart
htMakeDoneButton('"Continue",'f04fafGen)
@@ -882,7 +866,7 @@ f04fafDefaultSolve (htPage,job,ifail) ==
(bcStrings (10 14 b4 F))
(text . "\newline \tab{2} ")
(bcStrings (10 7 b5 F)))
- htMakeDoneButton('"Continue",'f04fafGen)
+ htMakeDoneButton('"Continue",'f04fafGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'job,job)
htpSetProperty(page,'ifail,ifail)
@@ -991,7 +975,7 @@ f04jgfSolve htPage ==
matList :=
"append"/[f(i,n) for i in 1..m] where f(i,n) ==
labelList :=
- "append"/[g(i,j) for j in 1..n] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..n] where g(i,j) ==
anam := INTERN STRCONC ('"a",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", anam, 'F]]]
prefix := ('"\newline \tab{2} ")
@@ -1009,7 +993,7 @@ f04jgfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :matList,:bmatList]
+ :matList,:bmatList]
page := htInitPage("F04JGF - Least-squares (if rank = {\it n}) or minimal least-squares (if rank < {\it n}) solution of {\it m} real equations in {\it n} unknowns, rank \inputbitmap{\htbmdir{}/less=.bitmap} {\it n}, {\it m} \inputbitmap{\htbmdir{}/great=.bitmap} {\it n}",nil)
htSay '"\newline \menuitemstyle{}\tab{2} Enter values of {\it A}: "
htSay '"\newline \tab{2} "
@@ -1241,7 +1225,7 @@ f04mcfSolve htPage ==
bList :=
"append"/[f(i,ir) for i in 1..nrb] where f(i,ir) ==
labelList :=
- "append"/[g(i,j) for j in 1..ir] where g(i,j) ==
+ "append"/[g(i,j) for j in 1..ir] where g(i,j) ==
bnam := INTERN STRCONC ('"b",STRINGIMAGE i, STRINGIMAGE j)
[['bcStrings,[6, "0.0", bnam, 'F]]]
prefix := ('"\newline ")
@@ -1255,7 +1239,7 @@ f04mcfSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain PI (PositiveInteger))),
- :labelList,:dList,:nrowList,:bList]
+ :labelList,:dList,:nrowList,:bList]
page := htInitPage("F04MCF - Approximate solution of real symmetric positive-definite variable-bandwidth simultaneous linear equations (coefficient matrix already factorized)",nil)
htSay '"\menuitemstyle{}\tab{2} Elements of matrix {\it AL} in row by row "
htSay '"order as returned by F01MCF: \newline "
@@ -1349,7 +1333,7 @@ f04mcfDefaultSolve (htPage,iselct,ifail) ==
(text . "\tab{10} ")
(bcStrings (6 "67" b62 PI))
(text . "\blankline "))
- htMakeDoneButton('"Continue",'f04mcfGen)
+ htMakeDoneButton('"Continue",'f04mcfGen)
htpSetProperty(page,'n,n)
htpSetProperty(page,'lal,lal)
htpSetProperty(page,'ir,ir)
@@ -2325,9 +2309,3 @@ f04qafGen htPage ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-f07.boot.pamphlet b/src/interp/nag-f07.boot
index a2eb3b2d..1784e006 100644
--- a/src/interp/nag-f07.boot.pamphlet
+++ b/src/interp/nag-f07.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-f07.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -98,11 +82,11 @@ f07adfSolve htPage ==
labelList := [['text,:prefix],:labelList]
equationPart := [
'(domainConditions
- (isDomain EM $EmptyMode)
+ (isDomain EM $EmptyMode)
(isDomain S (String))
(isDomain F (Float))
- (isDomain I (Integer))),
- :aList]
+ (isDomain I (Integer))),
+ :aList]
page := htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil)
htSay '"\menuitemstyle{}\tab{2} "
htSay '"Enter the array {\it A}:"
@@ -273,7 +257,7 @@ f07aefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain I (Integer)))
- ,:aList,:ipList,:bList]
+ ,: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} "
htSay '"Enter the matrix {\it A}:"
@@ -614,7 +598,7 @@ f07fefSolve htPage ==
(isDomain S (String))
(isDomain F (Float))
(isDomain I (Integer)))
- ,:aList,:bList]
+ ,: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} "
htSay '"Enter the matrix {\it A}:"
@@ -720,9 +704,3 @@ f07fefGen htPage ==
prefix := STRCONC(prefix,STRINGIMAGE ldb,", ",bstring,"::Matrix DoubleFloat)")
linkGen prefix
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nag-s.boot.pamphlet b/src/interp/nag-s.boot
index 99c54d7f..e2eed84a 100644
--- a/src/interp/nag-s.boot.pamphlet
+++ b/src/interp/nag-s.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-s.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -42,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -1598,9 +1582,3 @@ sGen htPage ==
-1
linkGen STRCONC(routine,"(",x,'",",STRINGIMAGE ifail,'")")
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/showimp.boot.pamphlet b/src/interp/showimp.boot
index 0e1d1865..c6af476a 100644
--- a/src/interp/showimp.boot.pamphlet
+++ b/src/interp/showimp.boot
@@ -1,20 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\File{src/interp/showimp.boot} Pamphlet}
-\author{The Axiom Team}
-
-\begin{document}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-
-\section{License}
-
-<<license>>=
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--
@@ -46,9 +29,6 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
)package "BOOT"
@@ -189,7 +169,7 @@ getCategoriesOfDomain domain ==
devaluateSlotDomain(x,domain)
getInheritanceByDoc(D,op,sig,:options) ==
---gets inheritance and documentation information by looking in the LISPLIB
+--gets inheritance and documentation information by looking in the LISPLIB
--for each ancestor of the domain
catList := KAR options or getExtensionsOfDomain D
getDocDomainForOpSig(op,sig,devaluate D,D) or
@@ -270,9 +250,3 @@ formatLazyDomainForm(dom,x) ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/topics.boot.pamphlet b/src/interp/topics.boot.pamphlet
deleted file mode 100644
index a269b18c..00000000
--- a/src/interp/topics.boot.pamphlet
+++ /dev/null
@@ -1,263 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\File{src/interp/topics.boot} Pamphlet}
-\author{The Axiom Team}
-
-\begin{document}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--- All rights reserved.
---
--- Redistribution and use in source and binary forms, with or without
--- modification, are permitted provided that the following conditions are
--- met:
---
--- - Redistributions of source code must retain the above copyright
--- notice, this list of conditions and the following disclaimer.
---
--- - Redistributions in binary form must reproduce the above copyright
--- notice, this list of conditions and the following disclaimer in
--- the documentation and/or other materials provided with the
--- distribution.
---
--- - Neither the name of The Numerical ALgorithms Group Ltd. nor the
--- names of its contributors may be used to endorse or promote products
--- derived from this software without specific prior written permission.
---
--- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
--- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
--- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
--- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
--- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
--- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
--- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
--- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
--- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
--- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
--- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-@
-<<*>>=
-<<license>>
-
-$topicsDefaults := '(
- (basic elt setelt qelt qsetelt eval xRange yRange zRange map map! qsetelt!)
- (conversion coerce convert retract)
- (hidden retractIfCan Zero One)
- (predicate _< _=)
- (algebraic _+ _- _* _*_* _/ quo rem exquo)
- (trignometric acos acot acsc asec asin atan cos cot csc sec sin tan)
- (hyperbolic acosh acoth acsch asech asinh atanh cosh coth csch sech sinh tanh)
- (destructive setelt qsetelt)
- (extraction xRange yRange zRange elt qelt)
- (transformation map map!))
-
-$topicSynonyms := '(
- (b . basic)
- (h . hidden)
- (e . extended)
- (a . algebraic)
- (g . algebraic)
- (c . construct)
- (d . destructive)
- (v . conversion)
- (m . miscellaneous)
- (x . extraction)
- (p . predicate)
- (tg . trignometric)
- (hy . hyperbolic)
- (t . transformation))
-
-$groupAssoc := '((extended . 1) (basic . 2) (hidden . 4))
-
---=======================================================================
--- Create Hashtable of Operation Properties
---=======================================================================
---called at build-time before making DOCUMENTATION property
-mkTopicHashTable() == --given $groupAssoc = ((extended . 1)(basic . 2)(xx . 4)..)
- $defaultsHash := MAKE_-HASHTABLE 'ID --keys are ops, value is list of topic names
- for [kind,:items] in $topicsDefaults repeat --$topicsDefaults is ((<topic> op ...) ..)
- for item in items repeat
- HPUT($defaultsHash,item,[kind,:HGET($defaultsHash,item)])
- $conTopicHash := MAKE_-HASHTABLE 'EQL --key is constructor name; value is
- instream := OPEN '"topics.data"
- while not EOFP instream repeat
- line := READLINE instream
- while blankLine? line repeat line := READLINE instream
- m := MAXINDEX line --file "topics.data" has form:
- m = -1 => 'skip --1 ConstructorName:
- line.0 = char '_- => 'skip --2 constructorName or operation name
- line := trimString line --3-n ...
- m := MAXINDEX line -- (blank line) ...
- line.m ^= (char '_:) => systemError('"wrong heading")
- con := INTERN SUBSTRING(line,0,m)
- alist := [lst while not EOFP instream and
- not (blankLine? (line := READLINE instream)) and
- line.0 ^= char '_- for i in 1..
- | lst := string2OpAlist line]
- alist => HPUT($conTopicHash,con,alist)
- --initialize table of topic classes
- $topicHash := MAKE_-HASHTABLE 'ID --$topicHash has keys: topic and value: index
- for [x,:c] in $groupAssoc repeat HPUT($topicHash,x,c)
- $topicIndex := CDR LAST $groupAssoc
-
- --replace each property list by a topic code
- --store under each construct an OR of all codes
- for con in HKEYS $conTopicHash repeat
- conCode := 0
- for pair in HGET($conTopicHash,con) repeat
- RPLACD(pair,code := topicCode CDR pair)
- conCode := LOGIOR(conCode,code)
- HPUT($conTopicHash,con,
- [['constructor,:conCode],:HGET($conTopicHash,con)])
- SHUT instream
-
---reduce integers stored under names to 1 + its power of 2
- for key in HKEYS $topicHash repeat
- HPUT($topicHash,key,INTEGER_-LENGTH HGET($topicHash,key))
-
- $conTopicHash --keys are ops or 'constructor', values are codes
-
-blankLine? line ==
- MAXINDEX line = -1 or and/[line . j = (char '_ ) for j in 0..MAXINDEX line]
-
-string2OpAlist s ==
- m := #s
- k := skipBlanks(s,0,m) or return nil
- UPPER_-CASE_-P s.k => nil --skip constructor names
- k := 0
- while (k := skipBlanks(s,k,m)) repeat
- acc := [INTERN SUBSTRING(s,k,-k + (k := charPosition(char '_ ,s,k + 1))),:acc]
- acc := NREVERSE acc
- --now add defaults
- if u := getDefaultProps first acc then acc := [first acc,:u,:rest acc]
- acc
-
-getDefaultProps name ==
- u := HGET($defaultsHash,name)
- if (s := PNAME name).(m := MAXINDEX s) = char '? then u := ['p,:u]
- if s.m = char '_! then u := ['destructive,:u]
- u
-
-skipBlanks(u,i,m) ==
- while i < m and u.i = $charBlank repeat i := i + 1
- i >= m => nil
- i
-
---=======================================================================
--- Compute Topic Code for Operation
---=======================================================================
-topicCode lst ==
- u := [y for x in lst] where y ==
- rename := LASSOC(x,$topicSynonyms) => rename
- x
- if null intersection('(basic extended hidden),u) then u := ['extended,:u]
- bitIndexList := nil
- for x in REMDUP u repeat
- bitIndexList := [fn x,:bitIndexList] where fn x ==
- k := HGET($topicHash,x) => k
- HPUT($topicHash,x,$topicIndex := $topicIndex * 2)
- $topicIndex
- code := +/[i for i in bitIndexList]
-
---=======================================================================
--- Add Codes to Documentation Property
---=======================================================================
---called to modify DOCUMENTATION property for each "con"
-addTopic2Documentation(con,docAlist) ==
- alist := HGET($conTopicHash,con) or return docAlist
- [y for x in docAlist] where y ==
- [op,:pairlist] := x
- code := LASSOC(op,alist) or 0
- for sigDoc in pairlist repeat
- sigDoc is [.,.] => RPLACD(rest sigDoc,code)
- systemError sigDoc
- docAlist
-
---=======================================================================
--- Test: Display Topics for a given constructor
---=======================================================================
-td con ==
- $topicClasses := ASSOCRIGHT mySort
- [[HGET($topicHash,key),:key] for key in HKEYS $topicHash]
- hash := MAKE_-HASHTABLE 'ID
- tdAdd(con,hash)
- tdPrint hash
-
-tdAdd(con,hash) ==
- v := HGET($conTopicHash,con)
- u := addTopic2Documentation(con,v)
---u := GETDATABASE(con,'DOCUMENTATION)
- for pair in u | FIXP (code := myLastAtom pair) and (op := CAR pair) ^= 'construct repeat
- for x in (names := code2Classes code) repeat HPUT(hash,x,insert(op,HGET(hash,x)))
-
-tdPrint hash ==
- for key in mySort HKEYS hash repeat
- sayBrightly [key,'":"]
- sayBrightlyNT '" "
- for x in HGET(hash,key) repeat sayBrightlyNT ['" ",x]
- TERPRI()
-
-topics con ==
- --assumes that DOCUMENTATION property already has #s added
- $topicClasses := ASSOCRIGHT mySort
- [[HGET($topicHash,key),:key] for key in HKEYS $topicHash]
- hash := MAKE_-HASHTABLE 'ID
- tdAdd(con,hash)
- for x in REMDUP [CAAR y for y in ancestorsOf(getConstructorForm con,nil)] repeat
- tdAdd(x,hash)
- for x in HKEYS hash repeat HPUT(hash,x,mySort HGET(hash,x))
- tdPrint hash
-
-code2Classes cc ==
- cc := 2*cc
- [x while cc ^= 0 for x in $topicClasses | ODDP (cc := QUOTIENT(cc,2))]
-
-myLastAtom x ==
- while x is [.,:x] repeat nil
- x
-
---=======================================================================
--- Transfer Codes to opAlist
---=======================================================================
-
-transferClassCodes(conform,opAlist) ==
- transferCodeCon(opOf conform,opAlist)
- for x in ancestorsOf(conform,nil) repeat
- transferCodeCon(CAAR x,opAlist)
-
-transferCodeCon(con,opAlist) ==
- for pair in GETDATABASE(con,'DOCUMENTATION)
- | FIXP (code := myLastAtom pair) repeat
- u := ASSOC(QCAR pair,opAlist) => RPLACD(LASTNODE u,code)
-
---=======================================================================
--- Filter Operation by Topic
---=======================================================================
-
-filterByTopic(opAlist,topic) ==
- bitNumber := HGET($topicHash,topic)
- [x for x in opAlist
- | FIXP (code := myLastAtom x) and LOGBITP(bitNumber,code)]
-
-listOfTopics(conname) ==
- doc := GETDATABASE(conname,'DOCUMENTATION)
- u := ASSOC('constructor,doc) or return nil
- code := myLastAtom u
---null FIXP code => nil
- mySort [key for key in HKEYS($topicHash) | LOGBITP(HGET($topicHash,key),code)]
-
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}