aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/lisplib.boot (renamed from src/interp/lisplib.boot.pamphlet)32
-rw-r--r--src/interp/macex.boot (renamed from src/interp/macex.boot.pamphlet)22
-rw-r--r--src/interp/match.boot (renamed from src/interp/match.boot.pamphlet)22
-rw-r--r--src/interp/modemap.boot (renamed from src/interp/modemap.boot.pamphlet)26
-rw-r--r--src/interp/msg.boot (renamed from src/interp/msg.boot.pamphlet)26
-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/newfort.boot (renamed from src/interp/newfort.boot.pamphlet)22
-rw-r--r--src/interp/nhyper.boot (renamed from src/interp/nhyper.boot.pamphlet)22
22 files changed, 460 insertions, 956 deletions
diff --git a/src/interp/lisplib.boot.pamphlet b/src/interp/lisplib.boot
index bffb777e..4075f572 100644
--- a/src/interp/lisplib.boot.pamphlet
+++ b/src/interp/lisplib.boot
@@ -1,20 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\File{src/interp/lisplib.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>>
--% Standard Library Creation Functions
@@ -257,7 +237,7 @@ systemDependentMkAutoload(fn,cnam) ==
kind := GETDATABASE(cnam, 'CONSTRUCTORKIND)
cosig := GETDATABASE(cnam, 'COSIG)
file := GETDATABASE(cnam, 'OBJECT)
- SET_-LIB_-FILE_-GETTER(file, cnam)
+ SET_-LIB_-FILE_-GETTER(file, cnam)
kind = 'category =>
ASHARPMKAUTOLOADCATEGORY(file, cnam, asharpName, cosig)
ASHARPMKAUTOLOADFUNCTOR(file, cnam, asharpName, cosig)
@@ -340,7 +320,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) ==
$libFile: local := NIL
$lisplibVariableAlist: local := NIL
-- $lisplibRelatedDomains: local := NIL --from ++ Related Domains: see c-doc
- $lisplibCategory: local := nil
+ $lisplibCategory: local := nil
--for categories, is rhs of definition; otherwise, is target of functor
--will eventually become the "constructorCategory" property in lisplib
--set in compDefineCategory1 if category, otherwise in finalizeLisplib
@@ -360,7 +340,7 @@ compDefineLisplib(df:=["DEF",[op,:.],:.],m,e,prefix,fal,fn) ==
PROGN(res:= FUNCALL(fn,df,m,e,prefix,fal),
sayMSG ['" finalizing ",$spadLibFT,:bright libName],
finalizeLisplib libName,
- ok := true),
+ ok := true),
RSHUT $libFile)
if ok then lisplibDoRename(libName)
filearg := $FILEP(libName,$spadLibFT,$libraryDirectory)
@@ -704,9 +684,3 @@ isFunctor x ==
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/macex.boot.pamphlet b/src/interp/macex.boot
index a275c59b..b638600a 100644
--- a/src/interp/macex.boot.pamphlet
+++ b/src/interp/macex.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp macex.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"
@@ -203,9 +187,3 @@ mac0InfiniteExpansion(posn, body, active) ==
[ [:[n,'"==>"] for n in reverse rnames], fname, %pform body ] )
body
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/match.boot.pamphlet b/src/interp/match.boot
index 132b99f9..95627777 100644
--- a/src/interp/match.boot.pamphlet
+++ b/src/interp/match.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp match.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>>
SETANDFILEQ($wildCard,char "*")
@@ -234,9 +218,3 @@ suffix?(s,t) ==
substring?(s,t,(n-m))
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/modemap.boot.pamphlet b/src/interp/modemap.boot
index e5af0fac..67f7dcee 100644
--- a/src/interp/modemap.boot.pamphlet
+++ b/src/interp/modemap.boot
@@ -1,20 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\$SPAD/src/interp modemap.boot}
-\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>>
--% EXTERNAL ROUTINES
@@ -371,9 +351,3 @@ putDomainsInScope(x,e) ==
$insideCapsuleFunctionIfTrue => ($CapsuleDomainsInScope:= newValue; e)
put("$DomainsInScope","special",newValue,e)
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/msg.boot.pamphlet b/src/interp/msg.boot
index ac311779..d800554a 100644
--- a/src/interp/msg.boot.pamphlet
+++ b/src/interp/msg.boot
@@ -1,20 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-
-\title{\File{src/interp/msg.boot} Pamphlet}
-\author{The Axiom Team}
-
-\begin{document}
-\maketitle
-\begin{abstract}
-\end{abstract}
-
-\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"
@@ -569,9 +549,3 @@ setMsgText (msg,val) == msg.5 := val
-@
-\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 ed5821e7..8e7434c9 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>>
c02aff() ==
htInitPage('"C02AFF - All Zeros of a Complex Polynomial",nil)
@@ -66,7 +50,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:")
@@ -104,7 +88,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 "
@@ -165,7 +149,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)
@@ -210,7 +194,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:")
@@ -244,7 +228,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: "
@@ -286,7 +270,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)
@@ -308,9 +292,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 8b49400d..ef7f9554 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>>
c05adf() ==
htInitPage('"C05ADF - Zero of continuous function in given interval, Bus and Dekker algorithm",nil)
@@ -176,10 +160,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]: "
@@ -252,10 +236,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
@@ -326,10 +310,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]: "
@@ -402,10 +386,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
@@ -416,9 +400,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 6bf1b75b..1d7b98ba 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>>
c06eaf() ==
htInitPage('"C06EAF - Single 1-D real discrete Fourier transform ",nil)
@@ -90,7 +74,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: "
@@ -133,7 +117,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)
@@ -195,7 +179,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: "
@@ -236,7 +220,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)
@@ -305,7 +289,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: "
@@ -355,7 +339,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)
@@ -439,7 +423,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} "
@@ -499,7 +483,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)
@@ -598,7 +582,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}. "
@@ -676,7 +660,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)
@@ -781,7 +765,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}. "
@@ -859,7 +843,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)
@@ -977,7 +961,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}. "
@@ -1085,7 +1069,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)
@@ -1217,7 +1201,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}. "
@@ -1328,7 +1312,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)
@@ -1413,7 +1397,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: "
@@ -1455,7 +1439,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)
@@ -1519,7 +1503,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: "
@@ -1560,7 +1544,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)
@@ -1639,7 +1623,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 "
@@ -1690,7 +1674,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)
@@ -1773,7 +1757,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 "
@@ -1824,7 +1808,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)
@@ -1846,9 +1830,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 a4b2f373..bb26e03c 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,17 +29,14 @@
-- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-@
-<<*>>=
-<<license>>
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")
@@ -124,9 +108,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")
@@ -198,9 +182,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")
@@ -290,9 +274,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")
@@ -374,9 +358,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")
@@ -464,9 +448,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")
@@ -565,9 +549,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")
@@ -645,9 +629,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")
@@ -783,7 +767,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}: "
@@ -893,7 +877,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)
@@ -920,9 +904,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")
@@ -1009,7 +993,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 "
@@ -1057,7 +1041,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)
@@ -1098,9 +1082,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")
@@ -1186,7 +1170,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 "
@@ -1234,7 +1218,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)
@@ -1278,9 +1262,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")
@@ -1351,9 +1335,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 93edfc46..6d8f5924 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>>
d02bbf() ==
htInitPage('"D02BBF - ODEs, IVP, Runge-Kutta-Merson method, over a range, intermediate output",nil)
@@ -136,11 +120,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 "
@@ -330,11 +314,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} "
@@ -517,11 +501,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} "
@@ -718,11 +702,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} "
@@ -970,11 +954,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 "
@@ -1319,11 +1303,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)} "
@@ -1665,11 +1649,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 "
@@ -1984,11 +1968,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 "
@@ -2160,9 +2144,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 19717651..b8e727b9 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>>
d03edf() ==
htInitPage('"D03EDF - Elliptic PDE, solution of finite difference equations by a multigrid technique ",nil)
@@ -202,11 +186,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)}: "
@@ -653,9 +637,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 227dabde..4cc2edad 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>>
e01baf() ==
htInitPage('"E01BAF - Interpolating functions, cubic spline interpolant, one variable", nil)
@@ -98,7 +82,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: "
@@ -148,7 +132,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)
@@ -230,7 +214,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} "
@@ -291,7 +275,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)
@@ -389,7 +373,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} "
@@ -498,7 +482,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)
@@ -609,7 +593,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} "
@@ -717,7 +701,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)
@@ -821,7 +805,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} "
@@ -904,7 +888,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)
@@ -1110,7 +1094,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)
@@ -1198,7 +1182,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} "
@@ -1406,7 +1390,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)
@@ -1524,7 +1508,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} "
@@ -1736,7 +1720,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)
@@ -1772,9 +1756,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 3d738dd1..8c661a60 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>>
e02adf() ==
htInitPage('"E02ADF - Least-squares curve fit, by polynomials, arbitrary data points", nil)
@@ -128,7 +112,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} "
@@ -225,7 +209,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)
@@ -314,7 +298,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 "
@@ -349,7 +333,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)
@@ -508,7 +492,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} "
@@ -620,7 +604,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)
@@ -793,7 +777,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
@@ -837,7 +821,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)
@@ -976,7 +960,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
@@ -1021,7 +1005,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)
@@ -1144,7 +1128,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
@@ -1186,7 +1170,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)
@@ -1297,7 +1281,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} "
@@ -1419,7 +1403,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)
@@ -1524,7 +1508,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} "
@@ -1594,7 +1578,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)
@@ -1695,7 +1679,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} "
@@ -1777,7 +1761,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)
@@ -1864,7 +1848,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} "
@@ -1948,7 +1932,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()
@@ -2081,7 +2065,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} "
@@ -2203,7 +2187,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)
@@ -2338,7 +2322,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}:"
@@ -2423,50 +2407,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)
@@ -2625,7 +2609,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
@@ -2700,50 +2684,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)
@@ -2881,7 +2865,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
@@ -2956,7 +2940,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)
@@ -3117,7 +3101,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}:"
@@ -3399,93 +3383,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)
@@ -3652,7 +3636,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
@@ -3694,7 +3678,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
@@ -3847,7 +3831,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)
@@ -4024,7 +4008,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} "
@@ -4069,7 +4053,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} "
@@ -4344,7 +4328,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)
@@ -4552,7 +4536,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)}: "
@@ -4629,7 +4613,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)
@@ -4685,9 +4669,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 d9874717..7a22ba63 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>>
-- READ THIS NOW!
--
@@ -181,7 +165,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}:"
@@ -463,93 +447,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)
@@ -716,7 +700,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
@@ -758,7 +742,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
@@ -911,7 +895,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)
@@ -1088,7 +1072,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} "
@@ -1133,7 +1117,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} "
@@ -1408,7 +1392,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)
@@ -1616,7 +1600,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)}: "
@@ -1693,7 +1677,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)
@@ -1749,9 +1733,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 7a63d8e1..a3553cdf 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>>
e04dgf() ==
htInitPage('"E04DGF - Unconstrained minimum, pre-conditioned conjugate gradient algorithm, function of several variables using 1st derivatives",nil)
@@ -155,9 +139,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]: "
@@ -216,7 +200,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
@@ -250,7 +234,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
@@ -348,7 +332,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]: "
@@ -433,12 +417,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,", ")
@@ -534,7 +518,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]: "
@@ -619,12 +603,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,", ")
@@ -736,7 +720,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]: "
@@ -805,17 +789,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
@@ -830,7 +814,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 ")
@@ -973,7 +957,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 "
@@ -1143,22 +1127,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
@@ -1187,7 +1171,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 ")
@@ -1417,7 +1401,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 "
@@ -1699,12 +1683,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
@@ -1718,22 +1702,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
@@ -1764,7 +1748,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 ")
@@ -1912,7 +1896,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 ")
@@ -2102,16 +2086,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}")
@@ -2177,24 +2161,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
@@ -2265,24 +2249,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
@@ -2334,7 +2318,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 ")
@@ -2429,7 +2413,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 "
@@ -2496,12 +2480,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,", ")
@@ -2512,9 +2496,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 7751874b..e3deaf9a 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>>
f01brf() ==
htInitPage("F01BRF - LU factorization of real sparse matrix",nil)
@@ -89,12 +73,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} ")
@@ -156,7 +140,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} ")
@@ -182,7 +166,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: "
@@ -313,7 +297,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)
@@ -481,7 +465,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} ")
@@ -506,7 +490,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: "
@@ -786,7 +770,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)
@@ -904,7 +888,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} "
@@ -955,7 +939,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)
@@ -1053,7 +1037,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} ")
@@ -1064,7 +1048,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} "
@@ -1249,7 +1233,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} ")
@@ -1257,7 +1241,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} ")
@@ -1277,7 +1261,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} "
@@ -1491,7 +1475,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 ")
@@ -1509,7 +1493,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 "
@@ -1686,7 +1670,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} ")
@@ -1697,7 +1681,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} "
@@ -1883,7 +1867,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} ")
@@ -1891,7 +1875,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} ")
@@ -1911,7 +1895,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} "
@@ -2130,7 +2114,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} ")
@@ -2148,7 +2132,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} "
@@ -2244,9 +2228,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 ccbd74f5..d532b389 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>>
f02aaf() ==
htInitPage('"F02AAF - All eigenvalues of real symmetric matrix (Black box)",nil)
@@ -98,7 +82,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} ")
@@ -109,7 +93,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} "
@@ -242,7 +226,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} ")
@@ -253,7 +237,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} "
@@ -387,7 +371,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} ")
@@ -408,7 +392,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} "
@@ -582,7 +566,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} ")
@@ -603,7 +587,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} "
@@ -767,7 +751,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} ")
@@ -778,7 +762,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} "
@@ -920,7 +904,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} ")
@@ -931,7 +915,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} "
@@ -1071,7 +1055,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} ")
@@ -1092,7 +1076,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} "
@@ -1276,7 +1260,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} ")
@@ -1297,7 +1281,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} "
@@ -1472,7 +1456,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} ")
@@ -1493,7 +1477,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} "
@@ -1677,7 +1661,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} ")
@@ -1698,7 +1682,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} "
@@ -1894,7 +1878,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} ")
@@ -1905,7 +1889,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} "
@@ -2084,7 +2068,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} ")
@@ -2105,7 +2089,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} "
@@ -2359,11 +2343,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} ")
@@ -2384,7 +2368,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} "
@@ -2606,11 +2590,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} ")
@@ -2631,7 +2615,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} "
@@ -2747,9 +2731,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 da36ae78..31950c8a 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>>
f04adf() ==
htInitPage("F04ADF - Solution of complex simultaneous linear equations, with multiple right-hand sides (Black box)",nil)
@@ -117,7 +101,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} ")
@@ -125,7 +109,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} ")
@@ -280,7 +264,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} ")
@@ -441,7 +425,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} ")
@@ -620,7 +604,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} ")
@@ -824,7 +808,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)
@@ -880,7 +864,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)
@@ -989,7 +973,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} ")
@@ -1007,7 +991,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} "
@@ -1239,7 +1223,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 ")
@@ -1253,7 +1237,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 "
@@ -1347,7 +1331,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)
@@ -2323,9 +2307,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 3de2bb32..a0551786 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>>
f07adf() ==
htInitPage('"F07ADF - {\it LU} factorization of real {\it m} by {\it n} matrix",nil)
@@ -96,11 +80,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}:"
@@ -271,7 +255,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}:"
@@ -612,7 +596,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}:"
@@ -718,9 +702,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 1e2d0486..21017e3a 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>>
s01eaf() ==
page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil)
@@ -1596,9 +1580,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/newfort.boot.pamphlet b/src/interp/newfort.boot
index b5720292..f5af06f2 100644
--- a/src/interp/newfort.boot.pamphlet
+++ b/src/interp/newfort.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp newfort.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>>
--% Translation of Expression to FORTRAN
assignment2Fortran1(name,e) ==
@@ -959,9 +943,3 @@ segment2(e,topSize) ==
newVar := newFortranTempVar()
[newVar,['"=",newVar,newE],:exprs]
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}
diff --git a/src/interp/nhyper.boot.pamphlet b/src/interp/nhyper.boot
index d0fb8051..ad10f860 100644
--- a/src/interp/nhyper.boot.pamphlet
+++ b/src/interp/nhyper.boot
@@ -1,16 +1,3 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nhyper.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>>
-- HyperTex Spad interface
@@ -133,9 +117,3 @@ HTKillPage w ==
HTErrorSignal() ==
sockSendInt($MenuServer, $SpadError)
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}