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