diff options
Diffstat (limited to 'src/interp')
| -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} |