diff --git a/changelog b/changelog index d497ed9..9f1eeee 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,7 @@ +20090901 tpd src/axiom-website/patches.html 20090901.07.tpd.patch +20090901 tpd src/interp/Makefile move nags.boot to nags.lisp +20090901 tpd src/interp/nags.lisp added, rewritten from nags.boot +20090901 tpd src/interp/nags.boot removed, rewritten to nags.lisp 20090901 tpd src/axiom-website/patches.html 20090901.06.tpd.patch 20090901 tpd src/interp/Makefile move nag-f07.boot to nag-f07.lisp 20090901 tpd src/interp/nag-f07.lisp added, rewritten from nag-f07.boot diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index e917c63..61b86d9 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -1970,5 +1970,7 @@ src/interp/nag-f02.lisp rewrite from boot to lisp
src/interp/nag-f04.lisp rewrite from boot to lisp
20090901.06.tpd.patch src/interp/nag-f07.lisp rewrite from boot to lisp
+20090901.07.tpd.patch +src/interp/nag-s.lisp rewrite from boot to lisp
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index 1969ca5..ed5fa32 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -1729,41 +1729,32 @@ ${MID}/nag-f07.lisp: ${IN}/nag-f07.lisp.pamphlet @ -\subsection{nag-s.boot \cite{57}} +\subsection{nag-s.lisp} <>= ${AUTO}/nag-s.${O}: ${OUT}/nag-s.${O} - @ echo 206 making ${AUTO}/nag-s.${O} from ${OUT}/nag-s.${O} + @ echo 154 making ${AUTO}/nag-s.${O} from ${OUT}/nag-s.${O} @ cp ${OUT}/nag-s.${O} ${AUTO} @ <>= -${OUT}/nag-s.${O}: ${MID}/nag-s.clisp - @ echo 207 making ${OUT}/nag-s.${O} from ${MID}/nag-s.clisp - @ (cd ${MID} ; \ +${OUT}/nag-s.${O}: ${MID}/nag-s.lisp + @ echo 136 making ${OUT}/nag-s.${O} from ${MID}/nag-s.lisp + @ ( cd ${MID} ; \ if [ -z "${NOISE}" ] ; then \ - echo '(progn (compile-file "${MID}/nag-s.clisp"' \ + echo '(progn (compile-file "${MID}/nag-s.lisp"' \ ':output-file "${OUT}/nag-s.${O}") (${BYE}))' | ${DEPSYS} ; \ else \ - echo '(progn (compile-file "${MID}/nag-s.clisp"' \ + echo '(progn (compile-file "${MID}/nag-s.lisp"' \ ':output-file "${OUT}/nag-s.${O}") (${BYE}))' | ${DEPSYS} \ >${TMP}/trace ; \ fi ) @ -<>= -${MID}/nag-s.clisp: ${IN}/nag-s.boot.pamphlet - @ echo 208 making ${MID}/nag-s.clisp from ${IN}/nag-s.boot.pamphlet +<>= +${MID}/nag-s.lisp: ${IN}/nag-s.lisp.pamphlet + @ echo 137 making ${MID}/nag-s.lisp from ${IN}/nag-s.lisp.pamphlet @ (cd ${MID} ; \ - ${TANGLE} ${IN}/nag-s.boot.pamphlet >nag-s.boot ; \ - if [ -z "${NOISE}" ] ; then \ - echo '(progn (boot::reroot "${SPAD}")' \ - '(boottran::boottocl "nag-s.boot") (${BYE}))' | ${DEPSYS} ; \ - else \ - echo '(progn (boot::reroot "${SPAD}")' \ - '(boottran::boottocl "nag-s.boot") (${BYE}))' | ${DEPSYS} \ - >${TMP}/trace ; \ - fi ; \ - rm nag-s.boot ) + ${TANGLE} ${IN}/nag-s.lisp.pamphlet >nag-s.lisp ) @ @@ -4653,7 +4644,7 @@ clean: <> <> -<> +<> <> <> diff --git a/src/interp/nag-s.boot.pamphlet b/src/interp/nag-s.boot.pamphlet deleted file mode 100644 index 1e2d048..0000000 --- a/src/interp/nag-s.boot.pamphlet +++ /dev/null @@ -1,1604 +0,0 @@ -\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} -<>= --- 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. - -@ -<<*>>= -<> - -s01eaf() == - page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs01eaf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s01eaf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Evaluates the exponential function, exp(z), for complex z. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "-0.5" x F)) - (text . "\tab{34} ") - (bcStrings (10 "2.0" y F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's01eafGen) - htShowPage() - -s01eafGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC('"s01eaf(complex(",x,",",y,"),",STRINGIMAGE ifail,")") - - - -s13aaf() == - page := htInitPage("S13AAF - Exponential integral \htbitmap{s13aaf2}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs13aaf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13aaf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the exponential integral \vspace{-32} ") - (text . "\htbitmap{s13aaf1} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "2.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s13aaf") - htShowPage() - -s13acf() == - page := htInitPage("S13ACF - Cosine integral {\em Ci(x)} ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs13acf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13acf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the cosine integral \space{1} ") - (text . "\htbitmap{s13acf} ") - (text . ", where \gamma denotes Euler's constant. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.2" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s13acf") - htShowPage() - -s13adf() == - page := htInitPage("S13ADF - Sine integral Si(x) ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs13adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the sine integral \space{1} \vspace{-32} ") - (text . "\inputbitmap{\htbmdir{}/s13adf.bitmap} \vspace{-37}. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.2" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s13adf") - htShowPage() - -s14aaf() == - page := htInitPage("S14AAF - Gamma Function \Gamma(x) ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs14aaf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14aaf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the gamma function, {\em Gamma(x)}. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "1.25" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s14aaf") - htShowPage() - -s14abf() == - page := htInitPage("S14ABF - Log Gamma Function \Gamma(x) ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs14abf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14abf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the logarithm of the gamma function, ") - (text . "{\em ln Gamma(x)}. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "1.25" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s14abf") - htShowPage() - -s14baf() == - htInitPage("S14BAF - Incomplete Gamma Functions P(a,x) & Q(a,x)",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs14baf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14baf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the incomplete gamma functions, \space{1} ") - (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s14baf.bitmap} \vspace{-37}, ") - (text . "which are normalised such that P(a,x) + Q(a,x) = 1. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\blankline ") - (text . "\newline \menuitemstyle{}\tab{2} ") - (text . "Enter the value of {\em a}: > 0.0") - (text . "\tab{32} \menuitemstyle{}\tab{34} ") - (text . "Enter the value of {\em x}: >= 0.0 ") - (text . "\newline\tab{2} ") - (bcStrings (10 "2.0" a F)) - (text . "\tab{34} ") - (bcStrings (10 "3.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the tolerance:") - (text . "\newline\tab{2} ") - (bcStrings (30 "1.1102230246251600E-16" tol F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's14bafGen) - htShowPage() - -s14bafGen htPage == - a := htpLabelInputString(htPage,'a) - x := htpLabelInputString(htPage,'x) - tol := htpLabelInputString(htPage,'tol) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC('"s14baf(",a,",",x,",",tol,",",STRINGIMAGE ifail,")") - -s15adf() == - page := htInitPage("S15ADF - Complement of error function erfc x",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs15adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the complementary gamma functions, erfc x = ") - (text . "\space{1} \vspace{-32} \inputbitmap{\htbmdir{}/s15adf.bitmap} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-10.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s15adf") - htShowPage() - -s15aef() == - page := htInitPage("S15AEF - Error Function erf x", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs15aef} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15aef| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the error function, erf x = \space{1} ") - (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s15aef.bitmap} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-6.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s15aef") - htShowPage() - -s17acf() == - page := htInitPage("S17ACF - Bessel Function \space{1} \htbitmap{s17acf}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17acf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17acf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Bessel function \space{1} \htbitmap{s17acf}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17acf") - htShowPage() - -s17adf() == - page := htInitPage("S17ADF - Bessel Function \space{1} \htbitmap{s17adf}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Bessel function \space{1} \htbitmap{s17adf}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17adf") - htShowPage() - -s17aef() == - page := htInitPage("S17AEF - Bessel Function \space{1} \htbitmap{s17aef}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17aef} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aef| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Bessel function \space{1}") - (text . "\htbitmap{s17aef}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17aef") - htShowPage() - -s17aff() == - page := htInitPage("S17AFF - Bessel Function \space{1} \htbitmap{s17aff}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17aff} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aff| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Bessel function \space{1} \htbitmap{s17aff}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17aff") - htShowPage() - -s17agf() == - page := htInitPage("S17AGF - Airy Function {\em Ai(x)}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17agf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17agf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Airy function {\em Ai(x)} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-10.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17agf") - htShowPage() - -s17ahf() == - page := htInitPage("S17AHF - Airy Function {\em Bi(x)}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17ahf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ahf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Airy function {\em Bi(x)} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-10.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17ahf") - htShowPage() - -s17ajf() == - page := htInitPage("S17AJF - Airy Function {\em Ai'(x)}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17ajf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ajf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates {\em Ai'(x)}, ") - (text . "the derivative of the Airy function Ai(x) ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-10.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17ajf") - htShowPage() - -s17akf() == - page := htInitPage("S17AKF - Airy Function {\em Bi'(x)}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs17akf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17akf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates {\em Bi'(x)}, ") - (text . "the derivative of the Airy function Bi(x) ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "-10.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s17akf") - htShowPage() - -s17dcf() == - htInitPage('"S17DCF - Bessel function \htbitmap{s17dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs17dcf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dcf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Returns a sequence of values for the Bessel functions ") - (text . "\htbitmap{s17dcf}, for complex z, non-negative v ") - (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Order v of the first member of the sequence of functions ") - (text . "{\it FNU} \htbitmap{great=} 0:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.0" fnu F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Number of members required in sequence {\it N} ") - (text . "\htbitmap{great=} 1:") - (text . "\newline \tab{2} ") - (bcStrings (10 2 n PI)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's17dcfGen) - htShowPage() - - -s17dcfGen htPage == - n := - $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) - objValUnwrap htpLabelSpadValue(htPage, 'n) - fnu := htpLabelInputString(htPage,'fnu) - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s17dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) - prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - -s17def() == - htInitPage('"S17DEF - Bessel function \htbitmap{s17def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs17def} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17def| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Returns a sequence of values for the Bessel functions ") - (text . "\htbitmap{s17def}, for complex z, non-negative v ") - (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Order v of the first member of the sequence of functions ") - (text . "{\it FNU} \htbitmap{great=} 0:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.0" fnu F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Number of members required in sequence {\it N} ") - (text . "\htbitmap{great=} 1:") - (text . "\newline \tab{2} ") - (bcStrings (10 2 n PI)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's17defGen) - htShowPage() - - -s17defGen htPage == - n := - $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) - objValUnwrap htpLabelSpadValue(htPage, 'n) - fnu := htpLabelInputString(htPage,'fnu) - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s17def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) - prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - - -s17dgf() == - htInitPage('"S17DGF - Airy functions {\em Ai(z)} and {\em Ai'(z)} ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs17dgf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dgf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Evaluates the Airy function Ai(z) or its derivative Ai'(z), ") - (text . "for complex z, with an option for exponential scaling. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Function or derivative required: ") - (radioButtons deriv - ("" " Function" f) - ("" " Derivative" d)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's17dgfGen) - htShowPage() - - -s17dgfGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - ford := htpButtonValue(htPage,'deriv) - deriv := - ford = 'f => '"f" - '"d" - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s17dgf(_"",deriv,"_",complex(",x,",",y,"),_"") - prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - -s17dhf() == - htInitPage('"S17DHF - Airy functions {\em Bi(z)} and {\em Bi'(z)} ",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs17dhf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dhf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Evaluates the Airy function Bi(z) or its derivative Bi'(z), ") - (text . "for complex z, with an option for exponential scaling. ") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Function or derivative required: ") - (radioButtons deriv - ("" " Function" f) - ("" " Derivative" d)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's17dhfGen) - htShowPage() - - -s17dhfGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - ford := htpButtonValue(htPage,'deriv) - deriv := - ford = 'f => '"f" - '"d" - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s17dhf(_"",deriv,"_",complex(",x,",",y,"),_"") - prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - - -s17dlf() == - htInitPage('"S17DLF - Hankel function \vspace{-28} \htbitmap{s17dlf} \vspace{-37}, j = 1,2, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs17dlf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dlf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Returns a sequence of values for the Hankel functions ") - (text . "\htbitmap{s17dlf}, j = 1,2, for complex z, ") - (text . "non-negative v ") - (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Order v of the first member of the sequence of functions ") - (text . "{\it FNU} \htbitmap{great=} 0:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.0" fnu F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Number of members required in sequence {\it N} ") - (text . "\htbitmap{great=} 1:") - (text . "\newline \tab{2} ") - (bcStrings (10 2 n PI)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Hankel function {\it m}: ") - (radioButtons hankel - ("" " \htbitmap{s17dlf1}" mone) - ("" " \htbitmap{s17dlf2}" mtwo)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's17dlfGen) - htShowPage() - - -s17dlfGen htPage == - n := - $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) - objValUnwrap htpLabelSpadValue(htPage, 'n) - fnu := htpLabelInputString(htPage,'fnu) - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - hankel := htpButtonValue(htPage,'hankel) - m := - hankel = 'mone => '1 - '2 - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s17dlf(",STRINGIMAGE m,", ",fnu,",complex(") - prefix := STRCONC(prefix,x,",",y,"),",STRINGIMAGE n) - prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - - -s18acf() == - page := htInitPage("S18ACF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18acf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs18acf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18acf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") - (text . "\inputbitmap{\htbmdir{}/s18acf.bitmap} \vspace{-40}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.4" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s18acf") - htShowPage() - -s18adf() == - page := htInitPage("S18ADF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18adf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs18adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") - (text . "\inputbitmap{\htbmdir{}/s18adf.bitmap} \vspace{-40}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.4" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s18adf") - htShowPage() - -s18aef() == - page := htInitPage("S18AeF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aef1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs18aef} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aef| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") - (text . "\inputbitmap{\htbmdir{}/s18aef.bitmap} \vspace{-40}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s18aef") - htShowPage() - -s18aff() == - page := htInitPage("S18AFF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aff1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs18aff} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aff| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") - (text . "\inputbitmap{\htbmdir{}/s18aff.bitmap} \vspace{-40}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s18aff") - htShowPage() - -s18dcf() == - htInitPage('"S18DCF - Bessel function \htbitmap{s18dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs18dcf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18dcf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Returns a sequence of values for the modified Bessel functions ") - (text . "\htbitmap{s18dcf}, for complex z, non-negative v ") - (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Order v of the first member of the sequence of functions ") - (text . "{\it FNU} \htbitmap{great=} 0:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.0" fnu F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Number of members required in sequence {\it N} ") - (text . "\htbitmap{great=} 1:") - (text . "\newline \tab{2} ") - (bcStrings (10 2 n PI)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's18dcfGen) - htShowPage() - - -s18dcfGen htPage == - n := - $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) - objValUnwrap htpLabelSpadValue(htPage, 'n) - fnu := htpLabelInputString(htPage,'fnu) - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s18dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) - prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - -s18def() == - htInitPage('"S18DEF - Modified bessel function \htbitmap{s18def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) - htMakePage '( - (domainConditions - (isDomain F (Float)) - (isDomain PI (PositiveInteger))) - (text . "\windowlink{Manual Page}{manpageXXs18def} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18def| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\newline ") - (text . "Returns a sequence of values for the modified Bessel functions ") - (text . "\htbitmap{s18def}, for complex z, non-negative v ") - (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Order v of the first member of the sequence of functions ") - (text . "{\it FNU} \htbitmap{great=} 0:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.0" fnu F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Real part of {\it z}:") - (text . "\tab{32} \menuitemstyle{}\tab{34}") - (text . "Imaginary part of {\it z}:") - (text . "\newline \tab{2} ") - (bcStrings (10 "0.3" x F)) - (text . "\tab{34} ") - (bcStrings (10 "-0.4" y F)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Number of members required in sequence {\it N} ") - (text . "\htbitmap{great=} 1:") - (text . "\newline \tab{2} ") - (bcStrings (10 2 n PI)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Scaling option: ") - (radioButtons scale - ("" " Unscaled" u) - ("" " Scaled" s)) - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{} \tab{2} ") - (text . "\newline \tab{2} ") - (text . "Ifail value: ") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's18defGen) - htShowPage() - - -s18defGen htPage == - n := - $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) - objValUnwrap htpLabelSpadValue(htPage, 'n) - fnu := htpLabelInputString(htPage,'fnu) - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - uors := htpButtonValue(htPage,'scale) - scale := - uors = 'u => '"u" - '"s" - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - prefix := STRCONC('"s18def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) - prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") - linkGen prefix - - -s19aaf() == - page := htInitPage("S19AAF - Kelvin Function {\em ber x}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs19aaf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19aaf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Kelvin function {\em ber x}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "1.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s19aaf") - htShowPage() - -s19abf() == - page := htInitPage("S19ABF - Kelvin Function {\em bei x}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs19abf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19abf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Kelvin function {\em bei x}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.1" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s19abf") - htShowPage() - -s19acf() == - page := htInitPage("S19ACF - Kelvin Function {\em ker x}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs19acf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19acf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Kelvin function {\em ker x}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x > 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.1" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s19acf") - htShowPage() - -s19adf() == - page := htInitPage("S19AAF - Kelvin Function {\em kei x}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs19adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Kelvin function {\em kei x}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x \inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.0" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s19adf") - htShowPage() - -s20acf() == - page := htInitPage("S20ACF - Fresnel Integral {\em S(x)}",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs20acf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20acf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Fresnel Integral {\em S(x)}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s20acf") - htShowPage() - -s20adf() == - page := htInitPage("S20ADF - Fresnel Integral {\em C(x)}",nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs20adf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20adf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the Fresnel Integral {\em C(x)}") - (text . "\blankline ") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument x: ") - (text . "\newline\tab{2} ") - (bcStrings (9 "0.5" x F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 'sGen) - htpSetProperty(page,'routine,"s20adf") - htShowPage() - -s21baf() == - htInitPage("S21BAF - Degenerate Symmetrised Elliptic Integral of 1st Kind \vspace{-28} \inputbitmap{\htbmdir{}/s21baf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs21baf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21baf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the elementary (degenerate symmetrised elliptic) ") - (text . " integral \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21baf.bitmap} ") - (text . "\blankline ") - (text . "\newline ") - (text . "\blankline ") - (text . "\newline \menuitemstyle{}\tab{2} ") - (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\tab{32} \menuitemstyle{}\tab{34} ") - (text . "Enter the argument y \notequal 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (10 "0.5" x F)) - (text . "\tab{34} ") - (bcStrings (10 "1.0" y F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's21bafGen) - htShowPage() - -s21bafGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC("s21baf(",x,'",",y,",",STRINGIMAGE ifail,'")") - -s21bbf() == - htInitPage("S21BBF - Symmetrised Elliptic Integral of 1st Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs21bbf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bbf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the symmetrised elliptic integral of the first kind ") - (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf.bitmap} ") - (text . "\newline ") - (text . "\blankline ") - (text . "\newline \menuitemstyle{}\tab{2} ") - (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\tab{32} \menuitemstyle{}\tab{34} ") - (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (10 "0.5" x F)) - (text . "\tab{34} ") - (bcStrings (10 "1.0" y F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ") - (text . "at most one of x,y and z may be equal to 0.0: \newline \tab{2}") - (bcStrings (10 "1.5" z F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's21bbfGen) - htShowPage() - -s21bbfGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - z := htpLabelInputString(htPage,'z) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC("s21bbf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")") - -s21bcf() == - htInitPage("S21BCF - Symmetrised Elliptic Integral of 2nd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs21bcf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bcf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the symmetrised elliptic integral of the second kind ") - (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf.bitmap} ") - (text . "\newline ") - (text . "\blankline ") - (text . "\newline \menuitemstyle{}\tab{2} ") - (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\tab{32} \menuitemstyle{}\tab{34} ") - (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (10 "0.5" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.5" y F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument z > 0.0; ") - (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}") - (bcStrings (10 "1.0" z F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's21bcfGen) - htShowPage() - -s21bcfGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - z := htpLabelInputString(htPage,'z) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC("s21bcf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")") - -s21bdf() == - htInitPage("S21BDF - Symmetrised Elliptic Integral of 3rd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf1.bitmap}", nil) - htMakePage '( - (domainConditions - (isDomain F (Float))) - (text . "\windowlink{Manual Page}{manpageXXs21bdf} for this routine ") - (text . "\newline ") - (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bdf| '|NagSpecialFunctionsPackage|)} for this routine") - (text . "\newline \horizontalline ") - (text . "\blankline ") - (text . "Evaluates the symmetrised elliptic integral of the third kind ") - (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf.bitmap} ") - (text . "\newline ") - (text . "\blankline ") - (text . "\newline \menuitemstyle{}\tab{2} ") - (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\tab{32} \menuitemstyle{}\tab{34} ") - (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") - (text . "\newline\tab{2} ") - (bcStrings (10 "0.5" x F)) - (text . "\tab{34} ") - (bcStrings (10 "0.5" y F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ") - (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}") - (bcStrings (10 "0.5" z F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Enter the argument \rho \notequal 0.0: \newline \tab{2} ") - (bcStrings (10 "2.0" r F)) - (text . "\blankline") - (text . "\newline ") - (text . "\menuitemstyle{}\tab{2}") - (text . "Ifail value:") - (radioButtons ifail - ("" " -1, Print error messages" minusOne) - ("" " 1, Suppress error messages" one))) - htMakeDoneButton('"Continue", 's21bdfGen) - htShowPage() - -s21bdfGen htPage == - x := htpLabelInputString(htPage,'x) - y := htpLabelInputString(htPage,'y) - z := htpLabelInputString(htPage,'z) - r := htpLabelInputString(htPage,'r) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC("s21bdf(",x,'",",y,",",z,",",r,",",STRINGIMAGE ifail,'")") - -sGen htPage == - routine := htpProperty(htPage,'routine) - x := htpLabelInputString(htPage,'x) - error := htpButtonValue(htPage,'ifail) - ifail := - error = 'one => 1 - -1 - linkGen STRCONC(routine,"(",x,'",",STRINGIMAGE ifail,'")") - -@ -\eject -\begin{thebibliography}{99} -\bibitem{1} nothing -\end{thebibliography} -\end{document} diff --git a/src/interp/nag-s.lisp.pamphlet b/src/interp/nag-s.lisp.pamphlet new file mode 100644 index 0000000..aa36a0d --- /dev/null +++ b/src/interp/nag-s.lisp.pamphlet @@ -0,0 +1,3386 @@ +\documentclass{article} +\usepackage{axiom} +\begin{document} +\title{\$SPAD/src/interp nag-s.lisp} +\author{The Axiom Team} +\maketitle +\begin{abstract} +\end{abstract} +\eject +\tableofcontents +\eject +<<*>>= +(IN-PACKAGE "BOOT" ) + +;s01eaf() == +; page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs01eaf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s01eaf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Evaluates the exponential function, exp(z), for complex z. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "-0.5" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "2.0" y F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's01eafGen) +; htShowPage() + +(DEFUN |s01eaf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S01EAF - Complex exponential {\\em exp(z)} | + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs01eaf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s01eaf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Evaluates the exponential function, exp(z), for complex z. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "-0.5" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "2.0" |y| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s01eafGen|) + (|htShowPage|))))) + +;s01eafGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC('"s01eaf(complex(",x,",",y,"),",STRINGIMAGE ifail,")") + +(DEFUN |s01eafGen| (|htPage|) + (PROG (|x| |y| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC (MAKESTRING "s01eaf(complex(") |x| '|,| |y| '|),| + (STRINGIMAGE |ifail|) '|)|)))))) + +;s13aaf() == +; page := htInitPage("S13AAF - Exponential integral \htbitmap{s13aaf2}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs13aaf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13aaf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the exponential integral \vspace{-32} ") +; (text . "\htbitmap{s13aaf1} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "2.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s13aaf") +; htShowPage() + +(DEFUN |s13aaf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S13AAF - Exponential integral \\htbitmap{s13aaf2}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs13aaf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13aaf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the exponential integral \\vspace{-32} ") + (|text| . "\\htbitmap{s13aaf1} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "2.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s13aaf|) + (|htShowPage|))))) + +;s13acf() == +; page := htInitPage("S13ACF - Cosine integral {\em Ci(x)} ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs13acf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13acf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the cosine integral \space{1} ") +; (text . "\htbitmap{s13acf} ") +; (text . ", where \gamma denotes Euler's constant. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.2" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s13acf") +; htShowPage() + +(DEFUN |s13acf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S13ACF - Cosine integral {\\em Ci(x)} | NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs13acf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13acf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the cosine integral \\space{1} ") + (|text| . "\\htbitmap{s13acf} ") + (|text| . ", where \\gamma denotes Euler's constant. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.2" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s13acf|) + (|htShowPage|))))) + +;s13adf() == +; page := htInitPage("S13ADF - Sine integral Si(x) ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs13adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the sine integral \space{1} \vspace{-32} ") +; (text . "\inputbitmap{\htbmdir{}/s13adf.bitmap} \vspace{-37}. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.2" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s13adf") +; htShowPage() + +(DEFUN |s13adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S13ADF - Sine integral Si(x) | NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs13adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the sine integral \\space{1} \\vspace{-32} ") + (|text| + . "\\inputbitmap{\\htbmdir{}/s13adf.bitmap} \\vspace{-37}. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.2" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s13adf|) + (|htShowPage|))))) + +;s14aaf() == +; page := htInitPage("S14AAF - Gamma Function \Gamma(x) ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs14aaf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14aaf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the gamma function, {\em Gamma(x)}. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "1.25" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s14aaf") +; htShowPage() + +(DEFUN |s14aaf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S14AAF - Gamma Function \\Gamma(x) | + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs14aaf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14aaf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the gamma function, {\\em Gamma(x)}. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "1.25" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s14aaf|) + (|htShowPage|))))) + +;s14abf() == +; page := htInitPage("S14ABF - Log Gamma Function \Gamma(x) ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs14abf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14abf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the logarithm of the gamma function, ") +; (text . "{\em ln Gamma(x)}. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "1.25" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s14abf") +; htShowPage() + +(DEFUN |s14abf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S14ABF - Log Gamma Function \\Gamma(x) | NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs14abf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14abf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the logarithm of the gamma function, ") + (|text| . "{\\em ln Gamma(x)}. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "1.25" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s14abf|) + (|htShowPage|))))) + +;s14baf() == +; htInitPage("S14BAF - Incomplete Gamma Functions P(a,x) & Q(a,x)",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs14baf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14baf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the incomplete gamma functions, \space{1} ") +; (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s14baf.bitmap} \vspace{-37}, ") +; (text . "which are normalised such that P(a,x) + Q(a,x) = 1. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\blankline ") +; (text . "\newline \menuitemstyle{}\tab{2} ") +; (text . "Enter the value of {\em a}: > 0.0") +; (text . "\tab{32} \menuitemstyle{}\tab{34} ") +; (text . "Enter the value of {\em x}: >= 0.0 ") +; (text . "\newline\tab{2} ") +; (bcStrings (10 "2.0" a F)) +; (text . "\tab{34} ") +; (bcStrings (10 "3.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the tolerance:") +; (text . "\newline\tab{2} ") +; (bcStrings (30 "1.1102230246251600E-16" tol F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's14bafGen) +; htShowPage() + +(DEFUN |s14baf| () + (PROGN + (|htInitPage| + '|S14BAF - Incomplete Gamma Functions P(a,x) & Q(a,x)| NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs14baf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14baf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the incomplete gamma functions, \\space{1} ") + (|text| + . "\\vspace{-32} \\inputbitmap{\\htbmdir{}/s14baf.bitmap} \\vspace{-37}, ") + (|text| + . "which are normalised such that P(a,x) + Q(a,x) = 1. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\blankline ") + (|text| . "\\newline \\menuitemstyle{}\\tab{2} ") + (|text| . "Enter the value of {\\em a}: > 0.0") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34} ") + (|text| . "Enter the value of {\\em x}: >= 0.0 ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (10 "2.0" |a| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "3.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the tolerance:") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (30 "1.1102230246251600E-16" |tol| F)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s14bafGen|) + (|htShowPage|))) + +;s14bafGen htPage == +; a := htpLabelInputString(htPage,'a) +; x := htpLabelInputString(htPage,'x) +; tol := htpLabelInputString(htPage,'tol) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC('"s14baf(",a,",",x,",",tol,",",STRINGIMAGE ifail,")") + +(DEFUN |s14bafGen| (|htPage|) + (PROG (|a| |x| |tol| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |a| (|htpLabelInputString| |htPage| '|a|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |tol| (|htpLabelInputString| |htPage| '|tol|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC (MAKESTRING "s14baf(") |a| '|,| |x| '|,| |tol| + '|,| (STRINGIMAGE |ifail|) '|)|)))))) + +;s15adf() == +; page := htInitPage("S15ADF - Complement of error function erfc x",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs15adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the complementary gamma functions, erfc x = ") +; (text . "\space{1} \vspace{-32} \inputbitmap{\htbmdir{}/s15adf.bitmap} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-10.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s15adf") +; htShowPage() + +(DEFUN |s15adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S15ADF - Complement of error function erfc x| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs15adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the complementary gamma functions, erfc x = ") + (|text| + . "\\space{1} \\vspace{-32} \\inputbitmap{\\htbmdir{}/s15adf.bitmap} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-10.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s15adf|) + (|htShowPage|))))) + +;s15aef() == +; page := htInitPage("S15AEF - Error Function erf x", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs15aef} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15aef| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the error function, erf x = \space{1} ") +; (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s15aef.bitmap} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-6.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s15aef") +; htShowPage() + +(DEFUN |s15aef| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S15AEF - Error Function erf x| NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs15aef} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15aef| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the error function, erf x = \\space{1} ") + (|text| + . "\\vspace{-32} \\inputbitmap{\\htbmdir{}/s15aef.bitmap} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-6.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s15aef|) + (|htShowPage|))))) + +;s17acf() == +; page := htInitPage("S17ACF - Bessel Function \space{1} \htbitmap{s17acf}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17acf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17acf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Bessel function \space{1} \htbitmap{s17acf}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17acf") +; htShowPage() + +(DEFUN |s17acf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S17ACF - Bessel Function \\space{1} \\htbitmap{s17acf}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17acf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17acf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the Bessel function \\space{1} \\htbitmap{s17acf}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17acf|) + (|htShowPage|))))) + +;s17adf() == +; page := htInitPage("S17ADF - Bessel Function \space{1} \htbitmap{s17adf}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Bessel function \space{1} \htbitmap{s17adf}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17adf") +; htShowPage() + +(DEFUN |s17adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S17ADF - Bessel Function \\space{1} \\htbitmap{s17adf}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the Bessel function \\space{1} \\htbitmap{s17adf}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17adf|) + (|htShowPage|))))) + +;s17aef() == +; page := htInitPage("S17AEF - Bessel Function \space{1} \htbitmap{s17aef}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17aef} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aef| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Bessel function \space{1}") +; (text . "\htbitmap{s17aef}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17aef") +; htShowPage() + +(DEFUN |s17aef| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S17AEF - Bessel Function \\space{1} \\htbitmap{s17aef}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17aef} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aef| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Bessel function \\space{1}") + (|text| . "\\htbitmap{s17aef}") (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17aef|) + (|htShowPage|))))) + +;s17aff() == +; page := htInitPage("S17AFF - Bessel Function \space{1} \htbitmap{s17aff}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17aff} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aff| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Bessel function \space{1} \htbitmap{s17aff}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17aff") +; htShowPage() + +(DEFUN |s17aff| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S17AFF - Bessel Function \\space{1} \\htbitmap{s17aff}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17aff} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aff| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the Bessel function \\space{1} \\htbitmap{s17aff}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17aff|) + (|htShowPage|))))) + +;s17agf() == +; page := htInitPage("S17AGF - Airy Function {\em Ai(x)}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17agf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17agf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Airy function {\em Ai(x)} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-10.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17agf") +; htShowPage() + +(DEFUN |s17agf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S17AGF - Airy Function {\\em Ai(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17agf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17agf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Airy function {\\em Ai(x)} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-10.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17agf|) + (|htShowPage|))))) + +;s17ahf() == +; page := htInitPage("S17AHF - Airy Function {\em Bi(x)}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17ahf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ahf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Airy function {\em Bi(x)} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-10.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17ahf") +; htShowPage() + +(DEFUN |s17ahf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S17AHF - Airy Function {\\em Bi(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17ahf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ahf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Airy function {\\em Bi(x)} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-10.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17ahf|) + (|htShowPage|))))) + +;s17ajf() == +; page := htInitPage("S17AJF - Airy Function {\em Ai'(x)}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17ajf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ajf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates {\em Ai'(x)}, ") +; (text . "the derivative of the Airy function Ai(x) ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-10.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17ajf") +; htShowPage() + +(DEFUN |s17ajf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S17AJF - Airy Function {\\em Ai'(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17ajf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ajf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates {\\em Ai'(x)}, ") + (|text| . "the derivative of the Airy function Ai(x) ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-10.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17ajf|) + (|htShowPage|))))) + +;s17akf() == +; page := htInitPage("S17AKF - Airy Function {\em Bi'(x)}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs17akf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17akf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates {\em Bi'(x)}, ") +; (text . "the derivative of the Airy function Bi(x) ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "-10.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s17akf") +; htShowPage() + +(DEFUN |s17akf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S17AKF - Airy Function {\\em Bi'(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17akf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17akf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates {\\em Bi'(x)}, ") + (|text| . "the derivative of the Airy function Bi(x) ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "-10.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s17akf|) + (|htShowPage|))))) + +;s17dcf() == +; htInitPage('"S17DCF - Bessel function \htbitmap{s17dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs17dcf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dcf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Returns a sequence of values for the Bessel functions ") +; (text . "\htbitmap{s17dcf}, for complex z, non-negative v ") +; (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Order v of the first member of the sequence of functions ") +; (text . "{\it FNU} \htbitmap{great=} 0:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.0" fnu F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Number of members required in sequence {\it N} ") +; (text . "\htbitmap{great=} 1:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 2 n PI)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's17dcfGen) +; htShowPage() + +(DEFUN |s17dcf| () + (PROGN + (|htInitPage| + (MAKESTRING + "S17DCF - Bessel function \\htbitmap{s17dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17dcf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dcf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Returns a sequence of values for the Bessel functions ") + (|text| + . "\\htbitmap{s17dcf}, for complex z, non-negative v ") + (|text| + . "and n = 0,1,...,N-1, with an option for exponential scaling.") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Order v of the first member of the sequence of functions ") + (|text| . "{\\it FNU} \\htbitmap{great=} 0:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.0" |fnu| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Number of members required in sequence {\\it N} ") + (|text| . "\\htbitmap{great=} 1:") + (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 2 |n| PI)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dcfGen|) + (|htShowPage|))) + +;s17dcfGen htPage == +; n := +; $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) +; objValUnwrap htpLabelSpadValue(htPage, 'n) +; fnu := htpLabelInputString(htPage,'fnu) +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s17dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) +; prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s17dcfGen| (|htPage|) + (PROG (|n| |fnu| |x| |y| |uors| |scale| |error| |ifail| |prefix|) + (declare (special |$bcParseOnly|)) + (RETURN + (PROGN + (SPADLET |n| + (COND + (|$bcParseOnly| + (PARSE-INTEGER + (|htpLabelInputString| |htPage| '|n|))) + ('T + (|objValUnwrap| + (|htpLabelSpadValue| |htPage| '|n|))))) + (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s17dcf(") |fnu| '|,complex(| |x| + '|,| |y| '|),| (STRINGIMAGE |n|))) + (SPADLET |prefix| + (STRCONC |prefix| '|,"| |scale| '|", | + (STRINGIMAGE |ifail|) '|)|)) + (|linkGen| |prefix|))))) + +;s17def() == +; htInitPage('"S17DEF - Bessel function \htbitmap{s17def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs17def} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17def| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Returns a sequence of values for the Bessel functions ") +; (text . "\htbitmap{s17def}, for complex z, non-negative v ") +; (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Order v of the first member of the sequence of functions ") +; (text . "{\it FNU} \htbitmap{great=} 0:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.0" fnu F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Number of members required in sequence {\it N} ") +; (text . "\htbitmap{great=} 1:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 2 n PI)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's17defGen) +; htShowPage() + +(DEFUN |s17def| () + (PROGN + (|htInitPage| + (MAKESTRING + "S17DEF - Bessel function \\htbitmap{s17def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17def} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17def| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Returns a sequence of values for the Bessel functions ") + (|text| + . "\\htbitmap{s17def}, for complex z, non-negative v ") + (|text| + . "and n = 0,1,...,N-1, with an option for exponential scaling.") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Order v of the first member of the sequence of functions ") + (|text| . "{\\it FNU} \\htbitmap{great=} 0:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.0" |fnu| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Number of members required in sequence {\\it N} ") + (|text| . "\\htbitmap{great=} 1:") + (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 2 |n| PI)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s17defGen|) + (|htShowPage|))) + +;s17defGen htPage == +; n := +; $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) +; objValUnwrap htpLabelSpadValue(htPage, 'n) +; fnu := htpLabelInputString(htPage,'fnu) +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s17def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) +; prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s17defGen| (|htPage|) + (PROG (|n| |fnu| |x| |y| |uors| |scale| |error| |ifail| |prefix|) + (declare (special |$bcParseOnly|)) + (RETURN + (PROGN + (SPADLET |n| + (COND + (|$bcParseOnly| + (PARSE-INTEGER + (|htpLabelInputString| |htPage| '|n|))) + ('T + (|objValUnwrap| + (|htpLabelSpadValue| |htPage| '|n|))))) + (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s17def(") |fnu| '|,complex(| |x| + '|,| |y| '|),| (STRINGIMAGE |n|))) + (SPADLET |prefix| + (STRCONC |prefix| '|,"| |scale| '|", | + (STRINGIMAGE |ifail|) '|)|)) + (|linkGen| |prefix|))))) + +;s17dgf() == +; htInitPage('"S17DGF - Airy functions {\em Ai(z)} and {\em Ai'(z)} ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs17dgf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dgf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Evaluates the Airy function Ai(z) or its derivative Ai'(z), ") +; (text . "for complex z, with an option for exponential scaling. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Function or derivative required: ") +; (radioButtons deriv +; ("" " Function" f) +; ("" " Derivative" d)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's17dgfGen) +; htShowPage() + +(DEFUN |s17dgf| () + (PROGN + (|htInitPage| + (MAKESTRING + "S17DGF - Airy functions {\\em Ai(z)} and {\\em Ai'(z)} ") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17dgf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dgf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Evaluates the Airy function Ai(z) or its derivative Ai'(z), ") + (|text| + . "for complex z, with an option for exponential scaling. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Function or derivative required: ") + (|radioButtons| |deriv| ("" " Function" |f|) + ("" " Derivative" |d|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dgfGen|) + (|htShowPage|))) + +;s17dgfGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; ford := htpButtonValue(htPage,'deriv) +; deriv := +; ford = 'f => '"f" +; '"d" +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s17dgf(_"",deriv,"_",complex(",x,",",y,"),_"") +; prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s17dgfGen| (|htPage|) + (PROG (|x| |y| |ford| |deriv| |uors| |scale| |error| |ifail| + |prefix|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) + (SPADLET |deriv| + (COND + ((BOOT-EQUAL |ford| '|f|) (MAKESTRING "f")) + ('T (MAKESTRING "d")))) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s17dgf(\"") |deriv| + '|",complex(| |x| '|,| |y| '|),"|)) + (SPADLET |prefix| + (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) + '|)|)) + (|linkGen| |prefix|))))) + +;s17dhf() == +; htInitPage('"S17DHF - Airy functions {\em Bi(z)} and {\em Bi'(z)} ",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs17dhf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dhf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Evaluates the Airy function Bi(z) or its derivative Bi'(z), ") +; (text . "for complex z, with an option for exponential scaling. ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Function or derivative required: ") +; (radioButtons deriv +; ("" " Function" f) +; ("" " Derivative" d)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's17dhfGen) +; htShowPage() + +(DEFUN |s17dhf| () + (PROGN + (|htInitPage| + (MAKESTRING + "S17DHF - Airy functions {\\em Bi(z)} and {\\em Bi'(z)} ") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17dhf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dhf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Evaluates the Airy function Bi(z) or its derivative Bi'(z), ") + (|text| + . "for complex z, with an option for exponential scaling. ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Function or derivative required: ") + (|radioButtons| |deriv| ("" " Function" |f|) + ("" " Derivative" |d|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dhfGen|) + (|htShowPage|))) + +;s17dhfGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; ford := htpButtonValue(htPage,'deriv) +; deriv := +; ford = 'f => '"f" +; '"d" +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s17dhf(_"",deriv,"_",complex(",x,",",y,"),_"") +; prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s17dhfGen| (|htPage|) + (PROG (|x| |y| |ford| |deriv| |uors| |scale| |error| |ifail| + |prefix|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |ford| (|htpButtonValue| |htPage| '|deriv|)) + (SPADLET |deriv| + (COND + ((BOOT-EQUAL |ford| '|f|) (MAKESTRING "f")) + ('T (MAKESTRING "d")))) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s17dhf(\"") |deriv| + '|",complex(| |x| '|,| |y| '|),"|)) + (SPADLET |prefix| + (STRCONC |prefix| |scale| '|", | (STRINGIMAGE |ifail|) + '|)|)) + (|linkGen| |prefix|))))) + +;s17dlf() == +; htInitPage('"S17DLF - Hankel function \vspace{-28} \htbitmap{s17dlf} \vspace{-37}, j = 1,2, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs17dlf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dlf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Returns a sequence of values for the Hankel functions ") +; (text . "\htbitmap{s17dlf}, j = 1,2, for complex z, ") +; (text . "non-negative v ") +; (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Order v of the first member of the sequence of functions ") +; (text . "{\it FNU} \htbitmap{great=} 0:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.0" fnu F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Number of members required in sequence {\it N} ") +; (text . "\htbitmap{great=} 1:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 2 n PI)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Hankel function {\it m}: ") +; (radioButtons hankel +; ("" " \htbitmap{s17dlf1}" mone) +; ("" " \htbitmap{s17dlf2}" mtwo)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's17dlfGen) +; htShowPage() + +(DEFUN |s17dlf| () + (PROGN + (|htInitPage| + (MAKESTRING + "S17DLF - Hankel function \\vspace{-28} \\htbitmap{s17dlf} \\vspace{-37}, j = 1,2, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs17dlf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dlf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Returns a sequence of values for the Hankel functions ") + (|text| . "\\htbitmap{s17dlf}, j = 1,2, for complex z, ") + (|text| . "non-negative v ") + (|text| + . "and n = 0,1,...,N-1, with an option for exponential scaling.") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Order v of the first member of the sequence of functions ") + (|text| . "{\\it FNU} \\htbitmap{great=} 0:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.0" |fnu| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Number of members required in sequence {\\it N} ") + (|text| . "\\htbitmap{great=} 1:") + (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 2 |n| PI)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Hankel function {\\it m}: ") + (|radioButtons| |hankel| ("" " \\htbitmap{s17dlf1}" |mone|) + ("" " \\htbitmap{s17dlf2}" |mtwo|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s17dlfGen|) + (|htShowPage|))) + +;s17dlfGen htPage == +; n := +; $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) +; objValUnwrap htpLabelSpadValue(htPage, 'n) +; fnu := htpLabelInputString(htPage,'fnu) +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; hankel := htpButtonValue(htPage,'hankel) +; m := +; hankel = 'mone => '1 +; '2 +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s17dlf(",STRINGIMAGE m,", ",fnu,",complex(") +; prefix := STRCONC(prefix,x,",",y,"),",STRINGIMAGE n) +; prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s17dlfGen| (|htPage|) + (PROG (|n| |fnu| |x| |y| |hankel| |m| |uors| |scale| |error| |ifail| + |prefix|) + (declare (special |$bcParseOnly|)) + (RETURN + (PROGN + (SPADLET |n| + (COND + (|$bcParseOnly| + (PARSE-INTEGER + (|htpLabelInputString| |htPage| '|n|))) + ('T + (|objValUnwrap| + (|htpLabelSpadValue| |htPage| '|n|))))) + (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |hankel| (|htpButtonValue| |htPage| '|hankel|)) + (SPADLET |m| (COND ((BOOT-EQUAL |hankel| '|mone|) '1) ('T '2))) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s17dlf(") (STRINGIMAGE |m|) + '|, | |fnu| '|,complex(|)) + (SPADLET |prefix| + (STRCONC |prefix| |x| '|,| |y| '|),| + (STRINGIMAGE |n|))) + (SPADLET |prefix| + (STRCONC |prefix| '|,"| |scale| '|", | + (STRINGIMAGE |ifail|) '|)|)) + (|linkGen| |prefix|))))) + +;s18acf() == +; page := htInitPage("S18ACF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18acf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs18acf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18acf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") +; (text . "\inputbitmap{\htbmdir{}/s18acf.bitmap} \vspace{-40}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.4" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s18acf") +; htShowPage() + +(DEFUN |s18acf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S18ACF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18acf1.bitmap}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18acf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18acf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the modified Bessel function \\space{1} \\vspace{-28}") + (|text| + . "\\inputbitmap{\\htbmdir{}/s18acf.bitmap} \\vspace{-40}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.4" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s18acf|) + (|htShowPage|))))) + +;s18adf() == +; page := htInitPage("S18ADF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18adf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs18adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") +; (text . "\inputbitmap{\htbmdir{}/s18adf.bitmap} \vspace{-40}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.4" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s18adf") +; htShowPage() + +(DEFUN |s18adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S18ADF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18adf1.bitmap}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the modified Bessel function \\space{1} \\vspace{-28}") + (|text| + . "\\inputbitmap{\\htbmdir{}/s18adf.bitmap} \\vspace{-40}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.4" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s18adf|) + (|htShowPage|))))) + +;s18aef() == +; page := htInitPage("S18AeF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aef1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs18aef} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aef| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") +; (text . "\inputbitmap{\htbmdir{}/s18aef.bitmap} \vspace{-40}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s18aef") +; htShowPage() + +(DEFUN |s18aef| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S18AeF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18aef1.bitmap}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18aef} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aef| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the modified Bessel function \\space{1} \\vspace{-28}") + (|text| + . "\\inputbitmap{\\htbmdir{}/s18aef.bitmap} \\vspace{-40}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s18aef|) + (|htShowPage|))))) + +;s18aff() == +; page := htInitPage("S18AFF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aff1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs18aff} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aff| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}") +; (text . "\inputbitmap{\htbmdir{}/s18aff.bitmap} \vspace{-40}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s18aff") +; htShowPage() + +(DEFUN |s18aff| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| + '|S18AFF - Modified Bessel Function \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s18aff1.bitmap}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18aff} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aff| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the modified Bessel function \\space{1} \\vspace{-28}") + (|text| + . "\\inputbitmap{\\htbmdir{}/s18aff.bitmap} \\vspace{-40}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s18aff|) + (|htShowPage|))))) + +;s18dcf() == +; htInitPage('"S18DCF - Bessel function \htbitmap{s18dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs18dcf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18dcf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Returns a sequence of values for the modified Bessel functions ") +; (text . "\htbitmap{s18dcf}, for complex z, non-negative v ") +; (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Order v of the first member of the sequence of functions ") +; (text . "{\it FNU} \htbitmap{great=} 0:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.0" fnu F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Number of members required in sequence {\it N} ") +; (text . "\htbitmap{great=} 1:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 2 n PI)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's18dcfGen) +; htShowPage() + +(DEFUN |s18dcf| () + (PROGN + (|htInitPage| + (MAKESTRING + "S18DCF - Bessel function \\htbitmap{s18dcf}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18dcf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18dcf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Returns a sequence of values for the modified Bessel functions ") + (|text| + . "\\htbitmap{s18dcf}, for complex z, non-negative v ") + (|text| + . "and n = 0,1,...,N-1, with an option for exponential scaling.") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Order v of the first member of the sequence of functions ") + (|text| . "{\\it FNU} \\htbitmap{great=} 0:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.0" |fnu| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Number of members required in sequence {\\it N} ") + (|text| . "\\htbitmap{great=} 1:") + (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 2 |n| PI)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s18dcfGen|) + (|htShowPage|))) + +;s18dcfGen htPage == +; n := +; $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) +; objValUnwrap htpLabelSpadValue(htPage, 'n) +; fnu := htpLabelInputString(htPage,'fnu) +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s18dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) +; prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s18dcfGen| (|htPage|) + (PROG (|n| |fnu| |x| |y| |uors| |scale| |error| |ifail| |prefix|) + (declare (special |$bcParseOnly|)) + (RETURN + (PROGN + (SPADLET |n| + (COND + (|$bcParseOnly| + (PARSE-INTEGER + (|htpLabelInputString| |htPage| '|n|))) + ('T + (|objValUnwrap| + (|htpLabelSpadValue| |htPage| '|n|))))) + (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s18dcf(") |fnu| '|,complex(| |x| + '|,| |y| '|),| (STRINGIMAGE |n|))) + (SPADLET |prefix| + (STRCONC |prefix| '|,"| |scale| '|", | + (STRINGIMAGE |ifail|) '|)|)) + (|linkGen| |prefix|))))) + +;s18def() == +; htInitPage('"S18DEF - Modified bessel function \htbitmap{s18def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float)) +; (isDomain PI (PositiveInteger))) +; (text . "\windowlink{Manual Page}{manpageXXs18def} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18def| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\newline ") +; (text . "Returns a sequence of values for the modified Bessel functions ") +; (text . "\htbitmap{s18def}, for complex z, non-negative v ") +; (text . "and n = 0,1,...,N-1, with an option for exponential scaling.") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Order v of the first member of the sequence of functions ") +; (text . "{\it FNU} \htbitmap{great=} 0:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.0" fnu F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Real part of {\it z}:") +; (text . "\tab{32} \menuitemstyle{}\tab{34}") +; (text . "Imaginary part of {\it z}:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 "0.3" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "-0.4" y F)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Number of members required in sequence {\it N} ") +; (text . "\htbitmap{great=} 1:") +; (text . "\newline \tab{2} ") +; (bcStrings (10 2 n PI)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Scaling option: ") +; (radioButtons scale +; ("" " Unscaled" u) +; ("" " Scaled" s)) +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{} \tab{2} ") +; (text . "\newline \tab{2} ") +; (text . "Ifail value: ") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's18defGen) +; htShowPage() + +(DEFUN |s18def| () + (PROGN + (|htInitPage| + (MAKESTRING + "S18DEF - Modified bessel function \\htbitmap{s18def}, real a \\space{1} \\htbitmap{great=} 0, complex z, v = 0,1,2,...") + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|)) + (|isDomain| PI (|PositiveInteger|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs18def} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18def| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\newline ") + (|text| + . "Returns a sequence of values for the modified Bessel functions ") + (|text| + . "\\htbitmap{s18def}, for complex z, non-negative v ") + (|text| + . "and n = 0,1,...,N-1, with an option for exponential scaling.") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Order v of the first member of the sequence of functions ") + (|text| . "{\\it FNU} \\htbitmap{great=} 0:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.0" |fnu| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Real part of {\\it z}:") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34}") + (|text| . "Imaginary part of {\\it z}:") + (|text| . "\\newline \\tab{2} ") + (|bcStrings| (10 "0.3" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "-0.4" |y| F)) (|text| . "\\blankline ") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Number of members required in sequence {\\it N} ") + (|text| . "\\htbitmap{great=} 1:") + (|text| . "\\newline \\tab{2} ") (|bcStrings| (10 2 |n| PI)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") + (|text| . "Scaling option: ") + (|radioButtons| |scale| ("" " Unscaled" |u|) + ("" " Scaled" |s|)) + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{} \\tab{2} ") + (|text| . "\\newline \\tab{2} ") (|text| . "Ifail value: ") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s18defGen|) + (|htShowPage|))) + +;s18defGen htPage == +; n := +; $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n) +; objValUnwrap htpLabelSpadValue(htPage, 'n) +; fnu := htpLabelInputString(htPage,'fnu) +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; uors := htpButtonValue(htPage,'scale) +; scale := +; uors = 'u => '"u" +; '"s" +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; prefix := STRCONC('"s18def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n) +; prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")") +; linkGen prefix + +(DEFUN |s18defGen| (|htPage|) + (PROG (|n| |fnu| |x| |y| |uors| |scale| |error| |ifail| |prefix|) + (declare (special |$bcParseOnly|)) + (RETURN + (PROGN + (SPADLET |n| + (COND + (|$bcParseOnly| + (PARSE-INTEGER + (|htpLabelInputString| |htPage| '|n|))) + ('T + (|objValUnwrap| + (|htpLabelSpadValue| |htPage| '|n|))))) + (SPADLET |fnu| (|htpLabelInputString| |htPage| '|fnu|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |uors| (|htpButtonValue| |htPage| '|scale|)) + (SPADLET |scale| + (COND + ((BOOT-EQUAL |uors| '|u|) (MAKESTRING "u")) + ('T (MAKESTRING "s")))) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (SPADLET |prefix| + (STRCONC (MAKESTRING "s18def(") |fnu| '|,complex(| |x| + '|,| |y| '|),| (STRINGIMAGE |n|))) + (SPADLET |prefix| + (STRCONC |prefix| '|,"| |scale| '|", | + (STRINGIMAGE |ifail|) '|)|)) + (|linkGen| |prefix|))))) + +;s19aaf() == +; page := htInitPage("S19AAF - Kelvin Function {\em ber x}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs19aaf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19aaf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Kelvin function {\em ber x}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "1.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s19aaf") +; htShowPage() + +(DEFUN |s19aaf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S19AAF - Kelvin Function {\\em ber x}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs19aaf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19aaf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Kelvin function {\\em ber x}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "1.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s19aaf|) + (|htShowPage|))))) + +;s19abf() == +; page := htInitPage("S19ABF - Kelvin Function {\em bei x}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs19abf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19abf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Kelvin function {\em bei x}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.1" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s19abf") +; htShowPage() + +(DEFUN |s19abf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S19ABF - Kelvin Function {\\em bei x}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs19abf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19abf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Kelvin function {\\em bei x}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.1" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s19abf|) + (|htShowPage|))))) + +;s19acf() == +; page := htInitPage("S19ACF - Kelvin Function {\em ker x}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs19acf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19acf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Kelvin function {\em ker x}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x > 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.1" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s19acf") +; htShowPage() + +(DEFUN |s19acf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S19ACF - Kelvin Function {\\em ker x}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs19acf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19acf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Kelvin function {\\em ker x}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x > 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.1" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s19acf|) + (|htShowPage|))))) + +;s19adf() == +; page := htInitPage("S19AAF - Kelvin Function {\em kei x}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs19adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Kelvin function {\em kei x}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x \inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.0" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s19adf") +; htShowPage() + +(DEFUN |s19adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S19AAF - Kelvin Function {\\em kei x}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs19adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Kelvin function {\\em kei x}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Enter the argument x \\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.0" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s19adf|) + (|htShowPage|))))) + +;s20acf() == +; page := htInitPage("S20ACF - Fresnel Integral {\em S(x)}",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs20acf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20acf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Fresnel Integral {\em S(x)}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s20acf") +; htShowPage() + +(DEFUN |s20acf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S20ACF - Fresnel Integral {\\em S(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs20acf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20acf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Fresnel Integral {\\em S(x)}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s20acf|) + (|htShowPage|))))) + +;s20adf() == +; page := htInitPage("S20ADF - Fresnel Integral {\em C(x)}",nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs20adf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20adf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the Fresnel Integral {\em C(x)}") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument x: ") +; (text . "\newline\tab{2} ") +; (bcStrings (9 "0.5" x F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 'sGen) +; htpSetProperty(page,'routine,"s20adf") +; htShowPage() + +(DEFUN |s20adf| () + (PROG (|page|) + (RETURN + (PROGN + (SPADLET |page| + (|htInitPage| '|S20ADF - Fresnel Integral {\\em C(x)}| + NIL)) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs20adf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20adf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| . "Evaluates the Fresnel Integral {\\em C(x)}") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument x: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (9 "0.5" |x| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|sGen|) + (|htpSetProperty| |page| '|routine| '|s20adf|) + (|htShowPage|))))) + +;s21baf() == +; htInitPage("S21BAF - Degenerate Symmetrised Elliptic Integral of 1st Kind \vspace{-28} \inputbitmap{\htbmdir{}/s21baf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs21baf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21baf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the elementary (degenerate symmetrised elliptic) ") +; (text . " integral \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21baf.bitmap} ") +; (text . "\blankline ") +; (text . "\newline ") +; (text . "\blankline ") +; (text . "\newline \menuitemstyle{}\tab{2} ") +; (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\tab{32} \menuitemstyle{}\tab{34} ") +; (text . "Enter the argument y \notequal 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (10 "0.5" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "1.0" y F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's21bafGen) +; htShowPage() + +(DEFUN |s21baf| () + (PROGN + (|htInitPage| + '|S21BAF - Degenerate Symmetrised Elliptic Integral of 1st Kind \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21baf1.bitmap}| + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs21baf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21baf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the elementary (degenerate symmetrised elliptic) ") + (|text| + . " integral \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21baf.bitmap} ") + (|text| . "\\blankline ") (|text| . "\\newline ") + (|text| . "\\blankline ") + (|text| . "\\newline \\menuitemstyle{}\\tab{2} ") + (|text| + . "Enter the argument x \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34} ") + (|text| . "Enter the argument y \\notequal 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (10 "0.5" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "1.0" |y| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bafGen|) + (|htShowPage|))) + +;s21bafGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC("s21baf(",x,'",",y,",",STRINGIMAGE ifail,'")") + +(DEFUN |s21bafGen| (|htPage|) + (PROG (|x| |y| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC '|s21baf(| |x| (MAKESTRING ",") |y| '|,| + (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + +;s21bbf() == +; htInitPage("S21BBF - Symmetrised Elliptic Integral of 1st Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs21bbf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bbf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the symmetrised elliptic integral of the first kind ") +; (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf.bitmap} ") +; (text . "\newline ") +; (text . "\blankline ") +; (text . "\newline \menuitemstyle{}\tab{2} ") +; (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\tab{32} \menuitemstyle{}\tab{34} ") +; (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (10 "0.5" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "1.0" y F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ") +; (text . "at most one of x,y and z may be equal to 0.0: \newline \tab{2}") +; (bcStrings (10 "1.5" z F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's21bbfGen) +; htShowPage() + +(DEFUN |s21bbf| () + (PROGN + (|htInitPage| + '|S21BBF - Symmetrised Elliptic Integral of 1st Kind \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bbf1.bitmap}| + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs21bbf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bbf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the symmetrised elliptic integral of the first kind ") + (|text| + . "\\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bbf.bitmap} ") + (|text| . "\\newline ") (|text| . "\\blankline ") + (|text| . "\\newline \\menuitemstyle{}\\tab{2} ") + (|text| + . "Enter the argument x \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34} ") + (|text| + . "Enter the argument y \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (10 "0.5" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "1.0" |y| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Enter the argument z \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0; ") + (|text| + . "at most one of x,y and z may be equal to 0.0: \\newline \\tab{2}") + (|bcStrings| (10 "1.5" |z| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bbfGen|) + (|htShowPage|))) + +;s21bbfGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; z := htpLabelInputString(htPage,'z) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC("s21bbf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")") + +(DEFUN |s21bbfGen| (|htPage|) + (PROG (|x| |y| |z| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC '|s21bbf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| + (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + +;s21bcf() == +; htInitPage("S21BCF - Symmetrised Elliptic Integral of 2nd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs21bcf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bcf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the symmetrised elliptic integral of the second kind ") +; (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf.bitmap} ") +; (text . "\newline ") +; (text . "\blankline ") +; (text . "\newline \menuitemstyle{}\tab{2} ") +; (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\tab{32} \menuitemstyle{}\tab{34} ") +; (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (10 "0.5" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.5" y F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument z > 0.0; ") +; (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}") +; (bcStrings (10 "1.0" z F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's21bcfGen) +; htShowPage() + +(DEFUN |s21bcf| () + (PROGN + (|htInitPage| + '|S21BCF - Symmetrised Elliptic Integral of 2nd Kind \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bcf1.bitmap}| + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs21bcf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bcf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the symmetrised elliptic integral of the second kind ") + (|text| + . "\\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bcf.bitmap} ") + (|text| . "\\newline ") (|text| . "\\blankline ") + (|text| . "\\newline \\menuitemstyle{}\\tab{2} ") + (|text| + . "Enter the argument x \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34} ") + (|text| + . "Enter the argument y \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (10 "0.5" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.5" |y| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Enter the argument z > 0.0; ") + (|text| + . "at most one of x, y and z may be equal to 0.0: \\newline \\tab{2}") + (|bcStrings| (10 "1.0" |z| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bcfGen|) + (|htShowPage|))) + +;s21bcfGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; z := htpLabelInputString(htPage,'z) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC("s21bcf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")") + +(DEFUN |s21bcfGen| (|htPage|) + (PROG (|x| |y| |z| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC '|s21bcf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| + (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + +;s21bdf() == +; htInitPage("S21BDF - Symmetrised Elliptic Integral of 3rd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf1.bitmap}", nil) +; htMakePage '( +; (domainConditions +; (isDomain F (Float))) +; (text . "\windowlink{Manual Page}{manpageXXs21bdf} for this routine ") +; (text . "\newline ") +; (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bdf| '|NagSpecialFunctionsPackage|)} for this routine") +; (text . "\newline \horizontalline ") +; (text . "\blankline ") +; (text . "Evaluates the symmetrised elliptic integral of the third kind ") +; (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf.bitmap} ") +; (text . "\newline ") +; (text . "\blankline ") +; (text . "\newline \menuitemstyle{}\tab{2} ") +; (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\tab{32} \menuitemstyle{}\tab{34} ") +; (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ") +; (text . "\newline\tab{2} ") +; (bcStrings (10 "0.5" x F)) +; (text . "\tab{34} ") +; (bcStrings (10 "0.5" y F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ") +; (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}") +; (bcStrings (10 "0.5" z F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Enter the argument \rho \notequal 0.0: \newline \tab{2} ") +; (bcStrings (10 "2.0" r F)) +; (text . "\blankline") +; (text . "\newline ") +; (text . "\menuitemstyle{}\tab{2}") +; (text . "Ifail value:") +; (radioButtons ifail +; ("" " -1, Print error messages" minusOne) +; ("" " 1, Suppress error messages" one))) +; htMakeDoneButton('"Continue", 's21bdfGen) +; htShowPage() + +(DEFUN |s21bdf| () + (PROGN + (|htInitPage| + '|S21BDF - Symmetrised Elliptic Integral of 3rd Kind \\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bdf1.bitmap}| + NIL) + (|htMakePage| + '((|domainConditions| (|isDomain| F (|Float|))) + (|text| + . "\\windowlink{Manual Page}{manpageXXs21bdf} for this routine ") + (|text| . "\\newline ") + (|text| + . "\\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bdf| '|NagSpecialFunctionsPackage|)} for this routine") + (|text| . "\\newline \\horizontalline ") + (|text| . "\\blankline ") + (|text| + . "Evaluates the symmetrised elliptic integral of the third kind ") + (|text| + . "\\space{1} \\vspace{-28} \\inputbitmap{\\htbmdir{}/s21bdf.bitmap} ") + (|text| . "\\newline ") (|text| . "\\blankline ") + (|text| . "\\newline \\menuitemstyle{}\\tab{2} ") + (|text| + . "Enter the argument x \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\tab{32} \\menuitemstyle{}\\tab{34} ") + (|text| + . "Enter the argument y \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0: ") + (|text| . "\\newline\\tab{2} ") + (|bcStrings| (10 "0.5" |x| F)) (|text| . "\\tab{34} ") + (|bcStrings| (10 "0.5" |y| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Enter the argument z \\space{1}\\inputbitmap{\\htbmdir{}/great=.bitmap} 0.0; ") + (|text| + . "at most one of x, y and z may be equal to 0.0: \\newline \\tab{2}") + (|bcStrings| (10 "0.5" |z| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| + . "Enter the argument \\rho \\notequal 0.0: \\newline \\tab{2} ") + (|bcStrings| (10 "2.0" |r| F)) (|text| . "\\blankline") + (|text| . "\\newline ") + (|text| . "\\menuitemstyle{}\\tab{2}") + (|text| . "Ifail value:") + (|radioButtons| |ifail| + ("" " -1, Print error messages" |minusOne|) + ("" " 1, Suppress error messages" |one|)))) + (|htMakeDoneButton| (MAKESTRING "Continue") '|s21bdfGen|) + (|htShowPage|))) + +;s21bdfGen htPage == +; x := htpLabelInputString(htPage,'x) +; y := htpLabelInputString(htPage,'y) +; z := htpLabelInputString(htPage,'z) +; r := htpLabelInputString(htPage,'r) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC("s21bdf(",x,'",",y,",",z,",",r,",",STRINGIMAGE ifail,'")") + +(DEFUN |s21bdfGen| (|htPage|) + (PROG (|x| |y| |z| |r| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |y| (|htpLabelInputString| |htPage| '|y|)) + (SPADLET |z| (|htpLabelInputString| |htPage| '|z|)) + (SPADLET |r| (|htpLabelInputString| |htPage| '|r|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC '|s21bdf(| |x| (MAKESTRING ",") |y| '|,| |z| '|,| + |r| '|,| (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + +;sGen htPage == +; routine := htpProperty(htPage,'routine) +; x := htpLabelInputString(htPage,'x) +; error := htpButtonValue(htPage,'ifail) +; ifail := +; error = 'one => 1 +; -1 +; linkGen STRCONC(routine,"(",x,'",",STRINGIMAGE ifail,'")") + +(DEFUN |sGen| (|htPage|) + (PROG (|routine| |x| |error| |ifail|) + (RETURN + (PROGN + (SPADLET |routine| (|htpProperty| |htPage| '|routine|)) + (SPADLET |x| (|htpLabelInputString| |htPage| '|x|)) + (SPADLET |error| (|htpButtonValue| |htPage| '|ifail|)) + (SPADLET |ifail| + (COND + ((BOOT-EQUAL |error| '|one|) 1) + ('T (SPADDIFFERENCE 1)))) + (|linkGen| + (STRCONC |routine| '|(| |x| (MAKESTRING ",") + (STRINGIMAGE |ifail|) (MAKESTRING ")"))))))) + +@ +\eject +\begin{thebibliography}{99} +\bibitem{1} nothing +\end{thebibliography} +\end{document}