diff --git a/books/Makefile.pamphlet b/books/Makefile.pamphlet index 5c47c26..4ccebfd 100644 --- a/books/Makefile.pamphlet +++ b/books/Makefile.pamphlet @@ -145,6 +145,118 @@ ${PDF}/bookvol9.pdf: ${IN}/bookvol9.pamphlet ${RM} bookvol9.ilg bookvol9.ind ; \ fi ) +${PDF}/bookvol10.2.pdf: ${IN}/bookvol10.2.pamphlet + @echo books/1 making ${PDF}/bookvol10.2.pdf from ${IN}/bookvol10.2.pamphlet + @(cd ${PDF} ; \ + cp ${IN}/bookvol10.2.pamphlet ${PDF}/bookvol10.2.tex ; \ + cp -pr ${IN}/ps ${PDF} ; \ + if [ -z "${NOISE}" ] ; then \ + ${RM} bookvol10.2.toc ; \ + ${LATEX} bookvol10.2.tex ; \ + ${MAKEINDEX} bookvol10.2 >/dev/null ; \ + ${LATEX} bookvol10.2.tex >/dev/null ; \ + ${DVIPDFM} bookvol10.2.dvi 2>/dev/null ; \ + ${RM} bookvol10.2.aux bookvol10.2.dvi bookvol10.2.log ; \ + ${RM} bookvol10.2.ps ; \ + ${RM} bookvol10.2.idx bookvol10.2.tex bookvol10.2.pamphlet ; \ + ${RM} bookvol10.2.ilg bookvol10.2.ind ; \ + else \ + ${RM} bookvol10.2.toc ; \ + ${LATEX} bookvol10.2.tex >${TMP}/trace ; \ + echo ...first latex complete ; \ + ${MAKEINDEX} bookvol10.2 >${TMP}/trace ; \ + ${LATEX} bookvol10.2.tex >${TMP}/trace ; \ + ${DVIPDFM} bookvol10.2.dvi 2>${TMP}/trace ; \ + ${RM} bookvol10.2.aux bookvol10.2.dvi bookvol10.2.log ; \ + ${RM} bookvol10.2.ps ; \ + ${RM} bookvol10.2.idx bookvol10.2.tex bookvol10.2.pamphlet ; \ + ${RM} bookvol10.2.ilg bookvol10.2.ind ; \ + fi ) + +${PDF}/bookvol10.3.pdf: ${IN}/bookvol10.3.pamphlet + @echo books/1 making ${PDF}/bookvol10.3.pdf from ${IN}/bookvol10.3.pamphlet + @(cd ${PDF} ; \ + cp ${IN}/bookvol10.3.pamphlet ${PDF}/bookvol10.3.tex ; \ + cp -pr ${IN}/ps ${PDF} ; \ + if [ -z "${NOISE}" ] ; then \ + ${RM} bookvol10.3.toc ; \ + ${LATEX} bookvol10.3.tex ; \ + ${MAKEINDEX} bookvol10.3 >/dev/null ; \ + ${LATEX} bookvol10.3.tex >/dev/null ; \ + ${DVIPDFM} bookvol10.3.dvi 2>/dev/null ; \ + ${RM} bookvol10.3.aux bookvol10.3.dvi bookvol10.3.log ; \ + ${RM} bookvol10.3.ps ; \ + ${RM} bookvol10.3.idx bookvol10.3.tex bookvol10.3.pamphlet ; \ + ${RM} bookvol10.3.ilg bookvol10.3.ind ; \ + else \ + ${RM} bookvol10.3.toc ; \ + ${LATEX} bookvol10.3.tex >${TMP}/trace ; \ + echo ...first latex complete ; \ + ${MAKEINDEX} bookvol10.3 >${TMP}/trace ; \ + ${LATEX} bookvol10.3.tex >${TMP}/trace ; \ + ${DVIPDFM} bookvol10.3.dvi 2>${TMP}/trace ; \ + ${RM} bookvol10.3.aux bookvol10.3.dvi bookvol10.3.log ; \ + ${RM} bookvol10.3.ps ; \ + ${RM} bookvol10.3.idx bookvol10.3.tex bookvol10.3.pamphlet ; \ + ${RM} bookvol10.3.ilg bookvol10.3.ind ; \ + fi ) + +${PDF}/bookvol10.4.pdf: ${IN}/bookvol10.4.pamphlet + @echo books/1 making ${PDF}/bookvol10.4.pdf from ${IN}/bookvol10.4.pamphlet + @(cd ${PDF} ; \ + cp ${IN}/bookvol10.4.pamphlet ${PDF}/bookvol10.4.tex ; \ + cp -pr ${IN}/ps ${PDF} ; \ + if [ -z "${NOISE}" ] ; then \ + ${RM} bookvol10.4.toc ; \ + ${LATEX} bookvol10.4.tex ; \ + ${MAKEINDEX} bookvol10.4 >/dev/null ; \ + ${LATEX} bookvol10.4.tex >/dev/null ; \ + ${DVIPDFM} bookvol10.4.dvi 2>/dev/null ; \ + ${RM} bookvol10.4.aux bookvol10.4.dvi bookvol10.4.log ; \ + ${RM} bookvol10.4.ps ; \ + ${RM} bookvol10.4.idx bookvol10.4.tex bookvol10.4.pamphlet ; \ + ${RM} bookvol10.4.ilg bookvol10.4.ind ; \ + else \ + ${RM} bookvol10.4.toc ; \ + ${LATEX} bookvol10.4.tex >${TMP}/trace ; \ + echo ...first latex complete ; \ + ${MAKEINDEX} bookvol10.4 >${TMP}/trace ; \ + ${LATEX} bookvol10.4.tex >${TMP}/trace ; \ + ${DVIPDFM} bookvol10.4.dvi 2>${TMP}/trace ; \ + ${RM} bookvol10.4.aux bookvol10.4.dvi bookvol10.4.log ; \ + ${RM} bookvol10.4.ps ; \ + ${RM} bookvol10.4.idx bookvol10.4.tex bookvol10.4.pamphlet ; \ + ${RM} bookvol10.4.ilg bookvol10.4.ind ; \ + fi ) + +${PDF}/bookvol10.5.pdf: ${IN}/bookvol10.5.pamphlet + @echo books/1 making ${PDF}/bookvol10.5.pdf from ${IN}/bookvol10.5.pamphlet + @(cd ${PDF} ; \ + cp ${IN}/bookvol10.5.pamphlet ${PDF}/bookvol10.5.tex ; \ + cp -pr ${IN}/ps ${PDF} ; \ + if [ -z "${NOISE}" ] ; then \ + ${RM} bookvol10.5.toc ; \ + ${LATEX} bookvol10.5.tex ; \ + ${MAKEINDEX} bookvol10.5 >/dev/null ; \ + ${LATEX} bookvol10.5.tex >/dev/null ; \ + ${DVIPDFM} bookvol10.5.dvi 2>/dev/null ; \ + ${RM} bookvol10.5.aux bookvol10.5.dvi bookvol10.5.log ; \ + ${RM} bookvol10.5.ps ; \ + ${RM} bookvol10.5.idx bookvol10.5.tex bookvol10.5.pamphlet ; \ + ${RM} bookvol10.5.ilg bookvol10.5.ind ; \ + else \ + ${RM} bookvol10.5.toc ; \ + ${LATEX} bookvol10.5.tex >${TMP}/trace ; \ + echo ...first latex complete ; \ + ${MAKEINDEX} bookvol10.5 >${TMP}/trace ; \ + ${LATEX} bookvol10.5.tex >${TMP}/trace ; \ + ${DVIPDFM} bookvol10.5.dvi 2>${TMP}/trace ; \ + ${RM} bookvol10.5.aux bookvol10.5.dvi bookvol10.5.log ; \ + ${RM} bookvol10.5.ps ; \ + ${RM} bookvol10.5.idx bookvol10.5.tex bookvol10.5.pamphlet ; \ + ${RM} bookvol10.5.ilg bookvol10.5.ind ; \ + fi ) + ${PDF}/%.pdf: ${IN}/%.pamphlet @echo 0 making ${PDF}/$*.pdf from ${IN}/$*.pamphlet @(cd ${PDF} ; \ diff --git a/books/bookvol10.2.pamphlet b/books/bookvol10.2.pamphlet index 2463994..f423e2b 100644 --- a/books/bookvol10.2.pamphlet +++ b/books/bookvol10.2.pamphlet @@ -229,7 +229,7 @@ for constructing well-formed algebra. For instance, in abstract algebra there is a strict subset hierarchy, like:\hfill\\ \includegraphics[scale=0.50]{ps/v102algebrahierarchy.ps} -<>= +\begin{chunk}{algebrahierarchy.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -255,7 +255,7 @@ digraph pic { "Euclidean Domain" -> "Field" } -@ +\end{chunk} \chapter{Category Layer 1} In general, we use several colors in the graph images. The ``lightblue'' color indicates a category that is in the @@ -296,17 +296,17 @@ This is the root of the category hierarchy and is not represented by code. \pageto{TrigonometricFunctionCategory}{TRIGCAT} \pageto{Type}{TYPE} -<>= +\begin{chunk}{CATEGORY.dotabb} "CATEGORY" [color=lightblue,href="bookvol10.2.pdf#nameddest=CATEGORY"]; -@ -<>= +\end{chunk} +\begin{chunk}{CATEGORY.dotfull} "Category" [color=lightblue,href="bookvol10.2.pdf#nameddest=CATEGORY"]; -@ -<>= +\end{chunk} +\begin{chunk}{CATEGORY.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -315,11 +315,11 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ArcHyperbolicFunctionCategory}{AHYP} \pagepic{ps/v102archyperbolicfunctioncategory.ps}{AHYP}{1.00} -<>= +\begin{chunk}{ArcHyperbolicFunctionCategory.input} )set break resume )sys rm -f ArcHyperbolicFunctionCategory.output )spool ArcHyperbolicFunctionCategory.output @@ -343,8 +343,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ArcHyperbolicFunctionCategory.help} ==================================================================== ArcHyperbolicFunctionCategory examples ==================================================================== @@ -352,7 +352,7 @@ ArcHyperbolicFunctionCategory examples See Also: o )show ArcHyperbolicFunctionCategory -@ +\end{chunk} {\bf See:} @@ -380,7 +380,7 @@ These are directly exported but not implemented: atanh : % -> % \end{verbatim} -<>= +\begin{chunk}{category AHYP ArcHyperbolicFunctionCategory} )abbrev category AHYP ArcHyperbolicFunctionCategory ++ Category for the inverse hyperbolic trigonometric functions ++ Author: ??? @@ -397,20 +397,20 @@ ArcHyperbolicFunctionCategory(): Category == with asinh: $ -> $ ++ asinh(x) returns the hyperbolic arc-sine of x. atanh: $ -> $ ++ atanh(x) returns the hyperbolic arc-tangent of x. -@ -<>= +\end{chunk} +\begin{chunk}{AHYP.dotabb} "AHYP" [color=lightblue,href="bookvol10.2.pdf#nameddest=AHYP"]; "AHYP" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{AHYP.dotfull} "ArcHyperbolicFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=AHYP"]; "ArcHyperbolicFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{AHYP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -422,7 +422,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ArcTrigonometricFunctionCategory}{ATRIG} \pagepic{ps/v102arctrigonometricfunctioncategory.ps}{ATRIG}{1.00} @@ -430,7 +430,7 @@ digraph pic { The {\tt asec} and {\tt acsc} functions were modified to include an intermediate test to check that the argument has a reciprocal values. -<>= +\begin{chunk}{ArcTrigonometricFunctionCategory.input} )set break resume )sys rm -f ArcTrigonometricFunctionCategory.output )spool ArcTrigonometricFunctionCategory.output @@ -454,8 +454,8 @@ intermediate test to check that the argument has a reciprocal values. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ArcTrigonometricFunctionCategory.help} ==================================================================== ArcTrigonometricFunctionCategory examples ==================================================================== @@ -463,7 +463,7 @@ ArcTrigonometricFunctionCategory examples See Also: o )show ArcTrigonometricFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{TranscendentalFunctionCategory}{TRANFUN} @@ -494,7 +494,7 @@ These are implemented by this category: asec : % -> % \end{verbatim} -<>= +\begin{chunk}{category ATRIG ArcTrigonometricFunctionCategory} )abbrev category ATRIG ArcTrigonometricFunctionCategory ++ Category for the inverse trigonometric functions ++ Author: ??? @@ -519,20 +519,20 @@ ArcTrigonometricFunctionCategory(): Category == with (a := recip x) case "failed" => error "acsc: no reciprocal" asin(a::$) -@ -<>= +\end{chunk} +\begin{chunk}{ATRIG.dotabb} "ATRIG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ATRIG"]; "ATRIG" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{ATRIG.dotfull} "ArcTrigonometricFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ATRIG"]; "ArcTrigonometricFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{ATRIG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -544,7 +544,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AttributeRegistry}{ATTREG} \pagepic{ps/v102attributeregistry.ps}{ATTREG}{1.00} @@ -615,7 +615,7 @@ the real numbers''. \item {\bf \cross{ATTREG}{complex}} means that this domain has $\sqrt{-1}$ \end{itemize} -<>= +\begin{chunk}{category ATTREG AttributeRegistry} )abbrev category ATTREG AttributeRegistry ++ Description: ++ This category exports the attributes in the AXIOM Library @@ -689,20 +689,20 @@ AttributeRegistry(): Category == with approximate ++ \spad{approximate} means "is an approximation to the real numbers". -@ -<>= +\end{chunk} +\begin{chunk}{ATTREG.dotabb} "ATTREG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ATTREG"]; "ATTREG" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{ATTREG.dotfull} "AttributeRegistry()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ATTREG"]; "AttributeRegistry()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{ATTREG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -714,12 +714,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BasicType}{BASTYPE} \pagepic{ps/v102basictype.ps}{BASTYPE}{1.00} -<>= +\begin{chunk}{BasicType.input} )set break resume )sys rm -f BasicType.output )spool BasicType.output @@ -741,8 +741,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BasicType.help} ==================================================================== BasicType examples ==================================================================== @@ -750,7 +750,7 @@ BasicType examples See Also: o )show BasicType -@ +\end{chunk} {\bf See:} \pageto{BlowUpMethodCategory}{BLMETCT} @@ -774,7 +774,7 @@ These are implemented by this category: ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category BASTYPE BasicType} )abbrev category BASTYPE BasicType --% BasicType ++ Author: @@ -796,20 +796,20 @@ BasicType(): Category == with add _~_=(x:%,y:%) : Boolean == not(x=y) -@ -<>= +\end{chunk} +\begin{chunk}{BASTYPE.dotabb} "BASTYPE" [color=lightblue,href="bookvol10.2.pdf#nameddest=BASTYPE"]; "BASTYPE" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{BASTYPE.dotfull} "BasicType()" [color=lightblue,href="bookvol10.2.pdf#nameddest=BASTYPE"]; "BasicType()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{BASTYPE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -821,12 +821,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CoercibleTo}{KOERCE} \pagepic{ps/v102koerce.ps}{KOERCE}{1.00} -<>= +\begin{chunk}{CoercibleTo.input} )set break resume )sys rm -f CoercibleTo.output )spool CoercibleTo.output @@ -848,8 +848,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CoercibleTo.help} ==================================================================== CoercibleTo examples ==================================================================== @@ -857,7 +857,7 @@ CoercibleTo examples See Also: o )show CoercibleTo -@ +\end{chunk} {\bf See:} \pageto{BlowUpMethodCategory}{BLMETCT} @@ -878,7 +878,7 @@ This is directly exported but not implemented: coerce : % -> S \end{verbatim} -<>= +\begin{chunk}{category KOERCE CoercibleTo} )abbrev category KOERCE CoercibleTo ++ Category for coerce ++ Author: Manuel Bronstein @@ -892,14 +892,14 @@ CoercibleTo(S:Type): Category == with coerce: % -> S ++ coerce(a) transforms a into an element of S. -@ -<>= +\end{chunk} +\begin{chunk}{KOERCE.dotabb} "KOERCE" [color=lightblue,href="bookvol10.2.pdf#nameddest=KOERCE"]; "KOERCE" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{KOERCE.dotfull} "CoercibleTo(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=KOERCE"]; "CoercibleTo(a:Type)" -> "Category" @@ -914,8 +914,8 @@ CoercibleTo(S:Type): Category == with "CoercibleTo(List(RecursivePolynomialCategory(Ring,OrderedAbelianMonoidSup(),OrderedSet()))" -> "CoercibleTo(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{KOERCE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -927,12 +927,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CombinatorialFunctionCategory}{CFCAT} \pagepic{ps/v102combinatorialfunctioncategory.ps}{CFCAT}{1.00} -<>= +\begin{chunk}{CombinatorialFunctionCategory.input} )set break resume )sys rm -f CombinatorialFunctionCategory.output )spool CombinatorialFunctionCategory.output @@ -955,8 +955,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CombinatorialFunctionCategory.help} ==================================================================== CombinatorialFunctionCategory examples ==================================================================== @@ -964,7 +964,7 @@ CombinatorialFunctionCategory examples See Also: o )show CombinatorialFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{CombinatorialOpsCategory}{COMBOPC} @@ -986,7 +986,7 @@ These are directly exported but not implemented: permutation : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category CFCAT CombinatorialFunctionCategory} )abbrev category CFCAT CombinatorialFunctionCategory ++ Category for the usual combinatorial functions ++ Author: Manuel Bronstein @@ -1011,20 +1011,20 @@ CombinatorialFunctionCategory(): Category == with ++ permutations of n objects taken m at a time. ++ Note that \spad{permutation(n,m) = n!/(n-m)!}. -@ -<>= +\end{chunk} +\begin{chunk}{CFCAT.dotabb} "CFCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=CFCAT"]; "CFCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{CFCAT.dotfull} "CombinatorialFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=CFCAT"]; "CombinatorialFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{CFCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1036,12 +1036,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ConvertibleTo}{KONVERT} \pagepic{ps/v102konvert.ps}{KONVERT}{1.00} -<>= +\begin{chunk}{ConvertibleTo.input} )set break resume )sys rm -f ConvertibleTo.output )spool ConvertibleTo.output @@ -1063,8 +1063,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ConvertibleTo.help} ==================================================================== ConvertibleTo examples ==================================================================== @@ -1072,7 +1072,7 @@ ConvertibleTo examples See Also: o )show ConvertibleTo -@ +\end{chunk} {\bf See:} \pageto{Collection}{CLAGG} @@ -1093,7 +1093,7 @@ This is directly exported but not implemented: convert : % -> S \end{verbatim} -<>= +\begin{chunk}{category KONVERT ConvertibleTo} )abbrev category KONVERT ConvertibleTo ++ Category for convert ++ Author: Manuel Bronstein @@ -1108,14 +1108,14 @@ ConvertibleTo(S:Type): Category == with convert: % -> S ++ convert(a) transforms a into an element of S. -@ -<>= +\end{chunk} +\begin{chunk}{KONVERT.dotabb} "KONVERT" [color=lightblue,href="bookvol10.2.pdf#nameddest=KONVERT"]; "KONVERT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{KONVERT.dotfull} "ConvertibleTo(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=KONVERT"]; "ConvertibleTo(a:Type)" -> "Category" @@ -1181,8 +1181,8 @@ ConvertibleTo(S:Type): Category == with "ConvertibleTo(UnivariatePolynomialCategory(CommutativeRing))" -> "ConvertibleTo(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{KONVERT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1194,12 +1194,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ElementaryFunctionCategory}{ELEMFUN} \pagepic{ps/v102elementaryfunctioncategory.ps}{ELEMFUN}{1.00} -<>= +\begin{chunk}{ElementaryFunctionCategory.input} )set break resume )sys rm -f ElementaryFunctionCategory.output )spool ElementaryFunctionCategory.output @@ -1222,8 +1222,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ElementaryFunctionCategory.help} ==================================================================== ElementaryFunctionCategory examples ==================================================================== @@ -1231,7 +1231,7 @@ ElementaryFunctionCategory examples See Also: o )show ElementaryFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{TranscendentalFunctionCategory}{TRANFUN} @@ -1256,7 +1256,7 @@ These are implemented by this category: ?**? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category ELEMFUN ElementaryFunctionCategory} )abbrev category ELEMFUN ElementaryFunctionCategory ++ Category for the elementary functions ++ Author: Manuel Bronstein @@ -1273,20 +1273,20 @@ ElementaryFunctionCategory(): Category == with if $ has Monoid then x ** y == exp(y * log x) -@ -<>= +\end{chunk} +\begin{chunk}{ELEMFUN.dotabb} "ELEMFUN" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELEMFUN"]; "ELEMFUN" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{ELEMFUN.dotfull} "ElementaryFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELEMFUN"]; "ElementaryFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{ELEMFUN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1298,12 +1298,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Eltable}{ELTAB} \pagepic{ps/v102eltab.ps}{ELTAB}{1.00} -<>= +\begin{chunk}{Eltable.input} )set break resume )sys rm -f Eltable.output )spool Eltable.output @@ -1325,8 +1325,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Eltable.help} ==================================================================== Eltable examples ==================================================================== @@ -1334,7 +1334,7 @@ Eltable examples See Also: o )show Eltable -@ +\end{chunk} {\bf See:} \pageto{EltableAggregate}{ELTAGG}\hfill @@ -1353,7 +1353,7 @@ This is directly exported but not implemented: ?.? : (%,S) -> Index \end{verbatim} -<>= +\begin{chunk}{category ELTAB Eltable} )abbrev category ELTAB Eltable ++ Author: Michael Monagan; revised by Manuel Bronstein and Manuel Bronstein ++ Date Created: August 87 through August 88 @@ -1376,13 +1376,13 @@ Eltable(S:SetCategory, Index:Type): Category == with ++ elt(u,i) (also written: u . i) returns the element of u indexed by i. ++ Error: if i is not an index of u. -@ -<>= +\end{chunk} +\begin{chunk}{ELTAB.dotabb} "ELTAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELTAB"]; "ELTAB" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{ELTAB.dotfull} "Eltable(a:SetCategory,b:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELTAB"]; "Eltable(a:SetCategory,b:Type)" -> "Category" @@ -1402,8 +1402,8 @@ Eltable(S:SetCategory, Index:Type): Category == with "Eltable(a:SetCategory,b:SetCategory)" -> "Eltable(a:SetCategory,b:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{ELTAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1415,7 +1415,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{HyperbolicFunctionCategory}{HYPCAT} \pagepic{ps/v102hyperbolicfunctioncategory.ps}{HYPCAT}{1.00} @@ -1423,7 +1423,7 @@ digraph pic { The {\tt csch} and {\tt sech} functions were modified to include an intermediate test to check that the argument has a reciprocal values. -<>= +\begin{chunk}{HyperbolicFunctionCategory.input} )set break resume )sys rm -f HyperbolicFunctionCategory.output )spool HyperbolicFunctionCategory.output @@ -1447,8 +1447,8 @@ intermediate test to check that the argument has a reciprocal values. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HyperbolicFunctionCategory.help} ==================================================================== HyperbolicFunctionCategory examples ==================================================================== @@ -1456,7 +1456,7 @@ HyperbolicFunctionCategory examples See Also: o )show HyperbolicFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{TranscendentalFunctionCategory}{TRANFUN} @@ -1483,7 +1483,7 @@ These are implemented by this category: tanh : % -> % \end{verbatim} -<>= +\begin{chunk}{category HYPCAT HyperbolicFunctionCategory} )abbrev category HYPCAT HyperbolicFunctionCategory ++ Category for the hyperbolic trigonometric functions ++ Author: ??? @@ -1517,20 +1517,20 @@ HyperbolicFunctionCategory(): Category == with e := exp x (e - recip(e)::$) * recip(2::$)::$ -@ -<>= +\end{chunk} +\begin{chunk}{HYPCAT.dotabb} "HYPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=HYPCAT"]; "HYPCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{HYPCAT.dotfull} "HyperbolicFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=HYPCAT"]; "HyperbolicFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{HYPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1542,12 +1542,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{InnerEvalable}{IEVALAB} \pagepic{ps/v102innerevalable.ps}{IEVALAB}{1.00} -<>= +\begin{chunk}{InnerEvalable.input} )set break resume )sys rm -f InnerEvalable.output )spool InnerEvalable.output @@ -1569,8 +1569,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerEvalable.help} ==================================================================== InnerEvalable examples ==================================================================== @@ -1578,7 +1578,7 @@ InnerEvalable examples See Also: o )show InnerEvalable -@ +\end{chunk} {\bf See:} \pageto{DesingTreeCategory}{DSTRCAT} @@ -1604,7 +1604,7 @@ These are implemented by this category: eval : (%,List A,List B) -> % \end{verbatim} -<>= +\begin{chunk}{category IEVALAB InnerEvalable} )abbrev category IEVALAB InnerEvalable -- FOR THE BENEFIT OF LIBAX0 GENERATION ++ Author: @@ -1633,14 +1633,14 @@ InnerEvalable(A:SetCategory, B:Type): Category == with add eval(f:$, x:A, v:B) == eval(f, [x], [v]) -@ -<>= +\end{chunk} +\begin{chunk}{IEVALAB.dotabb} "IEVALAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=IEVALAB"]; "IEVALAB" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{IEVALAB.dotfull} "InnerEvalable(a:SetCategory,b:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=IEVALAB"]; "InnerEvalable(a:SetCategory,b:Type)" -> "Category" @@ -1670,8 +1670,8 @@ InnerEvalable(A:SetCategory, B:Type): Category == with "InnerEvalable(Kernal(ExpressionSpace),ExpressionSpace)" -> "InnerEvalable(a:SetCategory,b:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{IEVALAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1683,12 +1683,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OpenMath}{OM} \pagepic{ps/v102openmath.ps}{OM}{1.00} -<>= +\begin{chunk}{OpenMath.input} )set break resume )sys rm -f OpenMath.output )spool OpenMath.output @@ -1712,8 +1712,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMath.help} ==================================================================== OpenMath examples ==================================================================== @@ -1721,7 +1721,7 @@ OpenMath examples See Also: o )show OpenMath -@ +\end{chunk} {\bf See:} \pageto{StringCategory}{STRICAT} @@ -1741,7 +1741,7 @@ These are directly exported but not implemented: OMwrite : (OpenMathDevice,%,Boolean) -> Void \end{verbatim} -<>= +\begin{chunk}{category OM OpenMath} )abbrev category OM OpenMath ++ Author: Mike Dewar & Vilya Harvey ++ Basic Functions: OMwrite @@ -1770,20 +1770,20 @@ OpenMath(): Category == with ++ the OpenMath device \axiom{dev} as a complete OpenMath object; ++ OMwrite(dev, u, false) writes the object as an OpenMath fragment. -@ -<>= +\end{chunk} +\begin{chunk}{OM.dotabb} "OM" [color=lightblue,href="bookvol10.2.pdf#nameddest=OM"]; "OM" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{OM.dotfull} "OpenMath()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OM"]; "OpenMath()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{OM.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -1795,12 +1795,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PartialTranscendentalFunctions}{PTRANFN} \pagepic{ps/v102partialtranscendentalfunctions.ps}{PTRANFN}{1.00} -<>= +\begin{chunk}{PartialTranscendentalFunctions.input} )set break resume )sys rm -f PartialTranscendentalFunctions.output )spool PartialTranscendentalFunctions.output @@ -1838,8 +1838,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PartialTranscendentalFunctions.help} ==================================================================== PartialTranscendentalFunctions examples ==================================================================== @@ -1847,7 +1847,7 @@ PartialTranscendentalFunctions examples See Also: o )show PartialTranscendentalFunctions -@ +\end{chunk} {\bf See:} \pagefrom{Category}{CATEGORY} @@ -1915,7 +1915,7 @@ These are directly exported but not implemented: tanhIfCan : K -> Union(K,"failed") \end{verbatim} -<>= +\begin{chunk}{category PTRANFN PartialTranscendentalFunctions} )abbrev category PTRANFN PartialTranscendentalFunctions ++ Description of a package which provides partial transcendental ++ functions, i.e. functions which return an answer or "failed" @@ -2005,21 +2005,21 @@ PartialTranscendentalFunctions(K): Category == Definition where acschIfCan: K -> Union(K,"failed") ++ acschIfCan(z) returns acsch(z) if possible, and "failed" otherwise. -@ -<>= +\end{chunk} +\begin{chunk}{PTRANFN.dotabb} "PTRANFN" [color=lightblue,href="bookvol10.2.pdf#nameddest=PTRANFN"]; "PTRANFN" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{PTRANFN.dotfull} "PartialTranscendentalFunctions(TranscendentalFunctionCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PTRANFN"]; "PartialTranscendentalFunctions(TranscendentalFunctionCategory)" -> "Category()" -@ -<>= +\end{chunk} +\begin{chunk}{PTRANFN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2034,12 +2034,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Patternable}{PATAB} \pagepic{ps/v102patternable.ps}{PATAB}{1.00} -<>= +\begin{chunk}{Patternable.input} )set break resume )sys rm -f Patternable.output )spool Patternable.output @@ -2062,8 +2062,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Patternable.help} ==================================================================== Patternable examples ==================================================================== @@ -2071,7 +2071,7 @@ Patternable examples See Also: o )show Patternable -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -2096,7 +2096,7 @@ These exports come from \refto{ConvertibleTo}(Pattern(Float)): convert : % -> Pattern Float if R has KONVERT PATTERN FLOAT \end{verbatim} -<>= +\begin{chunk}{category PATAB Patternable} )abbrev category PATAB Patternable ++ Category of sets that can be converted to useful patterns ++ Author: Manuel Bronstein @@ -2114,14 +2114,14 @@ Patternable(R:Type): Category == with if R has ConvertibleTo Pattern Float then ConvertibleTo Pattern Float -@ -<>= +\end{chunk} +\begin{chunk}{PATAB.dotabb} "PATAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=PATAB"]; "PATAB" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{PATAB.dotfull} "Patternable(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PATAB"]; "Patternable(a:Type)" -> "Category" @@ -2138,8 +2138,8 @@ Patternable(R:Type): Category == with [color=seagreen,href="bookvol10.2.pdf#nameddest=PATAB"]; "Patternable(CommutativeRing)" -> "Patternable(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{PATAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2151,12 +2151,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PrimitiveFunctionCategory}{PRIMCAT} \pagepic{ps/v102primitivefunctioncategory.ps}{PRIMCAT}{1.00} -<>= +\begin{chunk}{PrimitiveFunctionCategory.input} )set break resume )sys rm -f PrimitiveFunctionCategory.output )spool PrimitiveFunctionCategory.output @@ -2179,8 +2179,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PrimitiveFunctionCategory.help} ==================================================================== PrimitiveFunctionCategory examples ==================================================================== @@ -2188,7 +2188,7 @@ PrimitiveFunctionCategory examples See Also: o )show PrimitiveFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{LiouvillianFunctionCategory}{LFCAT} @@ -2206,7 +2206,7 @@ These are directly exported but not implemented: integral : (%,SegmentBinding %) -> % \end{verbatim} -<>= +\begin{chunk}{category PRIMCAT PrimitiveFunctionCategory} )abbrev category PRIMCAT PrimitiveFunctionCategory ++ Category for the integral functions ++ Author: Manuel Bronstein @@ -2222,20 +2222,20 @@ PrimitiveFunctionCategory(): Category == with ++ integral(f, x = a..b) returns the formal definite integral ++ of f dx for x between \spad{a} and b. -@ -<>= +\end{chunk} +\begin{chunk}{PRIMCAT.dotabb} "PRIMCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRIMCAT"]; "PRIMCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{PRIMCAT.dotfull} "PrimitiveFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRIMCAT"]; "PrimitiveFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{PRIMCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2247,12 +2247,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RadicalCategory}{RADCAT} \pagepic{ps/v102radicalcategory.ps}{RADCAT}{1.00} -<>= +\begin{chunk}{RadicalCategory.input} )set break resume )sys rm -f RadicalCategory.output )spool RadicalCategory.output @@ -2275,8 +2275,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RadicalCategory.help} ==================================================================== RadicalCategory examples ==================================================================== @@ -2284,7 +2284,7 @@ RadicalCategory examples See Also: o )show RadicalCategory -@ +\end{chunk} {\bf See:} \pageto{AlgebraicallyClosedField}{ACF} @@ -2315,7 +2315,7 @@ These are implemented by this category: sqrt : % -> % \end{verbatim} -<>= +\begin{chunk}{category RADCAT RadicalCategory} )abbrev category RADCAT RadicalCategory ++ Author: ++ Date Created: @@ -2337,20 +2337,20 @@ RadicalCategory(): Category == with sqrt x == x ** inv(2::Fraction(Integer)) nthRoot(x, n) == x ** inv(n::Fraction(Integer)) -@ -<>= +\end{chunk} +\begin{chunk}{RADCAT.dotabb} "RADCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=RADCAT"]; "RADCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{RADCAT.dotfull} "RadicalCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=RADCAT"]; "RadicalCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{RADCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2362,12 +2362,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RetractableTo}{RETRACT} \pagepic{ps/v102retractableto.ps}{RETRACT}{1.00} -<>= +\begin{chunk}{RetractableTo.input} )set break resume )sys rm -f RetractableTo.output )spool RetractableTo.output @@ -2390,8 +2390,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RetractableTo.help} ==================================================================== RetractableTo examples ==================================================================== @@ -2399,7 +2399,7 @@ RetractableTo examples See Also: o )show RetractableTo -@ +\end{chunk} {\bf See:} \pageto{DifferentialPolynomialCategory}{DPOLCAT} @@ -2442,7 +2442,7 @@ These are implemented by this category: retract : % -> S \end{verbatim} -<>= +\begin{chunk}{category RETRACT RetractableTo} )abbrev category RETRACT RetractableTo ++ Category for retract ++ Author: ??? @@ -2467,14 +2467,14 @@ RetractableTo(S: Type): Category == with (u:=retractIfCan s) case "failed" => error "not retractable" u -@ -<>= +\end{chunk} +\begin{chunk}{RETRACT.dotabb} "RETRACT" [color=lightblue,href="bookvol10.2.pdf#nameddest=RETRACT"]; "RETRACT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{RETRACT.dotfull} "RetractableTo(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=RETRACT"]; "RetractableTo(a:Type)" -> "Category" @@ -2532,8 +2532,8 @@ RetractableTo(S: Type): Category == with [color=seagreen,href="bookvol10.2.pdf#nameddest=RETRACT"]; "RetractableTo(OrderedFreeMonoid(OrderedSet))" -> "RetractableTo(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{RETRACT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2545,12 +2545,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SpecialFunctionCategory}{SPFCAT} \pagepic{ps/v102specialfunctioncategory.ps}{SPFCAT}{1.00} -<>= +\begin{chunk}{SpecialFunctionCategory.input} )set break resume )sys rm -f SpecialFunctionCategory.output )spool SpecialFunctionCategory.output @@ -2577,8 +2577,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SpecialFunctionCategory.help} ==================================================================== SpecialFunctionCategory examples ==================================================================== @@ -2586,7 +2586,7 @@ SpecialFunctionCategory examples See Also: o )show SpecialFunctionCategory -@ +\end{chunk} {\bf See:} \pagefrom{Category}{CATEGORY} @@ -2623,7 +2623,7 @@ These are directly exported but not implemented: polygamma : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category SPFCAT SpecialFunctionCategory} )abbrev category SPFCAT SpecialFunctionCategory ++ Category for the other special functions ++ Author: Manuel Bronstein @@ -2660,20 +2660,20 @@ SpecialFunctionCategory(): Category == with airyBi: $ -> $ ++ airyBi(x) is the Airy function \spad{Bi(x)}. -@ -<>= +\end{chunk} +\begin{chunk}{SPFCAT.dotabb} "SPFCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SPFCAT"]; "SPFCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{SPFCAT.dotfull} "SpecialFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=SPFCAT"]; "SpecialFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{SPFCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2685,7 +2685,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{TrigonometricFunctionCategory}{TRIGCAT} \pagepic{ps/v102trigonometricfunctioncategory.ps}{TRIGCAT}{1.00} @@ -2693,7 +2693,7 @@ digraph pic { The {\tt csc} and {\tt sec} functions were modified to include an intermediate test to check that the argument has a reciprocal values. -<>= +\begin{chunk}{TrigonometricFunctionCategory.input} )set break resume )sys rm -f TrigonometricFunctionCategory.output )spool TrigonometricFunctionCategory.output @@ -2717,8 +2717,8 @@ intermediate test to check that the argument has a reciprocal values. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TrigonometricFunctionCategory.help} ==================================================================== TrigonometricFunctionCategory examples ==================================================================== @@ -2726,7 +2726,7 @@ TrigonometricFunctionCategory examples See Also: o )show TrigonometricFunctionCategory -@ +\end{chunk} {\bf See:} \pageto{TranscendentalFunctionCategory}{TRANFUN} @@ -2757,7 +2757,7 @@ These are implemented by this category: tan : % -> % \end{verbatim} -<>= +\begin{chunk}{category TRIGCAT TrigonometricFunctionCategory} )abbrev category TRIGCAT TrigonometricFunctionCategory ++ Category for the trigonometric functions ++ Author: ??? @@ -2784,20 +2784,20 @@ TrigonometricFunctionCategory(): Category == with tan x == sin x * sec x cot x == cos x * csc x -@ -<>= +\end{chunk} +\begin{chunk}{TRIGCAT.dotabb} "TRIGCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=TRIGCAT"]; "TRIGCAT" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{TRIGCAT.dotfull} "TrigonometricFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=TRIGCAT"]; "TrigonometricFunctionCategory()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{TRIGCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2809,7 +2809,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Type}{TYPE} \pagepic{ps/v102type.ps}{TYPE}{1.00} @@ -2827,7 +2827,7 @@ digraph pic { \item {\bf nil} \end{itemize} -<>= +\begin{chunk}{category TYPE Type} )abbrev category TYPE Type ++ The new fundamental Type (keeping Object for 1.5 as well) ++ Author: Richard Jenks @@ -2838,18 +2838,18 @@ digraph pic { Type(): Category == with nil -@ -<>= +\end{chunk} +\begin{chunk}{TYPE.dotabb} "TYPE" [color=lightblue,href="bookvol10.2.pdf#nameddest=TYPE"]; "TYPE" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{TYPE.dotfull} "Type()" [color=lightblue,href="bookvol10.2.pdf#nameddest=TYPE"]; "Type()" -> "Category" -@ -<>= +\end{chunk} +\begin{chunk}{TYPE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -2861,13 +2861,13 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 2} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Aggregate}{AGG} \pagepic{ps/v102agg.ps}{AGG}{1.00} -<>= +\begin{chunk}{Aggregate.input} )set break resume )sys rm -f Aggregate.output )spool Aggregate.output @@ -2895,8 +2895,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Aggregate.help} ==================================================================== Aggregate examples ==================================================================== @@ -2904,7 +2904,7 @@ Aggregate examples See Also: o )show Aggregate -@ +\end{chunk} {\bf See:} \pageto{HomogeneousAggregate}{HOAGG} @@ -2942,7 +2942,7 @@ These are implemented by this category: size? : (%,NonNegativeInteger) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category AGG Aggregate} )abbrev category AGG Aggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -2995,19 +2995,19 @@ Aggregate: Category == Type with more?(a,n) == #a > n size?(a,n) == #a = n -@ -<>= +\end{chunk} +\begin{chunk}{AGG.dotabb} "AGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=AGG"]; "AGG" -> "TYPE" -@ -<>= +\end{chunk} +\begin{chunk}{AGG.dotfull} "Aggregate()" [color=lightblue,href="bookvol10.2.pdf#nameddest=AGG"]; "Aggregate()" -> "Type()" -@ -<>= +\end{chunk} +\begin{chunk}{AGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3022,12 +3022,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CombinatorialOpsCategory}{COMBOPC} \pagepic{ps/v102combinatorialopscategory.ps}{COMBOPC}{1.00} -<>= +\begin{chunk}{CombinatorialOpsCategory.input} )set break resume )sys rm -f CombinatorialOpsCategory.output )spool CombinatorialOpsCategory.output @@ -3054,8 +3054,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CombinatorialOpsCategory.help} ==================================================================== CombinatorialOpsCategory examples ==================================================================== @@ -3063,7 +3063,7 @@ CombinatorialOpsCategory examples See Also: o )show CombinatorialOpsCategory -@ +\end{chunk} {\bf See:} \pagefrom{CombinatorialFunctionCategory}{CFCAT} @@ -3096,7 +3096,7 @@ These exports come from \refto{CombinatorialFunctionCategory}(): permutation : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category COMBOPC CombinatorialOpsCategory} )abbrev category COMBOPC CombinatorialOpsCategory ++ Category for summations and products ++ Author: Manuel Bronstein @@ -3127,20 +3127,20 @@ CombinatorialOpsCategory(): Category == ++ product(f(n), n = a..b) returns f(a) * ... * f(b) as a ++ formal product; -@ -<>= +\end{chunk} +\begin{chunk}{COMBOPC.dotabb} "COMBOPC" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMBOPC"]; "COMBOPC" -> "CFCAT" -@ -<>= +\end{chunk} +\begin{chunk}{COMBOPC.dotfull} "CombinatorialOpsCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMBOPC"]; "CombinatorialOpsCategory()" -> "CombinatorialFunctionCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{COMBOPC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3155,12 +3155,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{EltableAggregate}{ELTAGG} \pagepic{ps/v102eltableaggregate.ps}{ELTAGG}{0.75} -<>= +\begin{chunk}{EltableAggregate.input} )set break resume )sys rm -f EltableAggregate.output )spool EltableAggregate.output @@ -3185,8 +3185,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EltableAggregate.help} ==================================================================== EltableAggregate examples ==================================================================== @@ -3194,7 +3194,7 @@ EltableAggregate examples See Also: o )show EltableAggregate -@ +\end{chunk} {\bf See:} \pageto{IndexedAggregate}{IXAGG} @@ -3235,7 +3235,7 @@ These exports come from \refto{Eltable}(): ?.? : (%,Dom) -> Im \end{verbatim} -<>= +\begin{chunk}{category ELTAGG EltableAggregate} )abbrev category ELTAGG EltableAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -3285,20 +3285,20 @@ EltableAggregate(Dom:SetCategory, Im:Type): Category == if % has shallowlyMutable then qsetelt_!(a, x, y) == (a.x := y) -@ -<>= +\end{chunk} +\begin{chunk}{ELTAGG.dotabb} "ELTAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELTAGG"]; "ELTAGG" -> "ELTAB" -@ -<>= +\end{chunk} +\begin{chunk}{ELTAGG.dotfull} "EltableAggregate(a:SetCategory,b:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELTAGG"]; "EltableAggregate(a:SetCategory,b:Type)" -> "Eltable(a:SetCategory,b:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{ELTAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3313,12 +3313,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Evalable}{EVALAB} \pagepic{ps/v102evalable.ps}{EVALAB}{1.00} -<>= +\begin{chunk}{Evalable.input} )set break resume )sys rm -f Evalable.output )spool Evalable.output @@ -3341,8 +3341,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Evalable.help} ==================================================================== Evalable examples ==================================================================== @@ -3350,7 +3350,7 @@ Evalable examples See Also: o )show Evalable -@ +\end{chunk} {\bf See:} \pageto{ExpressionSpace}{ES} @@ -3380,7 +3380,7 @@ These exports come from \refto{InnerEvalable}(R:SetCategory,R:SetCategory): eval : (%,R,R) -> % \end{verbatim} -<>= +\begin{chunk}{category EVALAB Evalable} )abbrev category EVALAB Evalable ++ Author: ++ Date Created: @@ -3406,14 +3406,14 @@ Evalable(R:SetCategory): Category == InnerEvalable(R,R) with eval(f:$, eq:Equation R) == eval(f, [eq]) eval(f:$, xs:List R,vs:List R) == eval(f,[x=v for x in xs for v in vs]) -@ -<>= +\end{chunk} +\begin{chunk}{EVALAB.dotabb} "EVALAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=EVALAB"]; "EVALAB" -> "IEVALAB" -@ -<>= +\end{chunk} +\begin{chunk}{EVALAB.dotfull} "Evalable(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=EVALAB"]; "Evalable(a:SetCategory)" -> "InnerEvalable(a:SetCategory,b:SetCategory)" @@ -3432,8 +3432,8 @@ Evalable(R:SetCategory): Category == InnerEvalable(R,R) with "Evalable(PolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet))" -> "Evalable(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{EVALAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3452,12 +3452,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranProgramCategory}{FORTCAT} \pagepic{ps/v102fortranprogramcategory.ps}{FORTCAT}{1.00} -<>= +\begin{chunk}{FortranProgramCategory.input} )set break resume )sys rm -f FortranProgramCategory.output )spool FortranProgramCategory.output @@ -3479,8 +3479,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranProgramCategory.help} ==================================================================== FortranProgramCategory examples ==================================================================== @@ -3488,7 +3488,7 @@ FortranProgramCategory examples See Also: o )show FortranProgramCategory -@ +\end{chunk} {\bf See:} \pageto{FortranFunctionCategory}{FORTFN} @@ -3521,7 +3521,7 @@ These exports come from \refto{CoercibleTo}(OutputForm): coerce : % -> OutputForm \end{verbatim} -<>= +\begin{chunk}{category FORTCAT FortranProgramCategory} )abbrev category FORTCAT FortranProgramCategory ++ Author: Mike Dewar ++ Date Created: November 1992 @@ -3541,22 +3541,22 @@ FortranProgramCategory():Category == Join(Type,CoercibleTo OutputForm) with ++ \axiom{outputAsFortran(u)} translates \axiom{u} into a legal FORTRAN ++ subprogram. -@ -<>= +\end{chunk} +\begin{chunk}{FORTCAT.dotabb} "FORTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FORTCAT"]; "FORTCAT" -> "KOERCE" "FORTCAT" -> "TYPE" -@ -<>= +\end{chunk} +\begin{chunk}{FORTCAT.dotfull} "FortranProgramCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FORTCAT"]; "FortranProgramCategory()" -> "Type()" "FortranProgramCategory()" -> "CoercibleTo(OutputForm)" -@ -<>= +\end{chunk} +\begin{chunk}{FORTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3578,12 +3578,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FullyRetractableTo}{FRETRCT} \pagepic{ps/v102fullyretractableto.ps}{FRETRCT}{1.00} -<>= +\begin{chunk}{FullyRetractableTo.input} )set break resume )sys rm -f FullyRetractableTo.output )spool FullyRetractableTo.output @@ -3612,8 +3612,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FullyRetractableTo.help} ==================================================================== FullyRetractableTo examples ==================================================================== @@ -3621,7 +3621,7 @@ FullyRetractableTo examples See Also: o )show FullyRetractableTo -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -3667,7 +3667,7 @@ These exports come from \refto{RetractableTo}(S:Type): retractIfCan : % -> Union(S,"failed") \end{verbatim} -<>= +\begin{chunk}{category FRETRCT FullyRetractableTo} )abbrev category FRETRCT FullyRetractableTo ++ Author: Manuel Bronstein ++ Date Created: March 1990 @@ -3701,14 +3701,14 @@ FullyRetractableTo(S: Type): Category == RetractableTo(S) with (u:=retractIfCan(r)@Union(S,"failed")) case "failed"=>"failed" retractIfCan(u::S) -@ -<>= +\end{chunk} +\begin{chunk}{FRETRCT.dotabb} "FRETRCT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRETRCT"]; "FRETRCT" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{FRETRCT.dotfull} "FullyRetractableTo(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRETRCT"]; "FullyRetractableTo(a:Type)" -> "RetractableTo(a:Type)" @@ -3729,8 +3729,8 @@ FullyRetractableTo(S: Type): Category == RetractableTo(S) with [color=seagreen,href="bookvol10.2.pdf#nameddest=FRETRCT"]; "FullyRetractableTo(Fraction(Integer))" -> "FullyRetractableTo(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{FRETRCT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3745,12 +3745,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FullyPatternMatchable}{FPATMAB} \pagepic{ps/v102fullypatternmatchable.ps}{FPATMAB}{1.00} -<>= +\begin{chunk}{FullyPatternMatchable.input} )set break resume )sys rm -f FullyPatternMatchable.output )spool FullyPatternMatchable.output @@ -3778,8 +3778,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FullyPatternMatchable.help} ==================================================================== FullyPatternMatchable examples ==================================================================== @@ -3787,7 +3787,7 @@ FullyPatternMatchable examples See Also: o )show FullyPatternMatchable -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -3844,7 +3844,7 @@ These exports come from \refto{Type}(): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category FPATMAB FullyPatternMatchable} )abbrev category FPATMAB FullyPatternMatchable ++ Category of sets that can be pattern-matched on ++ Author: Manuel Bronstein @@ -3860,14 +3860,14 @@ FullyPatternMatchable(R:Type): Category == Type with if R has PatternMatchable Integer then PatternMatchable Integer if R has PatternMatchable Float then PatternMatchable Float -@ -<>= +\end{chunk} +\begin{chunk}{FPATMAB.dotabb} "FPATMAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPATMAB"]; "FPATMAB" -> "TYPE" -@ -<>= +\end{chunk} +\begin{chunk}{FPATMAB.dotfull} "FullyPatternMatchable(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPATMAB"]; "FullyPatternMatchable(a:Type)" -> "Type()" @@ -3887,8 +3887,8 @@ FullyPatternMatchable(R:Type): Category == Type with "FullyPatternMatchable(CommutativeRing)" -> "FullyPatternMatchable(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{FPATMAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -3903,12 +3903,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Logic}{LOGIC} \pagepic{ps/v102logic.ps}{LOGIC}{1.00} -<>= +\begin{chunk}{Logic.input} )set break resume )sys rm -f Logic.output )spool Logic.output @@ -3932,8 +3932,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Logic.help} ==================================================================== Logic examples ==================================================================== @@ -3941,7 +3941,7 @@ Logic examples See Also: o )show Logic -@ +\end{chunk} {\bf See:} \pageto{BitAggregate}{BTAGG} @@ -3974,7 +3974,7 @@ These exports come from \refto{BasicType}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category LOGIC Logic} )abbrev category LOGIC Logic ++ Author: ++ Date Created: @@ -3995,20 +3995,20 @@ Logic: Category == BasicType with add _\_/(x: %,y: %) == _~( _/_\(_~(x), _~(y))) -@ -<>= +\end{chunk} +\begin{chunk}{LOGIC.dotabb} "LOGIC" [color=lightblue,href="bookvol10.2.pdf#nameddest=LOGIC"]; "LOGIC" -> "BASTYPE" -@ -<>= +\end{chunk} +\begin{chunk}{LOGIC.dotfull} "Logic()" [color=lightblue,href="bookvol10.2.pdf#nameddest=LOGIC"]; "Logic()" -> "BasicType()" -@ -<>= +\end{chunk} +\begin{chunk}{LOGIC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4023,12 +4023,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PlottablePlaneCurveCategory}{PPCURVE} \pagepic{ps/v102plottableplanecurvecategory.ps}{PPCURVE}{1.00} -<>= +\begin{chunk}{PlottablePlaneCurveCategory.input} )set break resume )sys rm -f PlottablePlaneCurveCategory.output )spool PlottablePlaneCurveCategory.output @@ -4052,8 +4052,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PlottablePlaneCurveCategory.help} ==================================================================== PlottablePlaneCurveCategory examples ==================================================================== @@ -4061,7 +4061,7 @@ PlottablePlaneCurveCategory examples See Also: o )show PlottablePlaneCurveCategory -@ +\end{chunk} {\bf See:} \pagefrom{CoercibleTo}{KOERCE} @@ -4087,7 +4087,7 @@ These exports come from \refto{CoercibleTo}(OutputForm): coerce : % -> OutputForm \end{verbatim} -<>= +\begin{chunk}{category PPCURVE PlottablePlaneCurveCategory} )abbrev category PPCURVE PlottablePlaneCurveCategory ++ Author: Clifton J. Williamson ++ Date Created: 11 January 1990 @@ -4123,20 +4123,20 @@ PlottablePlaneCurveCategory(): Category == Definition where ++ yRange(c) returns the range of the y-coordinates of the points ++ on the curve c. -@ -<>= +\end{chunk} +\begin{chunk}{PPCURVE.dotabb} "PPCURVE" [color=lightblue,href="bookvol10.2.pdf#nameddest=PPCURVE"]; "PPCURVE" -> "KOERCE" -@ -<>= +\end{chunk} +\begin{chunk}{PPCURVE.dotfull} "PlottablePlaneCurveCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PPCURVE"]; "PlottablePlaneCurveCategory()" -> "CoercibleTo(OutputForm)" -@ -<>= +\end{chunk} +\begin{chunk}{PPCURVE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4154,12 +4154,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PlottableSpaceCurveCategory}{PSCURVE} \pagepic{ps/v102plottablespacecurvecategory.ps}{PSCURVE}{1.00} -<>= +\begin{chunk}{PlottableSpaceCurveCategory.input} )set break resume )sys rm -f PlottableSpaceCurveCategory.output )spool PlottableSpaceCurveCategory.output @@ -4183,8 +4183,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PlottableSpaceCurveCategory.help} ==================================================================== PlottableSpaceCurveCategory examples ==================================================================== @@ -4192,7 +4192,7 @@ PlottableSpaceCurveCategory examples See Also: o )show PlottableSpaceCurveCategory -@ +\end{chunk} {\bf See:} \pagefrom{CoercibleTo}{KOERCE} @@ -4220,7 +4220,7 @@ These exports come from \refto{CoercibleTo}(OutputForm): coerce : % -> OutputForm \end{verbatim} -<>= +\begin{chunk}{category PSCURVE PlottableSpaceCurveCategory} )abbrev category PSCURVE PlottableSpaceCurveCategory ++ Author: Clifton J. Williamson ++ Date Created: 11 January 1990 @@ -4259,20 +4259,20 @@ PlottableSpaceCurveCategory(): Category == Definition where ++ zRange(c) returns the range of the z-coordinates of the points ++ on the curve c. -@ -<>= +\end{chunk} +\begin{chunk}{PSCURVE.dotabb} "PSCURVE" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSCURVE"]; "PSCURVE" -> "KOERCE" -@ -<>= +\end{chunk} +\begin{chunk}{PSCURVE.dotfull} "PlottableSpaceCurveCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSCURVE"]; "PlottableSpaceCurveCategory()" -> "CoercibleTo(OutputForm)" -@ -<>= +\end{chunk} +\begin{chunk}{PSCURVE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4290,12 +4290,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RealConstant}{REAL} \pagepic{ps/v102realconstant.ps}{REAL}{1.00} -<>= +\begin{chunk}{RealConstant.input} )set break resume )sys rm -f RealConstant.output )spool RealConstant.output @@ -4317,8 +4317,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RealConstant.help} ==================================================================== RealConstant examples ==================================================================== @@ -4326,7 +4326,7 @@ RealConstant examples See Also: o )show RealConstant -@ +\end{chunk} {\bf See:} \pageto{IntegerNumberSystem}{INS} @@ -4350,7 +4350,7 @@ These exports come from \refto{ConvertibleTo}(Float): convert : % -> Float \end{verbatim} -<>= +\begin{chunk}{category REAL RealConstant} )abbrev category REAL RealConstant ++ Author: ++ Date Created: @@ -4367,21 +4367,21 @@ These exports come from \refto{ConvertibleTo}(Float): RealConstant(): Category == Join(ConvertibleTo DoubleFloat, ConvertibleTo Float) -@ -<>= +\end{chunk} +\begin{chunk}{REAL.dotabb} "REAL" [color=lightblue,href="bookvol10.2.pdf#nameddest=REAL"]; "REAL" -> "KONVERT" -@ -<>= +\end{chunk} +\begin{chunk}{REAL.dotfull} "RealConstant()" [color=lightblue,href="bookvol10.2.pdf#nameddest=REAL"]; "RealConstant()" -> "ConvertibleTo(DoubleFloat)" "RealConstant()" -> "ConvertibleTo(Float)" -@ -<>= +\end{chunk} +\begin{chunk}{REAL.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4403,12 +4403,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SegmentCategory}{SEGCAT} \pagepic{ps/v102segmentcategory.ps}{SEGCAT}{1.00} -<>= +\begin{chunk}{SegmentCategory.input} )set break resume )sys rm -f SegmentCategory.output )spool SegmentCategory.output @@ -4434,8 +4434,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SegmentCategory.help} ==================================================================== SegmentCategory examples ==================================================================== @@ -4443,7 +4443,7 @@ SegmentCategory examples See Also: o )show SegmentCategory -@ +\end{chunk} {\bf See:} \pageto{SegmentExpansionCategory}{SEGXCAT} @@ -4481,7 +4481,7 @@ These are directly exported but not implemented: ?..? : (S,S) -> % \end{verbatim} -<>= +\begin{chunk}{category SEGCAT SegmentCategory} )abbrev category SEGCAT SegmentCategory ++ Author: Stephen M. Watt ++ Date Created: December 1986 @@ -4525,14 +4525,14 @@ SegmentCategory(S:Type): Category == Type with convert: S -> % ++ convert(i) creates the segment \spad{i..i}. -@ -<>= +\end{chunk} +\begin{chunk}{SEGCAT.dotabb} "SEGCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEGCAT"]; "SEGCAT" -> "TYPE" -@ -<>= +\end{chunk} +\begin{chunk}{SEGCAT.dotfull} "SegmentCategory(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEGCAT"]; "SegmentCategory(a:Type)" -> "Type()" @@ -4541,8 +4541,8 @@ SegmentCategory(S:Type): Category == Type with [color=seagreen,href="bookvol10.2.pdf#nameddest=SEGCAT"]; "SegmentCategory(OrderedRing)" -> "SegmentCategory(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{SEGCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4557,12 +4557,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SetCategory}{SETCAT} \pagepic{ps/v102setcategory.ps}{SETCAT}{1.00} -<>= +\begin{chunk}{SetCategory.input} )set break resume )sys rm -f SetCategory.output )spool SetCategory.output @@ -4586,8 +4586,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SetCategory.help} ==================================================================== SetCategory examples ==================================================================== @@ -4595,7 +4595,7 @@ SetCategory examples See Also: o )show SetCategory -@ +\end{chunk} {\bf See:} \pageto{AbelianSemiGroup}{ABELSG} @@ -4650,7 +4650,7 @@ These exports come from \refto{CoercibleTo}(OutputForm): coerce : % -> OutputForm \end{verbatim} -<>= +\begin{chunk}{category SETCAT SetCategory} )abbrev category SETCAT SetCategory ++ Author: ++ Date Created: @@ -4679,22 +4679,22 @@ SetCategory(): Category == Join(BasicType,CoercibleTo OutputForm) with hash(s : %): SingleInteger == SXHASH(s)$Lisp latex(s : %): String == "\mbox{\bf Unimplemented}" -@ -<>= +\end{chunk} +\begin{chunk}{SETCAT.dotabb} "SETCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETCAT"]; "SETCAT" -> "BASTYPE" "SETCAT" -> "KOERCE" -@ -<>= +\end{chunk} +\begin{chunk}{SETCAT.dotfull} "SetCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETCAT"]; "SetCategory()" -> "BasicType()" "SetCategory()" -> "CoercibleTo(OutputForm)" -@ -<>= +\end{chunk} +\begin{chunk}{SETCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4717,12 +4717,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{TranscendentalFunctionCategory}{TRANFUN} \pagepic{ps/v102transcendentalfunctioncategory.ps}{TRANFUN}{0.75} -<>= +\begin{chunk}{TranscendentalFunctionCategory.input} )set break resume )sys rm -f TranscendentalFunctionCategory.output )spool TranscendentalFunctionCategory.output @@ -4757,8 +4757,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TranscendentalFunctionCategory.help} ==================================================================== TranscendentalFunctionCategory examples ==================================================================== @@ -4766,7 +4766,7 @@ TranscendentalFunctionCategory examples See Also: o )show TranscendentalFunctionCategory -@ +\end{chunk} The {\tt acsch}, {\tt asech}, and {\tt acoth} functions were modified to include an intermediate test to check that the argument has a reciprocal values. @@ -4869,7 +4869,7 @@ These exports come from \refto{ElementaryFunctionCategory}(): log : % -> % \end{verbatim} -<>= +\begin{chunk}{category TRANFUN TranscendentalFunctionCategory} )abbrev category TRANFUN TranscendentalFunctionCategory ++ Category for the transcendental elementary functions ++ Author: Manuel Bronstein @@ -4903,8 +4903,8 @@ TranscendentalFunctionCategory(): Category == acosh x == 2*log(sqrt((x+1)/2::$) + sqrt((x-1)/2::$)) atanh x == (log(1+x)-log(1-x))/2::$ -@ -<>= +\end{chunk} +\begin{chunk}{TRANFUN.dotabb} "TRANFUN" [color=lightblue,href="bookvol10.2.pdf#nameddest=TRANFUN"]; "TRANFUN" -> "TRIGCAT" @@ -4913,8 +4913,8 @@ TranscendentalFunctionCategory(): Category == "TRANFUN" -> "AHYP" "TRANFUN" -> "ELEMFUN" -@ -<>= +\end{chunk} +\begin{chunk}{TRANFUN.dotfull} "TranscendentalFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=TRANFUN"]; "TranscendentalFunctionCategory()" -> @@ -4928,8 +4928,8 @@ TranscendentalFunctionCategory(): Category == "TranscendentalFunctionCategory()" -> "ElementaryFunctionCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{TRANFUN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -4965,13 +4965,13 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 3} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AbelianSemiGroup}{ABELSG} \pagepic{ps/v102abeliansemigroup.ps}{ABELSG}{0.75} -<>= +\begin{chunk}{AbelianSemiGroup.input} )set break resume )sys rm -f AbelianSemiGroup.output )spool AbelianSemiGroup.output @@ -4996,8 +4996,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AbelianSemiGroup.help} ==================================================================== AbelianSemiGroup examples ==================================================================== @@ -5005,7 +5005,7 @@ AbelianSemiGroup examples See Also: o )show AbelianSemiGroup -@ +\end{chunk} {\bf See:} \pageto{AbelianMonoid}{ABELMON} @@ -5043,7 +5043,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category ABELSG AbelianSemiGroup} )abbrev category ABELSG AbelianSemiGroup ++ Author: ++ Date Created: @@ -5072,21 +5072,22 @@ AbelianSemiGroup(): Category == SetCategory with if not (% has Ring) then n:PositiveInteger * x:% == double(n,x) -@ -<>= +\end{chunk} +\begin{chunk}{ABELSG.dotabb} "ABELSG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELSG"]; "ABELSG" -> "SETCAT" "ABELSG" -> "REPDB" -@ -<>= +\end{chunk} +\begin{chunk}{ABELSG.dotfull} "AbelianSemiGroup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELSG"]; "AbelianSemiGroup()" -> "SetCategory()" "AbelianSemiGroup()" -> "RepeatedDoubling(a:SetCategory)" -<>= +\end{chunk} +\begin{chunk}{ABELSG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -5121,11 +5122,11 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BlowUpMethodCategory}{BLMETCT} \pagepic{ps/v102blowupmethodcategory.ps}{BLMETCT}{0.75} -<>= +\begin{chunk}{BlowUpMethodCategory.input} )set break resume )sys rm -f BlowUpMethodCategory.output )spool BlowUpMethodCategory.output @@ -5154,8 +5155,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BlowUpMethodCategory.help} ==================================================================== BlowUpMethodCategory examples ==================================================================== @@ -5163,7 +5164,7 @@ BlowUpMethodCategory examples See Also: o )show BlowUpMethodCategory -@ +\end{chunk} {\bf See:} @@ -5212,7 +5213,7 @@ These exports come from \refto{SetCategory}(): latex : % -> String \end{verbatim} -<>= +\begin{chunk}{category BLMETCT BlowUpMethodCategory} )abbrev category BLMETCT BlowUpMethodCategory BlowUpMethodCategory:Category == SetCategory with @@ -5234,19 +5235,20 @@ BlowUpMethodCategory:Category == SetCategory with quotValuation : % -> Integer type: % -> Union("left","center","right","vertical","horizontal") -@ -<>= +\end{chunk} +\begin{chunk}{BLMETCT.dotabb} "BLMETCT" [color=lightblue,href="bookvol10.2.pdf#nameddest=BLMETCT"]; "BLMETCT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{BLMETCT.dotfull} "BlowUpMethodCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=BLMETCT"]; "BlowUpMethodCategory()" -> "SetCategory()" -<>= +\end{chunk} +\begin{chunk}{BLMETCT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -5272,11 +5274,11 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DesingTreeCategory}{DSTRCAT} \pagepic{ps/v102desingtreecategory.eps}{DSTRCAT}{0.75} -<>= +\begin{chunk}{DesingTreeCategory.input} )set break resume )sys rm -f DesingTreeCategory.output )spool DesingTreeCategory.output @@ -5332,8 +5334,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DesingTreeCategory.help} ==================================================================== DesingTreeCategory examples ==================================================================== @@ -5341,7 +5343,7 @@ DesingTreeCategory examples See Also: o )show DesingTreeCategory -@ +\end{chunk} {\bf See:} @@ -5452,7 +5454,7 @@ These exports come from \refto{RecursiveAggregate}(Type) value : % -> S \end{verbatim} -<>= +\begin{chunk}{category DSTRCAT DesingTreeCategory} )abbrev category DSTRCAT DesingTreeCategory ++ Authors: Gaetan Hache ++ Date Created: jan 1998 @@ -5473,19 +5475,20 @@ DesingTreeCategory(S: SetCategory):Category == RecursiveAggregate(S) with tree: List(S) -> % ++ tree(l) creates a chain tree from the list l -@ -<>= +\end{chunk} +\begin{chunk}{DSTRCAT.dotabb} "DSTRCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DSTRCAT"]; "EVALAB" [color="#4488FF",href="bookvol10.2.pdf#nameddest=EVALAB"] "DSTRCAT" -> "EVALAB" -@ -<>= +\end{chunk} +\begin{chunk}{DSTRCAT.dotfull} "DesingTreeCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=DSTRCAT"]; "DesingTreeCategory()" -> "Evalable()" -<>= +\end{chunk} +\begin{chunk}{DSTRCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -5508,12 +5511,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranFunctionCategory}{FORTFN} \pagepic{ps/v102fortranfunctioncategory.ps}{FORTFN}{1.00} -<>= +\begin{chunk}{FortranFunctionCategory.input} )set break resume )sys rm -f FortranFunctionCategory.output )spool FortranFunctionCategory.output @@ -5547,8 +5550,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranFunctionCategory.help} ==================================================================== FortranFunctionCategory examples ==================================================================== @@ -5556,7 +5559,7 @@ FortranFunctionCategory examples See Also: o )show FortranFunctionCategory -@ +\end{chunk} {\bf See:} \pagefrom{FortranProgramCategory}{FORTCAT} @@ -5600,7 +5603,7 @@ These exports come from \refto{FortranProgramCategory}(): outputAsFortran : % -> Void \end{verbatim} -<>= +\begin{chunk}{category FORTFN FortranFunctionCategory} )abbrev category FORTFN FortranFunctionCategory ++ Author: Mike Dewar ++ Date Created: 13 January 1994 @@ -5661,20 +5664,20 @@ FortranFunctionCategory():Category == FortranProgramCategory with -- NB: These ASPs also have a coerce from an appropriate instantiation -- of FortranExpression. -@ -<>= +\end{chunk} +\begin{chunk}{FORTFN.dotabb} "FORTFN" [color=lightblue,href="bookvol10.2.pdf#nameddest=FORTFN"]; "FORTFN" -> "FORTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FORTFN.dotfull} "FortranFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FORTFN"]; "FortranFunctionCategory()" -> "FortranProgramCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FORTFN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -5699,12 +5702,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranMatrixCategory}{FMC} \pagepic{ps/v102fortranmatrixcategory.ps}{FMC}{1.00} -<>= +\begin{chunk}{FortranMatrixCategory.input} )set break resume )sys rm -f FortranMatrixCategory.output )spool FortranMatrixCategory.output @@ -5729,8 +5732,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranMatrixCategory.help} ==================================================================== FortranMatrixCategory examples ==================================================================== @@ -5738,7 +5741,7 @@ FortranMatrixCategory examples See Also: o )show FortranMatrixCategory -@ +\end{chunk} {\bf See:} \pagefrom{FortranProgramCategory}{FORTCAT} @@ -5769,7 +5772,7 @@ These exports come from \refto{FortranProgramCategory}(): outputAsFortran : % -> Void \end{verbatim} -<>= +\begin{chunk}{category FMC FortranMatrixCategory} )abbrev category FMC FortranMatrixCategory ++ Author: Mike Dewar ++ Date Created: 21 March 1994 @@ -5795,20 +5798,20 @@ FortranMatrixCategory():Category == FortranProgramCategory with ++ \spadtype{List FortranCode} and uses it as the body of the ASP, ++ making the declarations in the \spadtype{SymbolTable} component. -@ -<>= +\end{chunk} +\begin{chunk}{FMC.dotabb} "FMC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMC"]; "FMC" -> "FORTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FMC.dotfull} "FortranMatrixCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMC"]; "FortranMatrixCategory()" -> "FortranProgramCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FMC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -5833,12 +5836,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranMatrixFunctionCategory}{FMFUN} \pagepic{ps/v102fortranmatrixfunctioncategory.ps}{FMFUN}{1.00} -<>= +\begin{chunk}{FortranMatrixFunctionCategory.input} )set break resume )sys rm -f FortranMatrixFunctionCategory.output )spool FortranMatrixFunctionCategory.output @@ -5874,8 +5877,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranMatrixFunctionCategory.help} ==================================================================== FortranMatrixFunctionCategory examples ==================================================================== @@ -5883,7 +5886,7 @@ FortranMatrixFunctionCategory examples See Also: o )show FortranMatrixFunctionCategory -@ +\end{chunk} {\bf See:} \pagefrom{FortranProgramCategory}{FORTCAT} @@ -5927,7 +5930,7 @@ These exports come from \refto{FortranProgramCategory}(): outputAsFortran : % -> Void \end{verbatim} -<>= +\begin{chunk}{category FMFUN FortranMatrixFunctionCategory} )abbrev category FMFUN FortranMatrixFunctionCategory ++ Author: Mike Dewar ++ Date Created: March 18 1994 @@ -5989,20 +5992,20 @@ FortranMatrixFunctionCategory():Category == FortranProgramCategory with -- NB: These ASPs also have a coerce from an appropriate instantiation -- of Matrix FortranExpression. -@ -<>= +\end{chunk} +\begin{chunk}{FMFUN.dotabb} "FMFUN" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMFUN"]; "FMFUN" -> "FORTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FMFUN.dotfull} "FortranMatrixFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMFUN"]; "FortranMatrixFunctionCategory()" -> "FortranProgramCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FMFUN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6027,12 +6030,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranVectorCategory}{FVC} \pagepic{ps/v102fortranvectorcategory.ps}{FVC}{1.00} -<>= +\begin{chunk}{FortranVectorCategory.input} )set break resume )sys rm -f FortranVectorCategory.output )spool FortranVectorCategory.output @@ -6057,8 +6060,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranVectorCategory.help} ==================================================================== FortranVectorCategory examples ==================================================================== @@ -6066,7 +6069,7 @@ FortranVectorCategory examples See Also: o )show FortranVectorCategory -@ +\end{chunk} {\bf See:} \pagefrom{FortranProgramCategory}{FORTCAT} @@ -6095,7 +6098,7 @@ These exports come from \refto{FortranProgramCategory}(): outputAsFortran : % -> Void \end{verbatim} -<>= +\begin{chunk}{category FVC FortranVectorCategory} )abbrev category FVC FortranVectorCategory ++ Author: Mike Dewar ++ Date Created: October 1993 @@ -6121,20 +6124,20 @@ FortranVectorCategory():Category == FortranProgramCategory with ++ \spadtype{List FortranCode} and uses it as the body of the ASP, ++ making the declarations in the \spadtype{SymbolTable} component. -@ -<>= +\end{chunk} +\begin{chunk}{FVC.dotabb} "FVC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FVC"]; "FVC" -> "FORTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FVC.dotfull} "FortranVectorCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FVC"]; "FortranVectorCategory()" -> "FortranProgramCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FVC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6159,12 +6162,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranVectorFunctionCategory}{FVFUN} \pagepic{ps/v102fortranvectorfunctioncategory.ps}{FVFUN}{1.00} -<>= +\begin{chunk}{FortranVectorFunctionCategory.input} )set break resume )sys rm -f FortranVectorFunctionCategory.output )spool FortranVectorFunctionCategory.output @@ -6200,8 +6203,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranVectorFunctionCategory.help} ==================================================================== FortranVectorFunctionCategory examples ==================================================================== @@ -6209,7 +6212,7 @@ FortranVectorFunctionCategory examples See Also: o )show FortranVectorFunctionCategory -@ +\end{chunk} {\bf See:} \pagefrom{FortranProgramCategory}{FORTCAT} @@ -6253,7 +6256,7 @@ These exports come from \refto{FortranProgramCategory}(): outputAsFortran : % -> Void \end{verbatim} -<>= +\begin{chunk}{category FVFUN FortranVectorFunctionCategory} )abbrev category FVFUN FortranVectorFunctionCategory ++ Author: Mike Dewar ++ Date Created: 11 March 1994 @@ -6314,20 +6317,20 @@ FortranVectorFunctionCategory():Category == FortranProgramCategory with -- NB: These ASPs also have a coerce from an appropriate instantiation -- of Vector FortranExpression. -@ -<>= +\end{chunk} +\begin{chunk}{FVFUN.dotabb} "FVFUN" [color=lightblue,href="bookvol10.2.pdf#nameddest=FVFUN"]; "FVFUN" -> "FORTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FVFUN.dotfull} "FortranVectorFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FVFUN"]; "FortranVectorFunctionCategory()" -> "FortranProgramCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FVFUN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6352,12 +6355,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FullyEvalableOver}{FEVALAB} \pagepic{ps/v102fullyevalableover.ps}{FEVALAB}{0.75} -<>= +\begin{chunk}{FullyEvalableOver.input} )set break resume )sys rm -f FullyEvalableOver.output )spool FullyEvalableOver.output @@ -6386,8 +6389,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FullyEvalableOver.help} ==================================================================== FullyEvalableOver examples ==================================================================== @@ -6395,7 +6398,7 @@ FullyEvalableOver examples See Also: o )show FullyEvalableOver -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -6436,7 +6439,7 @@ These exports come from \refto{InnerEvalable}(a:Symbol,b:SetCategory): eval : (%,Symbol,R) -> % if R has IEVALAB(SYMBOL,R) \end{verbatim} -<>= +\begin{chunk}{category FEVALAB FullyEvalableOver} )abbrev category FEVALAB FullyEvalableOver ++ Author: ++ Date Created: @@ -6468,8 +6471,8 @@ FullyEvalableOver(R:SetCategory): Category == with if R has InnerEvalable(Symbol, R) then eval(x:$, ls:List Symbol, lv:List R) == map(y +-> eval(y, ls, lv), x) -@ -<>= +\end{chunk} +\begin{chunk}{FEVALAB.dotabb} "FEVALAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=FEVALAB"]; "FEVALAB" -> "ELTAB" @@ -6477,8 +6480,8 @@ FullyEvalableOver(R:SetCategory): Category == with "FEVALAB" -> "IEVALAB" "FEVALAB" -> "CATEGORY" -@ -<>= +\end{chunk} +\begin{chunk}{FEVALAB.dotfull} "FullyEvalableOver(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FEVALAB"]; "FullyEvalableOver(a:SetCategory)" -> "Eltable(a:SetCategory,b:Type)" @@ -6495,8 +6498,8 @@ FullyEvalableOver(R:SetCategory): Category == with "FullyEvalableOver(CommutativeRing)" -> "FullyEvalableOver(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{FEVALAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6529,12 +6532,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FileCategory}{FILECAT} \pagepic{ps/v102filecategory.ps}{FILECAT}{1.00} -<>= +\begin{chunk}{FileCategory.input} )set break resume )sys rm -f FileCategory.output )spool FileCategory.output @@ -6562,8 +6565,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FileCategory.help} ==================================================================== FileCategory examples ==================================================================== @@ -6571,7 +6574,7 @@ FileCategory examples See Also: o )show FileCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -6614,7 +6617,7 @@ These exports come from SetCategory(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category FILECAT FileCategory} )abbrev category FILECAT FileCategory ++ Author: Stephen M. Watt, Victor Miller ++ Date Created: @@ -6673,20 +6676,20 @@ FileCategory(Name, S): Category == FCdefinition where flush: % -> Void ++ flush(f) makes sure that buffered data is written out -@ -<>= +\end{chunk} +\begin{chunk}{FILECAT.dotabb} "FILECAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FILECAT"]; "FILECAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FILECAT.dotfull} "FileCategory(a:SetCategory,b:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FILECAT"]; "FileCategory(a:SetCategory,b:SetCategory)" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FILECAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6712,12 +6715,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Finite}{FINITE} \pagepic{ps/v102finite.ps}{FINITE}{1.00} -<>= +\begin{chunk}{Finite.input} )set break resume )sys rm -f Finite.output )spool Finite.output @@ -6743,8 +6746,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Finite.help} ==================================================================== Finite examples ==================================================================== @@ -6752,7 +6755,7 @@ Finite examples See Also: o )show Finite -@ +\end{chunk} {\bf See:} \pageto{DirectProductCategory}{DIRPCAT} @@ -6791,7 +6794,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category FINITE Finite} )abbrev category FINITE Finite ++ Author: ++ Date Created: @@ -6827,20 +6830,20 @@ Finite(): Category == SetCategory with random: () -> % ++ random() returns a random element from the set. -@ -<>= +\end{chunk} +\begin{chunk}{FINITE.dotabb} "FINITE" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINITE"]; "FINITE" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FINITE.dotfull} "Finite()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINITE"]; "Finite()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FINITE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -6866,12 +6869,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FileNameCategory}{FNCAT} \pagepic{ps/v102filenamecategory.ps}{FNCAT}{0.70} -<>= +\begin{chunk}{FileNameCategory.input} )set break resume )sys rm -f FileNameCategory.output )spool FileNameCategory.output @@ -6900,8 +6903,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FileNameCategory.help} ==================================================================== FileNameCategory examples ==================================================================== @@ -6909,7 +6912,7 @@ FileNameCategory examples See Also: o )show FileNameCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -6955,7 +6958,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category FNCAT FileNameCategory} )abbrev category FNCAT FileNameCategory ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -7004,20 +7007,20 @@ FileNameCategory(): Category == SetCategory with ++ An error occurs if a new file cannot be written in the given ++ directory. -@ -<>= +\end{chunk} +\begin{chunk}{FNCAT.dotabb} "FNCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FNCAT"]; "FNCAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{FNCAT.dotfull} "FileNameCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FNCAT"]; "FileNameCategory()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{FNCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -7044,12 +7047,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{GradedModule}{GRMOD} \pagepic{ps/v102gradedmodule.ps}{GRMOD}{1.00} -<>= +\begin{chunk}{GradedModule.input} )set break resume )sys rm -f GradedModule.output )spool GradedModule.output @@ -7076,8 +7079,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GradedModule.help} ==================================================================== GradedModule examples ==================================================================== @@ -7085,7 +7088,7 @@ GradedModule examples See Also: o )show GradedModule -@ +\end{chunk} {\bf See:} \pageto{GradedAlgebra}{GRALG} @@ -7131,7 +7134,7 @@ These exports come from \refto{SetCategory}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category GRMOD GradedModule} )abbrev category GRMOD GradedModule ++ Author: Stephen M. Watt ++ Date Created: May 20, 1991 @@ -7180,20 +7183,20 @@ GradedModule(R: CommutativeRing, E: AbelianMonoid): Category == add (x: %) - (y: %) == x+(-y) -@ -<>= +\end{chunk} +\begin{chunk}{GRMOD.dotabb} "GRMOD" [color=lightblue,href="bookvol10.2.pdf#nameddest=GRMOD"]; "GRMOD" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{GRMOD.dotfull} "GradedModule(a:CommutativeRing,b:AbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=GRMOD"]; "GradedModule(a:CommutativeRing,b:AbelianMonoid)" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{GRMOD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -7219,12 +7222,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{HomogeneousAggregate}{HOAGG} \pagepic{ps/v102homogeneousaggregate.ps}{HOAGG}{1.00} -<>= +\begin{chunk}{HomogeneousAggregate.input} )set break resume )sys rm -f HomogeneousAggregate.output )spool HomogeneousAggregate.output @@ -7269,8 +7272,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HomogeneousAggregate.help} ==================================================================== HomogeneousAggregate examples ==================================================================== @@ -7278,7 +7281,7 @@ HomogeneousAggregate examples See Also: o )show HomogeneousAggregate -@ +\end{chunk} {\bf See:} \pageto{BagAggregate}{BGAGG} @@ -7389,7 +7392,7 @@ These exports come from \refto{SetCategory}(): latex : % -> String if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category HOAGG HomogeneousAggregate} )abbrev category HOAGG HomogeneousAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -7466,13 +7469,13 @@ HomogeneousAggregate(S:Type): Category == Aggregate with bracket commaSeparate [a::OutputForm for a in parts x]$List(OutputForm) -@ -<>= +\end{chunk} +\begin{chunk}{HOAGG.dotabb} "HOAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=HOAGG"]; "HOAGG" -> "AGG" -@ -<>= +\end{chunk} +\begin{chunk}{HOAGG.dotfull} "HomogeneousAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=HOAGG"]; "HomogeneousAggregate(a:Type)" -> "Aggregate()" @@ -7482,8 +7485,8 @@ HomogeneousAggregate(S:Type): Category == Aggregate with "HomogeneousAggregate(Ring)" -> "HomogeneousAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{HOAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -7519,12 +7522,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{IndexedDirectProductCategory}{IDPC} \pagepic{ps/v102liouvillianfunctioncategory.ps}{IDPC}{1.00} -<>= +\begin{chunk}{IndexedDirectProductCategory.input} )set break resume )sys rm -f IndexedDirectProductCategory.output )spool IndexedDirectProductCategory.output @@ -7550,8 +7553,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductCategory.help} ==================================================================== IndexedDirectProductCategory examples ==================================================================== @@ -7559,7 +7562,7 @@ IndexedDirectProductCategory examples See Also: o )show IndexedDirectProductCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -7597,7 +7600,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category IDPC IndexedDirectProductCategory} )abbrev category IDPC IndexedDirectProductCategory ++ Author: James Davenport ++ Date Created: @@ -7634,21 +7637,21 @@ IndexedDirectProductCategory(A:SetCategory,S:OrderedSet): Category == ++ leading coefficient/support pair from the element z. ++ Error: if z has no support. -@ -<>= +\end{chunk} +\begin{chunk}{IDPC.dotabb} "IDPC" [color=lightblue,href="bookvol10.2.pdf#nameddest=IDPC"]; "IDPC" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{IDPC.dotfull} "IndexedDirectProductCategory(a:SetCategory,b:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=IDPC"]; "IndexedDirectProductCategory(a:SetCategory,b:OrderedSet)" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{IDPC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -7675,12 +7678,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LiouvillianFunctionCategory}{LFCAT} \pagepic{ps/v102liouvillianfunctioncategory.ps}{LFCAT}{0.60} -<>= +\begin{chunk}{LiouvillianFunctionCategory.input} )set break resume )sys rm -f LiouvillianFunctionCategory.output )spool LiouvillianFunctionCategory.output @@ -7721,8 +7724,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LiouvillianFunctionCategory.help} ==================================================================== LiouvillianFunctionCategory examples ==================================================================== @@ -7730,7 +7733,7 @@ LiouvillianFunctionCategory examples See Also: o )show LiouvillianFunctionCategory -@ +\end{chunk} {\bf See:} \pagefrom{PrimitiveFunctionCategory}{PRIMCAT} @@ -7828,7 +7831,7 @@ These exports come from \refto{TranscendentalFunctionCategory}(): tanh : % -> % \end{verbatim} -<>= +\begin{chunk}{category LFCAT LiouvillianFunctionCategory} )abbrev category LFCAT LiouvillianFunctionCategory ++ Category for the transcendental Liouvillian functions ++ Author: Manuel Bronstein @@ -7864,22 +7867,22 @@ LiouvillianFunctionCategory(): Category == ++ fresnelC is the Fresnel integral C, defined by ++ C(x) = integrate(cos(t^2),t=0..x) -@ -<>= +\end{chunk} +\begin{chunk}{LFCAT.dotabb} "LFCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=LFCAT"]; "LFCAT" -> "PRIMCAT" "LFCAT" -> "TRANFUN" -@ -<>= +\end{chunk} +\begin{chunk}{LFCAT.dotfull} "LiouvillianFunctionCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=LFCAT"]; "LiouvillianFunctionCategory()" -> "PrimitiveFunctionCategory()" "LiouvillianFunctionCategory()" -> "TranscendentalFunctionCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{LFCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -7922,12 +7925,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Monad}{MONAD} \pagepic{ps/v102monad.ps}{MONAD}{0.70} -<>= +\begin{chunk}{Monad.input} )set break resume )sys rm -f Monad.output )spool Monad.output @@ -7954,8 +7957,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Monad.help} ==================================================================== Monad examples ==================================================================== @@ -7963,7 +7966,7 @@ Monad examples See Also: o )show Monad -@ +\end{chunk} {\bf See:} \pageto{MonadWithUnit}{MONADWU} @@ -8004,7 +8007,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category MONAD Monad} )abbrev category MONAD Monad ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -8052,21 +8055,21 @@ Monad(): Category == SetCategory with for i in 1..(n-1) repeat res := a * res res -@ -<>= +\end{chunk} +\begin{chunk}{MONAD.dotabb} "MONAD" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONAD"]; "MONAD" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{MONAD.dotfull} "Monad()" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONAD"]; "Monad()" -> "SetCategory()" "Monad()" -> "RepeatedSquaring(Monad)" -@ -<>= +\end{chunk} +\begin{chunk}{MONAD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -8101,12 +8104,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NumericalIntegrationCategory}{NUMINT} \pagepic{ps/v102numericalintegrationcategory.ps}{NUMINT}{1.00} -<>= +\begin{chunk}{NumericalIntegrationCategory.input} )set break resume )sys rm -f NumericalIntegrationCategory.output )spool NumericalIntegrationCategory.output @@ -8134,8 +8137,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalIntegrationCategory.help} ==================================================================== NumericalIntegrationCategory examples ==================================================================== @@ -8143,7 +8146,7 @@ NumericalIntegrationCategory examples See Also: o )show NumericalIntegrationCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -8202,7 +8205,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category NUMINT NumericalIntegrationCategory} )abbrev category NUMINT NumericalIntegrationCategory ++ Author: Brian Dupee ++ Date Created: February 1994 @@ -8258,20 +8261,20 @@ NumericalIntegrationCategory(): Category == Exports where ++ numericalIntegration(args,hints) performs the integration of the ++ function given the strategy or method returned by \axiomFun{measure}. -@ -<>= +\end{chunk} +\begin{chunk}{NUMINT.dotabb} "NUMINT" [color=lightblue,href="bookvol10.2.pdf#nameddest=NUMINT"]; "NUMINT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{NUMINT.dotfull} "NumericalIntegrationCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=NUMINT"]; "NumericalIntegrationCategory()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{NUMINT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -8297,12 +8300,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NumericalOptimizationCategory}{OPTCAT} \pagepic{ps/v102numericaloptimizationcategory.ps}{OPTCAT}{1.00} -<>= +\begin{chunk}{NumericalOptimizationCategory.input} )set break resume )sys rm -f NumericalOptimizationCategory.output )spool NumericalOptimizationCategory.output @@ -8330,8 +8333,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalOptimizationCategory.help} ==================================================================== NumericalOptimizationCategory examples ==================================================================== @@ -8339,7 +8342,7 @@ NumericalOptimizationCategory examples See Also: o )show NumericalOptimizationCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -8393,7 +8396,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category OPTCAT NumericalOptimizationCategory} )abbrev category OPTCAT NumericalOptimizationCategory ++ Author: Brian Dupee ++ Date Created: January 1996 @@ -8448,20 +8451,20 @@ NumericalOptimizationCategory(): Category == Exports where ++ numericalOptimization(args) performs the optimization of the ++ function given the strategy or method returned by \axiomFun{measure}. -@ -<>= +\end{chunk} +\begin{chunk}{OPTCAT.dotabb} "OPTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=OPTCAT"]; "OPTCAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{OPTCAT.dotfull} "NumericalOptimizationCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OPTCAT"]; "NumericalOptimizationCategory()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{OPTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -8487,12 +8490,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrdinaryDifferentialEquationsSolverCategory}{ODECAT} \pagepic{ps/v102ordinarydifferentialequationssolvercategory.ps}{ODECAT}{1.00} -<>= +\begin{chunk}{OrdinaryDifferentialEquationsSolverCategory.input} )set break resume )sys rm -f OrdinaryDifferentialEquationsSolverCategory.output )spool OrdinaryDifferentialEquationsSolverCategory.output @@ -8518,8 +8521,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrdinaryDifferentialEquationsSolverCategory.help} ==================================================================== OrdinaryDifferentialEquationsSolverCategory examples ==================================================================== @@ -8527,7 +8530,7 @@ OrdinaryDifferentialEquationsSolverCategory examples See Also: o )show OrdinaryDifferentialEquationsSolverCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -8578,7 +8581,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category ODECAT OrdinaryDifferentialEquationsSolverCategory} )abbrev category ODECAT OrdinaryDifferentialEquationsSolverCategory ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -8616,20 +8619,20 @@ OrdinaryDifferentialEquationsSolverCategory(): Category == Exports where ++ ODESolve(args) performs the integration of the ++ function given the strategy or method returned by \axiomFun{measure}. -@ -<>= +\end{chunk} +\begin{chunk}{ODECAT.dotabb} "ODECAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=ODECAT"]; "ODECAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{ODECAT.dotfull} "OrdinaryDifferentialEquationsSolverCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ODECAT"]; "OrdinaryDifferentialEquationsSolverCategory()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{ODECAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -8656,12 +8659,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedSet}{ORDSET} \pagepic{ps/v102orderedset.ps}{ORDSET}{1.00} -<>= +\begin{chunk}{OrderedSet.input} )set break resume )sys rm -f OrderedSet.output )spool OrderedSet.output @@ -8688,8 +8691,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedSet.help} ==================================================================== OrderedSet examples ==================================================================== @@ -8697,7 +8700,7 @@ OrderedSet examples See Also: o )show OrderedSet -@ +\end{chunk} {\bf See:} \pageto{BitAggregate}{BTAGG} @@ -8752,7 +8755,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category ORDSET OrderedSet} )abbrev category ORDSET OrderedSet ++ Author: ++ Date Created: @@ -8795,20 +8798,20 @@ OrderedSet(): Category == SetCategory with ((x: %) >= (y: %)) : Boolean == not (x < y) ((x: %) <= (y: %)) : Boolean == not (y < x) -@ -<>= +\end{chunk} +\begin{chunk}{ORDSET.dotabb} "ORDSET" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDSET"]; "ORDSET" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{ORDSET.dotfull} "OrderedSet()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDSET"]; "OrderedSet()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{ORDSET.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -8833,12 +8836,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PartialDifferentialEquationsSolverCategory}{PDECAT} \pagepic{ps/v102partialdifferentialequationssolvercategory.ps}{PDECAT}{1.00} -<>= +\begin{chunk}{PartialDifferentialEquationsSolverCategory.input} )set break resume )sys rm -f PartialDifferentialEquationsSolverCategory.output )spool PartialDifferentialEquationsSolverCategory.output @@ -8864,8 +8867,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PartialDifferentialEquationsSolverCategory.help} ==================================================================== PartialDifferentialEquationsSolverCategory examples ==================================================================== @@ -8873,7 +8876,7 @@ PartialDifferentialEquationsSolverCategory examples See Also: o )show PartialDifferentialEquationsSolverCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -8930,7 +8933,7 @@ These exports come from \refto{Dictionary}(S:SetCategory): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category PDECAT PartialDifferentialEquationsSolverCategory} )abbrev category PDECAT PartialDifferentialEquationsSolverCategory ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -8992,20 +8995,20 @@ PartialDifferentialEquationsSolverCategory(): Category == Exports where ++ PDESolve(args) performs the integration of the ++ function given the strategy or method returned by \axiomFun{measure}. -@ -<>= +\end{chunk} +\begin{chunk}{PDECAT.dotabb} "PDECAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PDECAT"]; "PDECAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{PDECAT.dotfull} "PartialDifferentialEquationsSolverCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PDECAT"]; "PartialDifferentialEquationsSolverCategory()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{PDECAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9031,12 +9034,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PatternMatchable}{PATMAB} \pagepic{ps/v102patternmatchable.ps}{PATMAB}{1.00} -<>= +\begin{chunk}{PatternMatchable.input} )set break resume )sys rm -f PatternMatchable.output )spool PatternMatchable.output @@ -9061,8 +9064,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PatternMatchable.help} ==================================================================== PatternMatchable examples ==================================================================== @@ -9070,7 +9073,7 @@ PatternMatchable examples See Also: o )show PatternMatchable -@ +\end{chunk} {\bf See:} \pageto{RealNumberSystem}{RNS} @@ -9103,7 +9106,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category PATMAB PatternMatchable} )abbrev category PATMAB PatternMatchable ++ Category of sets that can be pattern-matched on ++ Author: Manuel Bronstein @@ -9123,14 +9126,14 @@ PatternMatchable(S:SetCategory): Category == SetCategory with ++ Initially, res is just the result of \spadfun{new} ++ which is an empty list of matches. -@ -<>= +\end{chunk} +\begin{chunk}{PATMAB.dotabb} "PATMAB" [color=lightblue,href="bookvol10.2.pdf#nameddest=PATMAB"]; "PATMAB" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{PATMAB.dotfull} "PatternMatchable(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PATMAB"]; "PatternMatchable(a:SetCategory)" -> "SetCategory()" @@ -9143,8 +9146,8 @@ PatternMatchable(S:SetCategory): Category == SetCategory with [color=seagreen,href="bookvol10.2.pdf#nameddest=PATMAB"]; "PatternMatchable(Float)" -> "PatternMatchable(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{PATMAB.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9171,12 +9174,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RealRootCharacterizationCategory}{RRCC} \pagepic{ps/v102realrootcharacterizationcategory.ps}{RRCC}{0.60} -<>= +\begin{chunk}{RealRootCharacterizationCategory.input} )set break resume )sys rm -f RealRootCharacterizationCategory.output )spool RealRootCharacterizationCategory.output @@ -9208,8 +9211,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RealRootCharacterizationCategory.help} ==================================================================== RealRootCharacterizationCategory examples ==================================================================== @@ -9217,7 +9220,7 @@ RealRootCharacterizationCategory examples See Also: o )show RealRootCharacterizationCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -9269,7 +9272,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category RRCC RealRootCharacterizationCategory} )abbrev category RRCC RealRootCharacterizationCategory ++ Author: Renaud Rioboo ++ Date Created: summer 1992 @@ -9357,21 +9360,21 @@ RealRootCharacterizationCategory(TheField, ThePols ) : Category == PUB where d := principalIdeal([defPol,toInv]) d.coef.2 -@ -<>= +\end{chunk} +\begin{chunk}{RRCC.dotabb} "RRCC" [color=lightblue,href="bookvol10.2.pdf#nameddest=RRCC"]; "RRCC" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{RRCC.dotfull} "RealRootCharacterizationCategory(a:Join(OrderedRing,Field),b:UnivariatePolynomialCategory(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=RRCC"]; "RealRootCharacterizationCategory(a:Join(OrderedRing,Field),b:UnivariatePolynomialCategory(a))" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{RRCC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9399,12 +9402,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SegmentExpansionCategory}{SEGXCAT} \pagepic{ps/v102segmentexpansioncategory.ps}{SEGXCAT}{0.75} -<>= +\begin{chunk}{SegmentExpansionCategory.input} )set break resume )sys rm -f SegmentExpansionCategory.output )spool SegmentExpansionCategory.output @@ -9431,8 +9434,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SegmentExpansionCategory.help} ==================================================================== SegmentExpansionCategory examples ==================================================================== @@ -9440,7 +9443,7 @@ SegmentExpansionCategory examples See Also: o )show SegmentExpansionCategory -@ +\end{chunk} {\bf See:} \pagefrom{SegmentCategory}{SEGCAT} @@ -9487,7 +9490,7 @@ These exports come from \refto{SegmentCategory}(OrderedRing): ?..? : (S,S) -> % \end{verbatim} -<>= +\begin{chunk}{category SEGXCAT SegmentExpansionCategory} )abbrev category SEGXCAT SegmentExpansionCategory ++ Author: Stephen M. Watt ++ Date Created: June 5, 1991 @@ -9519,21 +9522,21 @@ SegmentExpansionCategory(S: OrderedRing, L: StreamAggregate(S)): Category == ++ to each of the succesive elements of the segment, that is, ++ \spad{[f(l), f(l+k), ..., f(lN)]}, where \spad{lN <= h < lN+k}. -@ -<>= +\end{chunk} +\begin{chunk}{SEGXCAT.dotabb} "SEGXCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEGXCAT"]; "SEGXCAT" -> "SEGCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SEGXCAT.dotfull} "SegmentExpansionCategory(a:OrderedRing,b:StreamAggregate(OrderedRing))" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEGXCAT"]; "SegmentExpansionCategory(a:OrderedRing,b:StreamAggregate(OrderedRing))" -> "SegmentCategory(OrderedRing)" -@ -<>= +\end{chunk} +\begin{chunk}{SEGXCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9557,7 +9560,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SemiGroup}{SGROUP} \pagepic{ps/v102semigroup.ps}{SGROUP}{0.75} @@ -9569,7 +9572,7 @@ operator ``*''. A Semigroup $G(S,*)$ is: \item associative. $\forall a,b,c \in S, a*(b*c) = (a*b)*c$ \end{itemize} -<>= +\begin{chunk}{SemiGroup.input} )set break resume )sys rm -f SemiGroup.output )spool SemiGroup.output @@ -9594,8 +9597,8 @@ operator ``*''. A Semigroup $G(S,*)$ is: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SemiGroup.help} ==================================================================== SemiGroup examples ==================================================================== @@ -9603,7 +9606,7 @@ SemiGroup examples See Also: o )show SemiGroup -@ +\end{chunk} {\bf See:} @@ -9645,7 +9648,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SGROUP SemiGroup} )abbrev category SGROUP SemiGroup ++ Author: ++ Date Created: @@ -9677,21 +9680,21 @@ SemiGroup(): Category == SetCategory with x:% ** n:PositiveInteger == expt(x,n) _^(x:%, n:PositiveInteger):% == x ** n -@ -<>= +\end{chunk} +\begin{chunk}{SGROUP.dotabb} "SGROUP" [color=lightblue,href="bookvol10.2.pdf#nameddest=SGROUP"]; "SGROUP" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SGROUP.dotfull} "SemiGroup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=SGROUP"]; "SemiGroup()" -> "SetCategory()" "SemiGroup()" -> "RepeatedSquaring(a:SemiGroup)" -@ -<>= +\end{chunk} +\begin{chunk}{SGROUP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9726,12 +9729,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SetCategoryWithDegree}{SETCATD} \pagepic{ps/v102setcategorywithdegree.ps}{SETCATD}{0.75} -<>= +\begin{chunk}{SetCategoryWithDegree.input} )set break resume )sys rm -f SetCategoryWithDegree.output )spool SetCategoryWithDegree.output @@ -9755,8 +9758,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SetCategoryWithDegree.help} ==================================================================== SetCategoryWithDegree examples ==================================================================== @@ -9764,7 +9767,7 @@ SetCategoryWithDegree examples See Also: o )show SetCategoryWithDegree -@ +\end{chunk} {\bf See:} @@ -9798,7 +9801,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SETCATD SetCategoryWithDegree} )abbrev category SETCATD SetCategoryWithDegree ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -9809,20 +9812,20 @@ These exports come from \refto{SetCategory}(): SetCategoryWithDegree:Category == SetCategory with degree: % -> PositiveInteger -@ -<>= +\end{chunk} +\begin{chunk}{SETCATD.dotabb} "SETCATD" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETCATD"]; "SETCATD" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SETCATD.dotfull} "SetCategoryWithDegree()" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETCATD"]; "SetCategoryWithDegree()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{SETCATD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -9850,12 +9853,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SExpressionCategory}{SEXCAT} \pagepic{ps/v102sexpressioncategory.ps}{SEXCAT}{0.60} -<>= +\begin{chunk}{SExpressionCategory.input} )set break resume )sys rm -f SExpressionCategory.output )spool SExpressionCategory.output @@ -9892,8 +9895,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SExpressionCategory.help} ==================================================================== SExpressionCategory examples ==================================================================== @@ -9901,7 +9904,7 @@ SExpressionCategory examples See Also: o )show SExpressionCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -9975,7 +9978,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SEXCAT SExpressionCategory} )abbrev category SEXCAT SExpressionCategory ++ Category for Lisp values ++ Author: S.M.Watt @@ -10052,21 +10055,21 @@ SExpressionCategory(Str, Sym, Int, Flt, Expr): Category == Decl where elt: (%, List Integer) -> % ++ elt((a1,...,an), [i1,...,im]) returns \spad{(a_i1,...,a_im)}. -@ -<>= +\end{chunk} +\begin{chunk}{SEXCAT.dotabb} "SEXCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEXCAT"]; "SEXCAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SEXCAT.dotfull} "SExpressionCategory(a:SetCategory,b:SetCategory,c:SetCategory,d:SetCategory,e:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SEXCAT"]; "SExpressionCategory(a:SetCategory,b:SetCategory,c:SetCategory,d:SetCategory,e:SetCategory)" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{SEXCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -10094,12 +10097,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{StepThrough}{STEP} \pagepic{ps/v102stepthrough.ps}{STEP}{1.00} -<>= +\begin{chunk}{StepThrough.input} )set break resume )sys rm -f StepThrough.output )spool StepThrough.output @@ -10124,8 +10127,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StepThrough.help} ==================================================================== StepThrough examples ==================================================================== @@ -10133,7 +10136,7 @@ StepThrough examples See Also: o )show StepThrough -@ +\end{chunk} {\bf See:} \pageto{FiniteFieldCategory}{FFIELDC} @@ -10169,7 +10172,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category STEP StepThrough} )abbrev category STEP StepThrough ++ Author: ++ Date Created: @@ -10200,19 +10203,19 @@ StepThrough(): Category == SetCategory with ++ nextItem(x) returns the next item, or "failed" ++ if domain is exhausted. -@ -<>= +\end{chunk} +\begin{chunk}{STEP.dotabb} "STEP" [color=lightblue,href="bookvol10.2.pdf#nameddest=STEP"]; "STEP" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{STEP.dotfull} "StepThrough()" [color=lightblue,href="bookvol10.2.pdf#nameddest=STEP"]; "StepThrough()" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{STEP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -10238,12 +10241,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ThreeSpaceCategory}{SPACEC} \pagepic{ps/v102threespacecategory.ps}{SPACEC}{1.00} -<>= +\begin{chunk}{ThreeSpaceCategory.input} )set break resume )sys rm -f ThreeSpaceCategory.output )spool ThreeSpaceCategory.output @@ -10300,8 +10303,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ThreeSpaceCategory.help} ==================================================================== ThreeSpaceCategory examples ==================================================================== @@ -10309,7 +10312,7 @@ ThreeSpaceCategory examples See Also: o )show ThreeSpaceCategory -@ +\end{chunk} {\bf See:} \pagefrom{SetCategory}{SETCAT} @@ -10422,7 +10425,7 @@ These exports come from \refto{SetCategory}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SPACEC ThreeSpaceCategory} )abbrev category SPACEC ThreeSpaceCategory ++ Author: ++ Date Created: @@ -10717,20 +10720,20 @@ ThreeSpaceCategory(R:Ring): Exports == Implementation where coerce : % -> O ++ coerce(s) returns the \spadtype{ThreeSpace} s to Output format. -@ -<>= +\end{chunk} +\begin{chunk}{SPACEC.dotabb} "SPACEC" [color=lightblue,href="bookvol10.2.pdf#nameddest=SPACEC"]; "SPACEC" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SPACEC.dotfull} "ThreeSpaceCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SPACEC"]; "ThreeSpaceCategory(a:Ring)" -> "SetCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{SPACEC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -10756,13 +10759,13 @@ digraph pic { } -@ +\end{chunk} \chapter{Category Layer 4} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AbelianMonoid}{ABELMON} \pagepic{ps/v102abelianmonoid.ps}{ABELMON}{0.75} -<>= +\begin{chunk}{AbelianMonoid.input} )set break resume )sys rm -f AbelianMonoid.output )spool AbelianMonoid.output @@ -10789,8 +10792,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AbelianMonoid.help} ==================================================================== AbelianMonoid examples ==================================================================== @@ -10798,7 +10801,7 @@ AbelianMonoid examples See Also: o )show AbelianMonoid -@ +\end{chunk} {\bf See:} \pageto{CancellationAbelianMonoid}{CABMON} @@ -10845,7 +10848,7 @@ These exports come from \refto{AbelianSemiGroup}(): ?+? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category ABELMON AbelianMonoid} )abbrev category ABELMON AbelianMonoid ++ Author: ++ Date Created: @@ -10885,20 +10888,20 @@ AbelianMonoid(): Category == AbelianSemiGroup with zero? n => 0 double(n pretend PositiveInteger,x) -@ -<>= +\end{chunk} +\begin{chunk}{ABELMON.dotabb} "ABELMON" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELMON"]; "ABELMON" -> "ABELSG" -@ -<>= +\end{chunk} +\begin{chunk}{ABELMON.dotfull} "AbelianMonoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELMON"]; "AbelianMonoid()" -> "AbelianSemiGroup()" -@ -<>= +\end{chunk} +\begin{chunk}{ABELMON.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -10936,12 +10939,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AffineSpaceCategory}{AFSPCAT} \pagepic{ps/v102affinespacecategory.ps}{AFSPCAT}{0.75} -<>= +\begin{chunk}{AffineSpaceCategory.input} )set break resume )sys rm -f AffineSpaceCategory.output )spool AffineSpaceCategory.output @@ -10976,8 +10979,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffineSpaceCategory.help} ==================================================================== AffineSpaceCategory examples ==================================================================== @@ -10985,7 +10988,7 @@ AffineSpaceCategory examples See Also: o )show AffineSpaceCategory -@ +\end{chunk} {\bf See:} @@ -11044,7 +11047,7 @@ These exports come from \refto{SetCategoryWithDegree} latex : % -> String \end{verbatim} -<>= +\begin{chunk}{category AFSPCAT AffineSpaceCategory} )abbrev category AFSPCAT AffineSpaceCategory ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -11118,20 +11121,20 @@ AffineSpaceCategory(K:Field):Category == Implementation where ++ pointValue returns the coordinates of the point or of the point ++ of origin that represent an infinitly close point -@ -<>= +\end{chunk} +\begin{chunk}{AFSPCAT.dotabb} "AFSPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=AFSPCAT"]; "AFSPCAT" -> "SETCATD" -@ -<>= +\end{chunk} +\begin{chunk}{AFSPCAT.dotfull} "AffineSpaceCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=AFSPCAT"]; "AffineSpaceCategory()" -> "SetCategoryWithDegree()" -@ -<>= +\end{chunk} +\begin{chunk}{AFSPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -11164,12 +11167,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BagAggregate}{BGAGG} \pagepic{ps/v102bagaggregate.ps}{BGAGG}{1.00} -<>= +\begin{chunk}{BagAggregate.input} )set break resume )sys rm -f BagAggregate.output )spool BagAggregate.output @@ -11216,8 +11219,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BagAggregate.help} ==================================================================== BagAggregate examples ==================================================================== @@ -11225,7 +11228,7 @@ BagAggregate examples See Also: o )show BagAggregate -@ +\end{chunk} {\bf See:} \pageto{DictionaryOperations}{DIOPS} @@ -11326,7 +11329,7 @@ These exports come from \refto{HomogeneousAggregate}(S:Type): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category BGAGG BagAggregate} )abbrev category BGAGG BagAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -11361,13 +11364,13 @@ BagAggregate(S:Type): Category == HomogeneousAggregate S with for s in l repeat x:=insert_!(s,x) x -@ -<>= +\end{chunk} +\begin{chunk}{BGAGG.dotabb} "BGAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=BGAGG"]; "BGAGG" -> "HOAGG" -@ -<>= +\end{chunk} +\begin{chunk}{BGAGG.dotfull} "BagAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=BGAGG"]; "BagAggregate(a:Type)" -> "HomogeneousAggregate(a:Type)" @@ -11376,8 +11379,8 @@ BagAggregate(S:Type): Category == HomogeneousAggregate S with [color=seagreen,href="bookvol10.2.pdf#nameddest=BGAGG"]; "BagAggregate(a:SetCategory)" -> "BagAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{BGAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -11398,12 +11401,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CachableSet}{CACHSET} \pagepic{ps/v102cachableset.ps}{CACHSET}{1.00} -<>= +\begin{chunk}{CachableSet.input} )set break resume )sys rm -f CachableSet.output )spool CachableSet.output @@ -11432,8 +11435,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CachableSet.help} ==================================================================== CachableSet examples ==================================================================== @@ -11441,7 +11444,7 @@ CachableSet examples See Also: o )show CachableSet -@ +\end{chunk} {\bf See:} \pagefrom{OrderedSet}{ORDSET} @@ -11485,7 +11488,7 @@ These exports come from \refto{OrderedSet}(): ?>=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category CACHSET CachableSet} )abbrev category CACHSET CachableSet ++ Sets whose elements can cache an integer ++ Author: Manuel Bronstein @@ -11501,20 +11504,20 @@ CachableSet: Category == OrderedSet with setPosition: (%, NonNegativeInteger) -> Void ++ setPosition(x, n) associates the integer n to x. -@ -<>= +\end{chunk} +\begin{chunk}{CACHSET.dotabb} "CACHSET" [color=lightblue,href="bookvol10.2.pdf#nameddest=CACHSET"]; "CACHSET" -> "ORDSET" -@ -<>= +\end{chunk} +\begin{chunk}{CACHSET.dotfull} "CachableSet()" [color=lightblue,href="bookvol10.2.pdf#nameddest=CACHSET"]; "CachableSet()" -> "OrderedSet()" -@ -<>= +\end{chunk} +\begin{chunk}{CACHSET.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -11542,12 +11545,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Collection}{CLAGG} \pagepic{ps/v102collection.ps}{CLAGG}{1.00} -<>= +\begin{chunk}{Collection.input} )set break resume )sys rm -f Collection.output )spool Collection.output @@ -11602,8 +11605,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Collection.help} ==================================================================== Collection examples ==================================================================== @@ -11611,7 +11614,7 @@ Collection examples See Also: o )show Collection -@ +\end{chunk} {\bf See:} \pageto{DictionaryOperations}{DIOPS} @@ -11731,7 +11734,7 @@ These exports come from \refto{ConvertibleTo}(S:Type): convert : % -> InputForm if S has KONVERT INFORM \end{verbatim} -<>= +\begin{chunk}{category CLAGG Collection} )abbrev category CLAGG Collection ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -11821,13 +11824,13 @@ Collection(S:Type): Category == HomogeneousAggregate(S) with reduce(f:(S,S)->S, x:%, s1:S, s2:S) == reduce(f, parts x, s1, s2) removeDuplicates(x) == construct removeDuplicates parts x -@ -<>= +\end{chunk} +\begin{chunk}{CLAGG.dotabb} "CLAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=CLAGG"]; "CLAGG" -> "HOAGG" -@ -<>= +\end{chunk} +\begin{chunk}{CLAGG.dotfull} "Collection(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=CLAGG"]; "Collection(a:Type)" -> "HomogeneousAggregate(a:Type)" @@ -11841,8 +11844,8 @@ Collection(S:Type): Category == HomogeneousAggregate(S) with "Collection(RecursivePolynomialCategory(Ring,OrderedAbelianMonoidSup(),OrderedSet())" -> "Collection(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{CLAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -11870,12 +11873,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DifferentialVariableCategory}{DVARCAT} \pagepic{ps/v102differentialvariablecategory.ps}{DVARCAT}{1.00} -<>= +\begin{chunk}{DifferentialVariableCategory.input} )set break resume )sys rm -f DifferentialVariableCategory.output )spool DifferentialVariableCategory.output @@ -11908,8 +11911,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DifferentialVariableCategory.help} ==================================================================== DifferentialVariableCategory examples ==================================================================== @@ -11917,7 +11920,7 @@ DifferentialVariableCategory examples See Also: o )show DifferentialVariableCategory -@ +\end{chunk} {\bf See:} \pagefrom{OrderedSet}{ORDSET} @@ -11982,7 +11985,7 @@ These exports come from \refto{RetractableTo}(S:OrderedSet): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category DVARCAT DifferentialVariableCategory} )abbrev category DVARCAT DifferentialVariableCategory ++ Author: William Sit ++ Date Created: 19 July 1990 @@ -12100,22 +12103,22 @@ DifferentialVariableCategory(S:OrderedSet): Category == weight v == order v -- the default weight is just the order -@ -<>= +\end{chunk} +\begin{chunk}{DVARCAT.dotabb} "DVARCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DVARCAT"]; "DVARCAT" -> "ORDSET" "DVARCAT" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{DVARCAT.dotfull} "DifferentialVariableCategory(a:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DVARCAT"]; "DifferentialVariableCategory(a:OrderedSet)" -> "OrderedSet()" "DifferentialVariableCategory(a:OrderedSet)" -> "RetractableTo(OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{DVARCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -12150,12 +12153,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ExpressionSpace}{ES} \pagepic{ps/v102expressionspace.ps}{ES}{0.35} -<>= +\begin{chunk}{ExpressionSpace.input} )set break resume )sys rm -f ExpressionSpace.output )spool ExpressionSpace.output @@ -12218,8 +12221,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExpressionSpace.help} ==================================================================== ExpressionSpace examples ==================================================================== @@ -12227,7 +12230,7 @@ ExpressionSpace examples See Also: o )show ExpressionSpace -@ +\end{chunk} {\bf See:} \pageto{FunctionSpace}{FS} @@ -12359,7 +12362,7 @@ These exports come from \refto{Evalable}(a:SetCategory): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category ES ExpressionSpace} )abbrev category ES ExpressionSpace ++ Category for domains on which operators can be applied ++ Author: Manuel Bronstein @@ -12677,8 +12680,8 @@ ExpressionSpace(): Category == Defn where (u := retractIfCan(x)@Union(Integer, "failed")) case Integer and pred?(u::Integer) -@ -<>= +\end{chunk} +\begin{chunk}{ES.dotabb} "ES" [color=lightblue,href="bookvol10.2.pdf#nameddest=ES"]; "ES" -> "ORDSET" @@ -12686,8 +12689,8 @@ ExpressionSpace(): Category == Defn where "ES" -> "IEVALAB" "ES" -> "EVALAB" -@ -<>= +\end{chunk} +\begin{chunk}{ES.dotfull} "ExpressionSpace()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ES"]; "ExpressionSpace()" -> "OrderedSet()" @@ -12696,8 +12699,8 @@ ExpressionSpace(): Category == Defn where "InnerEvalable(Kernal(ExpressionSpace),ExpressionSpace)" "ExpressionSpace()" -> "Evalable(ExpressionSpace)" -@ -<>= +\end{chunk} +\begin{chunk}{ES.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -12752,12 +12755,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{GradedAlgebra}{GRALG} \pagepic{ps/v102gradedalgebra.ps}{GRALG}{0.75} -<>= +\begin{chunk}{GradedAlgebra.input} )set break resume )sys rm -f GradedAlgebra.output )spool GradedAlgebra.output @@ -12787,8 +12790,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GradedAlgebra.help} ==================================================================== GradedAlgebra examples ==================================================================== @@ -12796,7 +12799,7 @@ GradedAlgebra examples See Also: o )show GradedAlgebra -@ +\end{chunk} {\bf See:} \pagefrom{GradedModule}{GRMOD} @@ -12856,7 +12859,7 @@ These exports come from \refto{RetractableTo}(R:CommutativeRing): retractIfCan : % -> Union(R,"failed") \end{verbatim} -<>= +\begin{chunk}{category GRALG GradedAlgebra} )abbrev category GRALG GradedAlgebra ++ Author: Stephen M. Watt ++ Date Created: May 20, 1991 @@ -12895,23 +12898,23 @@ GradedAlgebra(R: CommutativeRing, E: AbelianMonoid): Category == (r: R)*(x: %) == product(r::%, x) (x: %)*(r: R) == product(x, r::%) -@ -<>= +\end{chunk} +\begin{chunk}{GRALG.dotabb} "GRALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=GRALG"]; "GRALG" -> "GRMOD" "GRALG" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{GRALG.dotfull} "GradedAlgebra(a:CommutativeRing,b:AbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=GRALG"]; "GradedAlgebra(a:CommutativeRing,b:AbelianMonoid)" -> "GradedModule(a:CommutativeRing,b:AbelianMonoid)" "GradedAlgebra(a:CommutativeRing,b:AbelianMonoid)" -> "RetractableTo(CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{GRALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -12949,12 +12952,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{IndexedAggregate}{IXAGG} \pagepic{ps/v102indexedaggregate.ps}{IXAGG}{0.90} -<>= +\begin{chunk}{IndexedAggregate.input} )set break resume )sys rm -f IndexedAggregate.output )spool IndexedAggregate.output @@ -13010,8 +13013,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedAggregate.help} ==================================================================== IndexedAggregate examples ==================================================================== @@ -13019,7 +13022,7 @@ IndexedAggregate examples See Also: o )show IndexedAggregate -@ +\end{chunk} {\bf See:} \pageto{DirectProductCategory}{DIRPCAT} @@ -13152,7 +13155,7 @@ These exports come from \refto{EltableAggregate}(Index:SetCategory,Entry:Type): ?.? : (%,Index) -> Entry \end{verbatim} -<>= +\begin{chunk}{category IXAGG IndexedAggregate} )abbrev category IXAGG IndexedAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -13241,14 +13244,14 @@ IndexedAggregate(Index: SetCategory, Entry: Type): Category == qsetelt_!(a, j, t) void -@ -<>= +\end{chunk} +\begin{chunk}{IXAGG.dotabb} "IXAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=IXAGG"]; "IXAGG" -> "HOAGG" "IXAGG" -> "ELTAGG" -@ -<>= +\end{chunk} +\begin{chunk}{IXAGG.dotfull} "IndexedAggregate(a:SetCategory,b:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=IXAGG"]; "IndexedAggregate(a:SetCategory,b:Type)" -> @@ -13266,8 +13269,8 @@ IndexedAggregate(Index: SetCategory, Entry: Type): Category == "IndexedAggregate(b:Integer,a:Type)" -> "IndexedAggregate(a:SetCategory,b:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{IXAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -13297,12 +13300,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MonadWithUnit}{MONADWU} \pagepic{ps/v102monadwithunit.ps}{MONADWU}{0.75} -<>= +\begin{chunk}{MonadWithUnit.input} )set break resume )sys rm -f MonadWithUnit.output )spool MonadWithUnit.output @@ -13335,8 +13338,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MonadWithUnit.help} ==================================================================== MonadWithUnit examples ==================================================================== @@ -13344,7 +13347,7 @@ MonadWithUnit examples See Also: o )show MonadWithUnit -@ +\end{chunk} {\bf See:} \pageto{NonAssociativeRing}{NASRING} @@ -13398,7 +13401,7 @@ These exports come from \refto{Monad}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category MONADWU MonadWithUnit} )abbrev category MONADWU MonadWithUnit ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -13469,20 +13472,20 @@ MonadWithUnit(): Category == Monad with for i in 1..n repeat res := a * res res -@ -<>= +\end{chunk} +\begin{chunk}{MONADWU.dotabb} "MONADWU" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONADWU"]; "MONADWU" -> "MONAD" -@ -<>= +\end{chunk} +\begin{chunk}{MONADWU.dotfull} "MonadWithUnit()" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONADWU"]; "MonadWithUnit()" -> "Monad()" -@ -<>= +\end{chunk} +\begin{chunk}{MONADWU.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -13520,12 +13523,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Monoid}{MONOID} \pagepic{ps/v102monoid.ps}{MONOID}{0.75} -<>= +\begin{chunk}{Monoid.input} )set break resume )sys rm -f Monoid.output )spool Monoid.output @@ -13554,8 +13557,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Monoid.help} ==================================================================== Monoid examples ==================================================================== @@ -13563,7 +13566,7 @@ Monoid examples See Also: o )show Monoid -@ +\end{chunk} {\bf See:} \pageto{FunctionSpace}{FS} @@ -13616,7 +13619,7 @@ These exports come from \refto{SemiGroup}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category MONOID Monoid} )abbrev category MONOID Monoid ++ Author: ++ Date Created: @@ -13666,20 +13669,20 @@ Monoid(): Category == SemiGroup with zero? n => 1 expt(x,n pretend PositiveInteger) -@ -<>= +\end{chunk} +\begin{chunk}{MONOID.dotabb} "MONOID" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONOID"]; "MONOID" -> "SGROUP" -@ -<>= +\end{chunk} +\begin{chunk}{MONOID.dotfull} "Monoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONOID"]; "Monoid()" -> "SemiGroup()" -@ -<>= +\end{chunk} +\begin{chunk}{MONOID.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -13717,12 +13720,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedFinite}{ORDFIN} \pagepic{ps/v102orderedfinite.ps}{ORDFIN}{1.00} -<>= +\begin{chunk}{OrderedFinite.input} )set break resume )sys rm -f OrderedFinite.output )spool OrderedFinite.output @@ -13751,8 +13754,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedFinite.help} ==================================================================== OrderedFinite examples ==================================================================== @@ -13760,7 +13763,7 @@ OrderedFinite examples See Also: o )show OrderedFinite -@ +\end{chunk} {\bf See:} \pagefrom{Finite}{FINITE} @@ -13809,7 +13812,7 @@ These exports come from \refto{Finite}(): size : () -> NonNegativeInteger \end{verbatim} -<>= +\begin{chunk}{category ORDFIN OrderedFinite} )abbrev category ORDFIN OrderedFinite ++ Author: ++ Date Created: @@ -13825,22 +13828,22 @@ These exports come from \refto{Finite}(): OrderedFinite(): Category == Join(OrderedSet, Finite) -@ -<>= +\end{chunk} +\begin{chunk}{ORDFIN.dotabb} "ORDFIN" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDFIN"]; "ORDFIN" -> "ORDSET" "ORDFIN" -> "FINITE" -@ -<>= +\end{chunk} +\begin{chunk}{ORDFIN.dotfull} "OrderedFinite()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDFIN"]; "OrderedFinite()" -> "OrderedSet()" "OrderedFinite()" -> "Finite()" -@ -<>= +\end{chunk} +\begin{chunk}{ORDFIN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -13872,12 +13875,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PlacesCategory}{PLACESC} \pagepic{ps/v102placescategory.eps}{PLACESC}{0.75} -<>= +\begin{chunk}{PlacesCategory.input} )set break resume )sys rm -f PlacesCategory.output )spool PlacesCategory.output @@ -13914,8 +13917,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PlacesCategory.help} ==================================================================== PlacesCategory examples ==================================================================== @@ -13923,7 +13926,7 @@ PlacesCategory examples See Also: o )show PlacesCategory -@ +\end{chunk} {\bf See:} @@ -13987,7 +13990,7 @@ These exports come from \refto{SetCategoryWithDegree} latex : % -> String \end{verbatim} -<>= +\begin{chunk}{category PLACESC PlacesCategory} )abbrev category PLACESC PlacesCategory ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -14046,19 +14049,19 @@ PlacesCategory(K:Field,PCS:LocalPowerSeriesCategory(K)):Category ++ elt returns the value of a specified coordinates if the places ++ correspnd to a simple point -@ -<>= +\end{chunk} +\begin{chunk}{PLACESC.dotabb} "PLACESC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PLACESC"]; "SETCATD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SETCATD"] "PLACESC" -> "SETCATD" -@ -<>= +\end{chunk} +\begin{chunk}{PLACESC.dotfull} "PlacesCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PLACESC"]; "PlacesCategory()" -> "SetCategoryWithDegree()" -@ -<>= +\end{chunk} +\begin{chunk}{PLACESC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -14091,12 +14094,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ProjectiveSpaceCategory}{PRSPCAT} \pagepic{ps/v102projectivespacecategory.ps}{PRSPCAT}{0.75} -<>= +\begin{chunk}{ProjectiveSpaceCategory.input} )set break resume )sys rm -f ProjectiveSpaceCategory.output )spool ProjectiveSpaceCategory.output @@ -14133,8 +14136,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ProjectiveSpaceCategory.help} ==================================================================== ProjectiveSpaceCategory examples ==================================================================== @@ -14142,7 +14145,7 @@ ProjectiveSpaceCategory examples See Also: o )show ProjectiveSpaceCategory -@ +\end{chunk} {\bf See:} @@ -14207,7 +14210,7 @@ These exports come from \refto{SetCategoryWithDegree} latex : % -> String \end{verbatim} -<>= +\begin{chunk}{category PRSPCAT ProjectiveSpaceCategory} )abbrev category PRSPCAT ProjectiveSpaceCategory ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -14293,20 +14296,20 @@ ProjectiveSpaceCategory(K:Field):Category == Implementation where ++ pointValue returns the coordinates of the point or of the point ++ of origin that represent an infinitly close point -@ -<>= +\end{chunk} +\begin{chunk}{PRSPCAT.dotabb} "PRSPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRSPCAT"]; "PRSPCAT" -> "SETCATD" -@ -<>= +\end{chunk} +\begin{chunk}{PRSPCAT.dotfull} "ProjectiveSpaceCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRSPCAT"]; "ProjectiveSpaceCategory()" -> "SetCategoryWithDegree()" -@ -<>= +\end{chunk} +\begin{chunk}{PRSPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -14339,12 +14342,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RecursiveAggregate}{RCAGG} \pagepic{ps/v102recursiveaggregate.ps}{RCAGG}{1.00} -<>= +\begin{chunk}{RecursiveAggregate.input} )set break resume )sys rm -f RecursiveAggregate.output )spool RecursiveAggregate.output @@ -14398,8 +14401,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RecursiveAggregate.help} ==================================================================== RecursiveAggregate examples ==================================================================== @@ -14407,7 +14410,7 @@ RecursiveAggregate examples See Also: o )show RecursiveAggregate -@ +\end{chunk} {\bf See:} \pageto{BinaryRecursiveAggregate}{BRAGG} @@ -14529,7 +14532,7 @@ These exports come from \refto{HomogeneousAggregate}(S:Type): ?=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category RCAGG RecursiveAggregate} )abbrev category RCAGG RecursiveAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -14593,19 +14596,19 @@ RecursiveAggregate(S:Type): Category == HomogeneousAggregate(S) with if S has SetCategory then child?(x,l) == member?(x,children(l)) -@ -<>= +\end{chunk} +\begin{chunk}{RCAGG.dotabb} "RCAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=RCAGG"]; "RCAGG" -> "HOAGG" -@ -<>= +\end{chunk} +\begin{chunk}{RCAGG.dotfull} "RecursiveAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=RCAGG"]; "RecursiveAggregate(a:Type)" -> "HomogeneousAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{RCAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -14626,7 +14629,7 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{TwoDimensionalArrayCategory}{ARR2CAT} \pagepic{ps/v102twodimensionalarraycategory.ps}{ARR2CAT}{0.65} @@ -14641,7 +14644,7 @@ be obtained by calling the function 'minColIndex'. The index of the first element of a 'Row' is the same as the index of the first column in an array and vice versa. -<>= +\begin{chunk}{TwoDimensionalArrayCategory.input} )set break resume )sys rm -f TwoDimensionalArrayCategory.output )spool TwoDimensionalArrayCategory.output @@ -14697,8 +14700,8 @@ first column in an array and vice versa. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TwoDimensionalArrayCategory.help} ==================================================================== TwoDimensionalArrayCategory examples ==================================================================== @@ -14706,7 +14709,7 @@ TwoDimensionalArrayCategory examples See Also: o )show TwoDimensionalArrayCategory -@ +\end{chunk} {\bf See:} @@ -14834,7 +14837,7 @@ These exports come from \refto{HomogeneousAggregate}(R:Type) ?~=? : (%,%) -> Boolean if R has SETCAT \end{verbatim} -<>= +\begin{chunk}{category ARR2CAT TwoDimensionalArrayCategory} )abbrev category ARR2CAT TwoDimensionalArrayCategory ++ Author: ++ Date Created: 27 October 1989 @@ -15185,14 +15188,14 @@ TwoDimensionalArrayCategory(R,Row,Col): Category == Definition where for i in minRowIndex(m)..maxRowIndex(m)] matrix l -@ -<>= +\end{chunk} +\begin{chunk}{ARR2CAT.dotabb} "ARR2CAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=ARR2CAT"]; "ARR2CAT" -> "HOAGG" -@ -<>= +\end{chunk} +\begin{chunk}{ARR2CAT.dotfull} "TwoDimensionalArrayCategory(a:Type,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=ARR2CAT"]; "TwoDimensionalArrayCategory(a:Type,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a))" @@ -15203,8 +15206,8 @@ TwoDimensionalArrayCategory(R,Row,Col): Category == Definition where "TwoDimensionalArrayCategory(a:Type,d:IndexedOneDimensionalArray(a,b),e:IndexedOneDimensionalArray(a,c))" -> "TwoDimensionalArrayCategory(a:Type,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a))" -@ -<>= +\end{chunk} +\begin{chunk}{ARR2CAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -15245,13 +15248,13 @@ digraph pic { } -@ +\end{chunk} \chapter{Category Layer 5} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BinaryRecursiveAggregate}{BRAGG} \pagepic{ps/v102binaryrecursiveaggregate.ps}{BRAGG}{1.00} -<>= +\begin{chunk}{BinaryRecursiveAggregate.input} )set break resume )sys rm -f BinaryRecursiveAggregate.output )spool BinaryRecursiveAggregate.output @@ -15311,8 +15314,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryRecursiveAggregate.help} ==================================================================== BinaryRecursiveAggregate examples ==================================================================== @@ -15320,7 +15323,7 @@ BinaryRecursiveAggregate examples See Also: o )show BinaryRecursiveAggregate -@ +\end{chunk} {\bf See:} \pageto{BinaryTreeCategory}{BTCAT} @@ -15456,7 +15459,7 @@ These exports come from \refto{RecursiveAggregate}(S:Type) ?.value : (%,value) -> S \end{verbatim} -<>= +\begin{chunk}{category BRAGG BinaryRecursiveAggregate} )abbrev category BRAGG BinaryRecursiveAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -15570,13 +15573,13 @@ BinaryRecursiveAggregate(S:Type):Category == RecursiveAggregate S with setelt(x,"left",b) == setleft_!(x,b) setelt(x,"right",b) == setright_!(x,b) -@ -<>= +\end{chunk} +\begin{chunk}{BRAGG.dotabb} "BRAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=BRAGG"]; "BRAGG" -> "RCAGG" -@ -<>= +\end{chunk} +\begin{chunk}{BRAGG.dotfull} "BinaryRecursiveAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=BRAGG"]; "BinaryRecursiveAggregate(a:Type)" -> "RecursiveAggregate(a:Type)" @@ -15586,8 +15589,8 @@ BinaryRecursiveAggregate(S:Type):Category == RecursiveAggregate S with "BinaryRecursiveAggregate(a:SetCategory)" -> "BinaryRecursiveAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{BRAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -15611,12 +15614,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CancellationAbelianMonoid}{CABMON} \pagepic{ps/v102cancellationabelianmonoid.ps}{CABMON}{0.75} -<>= +\begin{chunk}{CancellationAbelianMonoid.input} )set break resume )sys rm -f CancellationAbelianMonoid.output )spool CancellationAbelianMonoid.output @@ -15644,8 +15647,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CancellationAbelianMonoid.help} ==================================================================== CancellationAbelianMonoid examples ==================================================================== @@ -15653,7 +15656,7 @@ CancellationAbelianMonoid examples See Also: o )show CancellationAbelianMonoid -@ +\end{chunk} {\bf See:} \pageto{AbelianGroup}{ABELGRP} @@ -15697,7 +15700,7 @@ These exports come from \refto{AbelianMonoid}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category CABMON CancellationAbelianMonoid} )abbrev category CABMON CancellationAbelianMonoid ++ Author: ++ Date Created: @@ -15720,20 +15723,20 @@ CancellationAbelianMonoid(): Category == AbelianMonoid with ++ subtractIfCan(x, y) returns an element z such that \spad{z+y=x} ++ or "failed" if no such element exists. -@ -<>= +\end{chunk} +\begin{chunk}{CABMON.dotabb} "CABMON" [color=lightblue,href="bookvol10.2.pdf#nameddest=CABMON"]; "CABMON" -> "ABELMON" -@ -<>= +\end{chunk} +\begin{chunk}{CABMON.dotfull} "CancellationAbelianMonoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=CABMON"]; "CancellationAbelianMonoid()" -> "AbelianMonoid()" -@ -<>= +\end{chunk} +\begin{chunk}{CABMON.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -15774,12 +15777,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DictionaryOperations}{DIOPS} \pagepic{ps/v102dictionaryoperations.ps}{DIOPS}{1.00} -<>= +\begin{chunk}{DictionaryOperations.input} )set break resume )sys rm -f DictionaryOperations.output )spool DictionaryOperations.output @@ -15840,8 +15843,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DictionaryOperations.help} ==================================================================== DictionaryOperations examples ==================================================================== @@ -15849,7 +15852,7 @@ DictionaryOperations examples See Also: o )show DictionaryOperations -@ +\end{chunk} {\bf See:} \pageto{Dictionary}{DIAGG} @@ -15986,7 +15989,7 @@ These exports come from \refto{Collection}(S:SetCategory) select : ((S -> Boolean),%) -> % if $ has finiteAggregate \end{verbatim} -<>= +\begin{chunk}{category DIOPS DictionaryOperations} )abbrev category DIOPS DictionaryOperations ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -16035,21 +16038,21 @@ DictionaryOperations(S:SetCategory): Category == prefix("dictionary"@String :: OutputForm, [x::OutputForm for x in parts s]) -@ -<>= +\end{chunk} +\begin{chunk}{DIOPS.dotabb} "DIOPS" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIOPS"]; "DIOPS" -> "BGAGG" "DIOPS" -> "CLAGG" -@ -<>= +\end{chunk} +\begin{chunk}{DIOPS.dotfull} "DictionaryOperations(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIOPS"]; "DictionaryOperations(a:SetCategory)" -> "BagAggregate(a:SetCategory)" "DictionaryOperations(a:SetCategory)" -> "Collection(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{DIOPS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -16083,12 +16086,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DoublyLinkedAggregate}{DLAGG} \pagepic{ps/v102doublylinkedaggregate.ps}{DLAGG}{1.00} -<>= +\begin{chunk}{DoublyLinkedAggregate.input} )set break resume )sys rm -f DoublyLinkedAggregate.output )spool DoublyLinkedAggregate.output @@ -16148,8 +16151,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DoublyLinkedAggregate.help} ==================================================================== DoublyLinkedAggregate examples ==================================================================== @@ -16157,7 +16160,7 @@ DoublyLinkedAggregate examples See Also: o )show DoublyLinkedAggregate -@ +\end{chunk} {\bf See:} \pagefrom{RecursiveAggregate}{RCAGG} @@ -16288,7 +16291,7 @@ These exports come from \refto{RecursiveAggregate}(S:Type): ?.value : (%,value) -> S \end{verbatim} -<>= +\begin{chunk}{category DLAGG DoublyLinkedAggregate} )abbrev category DLAGG DoublyLinkedAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -16336,19 +16339,19 @@ DoublyLinkedAggregate(S:Type): Category == RecursiveAggregate S with ++ setnext!(u,v) destructively sets the next node of doubly-linked ++ aggregate u to v, returning v. -@ -<>= +\end{chunk} +\begin{chunk}{DLAGG.dotabb} "DLAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=DLAGG"]; "DLAGG" -> "RCAGG" -@ -<>= +\end{chunk} +\begin{chunk}{DLAGG.dotfull} "DoublyLinkedAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DLAGG"]; "DoublyLinkedAggregate(a:Type)" -> "RecursiveAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{DLAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -16372,12 +16375,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Group}{GROUP} \pagepic{ps/v102group.ps}{GROUP}{0.65} -<>= +\begin{chunk}{Group.input} )set break resume )sys rm -f Group.output )spool Group.output @@ -16409,8 +16412,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Group.help} ==================================================================== Group examples ==================================================================== @@ -16418,7 +16421,7 @@ Group examples See Also: o )show Group -@ +\end{chunk} {\bf See:} \pageto{FunctionSpace}{FS} @@ -16486,7 +16489,7 @@ These exports come from \refto{Monoid}(): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category GROUP Group} )abbrev category GROUP Group ++ Author: ++ Date Created: @@ -16534,20 +16537,20 @@ Group(): Category == Monoid with conjugate(p,q) == inv(q) * p * q commutator(p,q) == inv(p) * inv(q) * p * q -@ -<>= +\end{chunk} +\begin{chunk}{GROUP.dotabb} "GROUP" [color=lightblue,href="bookvol10.2.pdf#nameddest=GROUP"]; "GROUP" -> "MONOID" -@ -<>= +\end{chunk} +\begin{chunk}{GROUP.dotfull} "Group()" [color=lightblue,href="bookvol10.2.pdf#nameddest=GROUP"]; "Group()" -> "Monoid()" -@ -<>= +\end{chunk} +\begin{chunk}{GROUP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -16592,12 +16595,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LinearAggregate}{LNAGG} \pagepic{ps/v102linearaggregate.ps}{LNAGG}{0.90} -<>= +\begin{chunk}{LinearAggregate.input} )set break resume )sys rm -f LinearAggregate.output )spool LinearAggregate.output @@ -16670,8 +16673,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LinearAggregate.help} ==================================================================== LinearAggregate examples ==================================================================== @@ -16679,7 +16682,7 @@ LinearAggregate examples See Also: o )show LinearAggregate -@ +\end{chunk} {\bf See:} \pageto{ExtensibleLinearAggregate}{ELAGG} @@ -16846,7 +16849,7 @@ These exports come from \refto{Collection}(S:Type): select : ((S -> Boolean),%) -> % if $ has finiteAggregate \end{verbatim} -<>= +\begin{chunk}{category LNAGG LinearAggregate} )abbrev category LNAGG LinearAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -16934,21 +16937,21 @@ LinearAggregate(S:Type): Category == --if % has shallowlyMutable then new(n, s) == fill_!(new n, s) -@ -<>= +\end{chunk} +\begin{chunk}{LNAGG.dotabb} "LNAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=LNAGG"]; "LNAGG" -> "IXAGG" "LNAGG" -> "CLAGG" -@ -<>= +\end{chunk} +\begin{chunk}{LNAGG.dotfull} "LinearAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LNAGG"]; "LinearAggregate(a:Type)" -> "IndexedAggregate(b:Integer,a:Type)" "LinearAggregate(a:Type)" -> "Collection(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{LNAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -16981,12 +16984,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MatrixCategory}{MATCAT} \pagepic{ps/v102matrixcategory.ps}{MATCAT}{0.60} -<>= +\begin{chunk}{MatrixCategory.input} )set break resume )sys rm -f MatrixCategory.output )spool MatrixCategory.output @@ -17880,8 +17883,8 @@ inverse matrix [[j**i for i in 0..4] for j in 1..5] )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MatrixCategory.help} ==================================================================== MatrixCategory examples ==================================================================== @@ -18157,7 +18160,7 @@ if the matrix is square but not invertible. (matrix [[j**i for i in 0..4] for j in 1..5]) ** 2 -@ +\end{chunk} We define three categories for matrices \begin{itemize} @@ -18382,7 +18385,7 @@ Col:FiniteLinearAggregate(R): ?=? : (%,%) -> Boolean if R has SETCAT \end{verbatim} -<>= +\begin{chunk}{category MATCAT MatrixCategory} )abbrev category MATCAT MatrixCategory ++ Authors: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -19131,22 +19134,22 @@ MatrixCategory(R,Row,Col): Category == Definition where error "**: matrix must be invertible" positivePower(xInv :: %,-n) -@ -<>= +\end{chunk} +\begin{chunk}{MATCAT.dotabb} "MATCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=MATCAT"]; "MATCAT" -> "ARR2CAT" -@ -<>= +\end{chunk} +\begin{chunk}{MATCAT.dotfull} "MatrixCategory(a:Ring,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MATCAT"]; "MatrixCategory(a:Ring,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a)" -> "TwoDimensionalArrayCategory(a:Type,b:FiniteLinearAggregate(a),c:FiniteLinearAggregate(a))" -@ -<>= +\end{chunk} +\begin{chunk}{MATCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -19193,12 +19196,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedAbelianSemiGroup}{OASGP} \pagepic{ps/v102orderedabeliansemigroup.ps}{OASGP}{0.75} -<>= +\begin{chunk}{OrderedAbelianSemiGroup.input} )set break resume )sys rm -f OrderedAbelianSemiGroup.output )spool OrderedAbelianSemiGroup.output @@ -19228,8 +19231,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedAbelianSemiGroup.help} ==================================================================== OrderedAbelianSemiGroup examples ==================================================================== @@ -19237,7 +19240,7 @@ OrderedAbelianSemiGroup examples See Also: o )show OrderedAbelianSemiGroup -@ +\end{chunk} {\bf See:} \pageto{OrderedAbelianMonoid}{OAMON} @@ -19290,7 +19293,7 @@ These exports come from \refto{AbelianMonoid}(): ?+? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category OASGP OrderedAbelianSemiGroup} )abbrev category OASGP OrderedAbelianSemiGroup ++ Author: ++ Date Created: @@ -19310,22 +19313,22 @@ These exports come from \refto{AbelianMonoid}(): OrderedAbelianSemiGroup(): Category == Join(OrderedSet, AbelianMonoid) -@ -<>= +\end{chunk} +\begin{chunk}{OASGP.dotabb} "OASGP" [color=lightblue,href="bookvol10.2.pdf#nameddest=OASGP"]; "OASGP" -> "ORDSET" "OASGP" -> "ABELMON" -@ -<>= +\end{chunk} +\begin{chunk}{OASGP.dotfull} "OrderedAbelianSemiGroup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OASGP"]; "OrderedAbelianSemiGroup()" -> "OrderedSet()" "OrderedAbelianSemiGroup()" -> "AbelianMonoid()" -@ -<>= +\end{chunk} +\begin{chunk}{OASGP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -19370,12 +19373,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedMonoid}{ORDMON} \pagepic{ps/v102orderedmonoid.ps}{ORDMON}{0.75} -<>= +\begin{chunk}{OrderedMonoid.input} )set break resume )sys rm -f OrderedMonoid.output )spool OrderedMonoid.output @@ -19407,8 +19410,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedMonoid.help} ==================================================================== OrderedMonoid examples ==================================================================== @@ -19416,7 +19419,7 @@ OrderedMonoid examples See Also: o )show OrderedMonoid -@ +\end{chunk} {\bf See:} \pagefrom{Monoid}{MONOID} @@ -19473,7 +19476,7 @@ These exports come from \refto{OrderedSet}(): ?>=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category ORDMON OrderedMonoid} )abbrev category ORDMON OrderedMonoid ++ Author: ++ Date Created: @@ -19494,22 +19497,22 @@ These exports come from \refto{OrderedSet}(): OrderedMonoid(): Category == Join(OrderedSet, Monoid) -@ -<>= +\end{chunk} +\begin{chunk}{ORDMON.dotabb} "ORDMON" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDMON"]; "ORDMON" -> "ORDSET" "ORDMON" -> "MONOID" -@ -<>= +\end{chunk} +\begin{chunk}{ORDMON.dotfull} "OrderedMonoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDMON"]; "OrderedMonoid()" -> "OrderedSet()" "OrderedMonoid()" -> "Monoid()" -@ -<>= +\end{chunk} +\begin{chunk}{ORDMON.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -19556,12 +19559,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PolynomialSetCategory}{PSETCAT} \pagepic{ps/v102polynomialsetcategory.ps}{PSETCAT}{0.30} -<>= +\begin{chunk}{PolynomialSetCategory.input} )set break resume )sys rm -f PolynomialSetCategory.output )spool PolynomialSetCategory.output @@ -19630,8 +19633,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialSetCategory.help} ==================================================================== PolynomialSetCategory examples ==================================================================== @@ -19639,7 +19642,7 @@ PolynomialSetCategory examples See Also: o )show PolynomialSetCategory -@ +\end{chunk} {\bf See:} \pageto{TriangularSetCategory}{TSETCAT} @@ -19795,7 +19798,7 @@ These exports come from \refto{IntegralDomain}(): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category PSETCAT PolynomialSetCategory} )abbrev category PSETCAT PolynomialSetCategory ++ Author: Marc Moreno Maza ++ Date Created: 04/26/1994 @@ -20155,16 +20158,16 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_ rs := cons(unitCanonical(p),rs) removeDuplicates rs -@ -<>= +\end{chunk} +\begin{chunk}{PSETCAT.dotabb} "PSETCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSETCAT"]; "PSETCAT" -> "KOERCE" "PSETCAT" -> "CLAGG" "PSETCAT" -> "SETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{PSETCAT.dotfull} "PolynomialSetCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSETCAT"]; "PolynomialSetCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" @@ -20179,8 +20182,8 @@ PolynomialSetCategory(R:Ring, E:OrderedAbelianMonoidSup,_ "PolynomialSetCategory(a:IntegralDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -> "PolynomialSetCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{PSETCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -20239,12 +20242,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PriorityQueueAggregate}{PRQAGG} \pagepic{ps/v102priorityqueueaggregate.ps}{PRQAGG}{1.00} -<>= +\begin{chunk}{PriorityQueueAggregate.input} )set break resume )sys rm -f PriorityQueueAggregate.output )spool PriorityQueueAggregate.output @@ -20293,8 +20296,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PriorityQueueAggregate.help} ==================================================================== PriorityQueueAggregate examples ==================================================================== @@ -20302,7 +20305,7 @@ PriorityQueueAggregate examples See Also: o )show PriorityQueueAggregate -@ +\end{chunk} {\bf See:} \pageto{OrderedMultisetAggregate}{OMSAGG} @@ -20403,7 +20406,7 @@ These exports come from \refto{BagAggregate}(S:OrderedSet): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category PRQAGG PriorityQueueAggregate} )abbrev category PRQAGG PriorityQueueAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -20429,14 +20432,14 @@ PriorityQueueAggregate(S:OrderedSet): Category == BagAggregate S with ++ merge!(q,q1) destructively changes priority queue q to include the ++ values from priority queue q1. -@ -<>= +\end{chunk} +\begin{chunk}{PRQAGG.dotabb} "PRQAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRQAGG"]; "PRQAGG" -> "BGAGG" -@ -<>= +\end{chunk} +\begin{chunk}{PRQAGG.dotfull} "PriorityQueueAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PRQAGG"]; "PriorityQueueAggregate(a:Type)" -> "BagAggregate(a:Type)" @@ -20450,8 +20453,8 @@ PriorityQueueAggregate(S:OrderedSet): Category == BagAggregate S with "PriorityQueueAggregate(a:OrderedSet)" -> "PriorityQueueAggregate(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{PRQAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -20475,12 +20478,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{QueueAggregate}{QUAGG} \pagepic{ps/v102queueaggregate.ps}{QUAGG}{1.00} -<>= +\begin{chunk}{QueueAggregate.input} )set break resume )sys rm -f QueueAggregate.output )spool QueueAggregate.output @@ -20530,8 +20533,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QueueAggregate.help} ==================================================================== QueueAggregate examples ==================================================================== @@ -20539,7 +20542,7 @@ QueueAggregate examples See Also: o )show QueueAggregate -@ +\end{chunk} {\bf See:} \pageto{DequeueAggregate}{DQAGG} @@ -20646,7 +20649,7 @@ These exports come from \refto{BagAggregate}(S:Type): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category QUAGG QueueAggregate} )abbrev category QUAGG QueueAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -20685,13 +20688,13 @@ QueueAggregate(S:Type): Category == BagAggregate S with ++ The queue q is unchanged by this operation. ++ Error: if q is empty. -@ -<>= +\end{chunk} +\begin{chunk}{QUAGG.dotabb} "QUAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=QUAGG"]; "QUAGG" -> "BGAGG" -@ -<>= +\end{chunk} +\begin{chunk}{QUAGG.dotfull} "QueueAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=QUAGG"]; "QueueAggregate(a:Type)" -> "BagAggregate(a:Type)" @@ -20700,8 +20703,8 @@ QueueAggregate(S:Type): Category == BagAggregate S with [color=seagreen,href="bookvol10.2.pdf#nameddest=QUAGG"]; "QueueAggregate(a:SetCategory)" -> "QueueAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{QUAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -20725,12 +20728,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SetAggregate}{SETAGG} \pagepic{ps/v102setaggregate.ps}{SETAGG}{0.90} -<>= +\begin{chunk}{SetAggregate.input} )set break resume )sys rm -f SetAggregate.output )spool SetAggregate.output @@ -20789,8 +20792,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SetAggregate.help} ==================================================================== SetAggregate examples ==================================================================== @@ -20798,7 +20801,7 @@ SetAggregate examples See Also: o )show SetAggregate -@ +\end{chunk} {\bf See:} \pageto{FiniteSetAggregate}{FSAGG} @@ -20948,7 +20951,7 @@ These exports come from \refto{Collection}(S:SetCategory): if $ has finiteAggregate \end{verbatim} -<>= +\begin{chunk}{category SETAGG SetAggregate} )abbrev category SETAGG SetAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -21027,22 +21030,22 @@ SetAggregate(S:SetCategory): union(x:S, s:%) == union(s, {x}) difference(s:%, x:S) == difference(s, {x}) -@ -<>= +\end{chunk} +\begin{chunk}{SETAGG.dotabb} "SETAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETAGG"]; "SETAGG" -> "SETCAT" "SETAGG" -> "CLAGG" -@ -<>= +\end{chunk} +\begin{chunk}{SETAGG.dotfull} "SetAggregate(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SETAGG"]; "SetAggregate(a:SetCategory)" -> "SetCategory()" "SetAggregate(a:SetCategory)" -> "Collection(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{SETAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -21084,12 +21087,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{StackAggregate}{SKAGG} \pagepic{ps/v102stackaggregate.ps}{SKAGG}{1.00} -<>= +\begin{chunk}{StackAggregate.input} )set break resume )sys rm -f StackAggregate.output )spool StackAggregate.output @@ -21138,8 +21141,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StackAggregate.help} ==================================================================== StackAggregate examples ==================================================================== @@ -21147,7 +21150,7 @@ StackAggregate examples See Also: o )show StackAggregate -@ +\end{chunk} {\bf See:} \pageto{DequeueAggregate}{DQAGG} @@ -21250,7 +21253,7 @@ These exports come from \refto{BagAggregate}(S:Type): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category SKAGG StackAggregate} )abbrev category SKAGG StackAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -21296,13 +21299,13 @@ StackAggregate(S:Type): Category == BagAggregate S with ++X depth a -@ -<>= +\end{chunk} +\begin{chunk}{SKAGG.dotabb} "SKAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=SKAGG"]; "SKAGG" -> "BGAGG" -@ -<>= +\end{chunk} +\begin{chunk}{SKAGG.dotfull} "StackAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SKAGG"]; "StackAggregate(a:Type)" -> "BagAggregate(a:Type)" @@ -21311,8 +21314,8 @@ StackAggregate(S:Type): Category == BagAggregate S with [color=seagreen,href="bookvol10.2.pdf#nameddest=SKAGG"]; "StackAggregate(a:SetCategory)" -> "StackAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{SKAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -21336,12 +21339,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnaryRecursiveAggregate}{URAGG} \pagepic{ps/v102unaryrecursiveaggregate.ps}{URAGG}{1.00} -<>= +\begin{chunk}{UnaryRecursiveAggregate.input} )set break resume )sys rm -f UnaryRecursiveAggregate.output )spool UnaryRecursiveAggregate.output @@ -21416,8 +21419,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnaryRecursiveAggregate.help} ==================================================================== UnaryRecursiveAggregate examples ==================================================================== @@ -21425,7 +21428,7 @@ UnaryRecursiveAggregate examples See Also: o )show UnaryRecursiveAggregate -@ +\end{chunk} {\bf See:} \pageto{StreamAggregate}{STAGG} @@ -21593,7 +21596,7 @@ These exports come from \refto{RecursiveAggregate}(S:Type): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category URAGG UnaryRecursiveAggregate} )abbrev category URAGG UnaryRecursiveAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -21857,19 +21860,19 @@ UnaryRecursiveAggregate(S:Type): Category == RecursiveAggregate S with setrest_!(x, empty()) y -@ -<>= +\end{chunk} +\begin{chunk}{URAGG.dotabb} "URAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=URAGG"]; "URAGG" -> "RCAGG" -@ -<>= +\end{chunk} +\begin{chunk}{URAGG.dotfull} "UnaryRecursiveAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=URAGG"]; "UnaryRecursiveAggregate(a:Type)" -> "RecursiveAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{URAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -21893,13 +21896,13 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 6} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AbelianGroup}{ABELGRP} \pagepic{ps/v102abeliangroup.ps}{ABELGRP}{0.75} -<>= +\begin{chunk}{AbelianGroup.input} )set break resume )sys rm -f AbelianGroup.output )spool AbelianGroup.output @@ -21929,8 +21932,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AbelianGroup.help} ==================================================================== AbelianGroup examples ==================================================================== @@ -21938,7 +21941,7 @@ AbelianGroup examples See Also: o )show AbelianGroup -@ +\end{chunk} {\bf See:} \pageto{FiniteDivisorCategory}{FDIVCAT} @@ -21995,7 +21998,7 @@ These exports come from \refto{CancellationAbelianMonoid}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category ABELGRP AbelianGroup} )abbrev category ABELGRP AbelianGroup ++ Author: ++ Date Created: @@ -22035,21 +22038,21 @@ AbelianGroup(): Category == CancellationAbelianMonoid with n>0 => double(n pretend PositiveInteger,x) double((-n) pretend PositiveInteger,-x) -@ -<>= +\end{chunk} +\begin{chunk}{ABELGRP.dotabb} "ABELGRP" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELGRP"]; "ABELGRP" -> "CABMON" -@ -<>= +\end{chunk} +\begin{chunk}{ABELGRP.dotfull} "AbelianGroup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ABELGRP"]; "AbelianGroup()" -> "CancellationAbelianMonoid()" "AbelianGroup()" -> "RepeatedDoubling(AbelianGroup)" -@ -<>= +\end{chunk} +\begin{chunk}{ABELGRP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -22083,12 +22086,12 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BinaryTreeCategory}{BTCAT} \pagepic{ps/v102binarytreecategory.ps}{BTCAT}{1.00} -<>= +\begin{chunk}{BinaryTreeCategory.input} )set break resume )sys rm -f BinaryTreeCategory.output )spool BinaryTreeCategory.output @@ -22149,8 +22152,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryTreeCategory.help} ==================================================================== BinaryTreeCategory examples ==================================================================== @@ -22158,7 +22161,7 @@ BinaryTreeCategory examples See Also: o )show BinaryTreeCategory -@ +\end{chunk} {\bf See:} \pagefrom{BinaryRecursiveAggregate}{BRAGG} @@ -22281,7 +22284,7 @@ These exports come from \refto{BinaryRecursiveAggregate}(S:SetCategory): ?.left : (%,left) -> % \end{verbatim} -<>= +\begin{chunk}{category BTCAT BinaryTreeCategory} )abbrev category BTCAT BinaryTreeCategory ++ Author:W. H. Burge ++ Date Created:17 Feb 1992 @@ -22336,21 +22339,21 @@ BinaryTreeCategory(S: SetCategory): Category == _ k := treeCount(left t,k) treeCount(right t,k) -@ -<>= +\end{chunk} +\begin{chunk}{BTCAT.dotabb} "BTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=BTCAT"]; "BTCAT" -> "BRAGG" -@ -<>= +\end{chunk} +\begin{chunk}{BTCAT.dotfull} "BinaryTreeCategory(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=BTCAT"]; "BinaryTreeCategory(a:SetCategory)" -> "BinaryRecursiveAggregate(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{BTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -22383,12 +22386,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Dictionary}{DIAGG} \pagepic{ps/v102dictionary.ps}{DIAGG}{1.00} -<>= +\begin{chunk}{Dictionary.input} )set break resume )sys rm -f Dictionary.output )spool Dictionary.output @@ -22449,8 +22452,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Dictionary.help} ==================================================================== Dictionary examples ==================================================================== @@ -22458,7 +22461,7 @@ Dictionary examples See Also: o )show Dictionary -@ +\end{chunk} {\bf See:} \pageto{FiniteSetAggregate}{FSAGG} @@ -22586,7 +22589,7 @@ These exports come from \refto{DictionaryOperations}(S:SetCategory): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category DIAGG Dictionary} )abbrev category DIAGG Dictionary ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -22630,13 +22633,13 @@ Dictionary(S:SetCategory): Category == for m in parts t repeat if f m then remove_!(m, t) t -@ -<>= +\end{chunk} +\begin{chunk}{DIAGG.dotabb} "DIAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIAGG"]; "DIAGG" -> "DIOPS" -@ -<>= +\end{chunk} +\begin{chunk}{DIAGG.dotfull} "Dictionary(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIAGG"]; "Dictionary(a:SetCategory)" -> "DictionaryOperations(a:SetCategory)" @@ -22646,8 +22649,8 @@ Dictionary(S:SetCategory): Category == "Dictionary(Record(a:SetCategory,b:SetCategory))" -> "Dictionary(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{DIAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -22684,12 +22687,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DequeueAggregate}{DQAGG} \pagepic{ps/v102dequeueaggregate.ps}{DQAGG}{1.00} -<>= +\begin{chunk}{DequeueAggregate.input} )set break resume )sys rm -f DequeueAggregate.output )spool DequeueAggregate.output @@ -22746,8 +22749,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DequeueAggregate.help} ==================================================================== DequeueAggregate examples ==================================================================== @@ -22755,7 +22758,7 @@ DequeueAggregate examples See Also: o )show DequeueAggregate -@ +\end{chunk} {\bf See:} \pagefrom{QueueAggregate}{QUAGG} @@ -22894,7 +22897,7 @@ These exports come from \refto{QueueAggregate}(S:Type): rotate! : % -> % \end{verbatim} -<>= +\begin{chunk}{category DQAGG DequeueAggregate} )abbrev category DQAGG DequeueAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -22944,14 +22947,14 @@ DequeueAggregate(S:Type): ++ reverse!(d) destructively replaces d by its reverse dequeue, i.e. ++ the top (front) element is now the bottom (back) element, and so on. -@ -<>= +\end{chunk} +\begin{chunk}{DQAGG.dotabb} "DQAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=DQAGG"]; "DQAGG" -> "SKAGG" "DQAGG" -> "QUAGG" -@ -<>= +\end{chunk} +\begin{chunk}{DQAGG.dotfull} "DequeueAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DQAGG"]; "DequeueAggregate(a:Type)" -> "StackAggregate(a:Type)" @@ -22961,8 +22964,8 @@ DequeueAggregate(S:Type): [color=seagreen,href="bookvol10.2.pdf#nameddest=DQAGG"]; "DequeueAggregate(a:SetCategory)" -> "DequeueAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{DQAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -22987,12 +22990,12 @@ digraph pic { "..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ExtensibleLinearAggregate}{ELAGG} \pagepic{ps/v102extensiblelinearaggregate.ps}{ELAGG}{0.90} -<>= +\begin{chunk}{ExtensibleLinearAggregate.input} )set break resume )sys rm -f ExtensibleLinearAggregate.output )spool ExtensibleLinearAggregate.output @@ -23075,8 +23078,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExtensibleLinearAggregate.help} ==================================================================== ExtensibleLinearAggregate examples ==================================================================== @@ -23084,7 +23087,7 @@ ExtensibleLinearAggregate examples See Also: o )show ExtensibleLinearAggregate -@ +\end{chunk} {\bf See:} \pageto{ListAggregate}{LSAGG} @@ -23263,7 +23266,7 @@ These exports come from \refto{LinearAggregate}(S:Type): ?.? : (%,UniversalSegment Integer) -> % \end{verbatim} -<>= +\begin{chunk}{category ELAGG ExtensibleLinearAggregate} )abbrev category ELAGG ExtensibleLinearAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -23337,19 +23340,19 @@ ExtensibleLinearAggregate(S:Type):Category == LinearAggregate S with if S has OrderedSet then merge_!(x, y) == merge_!(_<$S, x, y) -@ -<>= +\end{chunk} +\begin{chunk}{ELAGG.dotabb} "ELAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELAGG"]; "ELAGG" -> "LNAGG" -@ -<>= +\end{chunk} +\begin{chunk}{ELAGG.dotfull} "ExtensibleLinearAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ELAGG"]; "ExtensibleLinearAggregate(a:Type)" -> "LinearAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{ELAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -23378,12 +23381,12 @@ digraph pic { "..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteLinearAggregate}{FLAGG} \pagepic{ps/v102finitelinearaggregate.ps}{FLAGG}{0.90} -<>= +\begin{chunk}{FiniteLinearAggregate.input} )set break resume )sys rm -f FiniteLinearAggregate.output )spool FiniteLinearAggregate.output @@ -23476,8 +23479,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteLinearAggregate.help} ==================================================================== FiniteLinearAggregate examples ==================================================================== @@ -23485,7 +23488,7 @@ FiniteLinearAggregate examples See Also: o )show FiniteLinearAggregate -@ +\end{chunk} {\bf See:} \pageto{OneDimensionalArrayAggregate}{A1AGG} @@ -23699,7 +23702,7 @@ These exports come from \refto{OrderedSet}: ?>=? : (%,%) -> Boolean if S has ORDSET \end{verbatim} -<>= +\begin{chunk}{category FLAGG FiniteLinearAggregate} )abbrev category FLAGG FiniteLinearAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -23785,19 +23788,19 @@ FiniteLinearAggregate(S:Type): Category == LinearAggregate S with if S has OrderedSet then sort_! l == sort_!(_<$S, l) -@ -<>= +\end{chunk} +\begin{chunk}{FLAGG.dotabb} "FLAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLAGG"]; "FLAGG" -> "LNAGG" -@ -<>= +\end{chunk} +\begin{chunk}{FLAGG.dotfull} "FiniteLinearAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLAGG"]; "FiniteLinearAggregate(a:Type)" -> "LinearAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{FLAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -23830,12 +23833,12 @@ digraph pic { "..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FreeAbelianMonoidCategory}{FAMONC} \pagepic{ps/v102freeabelianmonoidcategory.ps}{FAMONC}{0.50} -<>= +\begin{chunk}{FreeAbelianMonoidCategory.input} )set break resume )sys rm -f FreeAbelianMonoidCategory.output )spool FreeAbelianMonoidCategory.output @@ -23871,8 +23874,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeAbelianMonoidCategory.help} ==================================================================== FreeAbelianMonoidCategory examples ==================================================================== @@ -23880,7 +23883,7 @@ FreeAbelianMonoidCategory examples See Also: o )show FreeAbelianMonoidCategory -@ +\end{chunk} {\bf See:} \pagefrom{CancellationAbelianMonoid}{CABMON} @@ -23949,7 +23952,7 @@ These exports come from \refto{RetractableTo}(SetCategory): retractIfCan : % -> Union(S,"failed") \end{verbatim} -<>= +\begin{chunk}{category FAMONC FreeAbelianMonoidCategory} )abbrev category FAMONC FreeAbelianMonoidCategory ++ Category for free abelian monoid on any set of generators ++ Author: Manuel Bronstein @@ -23992,15 +23995,15 @@ FreeAbelianMonoidCategory(S: SetCategory, E:CancellationAbelianMonoid): _ ++ where ci ranges in the intersection ++ of \spad{{a1,...,an}} and \spad{{b1,...,bm}}. -@ -<>= +\end{chunk} +\begin{chunk}{FAMONC.dotabb} "FAMONC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAMONC"]; "FAMONC" -> "CABMON" "FAMONC" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{FAMONC.dotfull} "FreeAbelianMonoidCategory(a:SetCategory,b:CancellationAbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAMONC"]; "FreeAbelianMonoidCategory(a:SetCategory,b:CancellationAbelianMonoid)" -> @@ -24008,8 +24011,8 @@ FreeAbelianMonoidCategory(S: SetCategory, E:CancellationAbelianMonoid): _ "FreeAbelianMonoidCategory(a:SetCategory,b:CancellationAbelianMonoid)" -> "RetractableTo(SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{FAMONC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -24063,12 +24066,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MultiDictionary}{MDAGG} \pagepic{ps/v102multidictionary.ps}{MDAGG}{0.90} -<>= +\begin{chunk}{MultiDictionary.input} )set break resume )sys rm -f MultiDictionary.output )spool MultiDictionary.output @@ -24131,8 +24134,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MultiDictionary.help} ==================================================================== MultiDictionary examples ==================================================================== @@ -24140,7 +24143,7 @@ MultiDictionary examples See Also: o )show MultiDictionary -@ +\end{chunk} {\bf See:} \pageto{MultisetAggregate}{MSETAGG} @@ -24269,7 +24272,7 @@ These exports come from \refto{DictionaryOperations}(S:SetCategory): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category MDAGG MultiDictionary} )abbrev category MDAGG MultiDictionary ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -24300,19 +24303,19 @@ MultiDictionary(S:SetCategory): Category == DictionaryOperations S with -- ++ duplicates(d) returns a list of ++ duplicates iterator -- to become duplicates: % -> Iterator(D,D) -@ -<>= +\end{chunk} +\begin{chunk}{MDAGG.dotabb} "MDAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=MDAGG"]; "MDAGG" -> "DIOPS" -@ -<>= +\end{chunk} +\begin{chunk}{MDAGG.dotfull} "MultiDictionary(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MDAGG"]; "MultiDictionary(a:SetCategory)" -> "DictionaryOperations(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{MDAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -24343,12 +24346,12 @@ digraph pic { "..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedAbelianMonoid}{OAMON} \pagepic{ps/v102orderedabelianmonoid.ps}{OAMON}{1.00} -<>= +\begin{chunk}{OrderedAbelianMonoid.input} )set break resume )sys rm -f OrderedAbelianMonoid.output )spool OrderedAbelianMonoid.output @@ -24378,8 +24381,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedAbelianMonoid.help} ==================================================================== OrderedAbelianMonoid examples ==================================================================== @@ -24387,7 +24390,7 @@ OrderedAbelianMonoid examples See Also: o )show OrderedAbelianMonoid -@ +\end{chunk} {\bf See:} \pageto{OrderedCancellationAbelianMonoid}{OCAMON} @@ -24440,7 +24443,7 @@ These exports come from \refto{AbelianMonoid}(): ?*? : (NonNegativeInteger,%) -> % \end{verbatim} -<>= +\begin{chunk}{category OAMON OrderedAbelianMonoid} )abbrev category OAMON OrderedAbelianMonoid ++ Author: ++ Date Created: @@ -24458,21 +24461,21 @@ These exports come from \refto{AbelianMonoid}(): OrderedAbelianMonoid(): Category == Join(OrderedAbelianSemiGroup, AbelianMonoid) -@ -<>= +\end{chunk} +\begin{chunk}{OAMON.dotabb} "OAMON" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAMON"]; "OAMON" -> "OASGP" "OAMON" -> "ABELMON" -@ -<>= +\end{chunk} +\begin{chunk}{OAMON.dotfull} "OrderedAbelianMonoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAMON"]; "OrderedAbelianMonoid()" -> "OrderedAbelianSemiGroup()" "OrderedAbelianMonoid()" -> "AbelianMonoid()" -@ -<>= +\end{chunk} +\begin{chunk}{OAMON.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -24496,12 +24499,12 @@ digraph pic { "ABELSG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PermutationCategory}{PERMCAT} \pagepic{ps/v102permutationcategory.ps}{PERMCAT}{0.65} -<>= +\begin{chunk}{PermutationCategory.input} )set break resume )sys rm -f PermutationCategory.output )spool PermutationCategory.output @@ -24541,8 +24544,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PermutationCategory.help} ==================================================================== PermutationCategory examples ==================================================================== @@ -24550,7 +24553,7 @@ PermutationCategory examples See Also: o )show PermutationCategory -@ +\end{chunk} {\bf See:} \pagefrom{Group}{GROUP} @@ -24638,7 +24641,7 @@ These exports come from \refto{OrderedSet}(): ?>=? : (%,%) -> Boolean if S has ORDSET or S has FINITE \end{verbatim} -<>= +\begin{chunk}{category PERMCAT PermutationCategory} )abbrev category PERMCAT PermutationCategory ++ Authors: Holger Gollan, Johannes Grabmeier, Gerhard Schneider ++ Date Created: 27 July 1989 @@ -24683,20 +24686,20 @@ PermutationCategory(S:SetCategory): Category == Group with if S has OrderedSet then OrderedSet if S has Finite then OrderedSet -@ -<>= +\end{chunk} +\begin{chunk}{PERMCAT.dotabb} "PERMCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PERMCAT"]; "PERMCAT" -> "GROUP" -@ -<>= +\end{chunk} +\begin{chunk}{PERMCAT.dotfull} "PermutationCategory(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PERMCAT"]; "PermutationCategory(a:SetCategory)" -> "Group()" -@ -<>= +\end{chunk} +\begin{chunk}{PERMCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -24744,12 +24747,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{StreamAggregate}{STAGG} \pagepic{ps/v102streamaggregate.ps}{STAGG}{0.60} -<>= +\begin{chunk}{StreamAggregate.input} )set break resume )sys rm -f StreamAggregate.output )spool StreamAggregate.output @@ -24851,8 +24854,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StreamAggregate.help} ==================================================================== StreamAggregate examples ==================================================================== @@ -24860,7 +24863,7 @@ StreamAggregate examples See Also: o )show StreamAggregate -@ +\end{chunk} {\bf See:} \pageto{LazyStreamAggregate}{LZSTAGG} @@ -25108,7 +25111,7 @@ These exports come from \refto{LinearAggregate}(S:Type): if $ has shallowlyMutable \end{verbatim} -<>= +\begin{chunk}{category STAGG StreamAggregate} )abbrev category STAGG StreamAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -25202,21 +25205,21 @@ StreamAggregate(S:Type): Category == setrest_!(tail x, y) x -@ -<>= +\end{chunk} +\begin{chunk}{STAGG.dotabb} "STAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=STAGG"]; "STAGG" -> "RCAGG" "STAGG" -> "LNAGG" -@ -<>= +\end{chunk} +\begin{chunk}{STAGG.dotfull} "StreamAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=STAGG"]; "StreamAggregate(a:Type)" -> "UnaryRecursiveAggregate(a:Type)" "StreamAggregate(a:Type)" -> "LinearAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{STAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -25254,12 +25257,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{TriangularSetCategory}{TSETCAT} \pagepic{ps/v102triangularsetcategory.ps}{TSETCAT}{0.35} -<>= +\begin{chunk}{TriangularSetCategory.input} )set break resume )sys rm -f TriangularSetCategory.output )spool TriangularSetCategory.output @@ -25351,8 +25354,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TriangularSetCategory.help} ==================================================================== TriangularSetCategory examples ==================================================================== @@ -25360,7 +25363,7 @@ TriangularSetCategory examples See Also: o )show TriangularSetCategory -@ +\end{chunk} {\bf See:} \pageto{RegularTriangularSetCategory}{RSETCAT} @@ -25582,7 +25585,7 @@ V:OrderedSet, P:RecursivePolynomialCategory(R,E,V)): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category TSETCAT TriangularSetCategory} )abbrev category TSETCAT TriangularSetCategory ++ Author: Marc Moreno Maza (marc@nag.co.uk) ++ Date Created: 04/26/1994 @@ -26080,14 +26083,14 @@ TriangularSetCategory(R:IntegralDomain,E:OrderedAbelianMonoidSup,_ m := #(members ts) subtractIfCan(n,m)$NonNegativeInteger::NonNegativeInteger -@ -<>= +\end{chunk} +\begin{chunk}{TSETCAT.dotabb} "TSETCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=TSETCAT"]; "TSETCAT" -> "PSETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{TSETCAT.dotfull} "TriangularSetCategory(a:IntegralDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=TSETCAT"]; "TriangularSetCategory(a:IntegralDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" @@ -26099,8 +26102,8 @@ TriangularSetCategory(R:IntegralDomain,E:OrderedAbelianMonoidSup,_ -> "TriangularSetCategory(a:IntegralDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{TSETCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -26169,13 +26172,13 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 7} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteDivisorCategory}{FDIVCAT} \pagepic{ps/v102finitedivisorcategory.ps}{FDIVCAT}{0.75} -<>= +\begin{chunk}{FiniteDivisorCategory.input} )set break resume )sys rm -f FiniteDivisorCategory.output )spool FiniteDivisorCategory.output @@ -26212,8 +26215,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteDivisorCategory.help} ==================================================================== FiniteDivisorCategory examples ==================================================================== @@ -26221,7 +26224,7 @@ FiniteDivisorCategory examples See Also: o )show FiniteDivisorCategory -@ +\end{chunk} {\bf See:} \pagefrom{AbelianGroup}{ABELGRP} @@ -26288,7 +26291,7 @@ These exports come from \refto{AbelianGroup}(): ?*? : (NonNegativeInteger,%) -> % \end{verbatim} -<>= +\begin{chunk}{category FDIVCAT FiniteDivisorCategory} )abbrev category FDIVCAT FiniteDivisorCategory ++ Category for finite rational divisors on a curve ++ Author: Manuel Bronstein @@ -26342,20 +26345,20 @@ FiniteDivisorCategory(F, UP, UPUP, R): Category == Result where add principal? d == generator(d) case R -@ -<>= +\end{chunk} +\begin{chunk}{FDIVCAT.dotabb} "FDIVCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FDIVCAT"]; "FDIVCAT" -> "ABELGRP" -@ -<>= +\end{chunk} +\begin{chunk}{FDIVCAT.dotfull} "FiniteDivisorCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FDIVCAT"]; "FiniteDivisorCategory()" -> "AbelianGroup()" -@ -<>= +\end{chunk} +\begin{chunk}{FDIVCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -26392,12 +26395,12 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteSetAggregate}{FSAGG} \pagepic{ps/v102finitesetaggregate.ps}{FSAGG}{0.75} -<>= +\begin{chunk}{FiniteSetAggregate.input} )set break resume )sys rm -f FiniteSetAggregate.output )spool FiniteSetAggregate.output @@ -26470,8 +26473,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteSetAggregate.help} ==================================================================== FiniteSetAggregate examples ==================================================================== @@ -26479,7 +26482,7 @@ FiniteSetAggregate examples See Also: o )show FiniteSetAggregate -@ +\end{chunk} {\bf See:} \pagefrom{Dictionary}{DIAGG} @@ -26665,7 +26668,7 @@ These exports come from \refto{SetAggregate}(S:SetCategory): union : (S,%) -> % \end{verbatim} -<>= +\begin{chunk}{category FSAGG FiniteSetAggregate} )abbrev category FSAGG FiniteSetAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -26759,21 +26762,21 @@ FiniteSetAggregate(S:SetCategory): Category == empty?(l := parts s) => error "Empty set" reduce("min", l) -@ -<>= +\end{chunk} +\begin{chunk}{FSAGG.dotabb} "FSAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FSAGG"]; "FSAGG" -> "DIAGG" "FSAGG" -> "SETAGG" -@ -<>= +\end{chunk} +\begin{chunk}{FSAGG.dotfull} "FiniteSetAggregate(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FSAGG"]; "FiniteSetAggregate(a:SetCategory)" -> "Dictionary(a:SetCategory)" "FiniteSetAggregate(a:SetCategory)" -> "SetAggregate(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{FSAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -26804,12 +26807,12 @@ digraph pic { "KOERCE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{KeyedDictionary}{KDAGG} \pagepic{ps/v102keyeddictionary.ps}{KDAGG}{1.00} -<>= +\begin{chunk}{KeyedDictionary.input} )set break resume )sys rm -f KeyedDictionary.output )spool KeyedDictionary.output @@ -26876,8 +26879,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{KeyedDictionary.help} ==================================================================== KeyedDictionary examples ==================================================================== @@ -26885,7 +26888,7 @@ KeyedDictionary examples See Also: o )show KeyedDictionary -@ +\end{chunk} {\bf See:} \pageto{TableAggregate}{TBAGG} @@ -27036,7 +27039,7 @@ and S=Record(key: Key,entry: Entry) ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category KDAGG KeyedDictionary} )abbrev category KDAGG KeyedDictionary ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -27076,20 +27079,20 @@ KeyedDictionary(Key:SetCategory, Entry:SetCategory): Category == if % has finiteAggregate then keys t == [x.key for x in parts t] -@ -<>= +\end{chunk} +\begin{chunk}{KDAGG.dotabb} "KDAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=KDAGG"]; "KDAGG" -> "DIAGG" -@ -<>= +\end{chunk} +\begin{chunk}{KDAGG.dotfull} "KeyedDictionary(a:SetCategory,b:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=KDAGG"]; "KeyedDictionary(a:SetCategory,b:SetCategory)" -> "Dictionary(Record(a:SetCategory,b:SetCategory))" -@ -<>= +\end{chunk} +\begin{chunk}{KDAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -27125,12 +27128,12 @@ digraph pic { "HOAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LazyStreamAggregate}{LZSTAGG} \pagepic{ps/v102lazystreamaggregate.ps}{LZSTAGG}{0.65} -<>= +\begin{chunk}{LazyStreamAggregate.input} )set break resume )sys rm -f LazyStreamAggregate.output )spool LazyStreamAggregate.output @@ -27236,8 +27239,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LazyStreamAggregate.help} ==================================================================== LazyStreamAggregate examples ==================================================================== @@ -27245,7 +27248,7 @@ LazyStreamAggregate examples See Also: o )show LazyStreamAggregate -@ +\end{chunk} {\bf See:} \pagefrom{StreamAggregate}{STAGG} @@ -27493,7 +27496,7 @@ These exports come from \refto{StreamAggregate}(S:Type): ?~=? : (%,%) -> Boolean if S has SETCAT \end{verbatim} -<>= +\begin{chunk}{category LZSTAGG LazyStreamAggregate} )abbrev category LZSTAGG LazyStreamAggregate ++ Category of streams with lazy evaluation ++ Author: Clifton J. Williamson @@ -28013,20 +28016,20 @@ LazyStreamAggregate(S:Type): Category == StreamAggregate(S) with while not empty? y repeat y := rst y x -@ -<>= +\end{chunk} +\begin{chunk}{LZSTAGG.dotabb} "LZSTAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=LZSTAGG"]; "LZSTAGG" -> "STAGG" -@ -<>= +\end{chunk} +\begin{chunk}{LZSTAGG.dotfull} "LazyStreamAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LZSTAGG"]; "LazyStreamAggregate(a:Type)" -> "StreamAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{LZSTAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -28063,12 +28066,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LeftModule}{LMODULE} \pagepic{ps/v102leftmodule.ps}{LMODULE}{0.90} -<>= +\begin{chunk}{LeftModule.input} )set break resume )sys rm -f LeftModule.output )spool LeftModule.output @@ -28098,8 +28101,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LeftModule.help} ==================================================================== LeftModule examples ==================================================================== @@ -28107,7 +28110,7 @@ LeftModule examples See Also: o )show LeftModule -@ +\end{chunk} {\bf See:} \pageto{BiModule}{BMODULE} @@ -28157,7 +28160,7 @@ These exports come from \refto{AbelianGroup}(): -? : % -> % \end{verbatim} -<>= +\begin{chunk}{category LMODULE LeftModule} )abbrev category LMODULE LeftModule ++ Author: ++ Date Created: @@ -28183,14 +28186,14 @@ LeftModule(R:Rng):Category == AbelianGroup with ++ r*x returns the left multiplication of the module element x ++ by the ring element r. -@ -<>= +\end{chunk} +\begin{chunk}{LMODULE.dotabb} "LMODULE" [color=lightblue,href="bookvol10.2.pdf#nameddest=LMODULE"]; "LMODULE" -> "ABELGRP" -@ -<>= +\end{chunk} +\begin{chunk}{LMODULE.dotfull} "LeftModule(a:Rng)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LMODULE"]; "LeftModule(a:Rng)" -> "AbelianGroup()" @@ -28199,8 +28202,8 @@ LeftModule(R:Rng):Category == AbelianGroup with [color=seagreen,href="bookvol10.2.pdf#nameddest=LMODULE"]; "LeftModule(a:Ring)" -> "LeftModule(a:Rng)" -@ -<>= +\end{chunk} +\begin{chunk}{LMODULE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -28227,12 +28230,12 @@ digraph pic { "ABELMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ListAggregate}{LSAGG} \pagepic{ps/v102listaggregate.ps}{LSAGG}{0.60} -<>= +\begin{chunk}{ListAggregate.input} )set break resume )sys rm -f ListAggregate.output )spool ListAggregate.output @@ -28361,8 +28364,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ListAggregate.help} ==================================================================== ListAggregate examples ==================================================================== @@ -28370,7 +28373,7 @@ ListAggregate examples See Also: o )show ListAggregate -@ +\end{chunk} {\bf See:} \pageto{AssociationListAggregate}{ALAGG} @@ -28670,7 +28673,7 @@ These exports come from \refto{ExtensibleLinearAggregate}(S:Type): select! : ((S -> Boolean),%) -> % \end{verbatim} -<>= +\begin{chunk}{category LSAGG ListAggregate} )abbrev category LSAGG ListAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -28890,14 +28893,14 @@ ListAggregate(S:Type): Category == Join(StreamAggregate S, empty? x => not empty? y false -@ -<>= +\end{chunk} +\begin{chunk}{LSAGG.dotabb} "LSAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=LSAGG"]; "LSAGG" -> "FLAGG" "LSAGG" -> "ELAGG" -@ -<>= +\end{chunk} +\begin{chunk}{LSAGG.dotfull} "ListAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LSAGG"]; "ListAggregate(a:Type)" -> "StreamAggregate(a:Type)" @@ -28909,8 +28912,8 @@ ListAggregate(S:Type): Category == Join(StreamAggregate S, "ListAggregate(Record(a:SetCategory,b:SetCategory))" -> "ListAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{LSAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -28943,12 +28946,12 @@ digraph pic { "RCAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MultisetAggregate}{MSETAGG} \pagepic{ps/v102multisetaggregate.ps}{MSETAGG}{0.80} -<>= +\begin{chunk}{MultisetAggregate.input} )set break resume )sys rm -f MultisetAggregate.output )spool MultisetAggregate.output @@ -29016,8 +29019,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MultisetAggregate.help} ==================================================================== MultisetAggregate examples ==================================================================== @@ -29025,7 +29028,7 @@ MultisetAggregate examples See Also: o )show MultisetAggregate -@ +\end{chunk} {\bf See:} \pageto{OrderedMultisetAggregate}{OMSAGG} @@ -29178,7 +29181,7 @@ These exports come from \refto{SetAggregate}(S:SetCategory): ? Boolean \end{verbatim} -<>= +\begin{chunk}{category MSETAGG MultisetAggregate} )abbrev category MSETAGG MultisetAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -29196,22 +29199,22 @@ These exports come from \refto{SetAggregate}(S:SetCategory): MultisetAggregate(S:SetCategory): Category == Join(MultiDictionary S, SetAggregate S) -@ -<>= +\end{chunk} +\begin{chunk}{MSETAGG.dotabb} "MSETAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=MSETAGG"]; "MSETAGG" -> "MDAGG" "MSETAGG" -> "SETAGG" -@ -<>= +\end{chunk} +\begin{chunk}{MSETAGG.dotfull} "MultisetAggregate(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MSETAGG"]; "MultisetAggregate(a:SetCategory)" -> "MultiDictionary(a:SetCategory)" "MultisetAggregate(a:SetCategory)" -> "SetAggregate(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{MSETAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -29237,12 +29240,12 @@ digraph pic { "SETAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NonAssociativeRng}{NARNG} \pagepic{ps/v102nonassociativerng.ps}{NARNG}{1.00} -<>= +\begin{chunk}{NonAssociativeRng.input} )set break resume )sys rm -f NonAssociativeRng.output )spool NonAssociativeRng.output @@ -29276,8 +29279,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NonAssociativeRng.help} ==================================================================== NonAssociativeRng examples ==================================================================== @@ -29285,7 +29288,7 @@ NonAssociativeRng examples See Also: o )show NonAssociativeRng -@ +\end{chunk} {\bf See:} \pageto{NonAssociativeAlgebra}{NAALG} @@ -29351,7 +29354,7 @@ These exports come from \refto{Monad}(): ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category NARNG NonAssociativeRng} )abbrev category NARNG NonAssociativeRng ++ Author: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -29386,22 +29389,22 @@ NonAssociativeRng(): Category == Join(AbelianGroup,Monad) with commutator(x,y) == x*y - y*x antiCommutator(x,y) == x*y + y*x -@ -<>= +\end{chunk} +\begin{chunk}{NARNG.dotabb} "NARNG" [color=lightblue,href="bookvol10.2.pdf#nameddest=NARNG"]; "NARNG" -> "ABELGRP" "NARNG" -> "MONAD" -@ -<>= +\end{chunk} +\begin{chunk}{NARNG.dotfull} "NonAssociativeRng()" [color=lightblue,href="bookvol10.2.pdf#nameddest=NARNG"]; "NonAssociativeRng()" -> "AbelianGroup()" "NonAssociativeRng()" -> "Monad()" -@ -<>= +\end{chunk} +\begin{chunk}{NARNG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -29434,12 +29437,12 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OneDimensionalArrayAggregate}{A1AGG} \pagepic{ps/v102onedimensionalarrayaggregate.ps}{A1AGG}{1.00} -<>= +\begin{chunk}{OneDimensionalArrayAggregate.input} )set break resume )sys rm -f OneDimensionalArrayAggregate.output )spool OneDimensionalArrayAggregate.output @@ -29532,8 +29535,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OneDimensionalArrayAggregate.help} ==================================================================== OneDimensionalArrayAggregate examples ==================================================================== @@ -29541,7 +29544,7 @@ OneDimensionalArrayAggregate examples See Also: o )show OneDimensionalArrayAggregate -@ +\end{chunk} {\bf See:} \pageto{BitAggregate}{BTAGG} @@ -29741,7 +29744,7 @@ These exports come from \refto{FiniteLinearAggregate}(S:Type): ?<=? : (%,%) -> Boolean if S has ORDSET \end{verbatim} -<>= +\begin{chunk}{category A1AGG OneDimensionalArrayAggregate} )abbrev category A1AGG OneDimensionalArrayAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -29988,13 +29991,13 @@ OneDimensionalArrayAggregate(S:Type): Category == #a < #b -@ -<>= +\end{chunk} +\begin{chunk}{A1AGG.dotabb} "A1AGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=A1AGG"]; "A1AGG" -> "FLAGG" -@ -<>= +\end{chunk} +\begin{chunk}{A1AGG.dotfull} "OneDimensionalArrayAggregate(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=A1AGG"]; "OneDimensionalArrayAggregate(a:Type)" -> @@ -30010,8 +30013,8 @@ OneDimensionalArrayAggregate(S:Type): Category == "OneDimensionalArrayAggregate(Boolean)" -> "OneDimensionalArrayAggregate(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{A1AGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -30035,12 +30038,12 @@ digraph pic { "IXAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedCancellationAbelianMonoid}{OCAMON} \pagepic{ps/v102orderedcancellationabelianmonoid.ps}{OCAMON}{0.75} -<>= +\begin{chunk}{OrderedCancellationAbelianMonoid.input} )set break resume )sys rm -f OrderedCancellationAbelianMonoid.output )spool OrderedCancellationAbelianMonoid.output @@ -30071,8 +30074,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedCancellationAbelianMonoid.help} ==================================================================== OrderedCancellationAbelianMonoid examples ==================================================================== @@ -30080,7 +30083,7 @@ OrderedCancellationAbelianMonoid examples See Also: o )show OrderedCancellationAbelianMonoid -@ +\end{chunk} {\bf See:} \pageto{OrderedAbelianGroup}{OAGROUP} @@ -30136,7 +30139,7 @@ These exports come from \refto{CancellationAbelianMonoid}(): subtractIfCan : (%,%) -> Union(%,"failed") \end{verbatim} -<>= +\begin{chunk}{category OCAMON OrderedCancellationAbelianMonoid} )abbrev category OCAMON OrderedCancellationAbelianMonoid ++ Author: ++ Date Created: @@ -30154,22 +30157,22 @@ These exports come from \refto{CancellationAbelianMonoid}(): OrderedCancellationAbelianMonoid(): Category == Join(OrderedAbelianMonoid, CancellationAbelianMonoid) -@ -<>= +\end{chunk} +\begin{chunk}{OCAMON.dotabb} "OCAMON" [color=lightblue,href="bookvol10.2.pdf#nameddest=OCAMON"]; "OCAMON" -> "OAMON" "OCAMON" -> "CABMON" -@ -<>= +\end{chunk} +\begin{chunk}{OCAMON.dotfull} "OrderedCancellationAbelianMonoid()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OCAMON"]; "OrderedCancellationAbelianMonoid()" -> "OrderedAbelianMonoid()" "OrderedCancellationAbelianMonoid()" -> "CancellationAbelianMonoid()" -@ -<>= +\end{chunk} +\begin{chunk}{OCAMON.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -30200,12 +30203,12 @@ digraph pic { "ABELSG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RegularTriangularSetCategory}{RSETCAT} \pagepic{ps/v102regulartriangularsetcategory.ps}{RSETCAT}{0.35} -<>= +\begin{chunk}{RegularTriangularSetCategory.input} )set break resume )sys rm -f RegularTriangularSetCategory.output )spool RegularTriangularSetCategory.output @@ -30318,8 +30321,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RegularTriangularSetCategory.help} ==================================================================== RegularTriangularSetCategory examples ==================================================================== @@ -30327,7 +30330,7 @@ RegularTriangularSetCategory examples See Also: o )show RegularTriangularSetCategory -@ +\end{chunk} {\bf See:} \pageto{NormalizedTriangularSetCategory}{NTSCAT} @@ -30585,7 +30588,7 @@ P:RecursivePolynomialCategory(R,E,V)): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category RSETCAT RegularTriangularSetCategory} )abbrev category RSETCAT RegularTriangularSetCategory ++ Author: Marc Moreno Maza ++ Date Created: 09/03/1998 @@ -30927,22 +30930,22 @@ RegularTriangularSetCategory(R:GcdDomain, E:OrderedAbelianMonoidSup,_ intersect(p: P,lts: List $): List $ == intersect([p],lts) -@ -<>= +\end{chunk} +\begin{chunk}{RSETCAT.dotabb} "RSETCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=RSETCAT"]; "RSETCAT" -> "TSETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{RSETCAT.dotfull} "RegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=RSETCAT"]; "RegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -> "TriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{RSETCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -30983,12 +30986,12 @@ digraph pic { "CLAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RightModule}{RMODULE} \pagepic{ps/v102rightmodule.ps}{RMODULE}{1.00} -<>= +\begin{chunk}{RightModule.input} )set break resume )sys rm -f RightModule.output )spool RightModule.output @@ -31018,8 +31021,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RightModule.help} ==================================================================== RightModule examples ==================================================================== @@ -31027,7 +31030,7 @@ RightModule examples See Also: o )show RightModule -@ +\end{chunk} {\bf See:} \pageto{BiModule}{BMODULE} @@ -31075,7 +31078,7 @@ These exports come from \refto{AbelianGroup}(): -? : % -> % \end{verbatim} -<>= +\begin{chunk}{category RMODULE RightModule} )abbrev category RMODULE RightModule ++ Author: ++ Date Created: @@ -31101,14 +31104,14 @@ RightModule(R:Rng):Category == AbelianGroup with ++ x*r returns the right multiplication of the module element x ++ by the ring element r. -@ -<>= +\end{chunk} +\begin{chunk}{RMODULE.dotabb} "RMODULE" [color=lightblue,href="bookvol10.2.pdf#nameddest=RMODULE"]; "RMODULE" -> "ABELGRP" -@ -<>= +\end{chunk} +\begin{chunk}{RMODULE.dotfull} "RightModule(a:Rng)" [color=lightblue,href="bookvol10.2.pdf#nameddest=RMODULE"]; "RightModule(a:Rng)" -> "AbelianGroup()" @@ -31117,8 +31120,8 @@ RightModule(R:Rng):Category == AbelianGroup with [color=seagreen,href="bookvol10.2.pdf#nameddest=RMODULE"]; "RightModule(a:Ring)" -> "RightModule(a:Rng)" -@ -<>= +\end{chunk} +\begin{chunk}{RMODULE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -31138,14 +31141,14 @@ digraph pic { "REPDB..." [color="#00EE00"]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Rng}{RNG} \pagepic{ps/v102rng.ps}{RNG}{0.90} Rng is a Ring that does not necessarily have a unit. -<>= +\begin{chunk}{Rng.input} )set break resume )sys rm -f Rng.output )spool Rng.output @@ -31176,8 +31179,8 @@ Rng is a Ring that does not necessarily have a unit. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Rng.help} ==================================================================== Rng examples ==================================================================== @@ -31185,7 +31188,7 @@ Rng examples See Also: o )show Rng -@ +\end{chunk} {\bf See:} @@ -31239,7 +31242,7 @@ These exports come from \refto{SemiGroup}(): ?^? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category RNG Rng} )abbrev category RNG Rng ++ Author: ++ Date Created: @@ -31264,20 +31267,20 @@ These exports come from \refto{SemiGroup}(): Rng(): Category == Join(AbelianGroup,SemiGroup) -@ -<>= +\end{chunk} +\begin{chunk}{RNG.dotabb} "RNG" [color=lightblue,href="bookvol10.2.pdf#nameddest=RNG"]; "RNG" -> "ABELGRP" "RNG" -> "SGROUP" -@ -<>= +\end{chunk} +\begin{chunk}{RNG.dotfull} "Rng()" [color=lightblue,href="bookvol10.2.pdf#nameddest=RNG"]; "Rng()" -> "AbelianGroup()" "Rng()" -> "SemiGroup()" -@ -<>= +\end{chunk} +\begin{chunk}{RNG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -31310,13 +31313,13 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 8} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BiModule}{BMODULE} \pagepic{ps/v102bimodule.ps}{BMODULE}{1.00} -<>= +\begin{chunk}{BiModule.input} )set break resume )sys rm -f BiModule.output )spool BiModule.output @@ -31347,8 +31350,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BiModule.help} ==================================================================== BiModule examples ==================================================================== @@ -31356,7 +31359,7 @@ BiModule examples See Also: o )show BiModule -@ +\end{chunk} {\bf See:} \pageto{AbelianMonoidRing}{AMR} @@ -31424,7 +31427,7 @@ These exports come from \refto{RightModule}(S:Ring): ?*? : (%,S) -> % \end{verbatim} -<>= +\begin{chunk}{category BMODULE BiModule} )abbrev category BMODULE BiModule ++ Author: ++ Date Created: @@ -31449,15 +31452,15 @@ BiModule(R:Ring,S:Ring):Category == rightUnitary ++ \spad{x * 1 = x} -@ -<>= +\end{chunk} +\begin{chunk}{BMODULE.dotabb} "BMODULE" [color=lightblue,href="bookvol10.2.pdf#nameddest=BMODULE"]; "BMODULE" -> "LMODULE" "BMODULE" -> "RMODULE" -@ -<>= +\end{chunk} +\begin{chunk}{BMODULE.dotfull} "BiModule(a:Ring,b:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=BMODULE"]; "BiModule(a:Ring,b:Ring)" -> "LeftModule(a:Ring)" @@ -31471,8 +31474,8 @@ BiModule(R:Ring,S:Ring):Category == [color=seagreen,href="bookvol10.2.pdf#nameddest=BMODULE"]; "BiModule(a:Ring,b:OrderedAbelianMonoid)" -> "BiModule(a:Ring,b:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{BMODULE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -31505,12 +31508,12 @@ digraph pic { "REPDB..." [color="#00EE00"]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{BitAggregate}{BTAGG} \pagepic{ps/v102bitaggregate.ps}{BTAGG}{0.65} -<>= +\begin{chunk}{BitAggregate.input} )set break resume )sys rm -f BitAggregate.output )spool BitAggregate.output @@ -31605,8 +31608,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BitAggregate.help} ==================================================================== BitAggregate examples ==================================================================== @@ -31614,7 +31617,7 @@ BitAggregate examples See Also: o )show BitAggregate -@ +\end{chunk} {\bf See:} \pagefrom{Logic}{LOGIC} @@ -31850,7 +31853,7 @@ These exports come from \refto{OneDimensionalArrayAggregate}(Boolean): ?.? : (%,Integer) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category BTAGG BitAggregate} )abbrev category BTAGG BitAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -31898,23 +31901,23 @@ BitAggregate(): Category == nand(v, u) == map(nand, v, u) nor(v, u) == map(nor, v, u) -@ -<>= +\end{chunk} +\begin{chunk}{BTAGG.dotabb} "BTAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=BTAGG"]; "BTAGG" -> "ORDSET" "BTAGG" -> "LOGIC" "BTAGG" -> "A1AGG" -@ -<>= +\end{chunk} +\begin{chunk}{BTAGG.dotfull} "BitAggregate()" [color=lightblue,href="bookvol10.2.pdf#nameddest=BTAGG"]; "BitAggregate()" -> "OrderedSet()" "BitAggregate()" -> "Logic()" "BitAggregate()" -> "OneDimensionalArrayAggregate(Boolean)" -@ -<>= +\end{chunk} +\begin{chunk}{BTAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -31966,12 +31969,12 @@ digraph pic { "IXAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NonAssociativeRing}{NASRING} \pagepic{ps/v102nonassociativering.ps}{NASRING}{1.00} -<>= +\begin{chunk}{NonAssociativeRing.input} )set break resume )sys rm -f NonAssociativeRing.output )spool NonAssociativeRing.output @@ -32013,8 +32016,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NonAssociativeRing.help} ==================================================================== NonAssociativeRing examples ==================================================================== @@ -32022,7 +32025,7 @@ NonAssociativeRing examples See Also: o )show NonAssociativeRing -@ +\end{chunk} {\bf See:} \pagefrom{MonadWithUnit}{MONADWU} @@ -32106,7 +32109,7 @@ These exports come from \refto{MonadWithUnit}(): ?**? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category NASRING NonAssociativeRing} )abbrev category NASRING NonAssociativeRing ++ Author: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -32133,22 +32136,22 @@ NonAssociativeRing(): Category == Join(NonAssociativeRng,MonadWithUnit) with n:Integer coerce(n) == n * 1$% -@ -<>= +\end{chunk} +\begin{chunk}{NASRING.dotabb} "NASRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=NASRING"]; "NASRING" -> "MONADWU" "NASRING" -> "NARNG" -@ -<>= +\end{chunk} +\begin{chunk}{NASRING.dotfull} "NonAssociativeRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=NASRING"]; "NonAssociativeRing()" -> "NonAssociativeRng()" "NonAssociativeRing()" -> "MonadWithUnit()" -@ -<>= +\end{chunk} +\begin{chunk}{NASRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -32189,12 +32192,12 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NormalizedTriangularSetCategory}{NTSCAT} \pagepic{ps/v102normalizedtriangularsetcategory.ps}{NTSCAT}{0.45} -<>= +\begin{chunk}{NormalizedTriangularSetCategory.input} )set break resume )sys rm -f NormalizedTriangularSetCategory.output )spool NormalizedTriangularSetCategory.output @@ -32307,8 +32310,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NormalizedTriangularSetCategory.help} ==================================================================== NormalizedTriangularSetCategory examples ==================================================================== @@ -32316,7 +32319,7 @@ NormalizedTriangularSetCategory examples See Also: o )show NormalizedTriangularSetCategory -@ +\end{chunk} {\bf See:} \pageto{SquareFreeNormalizedTriangularSetCategory}{SNTSCAT} @@ -32567,7 +32570,7 @@ P:RecursivePolynomialCategory(R,E,V)): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category NTSCAT NormalizedTriangularSetCategory} )abbrev category NTSCAT NormalizedTriangularSetCategory ++ Author: Marc Moreno Maza ++ Date Created: 10/07/1998 @@ -32590,34 +32593,34 @@ P:RecursivePolynomialCategory(R,E,V)): ++ algebriques" These, Universite P.etM. Curie, Paris, 1997. ++ Description: ++ The category of normalized triangular sets. A triangular -++ set \spad{ts} is said normalized if for every algebraic -++ variable \spad{v} of \spad{ts} the polynomial \spad{select(ts,v)} -++ is normalized w.r.t. every polynomial in \spad{collectUnder(ts,v)}. -++ A polynomial \spad{p} is said normalized w.r.t. a non-constant -++ polynomial \spad{q} if \spad{p} is constant or \spad{degree(p,mdeg(q)) = 0} -++ and \spad{init(p)} is normalized w.r.t. \spad{q}. One of the important +++ set ts is said normalized if for every algebraic +++ variable v of ts the polynomial select(ts,v) +++ is normalized w.r.t. every polynomial in collectUnder(ts,v). +++ A polynomial p is said normalized w.r.t. a non-constant +++ polynomial q if p is constant or degree(p,mdeg(q)) = 0 +++ and init(p) is normalized w.r.t. q. One of the important ++ features of normalized triangular sets is that they are regular sets. NormalizedTriangularSetCategory(R:GcdDomain,E:OrderedAbelianMonoidSup,_ V:OrderedSet,P:RecursivePolynomialCategory(R,E,V)): Category == RegularTriangularSetCategory(R,E,V,P) -@ -<>= +\end{chunk} +\begin{chunk}{NTSCAT.dotabb} "NTSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=NTSCAT"]; "NTSCAT" -> "RSETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{NTSCAT.dotfull} "NormalizedRegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=NTSCAT"]; "NormalizedRegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -> "RegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{NTSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -32664,12 +32667,12 @@ digraph pic { "CLAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedAbelianGroup}{OAGROUP} \pagepic{ps/v102orderedabeliangroup.ps}{OAGROUP}{1.00} -<>= +\begin{chunk}{OrderedAbelianGroup.input} )set break resume )sys rm -f OrderedAbelianGroup.output )spool OrderedAbelianGroup.output @@ -32702,8 +32705,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedAbelianGroup.help} ==================================================================== OrderedAbelianGroup examples ==================================================================== @@ -32711,7 +32714,7 @@ OrderedAbelianGroup examples See Also: o )show OrderedAbelianGroup -@ +\end{chunk} {\bf See:} \pageto{OrderedRing}{ORDRING} @@ -32771,7 +32774,7 @@ These exports come from \refto{AbelianGroup}(): ?-? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category OAGROUP OrderedAbelianGroup} )abbrev category OAGROUP OrderedAbelianGroup ++ Author: ++ Date Created: @@ -32789,22 +32792,22 @@ These exports come from \refto{AbelianGroup}(): OrderedAbelianGroup(): Category == Join(OrderedCancellationAbelianMonoid, AbelianGroup) -@ -<>= +\end{chunk} +\begin{chunk}{OAGROUP.dotabb} "OAGROUP" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAGROUP"]; "OAGROUP" -> "OCAMON" "OAGROUP" -> "ABELGRP" -@ -<>= +\end{chunk} +\begin{chunk}{OAGROUP.dotfull} "OrderedAbelianGroup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAGROUP"]; "OrderedAbelianGroup()" -> "OrderedCancellationAbelianMonoid()" "OrderedAbelianGroup()" -> "AbelianGroup()" -@ -<>= +\end{chunk} +\begin{chunk}{OAGROUP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -32827,12 +32830,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedAbelianMonoidSup}{OAMONS} \pagepic{ps/v102orderedabelianmonoidsup.ps}{OAMONS}{0.80} -<>= +\begin{chunk}{OrderedAbelianMonoidSup.input} )set break resume )sys rm -f OrderedAbelianMonoidSup.output )spool OrderedAbelianMonoidSup.output @@ -32864,8 +32867,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedAbelianMonoidSup.help} ==================================================================== OrderedAbelianMonoidSup examples ==================================================================== @@ -32873,7 +32876,7 @@ OrderedAbelianMonoidSup examples See Also: o )show OrderedAbelianMonoidSup -@ +\end{chunk} {\bf See:} \pagefrom{DirectProductCategory}{DIRPCAT} @@ -32930,7 +32933,7 @@ These exports come from \refto{OrderedCancellationAbelianMonoid}(): \end{verbatim} -<>= +\begin{chunk}{category OAMONS OrderedAbelianMonoidSup} )abbrev category OAMONS OrderedAbelianMonoidSup ++ Author: ++ Date Created: @@ -32942,36 +32945,36 @@ These exports come from \refto{OrderedCancellationAbelianMonoid}(): ++ Keywords: ++ References: ++ Description: -++ This domain is an OrderedAbelianMonoid with a \spadfun{sup} -++ operation added. The purpose of the \spadfun{sup} operator +++ This domain is an OrderedAbelianMonoid with a sup +++ operation added. The purpose of the sup operator ++ in this domain is to act as a supremum with respect to the -++ partial order imposed by \spadop{-}, rather than with respect to -++ the total \spad{>} order (since that is "max"). +++ partial order imposed by `-`, rather than with respect to +++ the total $>$ order (since that is "max"). ++ ++ Axioms\br -++ \tab{5}\spad{sup(a,b)-a \~~= "failed"}\br -++ \tab{5}\spad{sup(a,b)-b \~~= "failed"}\br -++ \tab{5}\spad{x-a \~~= "failed" and x-b \~~= "failed" => x >= sup(a,b)}\br +++ \tab{5}sup(a,b)-a \~~= "failed"\br +++ \tab{5}sup(a,b)-b \~~= "failed"\br +++ \tab{5}x-a \~~= "failed" and x-b \~~= "failed" => x >= sup(a,b)\br OrderedAbelianMonoidSup(): Category == OrderedCancellationAbelianMonoid with sup: (%,%) -> % ++ sup(x,y) returns the least element from which both ++ x and y can be subtracted. -@ -<>= +\end{chunk} +\begin{chunk}{OAMONS.dotabb} "OAMONS" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAMONS"]; "OAMONS" -> "OCAMON" -@ -<>= +\end{chunk} +\begin{chunk}{OAMONS.dotfull} "OrderedAbelianMonoidSup()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAMONS"]; "OrderedAbelianMonoidSup()" -> "OrderedCancellationAbelianMonoid()" -@ -<>= +\end{chunk} +\begin{chunk}{OAMONS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -33005,12 +33008,12 @@ digraph pic { "ABELSG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedMultisetAggregate}{OMSAGG} \pagepic{ps/v102orderedmultisetaggregate.ps}{OMSAGG}{0.50} -<>= +\begin{chunk}{OrderedMultisetAggregate.input} )set break resume )sys rm -f OrderedMultisetAggregate.output )spool OrderedMultisetAggregate.output @@ -33080,8 +33083,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedMultisetAggregate.help} ==================================================================== OrderedMultisetAggregate examples ==================================================================== @@ -33089,7 +33092,7 @@ OrderedMultisetAggregate examples See Also: o )show OrderedMultisetAggregate -@ +\end{chunk} {\bf See:} \pagefrom{MultisetAggregate}{MSETAGG} @@ -33260,7 +33263,7 @@ These exports come from \refto{PriorityQueueAggregate}(S:OrderedSet): merge! : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category OMSAGG OrderedMultisetAggregate} )abbrev category OMSAGG OrderedMultisetAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -33285,15 +33288,15 @@ OrderedMultisetAggregate(S:OrderedSet): Category == min: % -> S ++ min(u) returns the smallest entry in the multiset aggregate u. -@ -<>= +\end{chunk} +\begin{chunk}{OMSAGG.dotabb} "OMSAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=OMSAGG"]; "OMSAGG" -> "MSETAGG" "OMSAGG" -> "PRQAGG" -@ -<>= +\end{chunk} +\begin{chunk}{OMSAGG.dotfull} "OrderedMultisetAggregate(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=OMSAGG"]; "OrderedMultisetAggregate(a:SetCategory)" -> @@ -33301,8 +33304,8 @@ OrderedMultisetAggregate(S:OrderedSet): Category == "OrderedMultisetAggregate(a:SetCategory)" -> "PriorityQueueAggregate(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{OMSAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -33340,12 +33343,12 @@ digraph pic { "SETAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Ring}{RING} \pagepic{ps/v102ring.ps}{RING}{1.00} -<>= +\begin{chunk}{Ring.input} )set break resume )sys rm -f Ring.output )spool Ring.output @@ -33381,8 +33384,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Ring.help} ==================================================================== Ring examples ==================================================================== @@ -33390,7 +33393,7 @@ Ring examples See Also: o )show Ring -@ +\end{chunk} {\bf See:} \pageto{Algebra}{ALGEBRA} @@ -33487,7 +33490,7 @@ These exports come from \refto{Monoid}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category RING Ring} )abbrev category RING Ring ++ Author: ++ Date Created: @@ -33520,24 +33523,24 @@ Ring(): Category == Join(Rng,Monoid,LeftModule(%)) with n:Integer coerce(n) == n * 1$% -@ -<>= +\end{chunk} +\begin{chunk}{RING.dotabb} "RING" [color=lightblue,href="bookvol10.2.pdf#nameddest=RING"]; "RING" -> "RNG" "RING" -> "MONOID" "RING" -> "LMODULE" -@ -<>= +\end{chunk} +\begin{chunk}{RING.dotfull} "Ring()" [color=lightblue,href="bookvol10.2.pdf#nameddest=RING"]; "Ring()" -> "Rng()" "Ring()" -> "Monoid()" "Ring()" -> "LeftModule(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{RING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -33575,12 +33578,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SquareFreeRegularTriangularSetCategory}{SFRTCAT} \pagepic{ps/v102squarefreeregulartriangularsetcategory.ps}{SFRTCAT}{0.50} -<>= +\begin{chunk}{SquareFreeRegularTriangularSetCategory.input} )set break resume )sys rm -f SquareFreeRegularTriangularSetCategory.output )spool SquareFreeRegularTriangularSetCategory.output @@ -33693,8 +33696,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SquareFreeRegularTriangularSetCategory.help} ==================================================================== SquareFreeRegularTriangularSetCategory examples ==================================================================== @@ -33702,7 +33705,7 @@ SquareFreeRegularTriangularSetCategory examples See Also: o )show SquareFreeRegularTriangularSetCategory -@ +\end{chunk} {\bf See:} \pageto{SquareFreeNormalizedTriangularSetCategory}{SNTSCAT} @@ -33953,7 +33956,7 @@ P:RecursivePolynomialCategory(R,E,V)): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SFRTCAT SquareFreeRegularTriangularSetCategory} )abbrev category SFRTCAT SquareFreeRegularTriangularSetCategory ++ Author: Marc Moreno Maza ++ Date Created: 09/03/1996 @@ -33983,22 +33986,22 @@ SquareFreeRegularTriangularSetCategory(R:GcdDomain,E:OrderedAbelianMonoidSup,_ Category == RegularTriangularSetCategory(R,E,V,P) -@ -<>= +\end{chunk} +\begin{chunk}{SFRTCAT.dotabb} "SFRTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SFRTCAT"]; "SFRTCAT" -> "RSETCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SFRTCAT.dotfull} "SquareFreeRegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=SFRTCAT"]; "SquareFreeRegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -> "RegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{SFRTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -34045,12 +34048,12 @@ digraph pic { "CLAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{StringAggregate}{SRAGG} \pagepic{ps/v102stringaggregate.ps}{SRAGG}{1.00} -<>= +\begin{chunk}{StringAggregate.input} )set break resume )sys rm -f StringAggregate.output )spool StringAggregate.output @@ -34161,8 +34164,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StringAggregate.help} ==================================================================== StringAggregate examples ==================================================================== @@ -34170,7 +34173,7 @@ StringAggregate examples See Also: o )show StringAggregate -@ +\end{chunk} {\bf See:} \pageto{StringCategory}{STRICAT} @@ -34429,7 +34432,7 @@ These exports come from \refto{OneDimensionalArrayAggregate}(Character): ?>=? : (%,%) -> Boolean if Character has ORDSET \end{verbatim} -<>= +\begin{chunk}{category SRAGG StringAggregate} )abbrev category SRAGG StringAggregate ++ Author: Stephen Watt and Michael Monagan. ++ revised by Manuel Bronstein and Richard Jenks @@ -34537,19 +34540,19 @@ StringAggregate: Category == OneDimensionalArrayAggregate Character with coerce(c:Character):% == new(1, c) elt(s:%, t:%): % == concat(s,t)$% -@ -<>= +\end{chunk} +\begin{chunk}{SRAGG.dotabb} "SRAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=SRAGG"]; "SRAGG" -> "A1AGG" -@ -<>= +\end{chunk} +\begin{chunk}{SRAGG.dotfull} "StringAggregate()" [color=lightblue,href="bookvol10.2.pdf#nameddest=SRAGG"]; "StringAggregate()" -> "OneDimensionalArrayAggregate(Character)" -@ -<>= +\end{chunk} +\begin{chunk}{SRAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -34580,12 +34583,12 @@ digraph pic { "IXAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{TableAggregate}{TBAGG} \pagepic{ps/v102tableaggregate.ps}{TBAGG}{0.60} -<>= +\begin{chunk}{TableAggregate.input} )set break resume )sys rm -f TableAggregate.output )spool TableAggregate.output @@ -34678,8 +34681,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TableAggregate.help} ==================================================================== TableAggregate examples ==================================================================== @@ -34687,7 +34690,7 @@ TableAggregate examples See Also: o )show TableAggregate -@ +\end{chunk} {\bf See:} \pageto{AssociationListAggregate}{ALAGG} @@ -34934,7 +34937,7 @@ and RecKE=Record(key: Key,entry: Entry): swap! : (%,Key,Key) -> Void if $ has shallowlyMutable \end{verbatim} -<>= +\begin{chunk}{category TBAGG TableAggregate} )abbrev category TBAGG TableAggregate ++ Author: Michael Monagan, Stephen Watt; ++ revised by Manuel Bronstein and Richard Jenks @@ -35066,14 +35069,14 @@ TableAggregate(Key:SetCategory, Entry:SetCategory): Category == for k in keys t | f t k repeat tally := tally + 1 tally -@ -<>= +\end{chunk} +\begin{chunk}{TBAGG.dotabb} "TBAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=TBAGG"]; "TBAGG" -> "KDAGG" "TBAGG" -> "IXAGG" -@ -<>= +\end{chunk} +\begin{chunk}{TBAGG.dotfull} "TableAggregate(a:SetCategory,b:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=TBAGG"]; "TableAggregate(a:SetCategory,b:SetCategory)" -> @@ -35081,8 +35084,8 @@ TableAggregate(Key:SetCategory, Entry:SetCategory): Category == "TableAggregate(a:SetCategory,b:SetCategory)" -> "IndexedAggregate(a:SetCategory,b:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{TBAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -35132,12 +35135,12 @@ digraph pic { "ELTAGG..." [color=lightblue]; "HOAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{VectorCategory}{VECTCAT} \pagepic{ps/v102vectorcategory.ps}{VECTCAT}{1.00} -<>= +\begin{chunk}{VectorCategory.input} )set break resume )sys rm -f VectorCategory.output )spool VectorCategory.output @@ -35241,8 +35244,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{VectorCategory.help} ==================================================================== VectorCategory examples ==================================================================== @@ -35250,7 +35253,7 @@ VectorCategory examples See Also: o )show VectorCategory -@ +\end{chunk} {\bf See:} \pageto{PointCategory}{PTCAT} @@ -35446,7 +35449,7 @@ These exports come from \refto{OneDimensionalArrayAggregate}(R:Type): ?~=? : (%,%) -> Boolean if R has SETCAT \end{verbatim} -<>= +\begin{chunk}{category VECTCAT VectorCategory} )abbrev category VECTCAT VectorCategory ++ Author: ++ Date Created: @@ -35544,14 +35547,14 @@ VectorCategory(R:Type): Category == OneDimensionalArrayAggregate R with magnitude p == sqrt(dot(p,p)) -@ -<>= +\end{chunk} +\begin{chunk}{VECTCAT.dotabb} "VECTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=VECTCAT"]; "VECTCAT" -> "A1AGG" -@ -<>= +\end{chunk} +\begin{chunk}{VECTCAT.dotfull} "VectorCategory(a:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=VECTCAT"]; "VectorCategory(a:Type)" -> "OneDimensionalArrayAggregate(a:Type)" @@ -35560,8 +35563,8 @@ VectorCategory(R:Type): Category == OneDimensionalArrayAggregate R with [color=seagreen,href="bookvol10.2.pdf#nameddest=VECTCAT"]; "VectorCategory(a:Ring)" -> "VectorCategory(a:Type)" -@ -<>= +\end{chunk} +\begin{chunk}{VECTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -35588,13 +35591,13 @@ digraph pic { "IXAGG..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 9} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AssociationListAggregate}{ALAGG} \pagepic{ps/v102associationlistaggregate.ps}{ALAGG}{0.45} -<>= +\begin{chunk}{AssociationListAggregate.input} )set break resume )sys rm -f AssociationListAggregate.output )spool AssociationListAggregate.output @@ -35794,8 +35797,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AssociationListAggregate.help} ==================================================================== AssociationListAggregate examples ==================================================================== @@ -35803,7 +35806,7 @@ AssociationListAggregate examples See Also: o )show AssociationListAggregate -@ +\end{chunk} {\bf See:} \pagefrom{ListAggregate}{LSAGG} @@ -36237,7 +36240,7 @@ and RecKE=Record(key: Key,entry: Entry) ?.? : (%,Integer) -> RecKE \end{verbatim} -<>= +\begin{chunk}{category ALAGG AssociationListAggregate} )abbrev category ALAGG AssociationListAggregate ++ Author: Michael Monagan; revised by Manuel Bronstein and Richard Jenks ++ Date Created: August 87 through August 88 @@ -36260,14 +36263,14 @@ AssociationListAggregate(Key:SetCategory,Entry:SetCategory): Category == ++ assoc(k,u) returns the element x in association list u stored ++ with key k, or "failed" if u has no key k. -@ -<>= +\end{chunk} +\begin{chunk}{ALAGG.dotabb} "ALAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=ALAGG"]; "ALAGG" -> "TBAGG" "ALAGG" -> "LSAGG" -@ -<>= +\end{chunk} +\begin{chunk}{ALAGG.dotfull} "AssociationListAggregate(a:SetCategory,b:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ALAGG"]; "AssociationListAggregate(a:SetCategory,b:SetCategory)" -> @@ -36275,8 +36278,8 @@ AssociationListAggregate(Key:SetCategory,Entry:SetCategory): Category == "AssociationListAggregate(a:SetCategory,b:SetCategory)" -> "ListAggregate(Record(a:SetCategory,b:SetCategory))" -@ -<>= +\end{chunk} +\begin{chunk}{ALAGG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -36315,12 +36318,12 @@ digraph pic { "LSAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CharacteristicNonZero}{CHARNZ} \pagepic{ps/v102characteristicnonzero.ps}{CHARNZ}{0.90} -<>= +\begin{chunk}{CharacteristicNonZero.input} )set break resume )sys rm -f CharacteristicNonZero.output )spool CharacteristicNonZero.output @@ -36357,8 +36360,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CharacteristicNonZero.help} ==================================================================== CharacteristicNonZero examples ==================================================================== @@ -36366,7 +36369,7 @@ CharacteristicNonZero examples See Also: o )show CharacteristicNonZero -@ +\end{chunk} {\bf See:} \pageto{FieldOfPrimeCharacteristic}{FPC} @@ -36442,7 +36445,7 @@ These exports come from \refto{Ring}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category CHARNZ CharacteristicNonZero} )abbrev category CHARNZ CharacteristicNonZero ++ Author: ++ Date Created: @@ -36461,20 +36464,20 @@ CharacteristicNonZero():Category == Ring with ++ charthRoot(x) returns the pth root of x ++ where p is the characteristic of the ring. -@ -<>= +\end{chunk} +\begin{chunk}{CHARNZ.dotabb} "CHARNZ" [color=lightblue,href="bookvol10.2.pdf#nameddest=CHARNZ"]; "CHARNZ" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{CHARNZ.dotfull} "CharacteristicNonZero()" [color=lightblue,href="bookvol10.2.pdf#nameddest=CHARNZ"]; "CharacteristicNonZero()" -> "Ring()" -@ -<>= +\end{chunk} +\begin{chunk}{CHARNZ.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -36515,12 +36518,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CharacteristicZero}{CHARZ} \pagepic{ps/v102characteristiczero.ps}{CHARZ}{0.90} -<>= +\begin{chunk}{CharacteristicZero.input} )set break resume )sys rm -f CharacteristicZero.output )spool CharacteristicZero.output @@ -36556,8 +36559,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CharacteristicZero.help} ==================================================================== CharacteristicZero examples ==================================================================== @@ -36565,7 +36568,7 @@ CharacteristicZero examples See Also: o )show CharacteristicZero -@ +\end{chunk} {\bf See:} \pageto{FiniteRankAlgebra}{FINRALG} @@ -36638,7 +36641,7 @@ These exports come from \refto{Ring}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category CHARZ CharacteristicZero} )abbrev category CHARZ CharacteristicZero ++ Author: ++ Date Created: @@ -36654,20 +36657,20 @@ These exports come from \refto{Ring}(): CharacteristicZero():Category == Ring -@ -<>= +\end{chunk} +\begin{chunk}{CHARZ.dotabb} "CHARZ" [color=lightblue,href="bookvol10.2.pdf#nameddest=CHARZ"]; "CHARZ" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{CHARZ.dotfull} "CharacteristicZero()" [color=lightblue,href="bookvol10.2.pdf#nameddest=CHARZ"]; "CharacteristicZero()" -> "Ring()" -@ -<>= +\end{chunk} +\begin{chunk}{CHARZ.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -36708,12 +36711,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{CommutativeRing}{COMRING} \pagepic{ps/v102commutativering.ps}{COMRING}{0.65} -<>= +\begin{chunk}{CommutativeRing.input} )set break resume )sys rm -f CommutativeRing.output )spool CommutativeRing.output @@ -36749,8 +36752,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CommutativeRing.help} ==================================================================== CommutativeRing examples ==================================================================== @@ -36758,7 +36761,7 @@ CommutativeRing examples See Also: o )show CommutativeRing -@ +\end{chunk} Commutative Rings are a subset of IntegralDomains. \pageto{IntegralDomain}{INTDOM}. @@ -36841,7 +36844,7 @@ These exports come from \refto{Ring}(): ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category COMRING CommutativeRing} )abbrev category COMRING CommutativeRing ++ Author: ++ Date Created: @@ -36861,22 +36864,22 @@ These exports come from \refto{Ring}(): CommutativeRing():Category == Join(Ring,BiModule(%,%)) with commutative("*") ++ multiplication is commutative. -@ -<>= +\end{chunk} +\begin{chunk}{COMRING.dotabb} "COMRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMRING"]; "COMRING" -> "RING" "COMRING" -> "BMODULE" -@ -<>= +\end{chunk} +\begin{chunk}{COMRING.dotfull} "CommutativeRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMRING"]; "CommutativeRing()" -> "Ring()" "CommutativeRing()" -> "BiModule(a:Ring,b:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{COMRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -36928,12 +36931,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DifferentialRing}{DIFRING} \pagepic{ps/v102differentialring.ps}{DIFRING}{0.90} -<>= +\begin{chunk}{DifferentialRing.input} )set break resume )sys rm -f DifferentialRing.output )spool DifferentialRing.output @@ -36972,8 +36975,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DifferentialRing.help} ==================================================================== DifferentialRing examples ==================================================================== @@ -36981,7 +36984,7 @@ DifferentialRing examples See Also: o )show DifferentialRing -@ +\end{chunk} {\bf See:} \pageto{IntegerNumberSystem}{INS} @@ -37064,7 +37067,7 @@ These exports come from \refto{Ring}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category DIFRING DifferentialRing} )abbrev category DIFRING DifferentialRing ++ Author: ++ Date Created: @@ -37103,20 +37106,20 @@ DifferentialRing(): Category == Ring with r D(r,n) == differentiate(r,n) -@ -<>= +\end{chunk} +\begin{chunk}{DIFRING.dotabb} "DIFRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIFRING"]; "DIFRING" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{DIFRING.dotfull} "DifferentialRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIFRING"]; "DifferentialRing()" -> "Ring()" -@ -<>= +\end{chunk} +\begin{chunk}{DIFRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -37157,12 +37160,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{EntireRing}{ENTIRER} \pagepic{ps/v102EntireRing.ps}{ENTIRER}{0.65} -<>= +\begin{chunk}{EntireRing.input} )set break resume )sys rm -f EntireRing.output )spool EntireRing.output @@ -37198,8 +37201,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EntireRing.help} ==================================================================== EntireRing examples ==================================================================== @@ -37207,7 +37210,7 @@ EntireRing examples See Also: o )show EntireRing -@ +\end{chunk} {\bf See:} \pageto{DivisionRing}{DIVRING} @@ -37282,7 +37285,7 @@ These exports come from \refto{Ring}(): ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category ENTIRER EntireRing} )abbrev category ENTIRER EntireRing ++ Author: ++ Date Created: @@ -37306,22 +37309,22 @@ EntireRing():Category == Join(Ring,BiModule(%,%)) with noZeroDivisors ++ if a product is zero then one of the factors ++ must be zero. -@ -<>= +\end{chunk} +\begin{chunk}{ENTIRER.dotabb} "ENTIRER" [color=lightblue,href="bookvol10.2.pdf#nameddest=ENTIRER"]; "ENTIRER" -> "RING" "ENTIRER" -> "BMODULE" -@ -<>= +\end{chunk} +\begin{chunk}{ENTIRER.dotfull} "EntireRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ENTIRER"]; "EntireRing()" -> "Ring()" "EntireRing()" -> "BiModule(a:Ring,b:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{ENTIRER.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -37368,12 +37371,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FreeModuleCat}{FMCAT} \pagepic{ps/v102freemodulecat.ps}{FMCAT}{0.75} -<>= +\begin{chunk}{FreeModuleCat.input} )set break resume )sys rm -f FreeModuleCat.output )spool FreeModuleCat.output @@ -37414,8 +37417,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeModuleCat.help} ==================================================================== FreeModuleCat examples ==================================================================== @@ -37423,7 +37426,7 @@ FreeModuleCat examples See Also: o )show FreeModuleCat -@ +\end{chunk} {\bf See:} \pagefrom{BiModule}{BMODULE} @@ -37514,7 +37517,7 @@ These exports come from \refto{RetractableTo}(Basis:SetCategory): retractIfCan : % -> Union(Basis,"failed") \end{verbatim} -<>= +\begin{chunk}{category FMCAT FreeModuleCat} )abbrev category FMCAT FreeModuleCat ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -37585,22 +37588,22 @@ FreeModuleCat(R, Basis):Category == Exports where -- attributs if R has CommutativeRing then Module(R) -@ -<>= +\end{chunk} +\begin{chunk}{FMCAT.dotabb} "FMCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMCAT"]; "FMCAT" -> "BMODULE" "FMCAT" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{FMCAT.dotfull} "FreeModuleCat(a:Ring,b:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMCAT"]; "FreeModuleCat(a:Ring,b:SetCategory)" -> "BiModule(a:Ring,b:Ring)" "FreeModuleCat(a:Ring,b:SetCategory)" -> "RetractableTo(SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{FMCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -37637,12 +37640,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LeftAlgebra}{LALG} \pagepic{ps/v102leftalgebra.ps}{LALG}{1.00} -<>= +\begin{chunk}{LeftAlgebra.input} )set break resume )sys rm -f LeftAlgebra.output )spool LeftAlgebra.output @@ -37679,8 +37682,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LeftAlgebra.help} ==================================================================== LeftAlgebra examples ==================================================================== @@ -37688,7 +37691,7 @@ LeftAlgebra examples See Also: o )show LeftAlgebra -@ +\end{chunk} {\bf See:} \pagefrom{LeftModule}{LMODULE} @@ -37765,7 +37768,7 @@ These exports come from \refto{LeftModule}(R:Type): ?*? : (R,%) -> % \end{verbatim} -<>= +\begin{chunk}{category LALG LeftAlgebra} )abbrev category LALG LeftAlgebra ++ Author: Larry A. Lambe ++ Date : 03/01/89; revised 03/17/89; revised 12/02/90. @@ -37779,22 +37782,22 @@ LeftAlgebra(R:Ring): Category == Join(Ring, LeftModule R) with add coerce(x:R):% == x * 1$% -@ -<>= +\end{chunk} +\begin{chunk}{LALG.dotabb} "LALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=LALG"]; "LALG" -> "LMODULE" "LALG" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{LALG.dotfull} "LeftAlgebra(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LALG"]; "LeftAlgebra(a:Ring)" -> "LeftModule(a:Ring)" "LeftAlgebra(a:Ring)" -> "Ring()" -@ -<>= +\end{chunk} +\begin{chunk}{LALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -37826,12 +37829,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LinearlyExplicitRingOver}{LINEXP} \pagepic{ps/v102linearlyexplicitringover.ps}{LINEXP}{0.90} -<>= +\begin{chunk}{LinearlyExplicitRingOver.input} )set break resume )sys rm -f LinearlyExplicitRingOver.output )spool LinearlyExplicitRingOver.output @@ -37869,8 +37872,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LinearlyExplicitRingOver.help} ==================================================================== LinearlyExplicitRingOver examples ==================================================================== @@ -37878,7 +37881,7 @@ LinearlyExplicitRingOver examples See Also: o )show LinearlyExplicitRingOver -@ +\end{chunk} {\bf See:} \pageto{FullyLinearlyExplicitRingOver}{FLINEXP} @@ -37954,7 +37957,7 @@ These exports come from \refto{Ring}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category LINEXP LinearlyExplicitRingOver} )abbrev category LINEXP LinearlyExplicitRingOver ++ Author: ++ Date Created: @@ -37976,14 +37979,14 @@ LinearlyExplicitRingOver(R:Ring): Category == Ring with ++ reducedSystem(A, v) returns a matrix B and a vector w such that ++ \spad{A x = v} and \spad{B x = w} have the same solutions in R. -@ -<>= +\end{chunk} +\begin{chunk}{LINEXP.dotabb} "LINEXP" [color=lightblue,href="bookvol10.2.pdf#nameddest=LINEXP"]; "LINEXP" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{LINEXP.dotfull} "LinearlyExplicitRingOver(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LINEXP"]; "LinearlyExplicitRingOver(a:Ring)" -> "Ring()" @@ -37997,8 +38000,8 @@ LinearlyExplicitRingOver(R:Ring): Category == Ring with "LinearlyExplicitRingOver(Fraction(Integer))" -> "LinearlyExplicitRingOver(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{LINEXP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -38039,12 +38042,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Module}{MODULE} \pagepic{ps/v102module.ps}{MODULE}{1.00} -<>= +\begin{chunk}{Module.input} )set break resume )sys rm -f Module.output )spool Module.output @@ -38075,8 +38078,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Module.help} ==================================================================== Module examples ==================================================================== @@ -38084,7 +38087,7 @@ Module examples See Also: o )show Module -@ +\end{chunk} {\bf See:} \pageto{Algebra}{ALGEBRA} @@ -38145,7 +38148,7 @@ These exports come from \refto{BiModule}(a:Ring,b:Ring): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category MODULE Module} )abbrev category MODULE Module ++ Author: ++ Date Created: @@ -38169,14 +38172,14 @@ Module(R:CommutativeRing): Category == BiModule(R,R) add if not(R is %) then x:%*r:R == r*x -@ -<>= +\end{chunk} +\begin{chunk}{MODULE.dotabb} "MODULE" [color=lightblue,href="bookvol10.2.pdf#nameddest=MODULE"]; "MODULE" -> "BMODULE" -@ -<>= +\end{chunk} +\begin{chunk}{MODULE.dotfull} "Module(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MODULE"]; "Module(a:CommutativeRing)" -> @@ -38186,8 +38189,8 @@ Module(R:CommutativeRing): Category == BiModule(R,R) [color=seagreen,href="bookvol10.2.pdf#nameddest=MODULE"]; "Module(Field)" -> "Module(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{MODULE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -38219,12 +38222,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedRing}{ORDRING} \pagepic{ps/v102orderedring.ps}{ORDRING}{0.75} -<>= +\begin{chunk}{OrderedRing.input} )set break resume )sys rm -f OrderedRing.output )spool OrderedRing.output @@ -38265,8 +38268,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedRing.help} ==================================================================== OrderedRing examples ==================================================================== @@ -38274,7 +38277,7 @@ OrderedRing examples See Also: o )show OrderedRing -@ +\end{chunk} {\bf See:} \pageto{DirectProductCategory}{DIRPCAT} @@ -38374,7 +38377,7 @@ These exports come from \refto{Ring}(): ?^? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category ORDRING OrderedRing} )abbrev category ORDRING OrderedRing ++ Author: ++ Date Created: @@ -38416,24 +38419,24 @@ OrderedRing(): Category == Join(OrderedAbelianGroup,Ring,Monoid) with zero? x => 0 error "x satisfies neither positive?, negative? or zero?" -@ -<>= +\end{chunk} +\begin{chunk}{ORDRING.dotabb} "ORDRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDRING"]; "ORDRING" -> "OAGROUP" "ORDRING" -> "RING" "ORDRING" -> "MONOID" -@ -<>= +\end{chunk} +\begin{chunk}{ORDRING.dotfull} "OrderedRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ORDRING"]; "OrderedRing()" -> "OrderedAbelianGroup()" "OrderedRing()" -> "Ring()" "OrderedRing()" -> "Monoid()" -@ -<>= +\end{chunk} +\begin{chunk}{ORDRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -38476,12 +38479,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PartialDifferentialRing}{PDRING} \pagepic{ps/v102partialdifferentialring.ps}{PDRING}{1.00} -<>= +\begin{chunk}{PartialDifferentialRing.input} )set break resume )sys rm -f PartialDifferentialRing.output )spool PartialDifferentialRing.output @@ -38523,8 +38526,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PartialDifferentialRing.help} ==================================================================== PartialDifferentialRing examples ==================================================================== @@ -38532,7 +38535,7 @@ PartialDifferentialRing examples See Also: o )show PartialDifferentialRing -@ +\end{chunk} {\bf See:} \pageto{DifferentialExtension}{DIFEXT} @@ -38620,7 +38623,7 @@ These exports come from \refto{Ring}(): ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category PDRING PartialDifferentialRing} )abbrev category PDRING PartialDifferentialRing ++ Author: ++ Date Created: @@ -38684,14 +38687,14 @@ PartialDifferentialRing(S:SetCategory): Category == Ring with D(r:%, v:S, n:NonNegativeInteger) == differentiate(r,v,n) D(r:%, lv:List S, ln:List NonNegativeInteger) == differentiate(r, lv, ln) -@ -<>= +\end{chunk} +\begin{chunk}{PDRING.dotabb} "PDRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=PDRING"]; "PDRING" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{PDRING.dotfull} "PartialDifferentialRing(a:SetCategory)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PDRING"]; "PartialDifferentialRing(a:SetCategory)" -> "Ring()" @@ -38706,8 +38709,8 @@ PartialDifferentialRing(S:SetCategory): Category == Ring with "PartialDifferentialRing(Symbol)" -> "PartialDifferentialRing(a:SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{PDRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -38748,12 +38751,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PointCategory}{PTCAT} \pagepic{ps/v102pointcategory.ps}{PTCAT}{1.00} -<>= +\begin{chunk}{PointCategory.input} )set break resume )sys rm -f PointCategory.output )spool PointCategory.output @@ -38859,8 +38862,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PointCategory.help} ==================================================================== PointCategory examples ==================================================================== @@ -38868,7 +38871,7 @@ PointCategory examples See Also: o )show PointCategory -@ +\end{chunk} {\bf See:} \pagefrom{VectorCategory}{VECTCAT} @@ -39071,7 +39074,7 @@ These exports come from \refto{VectorCategory}(R:Ring): ?+? : (%,%) -> % if R has ABELSG \end{verbatim} -<>= +\begin{chunk}{category PTCAT PointCategory} )abbrev category PTCAT PointCategory ++ Author: ++ Date Created: @@ -39103,20 +39106,20 @@ PointCategory(R:Ring) : Category == VectorCategory(R) with extend : (%,List R) -> % ++ extend(x,l,r) \undocumented -@ -<>= +\end{chunk} +\begin{chunk}{PTCAT.dotabb} "PTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PTCAT"]; "PTCAT" -> "VECTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{PTCAT.dotfull} "PointCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PTCAT"]; "PointCategory(a:Ring)" -> "VectorCategory(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{PTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -39149,7 +39152,7 @@ digraph pic { "IXAGG..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RectangularMatrixCategory}{RMATCAT} \pagepic{ps/v102rectangularmatrixcategory.ps}{RMATCAT}{0.45} @@ -39169,7 +39172,7 @@ FiniteLinearAggregate(R) as required in MatrixCategory. The RectangularMatrix domain is matrices of fixed dimension. -<>= +\begin{chunk}{RectangularMatrixCategory.input} )set break resume )sys rm -f RectangularMatrixCategory.output )spool RectangularMatrixCategory.output @@ -39233,8 +39236,8 @@ The RectangularMatrix domain is matrices of fixed dimension. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RectangularMatrixCategory.help} ==================================================================== RectangularMatrixCategory examples ==================================================================== @@ -39242,7 +39245,7 @@ RectangularMatrixCategory examples See Also: o )show RectangularMatrixCategory -@ +\end{chunk} {\bf See:} @@ -39397,7 +39400,7 @@ These exports come from \refto{HomogeneousAggregate}(Ring)" #? : % -> NonNegativeInteger if $ has finiteAggregate \end{verbatim} -<>= +\begin{chunk}{category RMATCAT RectangularMatrixCategory} )abbrev category RMATCAT RectangularMatrixCategory ++ Authors: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -39560,15 +39563,15 @@ RectangularMatrixCategory(m,n,R,Row,Col): Category == Definition where return false true -@ -<>= +\end{chunk} +\begin{chunk}{RMATCAT.dotabb} "RMATCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=RMATCAT"]; "RMATCAT" -> "BMODULE" "RMATCAT" -> "HOAGG" -@ -<>= +\end{chunk} +\begin{chunk}{RMATCAT.dotfull} "RectangularMatrixCategory(a:NonNegativeInteger,b:NonNegativeInteger,c:Ring,d:DirectProductCategory(b,c),e:DirectProductCategory(a,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=RMATCAT"]; "RectangularMatrixCategory(a:NonNegativeInteger,b:NonNegativeInteger,c:Ring,d:DirectProductCategory(b,c),e:DirectProductCategory(a,c))" @@ -39576,8 +39579,8 @@ RectangularMatrixCategory(m,n,R,Row,Col): Category == Definition where "RectangularMatrixCategory(a:NonNegativeInteger,b:NonNegativeInteger,c:Ring,d:DirectProductCategory(b,c),e:DirectProductCategory(a,c))" -> "HomogeneousAggregate(Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{RMATCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -39611,12 +39614,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SquareFreeNormalizedTriangularSetCategory}{SNTSCAT} \pagepic{ps/v102squarefreenormalizedtriangularsetcategory.ps}{SNTSCAT}{0.45} -<>= +\begin{chunk}{SquareFreeNormalizedTriangularSetCategory.input} )set break resume )sys rm -f SquareFreeNormalizedTriangularSetCategory.output )spool SquareFreeNormalizedTriangularSetCategory.output @@ -39729,8 +39732,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SquareFreeNormalizedTriangularSetCategory.help} ==================================================================== SquareFreeNormalizedTriangularSetCategory examples ==================================================================== @@ -39738,7 +39741,7 @@ SquareFreeNormalizedTriangularSetCategory examples See Also: o )show SquareFreeNormalizedTriangularSetCategory -@ +\end{chunk} {\bf See:} \pagefrom{NormalizedTriangularSetCategory}{NTSCAT} @@ -39989,7 +39992,7 @@ P:RecursivePolynomialCategory(R,E,V)): ?~=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category SNTSCAT SquareFreeNormalizedTriangularSetCategory} )abbrev category SNTSCAT SquareFreeNormalizedTriangularSetCategory ++ Author: Marc Moreno Maza ++ Date Created: 10/07/1998 @@ -40015,15 +40018,15 @@ SquareFreeNormalizedTriangularSetCategory(R:GcdDomain,_ Join(SquareFreeRegularTriangularSetCategory(R,E,V,P), _ NormalizedTriangularSetCategory(R,E,V,P)) -@ -<>= +\end{chunk} +\begin{chunk}{SNTSCAT.dotabb} "SNTSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SNTSCAT"]; "SNTSCAT" -> "NTSCAT" "SNTSCAT" -> "SFRTCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SNTSCAT.dotfull} "SquareFreeNormalizedTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" [color=lightblue,href="bookvol10.2.pdf#nameddest=SNTSCAT"]; "SquareFreeNormalizedTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" @@ -40034,8 +40037,8 @@ SquareFreeNormalizedTriangularSetCategory(R:GcdDomain,_ -> "NormalizedRegularTriangularSetCategory(a:GcdDomain,b:OrderedAbelianMonoidSup,c:OrderedSet,d:RecursivePolynomialCategory(a,b,c))" -@ -<>= +\end{chunk} +\begin{chunk}{SNTSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -40054,12 +40057,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{StringCategory}{STRICAT} \pagepic{ps/v102stringcategory.ps}{STRICAT}{0.75} -<>= +\begin{chunk}{StringCategory.input} )set break resume )sys rm -f StringCategory.output )spool StringCategory.output @@ -40171,8 +40174,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StringCategory.help} ==================================================================== StringCategory examples ==================================================================== @@ -40180,7 +40183,7 @@ StringCategory examples See Also: o )show StringCategory -@ +\end{chunk} {\bf See:} \pagefrom{OpenMath}{OM} @@ -40454,7 +40457,7 @@ These exports come from \refto{OpenMath}(): OMwrite : (OpenMathDevice,%) -> Void \end{verbatim} -<>= +\begin{chunk}{category STRICAT StringCategory} )abbrev category STRICAT StringCategory -- Note that StringCategory is built into the old compiler -- redundant SetCategory added to help A# compiler @@ -40466,24 +40469,24 @@ StringCategory():Category == _ string: Integer -> % ++ string(i) returns the decimal representation of i in a string -@ -<>= +\end{chunk} +\begin{chunk}{STRICAT.dotabb} "STRICAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=STRICAT"]; "STRICAT" -> "OM" "STRICAT" -> "SETCAT" "STRICAT" -> "SRAGG" -@ -<>= +\end{chunk} +\begin{chunk}{STRICAT.dotfull} "StringCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=STRICAT"]; "StringCategory()" -> "OpenMath()" "StringCategory()" -> "SetCategory()" "StringCategory()" -> "StringAggregate()" -@ -<>= +\end{chunk} +\begin{chunk}{STRICAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -40519,12 +40522,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariateSkewPolynomialCategory}{OREPCAT} \pagepic{ps/v102univariateskewpolynomialcategory.ps}{OREPCAT}{0.55} -<>= +\begin{chunk}{UnivariateSkewPolynomialCategory.input} )set break resume )sys rm -f UnivariateSkewPolynomialCategory.output )spool UnivariateSkewPolynomialCategory.output @@ -40593,8 +40596,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateSkewPolynomialCategory.help} ==================================================================== UnivariateSkewPolynomialCategory examples ==================================================================== @@ -40602,7 +40605,7 @@ UnivariateSkewPolynomialCategory examples See Also: o )show UnivariateSkewPolynomialCategory -@ +\end{chunk} {\bf See:} \pageto{LinearOrdinaryDifferentialOperatorCategory}{LODOCAT} @@ -40757,7 +40760,7 @@ These exports come from \refto{FullyRetractableTo}(R:Ring): retractIfCan : % -> Union(Integer,"failed") if R has RETRACT INT \end{verbatim} -<>= +\begin{chunk}{category OREPCAT UnivariateSkewPolynomialCategory} )abbrev category OREPCAT UnivariateSkewPolynomialCategory ++ Author: Manuel Bronstein, Jean Della Dora, Stephen M. Watt ++ Date Created: 19 October 1993 @@ -41007,16 +41010,16 @@ UnivariateSkewPolynomialCategory(R:Ring): (v0, v):= (v, v0 - qr.quotient * v) [a, u0, v0, u * a0] -@ -<>= +\end{chunk} +\begin{chunk}{OREPCAT.dotabb} "OREPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=OREPCAT"]; "OREPCAT" -> "BMODULE" "OREPCAT" -> "FRETRCT" "OREPCAT" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{OREPCAT.dotfull} "UnivariateSkewPolynomialCategory(R:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=OREPCAT"]; "UnivariateSkewPolynomialCategory(R:Ring)" @@ -41026,8 +41029,8 @@ UnivariateSkewPolynomialCategory(R:Ring): "UnivariateSkewPolynomialCategory(R:Ring)" -> "Ring()" -@ -<>= +\end{chunk} +\begin{chunk}{OREPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -41094,12 +41097,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{XAlgebra}{XALG} \pagepic{ps/v102xalgebra.ps}{XALG}{0.70} -<>= +\begin{chunk}{XAlgebra.input} )set break resume )sys rm -f XAlgebra.output )spool XAlgebra.output @@ -41137,8 +41140,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XAlgebra.help} ==================================================================== XAlgebra examples ==================================================================== @@ -41146,7 +41149,7 @@ XAlgebra examples See Also: o )show XAlgebra -@ +\end{chunk} {\bf See:} \pageto{XFreeAlgebra}{XFALG} @@ -41231,7 +41234,7 @@ These exports come from \refto{BiModule}(R:Ring,R:Ring): ?*? : (%,R) -> % \end{verbatim} -<>= +\begin{chunk}{category XALG XAlgebra} )abbrev category XALG XAlgebra ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -41254,22 +41257,22 @@ XAlgebra(R: Ring): Category == ++ \spad{coerce(r)} equals \spad{r*1}. if R has CommutativeRing then Algebra(R) -@ -<>= +\end{chunk} +\begin{chunk}{XALG.dotabb} "XALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=XALG"]; "XALG" -> "BMODULE" "XALG" -> "RING" -@ -<>= +\end{chunk} +\begin{chunk}{XALG.dotfull} "XAlgebra(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=XALG"]; "XAlgebra(a:Ring)" -> "Ring()" "XAlgebra(a:Ring)" -> "BiModule(a:Ring,b:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{XALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -41317,13 +41320,13 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 10} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Algebra}{ALGEBRA} \pagepic{ps/v102algebra.ps}{ALGEBRA}{0.65} -<>= +\begin{chunk}{Algebra.input} )set break resume )sys rm -f Algebra.output )spool Algebra.output @@ -41361,8 +41364,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Algebra.help} ==================================================================== Algebra examples ==================================================================== @@ -41370,7 +41373,7 @@ Algebra examples See Also: o )show Algebra -@ +\end{chunk} {\bf See:} \pageto{DivisionRing}{DIVRING} @@ -41461,7 +41464,7 @@ These exports come from \refto{Module}(R:CommutativeRing): ?*? : (%,R) -> % \end{verbatim} -<>= +\begin{chunk}{category ALGEBRA Algebra} )abbrev category ALGEBRA Algebra ++ Author: ++ Date Created: @@ -41489,15 +41492,15 @@ Algebra(R:CommutativeRing): Category == add coerce(x:R):% == x * 1$% -@ -<>= +\end{chunk} +\begin{chunk}{ALGEBRA.dotabb} "ALGEBRA" [color=lightblue,href="bookvol10.2.pdf#nameddest=ALGEBRA"]; "ALGEBRA" -> "RING" "ALGEBRA" -> "MODULE" -@ -<>= +\end{chunk} +\begin{chunk}{ALGEBRA.dotfull} "Algebra(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ALGEBRA"]; "Algebra(a:CommutativeRing)" -> "Ring()" @@ -41523,8 +41526,8 @@ Algebra(R:CommutativeRing): Category == [color=seagreen,href="bookvol10.2.pdf#nameddest=ALGEBRA"]; "Algebra(IntegralDomain)" -> "Algebra(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{ALGEBRA.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -41578,12 +41581,12 @@ digraph pic { "SETCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DifferentialExtension}{DIFEXT} \pagepic{ps/v102differentialextension.ps}{DIFEXT}{0.65} -<>= +\begin{chunk}{DifferentialExtension.input} )set break resume )sys rm -f DifferentialExtension.output )spool DifferentialExtension.output @@ -41634,8 +41637,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DifferentialExtension.help} ==================================================================== DifferentialExtension examples ==================================================================== @@ -41643,7 +41646,7 @@ DifferentialExtension examples See Also: o )show DifferentialExtension -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -41757,7 +41760,7 @@ These exports come from \refto{PartialDifferentialRing}(Symbol): if R has PDRING SYMBOL \end{verbatim} -<>= +\begin{chunk}{category DIFEXT DifferentialExtension} )abbrev category DIFEXT DifferentialExtension ++ Author: ++ Date Created: @@ -41803,16 +41806,16 @@ DifferentialExtension(R:Ring): Category == Ring with differentiate(x:%, v:Symbol):% == differentiate(x, s +-> differentiate(s, v)$R) -@ -<>= +\end{chunk} +\begin{chunk}{DIFEXT.dotabb} "DIFEXT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIFEXT"]; "DIFEXT" -> "RING" "DIFEXT" -> "DIFRING" "DIFEXT" -> "PDRING" -@ -<>= +\end{chunk} +\begin{chunk}{DIFEXT.dotfull} "DifferentialExtension(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIFEXT"]; "DifferentialExtension(a:Ring)" -> "Ring()" @@ -41829,8 +41832,8 @@ DifferentialExtension(R:Ring): Category == Ring with "DifferentialExtension(CommutativeRing)" -> "DifferentialExtension(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{DIFEXT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -41872,12 +41875,12 @@ digraph pic { "LMODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FullyLinearlyExplicitRingOver}{FLINEXP} \pagepic{ps/v102fullylinearlyexplicitringover.ps}{FLINEXP}{1.00} -<>= +\begin{chunk}{FullyLinearlyExplicitRingOver.input} )set break resume )sys rm -f FullyLinearlyExplicitRingOver.output )spool FullyLinearlyExplicitRingOver.output @@ -41917,8 +41920,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FullyLinearlyExplicitRingOver.help} ==================================================================== FullyLinearlyExplicitRingOver examples ==================================================================== @@ -41926,7 +41929,7 @@ FullyLinearlyExplicitRingOver examples See Also: o )show FullyLinearlyExplicitRingOver -@ +\end{chunk} {\bf See:} \pageto{ComplexCategory}{COMPCAT} @@ -42013,7 +42016,7 @@ These exports come from \refto{LinearlyExplicitRingOver}(a:Ring): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category FLINEXP FullyLinearlyExplicitRingOver} )abbrev category FLINEXP FullyLinearlyExplicitRingOver ++ Author: ++ Date Created: @@ -42044,14 +42047,14 @@ FullyLinearlyExplicitRingOver(R:Ring):Category == rec := reducedSystem(m, v)@Record(mat:Matrix R, vec:Vector R) reducedSystem(rec.mat, rec.vec) -@ -<>= +\end{chunk} +\begin{chunk}{FLINEXP.dotabb} "FLINEXP" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLINEXP"]; "FLINEXP" -> "LINEXP" -@ -<>= +\end{chunk} +\begin{chunk}{FLINEXP.dotfull} "FullyLinearlyExplicitRingOver(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLINEXP"]; "FullyLinearlyExplicitRingOver(a:Ring)" -> @@ -42067,8 +42070,8 @@ FullyLinearlyExplicitRingOver(R:Ring):Category == "FullyLinearlyExplicitRingOver(IntegralDomain)" -> "FullyLinearlyExplicitRingOver(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{FLINEXP.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -42113,12 +42116,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LieAlgebra}{LIECAT} \pagepic{ps/v102liealgebra.ps}{LIECAT}{1.00} -<>= +\begin{chunk}{LieAlgebra.input} )set break resume )sys rm -f LieAlgebra.output )spool LieAlgebra.output @@ -42150,8 +42153,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LieAlgebra.help} ==================================================================== LieAlgebra examples ==================================================================== @@ -42159,7 +42162,7 @@ LieAlgebra examples See Also: o )show LieAlgebra -@ +\end{chunk} {\bf See:} \pageto{FreeLieAlgebra}{FLALG} @@ -42229,7 +42232,7 @@ These exports come from \refto{Module}(R:Ring): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category LIECAT LieAlgebra} )abbrev category LIECAT LieAlgebra ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -42256,20 +42259,20 @@ LieAlgebra(R: CommutativeRing): Category == Module(R) with add if R has Field then x / r == inv(r)$R * x -@ -<>= +\end{chunk} +\begin{chunk}{LIECAT.dotabb} "LIECAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=LIECAT"]; "LIECAT" -> "MODULE" -@ -<>= +\end{chunk} +\begin{chunk}{LIECAT.dotfull} "LieAlgebra(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LIECAT"]; "LieAlgebra(a:CommutativeRing)" -> "Module(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{LIECAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -42304,12 +42307,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LinearOrdinaryDifferentialOperatorCategory}{LODOCAT} \pagepic{ps/v102linearordinarydifferentialoperatorcategory.ps}{LODOCAT}{0.50} -<>= +\begin{chunk}{LinearOrdinaryDifferentialOperatorCategory.input} )set break resume )sys rm -f LinearOrdinaryDifferentialOperatorCategory.output )spool LinearOrdinaryDifferentialOperatorCategory.output @@ -42383,8 +42386,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LinearOrdinaryDifferentialOperatorCategory.help} ==================================================================== LinearOrdinaryDifferentialOperatorCategory examples ==================================================================== @@ -42392,7 +42395,7 @@ LinearOrdinaryDifferentialOperatorCategory examples See Also: o )show LinearOrdinaryDifferentialOperatorCategory -@ +\end{chunk} {\bf See:} \pagefrom{Eltable}{ELTAB} @@ -42563,7 +42566,7 @@ These exports come from \refto{Eltable}(A:Ring,A:Ring): ?.? : (%,A) -> A \end{verbatim} -<>= +\begin{chunk}{category LODOCAT LinearOrdinaryDifferentialOperatorCategory} )abbrev category LODOCAT LinearOrdinaryDifferentialOperatorCategory ++ Author: Manuel Bronstein ++ Date Created: 9 December 1993 @@ -42621,15 +42624,15 @@ LinearOrdinaryDifferentialOperatorCategory(A:Ring): Category == if A has Field then symmetricSquare l == symmetricPower(l, 2) -@ -<>= +\end{chunk} +\begin{chunk}{LODOCAT.dotabb} "LODOCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=LODOCAT"]; "LODOCAT" -> "ELTAB" "LODOCAT" -> "OREPCAT" -@ -<>= +\end{chunk} +\begin{chunk}{LODOCAT.dotfull} "LinearOrdinaryDifferentialOperatorCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LODOCAT"]; "LinearOrdinaryDifferentialOperatorCategory(a:Ring)" @@ -42637,8 +42640,8 @@ LinearOrdinaryDifferentialOperatorCategory(A:Ring): Category == "LinearOrdinaryDifferentialOperatorCategory(a:Ring)" -> "UnivariateSkewPolynomialCategory(R:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{LODOCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -42719,12 +42722,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{NonAssociativeAlgebra}{NAALG} \pagepic{ps/v102nonassociativealgebra.ps}{NAALG}{0.75} -<>= +\begin{chunk}{NonAssociativeAlgebra.input} )set break resume )sys rm -f NonAssociativeAlgebra.output )spool NonAssociativeAlgebra.output @@ -42760,8 +42763,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NonAssociativeAlgebra.help} ==================================================================== NonAssociativeAlgebra examples ==================================================================== @@ -42769,7 +42772,7 @@ NonAssociativeAlgebra examples See Also: o )show NonAssociativeAlgebra -@ +\end{chunk} {\bf See:} \pageto{FiniteRankNonAssociativeAlgebra}{FINAALG} @@ -42846,7 +42849,7 @@ These exports come from \refto{Module}(R:CommutativeRing): ?*? : (%,R) -> % \end{verbatim} -<>= +\begin{chunk}{category NAALG NonAssociativeAlgebra} )abbrev category NAALG NonAssociativeAlgebra ++ Author: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -42879,22 +42882,22 @@ NonAssociativeAlgebra(R:CommutativeRing): Category == _ n1 : PositiveInteger := (n-1)::NonNegativeInteger::PositiveInteger plenaryPower(a,n1) * plenaryPower(a,n1) -@ -<>= +\end{chunk} +\begin{chunk}{NAALG.dotabb} "NAALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=NAALG"]; "NAALG" -> "NARNG" "NAALG" -> "MODULE" -@ -<>= +\end{chunk} +\begin{chunk}{NAALG.dotfull} "NonAssociativeAlgebra(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=NAALG"]; "NonAssociativeAlgebra(a:CommutativeRing)" -> "NonAssociativeRng()" "NonAssociativeAlgebra(a:CommutativeRing)" -> "Module(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{NAALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -42940,12 +42943,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{VectorSpace}{VSPACE} \pagepic{ps/v102vectorspace.ps}{VSPACE}{1.00} -<>= +\begin{chunk}{VectorSpace.input} )set break resume )sys rm -f VectorSpace.output )spool VectorSpace.output @@ -42977,8 +42980,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{VectorSpace.help} ==================================================================== VectorSpace examples ==================================================================== @@ -42986,7 +42989,7 @@ VectorSpace examples See Also: o )show VectorSpace -@ +\end{chunk} {\bf See:} \pageto{ExtensionField}{XF} @@ -43051,7 +43054,7 @@ These exports come from \refto{Module}(): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category VSPACE VectorSpace} )abbrev category VSPACE VectorSpace ++ Author: ++ Date Created: @@ -43073,20 +43076,20 @@ VectorSpace(S:Field): Category == Module(S) with add (v:% / s:S):% == inv(s) * v -@ -<>= +\end{chunk} +\begin{chunk}{VSPACE.dotabb} "VSPACE" [color=lightblue,href="bookvol10.2.pdf#nameddest=VSPACE"]; "VSPACE" -> "MODULE" -@ -<>= +\end{chunk} +\begin{chunk}{VSPACE.dotfull} "VectorSpace(a:Field)" [color=lightblue,href="bookvol10.2.pdf#nameddest=VSPACE"]; "VectorSpace(a:Field)" -> "Module(Field)" -@ -<>= +\end{chunk} +\begin{chunk}{VSPACE.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -43124,12 +43127,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{XFreeAlgebra}{XFALG} \pagepic{ps/v102xfreealgebra.ps}{XFALG}{0.50} -<>= +\begin{chunk}{XFreeAlgebra.input} )set break resume )sys rm -f XFreeAlgebra.output )spool XFreeAlgebra.output @@ -43185,8 +43188,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XFreeAlgebra.help} ==================================================================== XFreeAlgebra examples ==================================================================== @@ -43194,7 +43197,7 @@ XFreeAlgebra examples See Also: o )show XFreeAlgebra -@ +\end{chunk} {\bf See:} \pageto{XPolynomialsCat}{XPOLYC} @@ -43332,7 +43335,7 @@ where WORD:OrderedFreeMonoid(OrderedSet)) retractIfCan : % -> Union(OrderedFreeMonoid vl,"failed") \end{verbatim} -<>= +\begin{chunk}{category XFALG XFreeAlgebra} )abbrev category XFALG XFreeAlgebra ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -43428,16 +43431,16 @@ XFreeAlgebra(vl:OrderedSet,R:Ring):Category == Catdef where -- Attributs if R has noZeroDivisors then noZeroDivisors -@ -<>= +\end{chunk} +\begin{chunk}{XFALG.dotabb} "XFALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=XFALG"]; "XFALG" -> "RETRACT" "XFALG" -> "RING" "XFALG" -> "XALG" -@ -<>= +\end{chunk} +\begin{chunk}{XFALG.dotfull} "XFreeAlgebra(a:OrderedSet,b:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=XFALG"]; "XFreeAlgebra(a:OrderedSet,b:Ring)" -> "Ring()" @@ -43445,8 +43448,8 @@ XFreeAlgebra(vl:OrderedSet,R:Ring):Category == Catdef where "XFreeAlgebra(a:OrderedSet,b:Ring)" -> "RetractableTo(OrderedFreeMonoid(OrderedSet))" -@ -<>= +\end{chunk} +\begin{chunk}{XFALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -43510,13 +43513,13 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 11} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DirectProductCategory}{DIRPCAT} \pagepic{ps/v102directproductcategory.ps}{DIRPCAT}{0.40} -<>= +\begin{chunk}{DirectProductCategory.input} )set break resume )sys rm -f DirectProductCategory.output )spool DirectProductCategory.output @@ -43640,8 +43643,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DirectProductCategory.help} ==================================================================== DirectProductCategory examples ==================================================================== @@ -43649,7 +43652,7 @@ DirectProductCategory examples See Also: o )show DirectProductCategory -@ +\end{chunk} {\bf See:} \pagefrom{BiModule}{BMODULE} @@ -43967,7 +43970,7 @@ These exports come from \refto{OrderedAbelianMonoidSup}(): sup : (%,%) -> % if R has OAMONS \end{verbatim} -<>= +\begin{chunk}{category DIRPCAT DirectProductCategory} )abbrev category DIRPCAT DirectProductCategory -- all direct product category domains must be compiled -- without subsumption, set SourceLevelSubset to EQUAL @@ -44060,8 +44063,8 @@ DirectProductCategory(dim:NonNegativeInteger, R:Type): Category == dimension() == dim::CardinalNumber -@ -<>= +\end{chunk} +\begin{chunk}{DIRPCAT.dotabb} "DIRPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIRPCAT"]; "DIRPCAT" -> "IXAGG" @@ -44074,8 +44077,8 @@ DirectProductCategory(dim:NonNegativeInteger, R:Type): Category == "DIRPCAT" -> "ORDRING" "DIRPCAT" -> "OAMONS" -@ -<>= +\end{chunk} +\begin{chunk}{DIRPCAT.dotfull} "DirectProductCategory(a:NonNegativeInteger,b:Type)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIRPCAT"]; "DirectProductCategory(a:NonNegativeInteger,b:Type)" @@ -44097,8 +44100,8 @@ DirectProductCategory(dim:NonNegativeInteger, R:Type): Category == "DirectProductCategory(a:NonNegativeInteger,b:Type)" -> "OrderedAbelianMonoidSup()" -@ -<>= +\end{chunk} +\begin{chunk}{DIRPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -44127,12 +44130,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DivisionRing}{DIVRING} \pagepic{ps/v102divisionring.ps}{DIVRING}{0.65} -<>= +\begin{chunk}{DivisionRing.input} )set break resume )sys rm -f DivisionRing.output )spool DivisionRing.output @@ -44171,8 +44174,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DivisionRing.help} ==================================================================== DivisionRing examples ==================================================================== @@ -44180,7 +44183,7 @@ DivisionRing examples See Also: o )show DivisionRing -@ +\end{chunk} {\bf See:} \pageto{Field}{FIELD} @@ -44274,7 +44277,7 @@ These exports come from \refto{Algebra}(Fraction(Integer)): ?*? : (Fraction Integer,%) -> % \end{verbatim} -<>= +\begin{chunk}{category DIVRING DivisionRing} )abbrev category DIVRING DivisionRing ++ Author: ++ Date Created: @@ -44318,23 +44321,23 @@ DivisionRing(): Category == -- if % has CharacteristicZero() then q:Fraction(Integer) * x:% == numer(q) * inv(denom(q)::%) * x -@ -<>= +\end{chunk} +\begin{chunk}{DIVRING.dotabb} "DIVRING" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIVRING"]; "DIVRING" -> "ENTIRER" "DIVRING" -> "ALGEBRA" -@ -<>= +\end{chunk} +\begin{chunk}{DIVRING.dotfull} "DivisionRing()" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIVRING"]; "DivisionRing()" -> "EntireRing()" "DivisionRing()" -> "Algebra(Fraction(Integer))" "DivisionRing()" -> "RepeatedSquaring(DivisionRing)" -@ -<>= +\end{chunk} +\begin{chunk}{DIVRING.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -44375,12 +44378,12 @@ digraph pic { "BMODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteRankNonAssociativeAlgebra}{FINAALG} \pagepic{ps/v102finiteranknonassociativealgebra.ps}{FINAALG}{0.80} -<>= +\begin{chunk}{FiniteRankNonAssociativeAlgebra.input} )set break resume )sys rm -f FiniteRankNonAssociativeAlgebra.output )spool FiniteRankNonAssociativeAlgebra.output @@ -44450,8 +44453,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteRankNonAssociativeAlgebra.help} ==================================================================== FiniteRankNonAssociativeAlgebra examples ==================================================================== @@ -44459,7 +44462,7 @@ FiniteRankNonAssociativeAlgebra examples See Also: o )show FiniteRankNonAssociativeAlgebra -@ +\end{chunk} {\bf See:} \pageto{FramedNonAssociativeAlgebra}{FRNAALG} @@ -44633,7 +44636,7 @@ These exports come from \refto{NonAssociativeAlgebra}(R:CommutativeRing): ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category FINAALG FiniteRankNonAssociativeAlgebra} )abbrev category FINAALG FiniteRankNonAssociativeAlgebra ++ Author: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -45293,21 +45296,21 @@ FiniteRankNonAssociativeAlgebra(R:CommutativeRing): matrix [parts coordinates(b(i+m)*x,b) for i in 1..rank()]$List(List R) -@ -<>= +\end{chunk} +\begin{chunk}{FINAALG.dotabb} "FINAALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINAALG"]; "FINAALG" -> "NAALG" -@ -<>= +\end{chunk} +\begin{chunk}{FINAALG.dotfull} "FiniteRankNonAssociativeAlgebra(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINAALG"]; "FiniteRankNonAssociativeAlgebra(a:CommutativeRing)" -> "NonAssociativeAlgebra(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{FINAALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -45357,12 +45360,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FreeLieAlgebra}{FLALG} \pagepic{ps/v102freeliealgebra.ps}{FLALG}{1.00} -<>= +\begin{chunk}{FreeLieAlgebra.input} )set break resume )sys rm -f FreeLieAlgebra.output )spool FreeLieAlgebra.output @@ -45404,8 +45407,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeLieAlgebra.help} ==================================================================== FreeLieAlgebra examples ==================================================================== @@ -45413,7 +45416,7 @@ FreeLieAlgebra examples See Also: o )show FreeLieAlgebra -@ +\end{chunk} {\bf See:} \pagefrom{LieAlgebra}{LIECAT} @@ -45501,7 +45504,7 @@ These exports come from \refto{LieAlgebra}(CommutativeRing): ?=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category FLALG FreeLieAlgebra} )abbrev category FLALG FreeLieAlgebra ++ Author: Michel Petitot (petitot@lifl.fr) ++ Date Created: 91 @@ -45566,21 +45569,21 @@ FreeLieAlgebra(VarSet:OrderedSet, R:CommutativeRing) :Category == _ ++ \axiom{eval(p, [x1,...,xn], [v1,...,vn])} replaces \axiom{xi} ++ by \axiom{vi} in \axiom{p}. -@ -<>= +\end{chunk} +\begin{chunk}{FLALG.dotabb} "FLALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLALG"]; "FLALG" -> "LIECAT" -@ -<>= +\end{chunk} +\begin{chunk}{FLALG.dotfull} "FreeLieAlgebra(a:OrderedSet,b:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLALG"]; "FreeLieAlgebra(a:OrderedSet,b:CommutativeRing)" -> "LieAlgebra(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{FLALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -45619,12 +45622,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{IntegralDomain}{INTDOM} \pagepic{ps/v102integraldomain.ps}{INTDOM}{0.65} -<>= +\begin{chunk}{IntegralDomain.input} )set break resume )sys rm -f IntegralDomain.output )spool IntegralDomain.output @@ -45664,8 +45667,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegralDomain.help} ==================================================================== IntegralDomain examples ==================================================================== @@ -45673,7 +45676,7 @@ IntegralDomain examples See Also: o )show IntegralDomain -@ +\end{chunk} All Commutative Rings are Integral Domains. \pagefrom{CommutativeRing}{COMRING} Integral Domains are a subset of Unique Factorization domains. @@ -45794,7 +45797,7 @@ These exports come from \refto{Algebra}(a:IntegralDomain): coerce : % -> % \end{verbatim} -<>= +\begin{chunk}{category INTDOM IntegralDomain} )abbrev category INTDOM IntegralDomain ++ Author: ++ Date Created: @@ -45853,24 +45856,24 @@ IntegralDomain(): Category == y exquo x case "failed" => false true -@ -<>= +\end{chunk} +\begin{chunk}{INTDOM.dotabb} "INTDOM" [color=lightblue,href="bookvol10.2.pdf#nameddest=INTDOM"]; "INTDOM" -> "COMRING" "INTDOM" -> "ALGEBRA" "INTDOM" -> "ENTIRER" -@ -<>= +\end{chunk} +\begin{chunk}{INTDOM.dotfull} "IntegralDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=INTDOM"]; "IntegralDomain()" -> "CommutativeRing()" "IntegralDomain()" -> "Algebra(a:CommutativeRing)" "IntegralDomain()" -> "EntireRing()" -@ -<>= +\end{chunk} +\begin{chunk}{INTDOM.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -45904,12 +45907,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MonogenicLinearOperator}{MLO} \pagepic{ps/v102monogeniclinearoperator.ps}{MLO}{0.60} -<>= +\begin{chunk}{MonogenicLinearOperator.input} )set break resume )sys rm -f MonogenicLinearOperator.output )spool MonogenicLinearOperator.output @@ -45952,8 +45955,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MonogenicLinearOperator.help} ==================================================================== MonogenicLinearOperator examples ==================================================================== @@ -45961,7 +45964,7 @@ MonogenicLinearOperator examples See Also: o )show MonogenicLinearOperator -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -46060,7 +46063,7 @@ These exports come from \refto{Algebra}(R:CommutativeRing): coerce : R -> % if R has COMRING \end{verbatim} -<>= +\begin{chunk}{category MLO MonogenicLinearOperator} )abbrev category MLO MonogenicLinearOperator ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -46111,24 +46114,24 @@ MonogenicLinearOperator(R): Category == Defn where ++ monomial(c,k) produces c times the k-th power of ++ the generating operator, \spad{monomial(1,1)}. -@ -<>= +\end{chunk} +\begin{chunk}{MLO.dotabb} "MLO" [color=lightblue,href="bookvol10.2.pdf#nameddest=MLO"]; "MLO" -> "BMODULE" "MLO" -> "RING" "MLO" -> "ALGEBRA" -@ -<>= +\end{chunk} +\begin{chunk}{MLO.dotfull} "MonogenicLinearOperator(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MLO"]; "MonogenicLinearOperator(a:Ring)" -> "Ring()" "MonogenicLinearOperator(a:Ring)" -> "BiModule(a:Ring,b:Ring)" "MonogenicLinearOperator(a:Ring)" -> "Algebra(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{MLO.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -46192,12 +46195,12 @@ digraph pic { "CABMON..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OctonionCategory}{OC} \pagepic{ps/v102octonioncategory.ps}{OC}{1.00} -<>= +\begin{chunk}{OctonionCategory.input} )set break resume )sys rm -f OctonionCategory.output )spool OctonionCategory.output @@ -46270,8 +46273,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OctonionCategory.help} ==================================================================== OctonionCategory examples ==================================================================== @@ -46279,7 +46282,7 @@ OctonionCategory examples See Also: o )show OctonionCategory -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -46458,7 +46461,7 @@ These exports come from \refto{CharacteristicNonZero}(): charthRoot : % -> Union(%,"failed") if R has CHARNZ \end{verbatim} -<>= +\begin{chunk}{category OC OctonionCategory} )abbrev category OC OctonionCategory ++ Author: R. Wisbauer, J. Grabmeier ++ Date Created: 05 September 1990 @@ -46729,16 +46732,16 @@ OctonionCategory(R: CommutativeRing): Category == rational? x => rational real x "failed" -@ -<>= +\end{chunk} +\begin{chunk}{OC.dotabb} "OC" [color=lightblue,href="bookvol10.2.pdf#nameddest=OC"]; "OC" -> "ALGEBRA" "OC" -> "FEVALAB" "OC" -> "FRETRCT" -@ -<>= +\end{chunk} +\begin{chunk}{OC.dotfull} "OctonionCategory(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=OC"]; "OctonionCategory(a:CommutativeRing)" -> "Algebra(a:CommutativeRing)" @@ -46746,8 +46749,8 @@ OctonionCategory(R: CommutativeRing): Category == "OctonionCategory(a:CommutativeRing)" -> "FullyRetractableTo(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{OC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -46763,12 +46766,12 @@ digraph pic { "FRETRCT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{QuaternionCategory}{QUATCAT} \pagepic{ps/v102quaternioncategory.ps}{QUATCAT}{0.70} -<>= +\begin{chunk}{QuaternionCategory.input} )set break resume )sys rm -f QuaternionCategory.output )spool QuaternionCategory.output @@ -46858,8 +46861,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QuaternionCategory.help} ==================================================================== QuaternionCategory examples ==================================================================== @@ -46867,7 +46870,7 @@ QuaternionCategory examples See Also: o )show QuaternionCategory -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -47076,7 +47079,7 @@ These exports come from \refto{CharacteristicNonZero}(): charthRoot : % -> Union(%,"failed") if R has CHARNZ \end{verbatim} -<>= +\begin{chunk}{category QUATCAT QuaternionCategory} )abbrev category QUATCAT QuaternionCategory ++ Author: Robert S. Sutor ++ Date Created: 23 May 1990 @@ -47275,8 +47278,8 @@ QuaternionCategory(R: CommutativeRing): Category == rational? x => rational real x "failed" -@ -<>= +\end{chunk} +\begin{chunk}{QUATCAT.dotabb} "QUATCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=QUATCAT"]; "QUATCAT" -> "ALGEBRA" @@ -47285,8 +47288,8 @@ QuaternionCategory(R: CommutativeRing): Category == "QUATCAT" -> "FLINEXP" "QUATCAT" -> "FRETRCT" -@ -<>= +\end{chunk} +\begin{chunk}{QUATCAT.dotfull} "QuaternionCategory(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=QUATCAT"]; "QuaternionCategory(a:CommutativeRing)" -> @@ -47300,8 +47303,8 @@ QuaternionCategory(R: CommutativeRing): Category == "QuaternionCategory(a:CommutativeRing)" -> "FullyRetractableTo(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{QUATCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -47321,7 +47324,7 @@ digraph pic { "FRETRCT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{SquareMatrixCategory}{SMATCAT} \pagepic{ps/v102squarematrixcategory.ps}{SMATCAT}{0.25} @@ -47337,7 +47340,7 @@ of a given dimension The SquareMatrix domain is for square matrices of fixed dimension. -<>= +\begin{chunk}{SquareMatrixCategory.input} )set break resume )sys rm -f SquareMatrixCategory.output )spool SquareMatrixCategory.output @@ -47441,8 +47444,8 @@ The SquareMatrix domain is for square matrices of fixed dimension. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SquareMatrixCategory.help} ==================================================================== SquareMatrixCategory examples ==================================================================== @@ -47450,7 +47453,7 @@ SquareMatrixCategory examples See Also: o )show SquareMatrixCategory -@ +\end{chunk} {\bf See:} @@ -47698,7 +47701,7 @@ These exports come from \refto{FullyLinearlyExplicitRingOver}(R:Ring): reducedSystem : Matrix % -> Matrix Integer if R has LINEXP INT \end{verbatim} -<>= +\begin{chunk}{category SMATCAT SquareMatrixCategory} )abbrev category SMATCAT SquareMatrixCategory ++ Authors: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -47850,8 +47853,8 @@ SquareMatrixCategory(ndim,R,Row,Col): Category == Definition where error "**: matrix must be invertible" positivePower(xInv :: %,-n) -@ -<>= +\end{chunk} +\begin{chunk}{SMATCAT.dotabb} "SMATCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=SMATCAT"]; "SMATCAT" -> "BMODULE" @@ -47860,8 +47863,8 @@ SquareMatrixCategory(ndim,R,Row,Col): Category == Definition where "SMATCAT" -> "FRETRCT" "SMATCAT" -> "RMATCAT" -@ -<>= +\end{chunk} +\begin{chunk}{SMATCAT.dotfull} "SquareMatrixCategory(a:NonNegativeInteger,b:Ring,c:DirectProductCategory(a,b),d:DirectProductCategory(a,b)" [color=lightblue,href="bookvol10.2.pdf#nameddest=SMATCAT"]; "SquareMatrixCategory(a:NonNegativeInteger,b:Ring,c:DirectProductCategory(a,b),d:DirectProductCategory(a,b)" @@ -47875,8 +47878,8 @@ SquareMatrixCategory(ndim,R,Row,Col): Category == Definition where "SquareMatrixCategory(a:NonNegativeInteger,b:Ring,c:DirectProductCategory(a,b),d:DirectProductCategory(a,b)" -> "RectangularMatrixCategory(a:NonNegativeInteger,b:NonNegativeInteger,c:Ring,d:DirectProductCategory(b,c),e:DirectProductCategory(a,c))" -@ -<>= +\end{chunk} +\begin{chunk}{SMATCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -47958,12 +47961,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{XPolynomialsCat}{XPOLYC} \pagepic{ps/v102xpolynomialscat.ps}{XPOLYC}{0.50} -<>= +\begin{chunk}{XPolynomialsCat.input} )set break resume )sys rm -f XPolynomialsCat.output )spool XPolynomialsCat.output @@ -48022,8 +48025,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XPolynomialsCat.help} ==================================================================== XPolynomialsCat examples ==================================================================== @@ -48031,7 +48034,7 @@ XPolynomialsCat examples See Also: o )show XPolynomialsCat -@ +\end{chunk} {\bf See:} \pagefrom{XFreeAlgebra}{XFALG} @@ -48168,7 +48171,7 @@ These exports come from \refto{SetCategory}(): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category XPOLYC XPolynomialsCat} )abbrev category XPOLYC XPolynomialsCat ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -48199,21 +48202,21 @@ XPolynomialsCat(vl:OrderedSet,R:Ring):Category == Export where ++ \spad{trunc(p,n)} returns the polynomial \spad{p} truncated ++ at order \spad{n}. -@ -<>= +\end{chunk} +\begin{chunk}{XPOLYC.dotabb} "XPOLYC" [color=lightblue,href="bookvol10.2.pdf#nameddest=XPOLYC"]; "XPOLYC" -> "XFALG" -@ -<>= +\end{chunk} +\begin{chunk}{XPOLYC.dotfull} "XPolynomialsCat(a:OrderedRing,b:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=XPOLYC"]; "XPolynomialsCat(a:OrderedRing,b:Ring)" -> "XFreeAlgebra(a:OrderedSet,b:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{XPOLYC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -48282,13 +48285,13 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 12} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AbelianMonoidRing}{AMR} \pagepic{ps/v102abelianmonoidring.ps}{AMR}{0.65} -<>= +\begin{chunk}{AbelianMonoidRing.input} )set break resume )sys rm -f AbelianMonoidRing.output )spool AbelianMonoidRing.output @@ -48341,8 +48344,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AbelianMonoidRing.help} ==================================================================== AbelianMonoidRing examples ==================================================================== @@ -48350,7 +48353,7 @@ AbelianMonoidRing examples See Also: o )show AbelianMonoidRing -@ +\end{chunk} {\bf See:} \pageto{FiniteAbelianMonoidRing}{FAMR} @@ -48495,7 +48498,7 @@ These exports come from \refto{Algebra}(Fraction(Integer)): ?*? : (%,Fraction Integer) -> % if R has ALGEBRA FRAC INT \end{verbatim} -<>= +\begin{chunk}{category AMR AbelianMonoidRing} )abbrev category AMR AbelianMonoidRing ++ Author: ++ Date Created: @@ -48562,8 +48565,8 @@ AbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == if R has Algebra Fraction Integer then q:Fraction(Integer) * p:% == map(x1 +-> q * x1, p) -@ -<>= +\end{chunk} +\begin{chunk}{AMR.dotabb} "AMR" [color=lightblue,href="bookvol10.2.pdf#nameddest=AMR"]; "AMR" -> "RING" @@ -48573,8 +48576,8 @@ AbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == "AMR" -> "COMRING" "AMR" -> "ALGEBRA" -@ -<>= +\end{chunk} +\begin{chunk}{AMR.dotfull} "AbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=AMR"]; "AbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" -> "Ring()" @@ -48589,8 +48592,8 @@ AbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == "AbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" -> "Algebra(Fraction(Integer))" -@ -<>= +\end{chunk} +\begin{chunk}{AMR.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -48640,12 +48643,12 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FortranMachineTypeCategory}{FMTC} \pagepic{ps/v102fortranmachinetypecategory.ps}{FMTC}{0.40} -<>= +\begin{chunk}{FortranMachineTypeCategory.input} )set break resume )sys rm -f FortranMachineTypeCategory.output )spool FortranMachineTypeCategory.output @@ -48690,8 +48693,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranMachineTypeCategory.help} ==================================================================== FortranMachineTypeCategory examples ==================================================================== @@ -48699,7 +48702,7 @@ FortranMachineTypeCategory examples See Also: o )show FortranMachineTypeCategory -@ +\end{chunk} {\bf See:} \pagefrom{IntegralDomain}{INTDOM} @@ -48812,7 +48815,7 @@ These exports come from \refto{RetractableTo}(Integer): retractIfCan : % -> Union(Integer,"failed") \end{verbatim} -<>= +\begin{chunk}{category FMTC FortranMachineTypeCategory} )abbrev category FMTC FortranMachineTypeCategory ++ Author: Mike Dewar ++ Date Created: December 1993 @@ -48831,24 +48834,24 @@ These exports come from \refto{RetractableTo}(Integer): FortranMachineTypeCategory():Category == Join(IntegralDomain,OrderedSet, RetractableTo(Integer) ) -@ -<>= +\end{chunk} +\begin{chunk}{FMTC.dotabb} "FMTC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMTC"]; "FMTC" -> "INTDOM" "FMTC" -> "ORDSET" "FMTC" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{FMTC.dotfull} "FortranMachineTypeCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FMTC"]; "FortranMachineTypeCategory()" -> "IntegralDomain()" "FortranMachineTypeCategory()" -> "OrderedSet()" "FortranMachineTypeCategory()" -> "RetractableTo(Integer)" -@ -<>= +\end{chunk} +\begin{chunk}{FMTC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -48915,12 +48918,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FramedNonAssociativeAlgebra}{FRNAALG} \pagepic{ps/v102framednonassociativealgebra.ps}{FRNAALG}{0.75} -<>= +\begin{chunk}{FramedNonAssociativeAlgebra.input} )set break resume )sys rm -f FramedNonAssociativeAlgebra.output )spool FramedNonAssociativeAlgebra.output @@ -49003,8 +49006,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FramedNonAssociativeAlgebra.help} ==================================================================== FramedNonAssociativeAlgebra examples ==================================================================== @@ -49012,7 +49015,7 @@ FramedNonAssociativeAlgebra examples See Also: o )show FramedNonAssociativeAlgebra -@ +\end{chunk} {\bf See:} \pagefrom{FiniteRankNonAssociativeAlgebra}{FINAALG} @@ -49221,7 +49224,7 @@ where R:CommutativeRing: ?**? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category FRNAALG FramedNonAssociativeAlgebra} )abbrev category FRNAALG FramedNonAssociativeAlgebra ++ Author: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -49536,21 +49539,21 @@ FramedNonAssociativeAlgebra(R:CommutativeRing): setRow_!(m, j, coordinates qelt(v, i)) m -@ -<>= +\end{chunk} +\begin{chunk}{FRNAALG.dotabb} "FRNAALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRNAALG"]; "FRNAALG" -> "FINAALG" -@ -<>= +\end{chunk} +\begin{chunk}{FRNAALG.dotfull} "FramedNonAssociativeAlgebra(a:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRNAALG"]; "FramedNonAssociativeAlgebra(a:CommutativeRing)" -> "FiniteRankNonAssociativeAlgebra(a:CommutativeRing)" -@ -<>= +\end{chunk} +\begin{chunk}{FRNAALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -49604,12 +49607,12 @@ digraph pic { "ABELGRP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{GcdDomain}{GCDDOM} \pagepic{ps/v102gcddomain.ps}{GCDDOM}{0.65} -<>= +\begin{chunk}{GcdDomain.input} )set break resume )sys rm -f GcdDomain.output )spool GcdDomain.output @@ -49652,8 +49655,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GcdDomain.help} ==================================================================== GcdDomain examples ==================================================================== @@ -49661,7 +49664,7 @@ GcdDomain examples See Also: o )show GcdDomain -@ +\end{chunk} {\bf See:} \pageto{IntervalCategory}{INTCAT} @@ -49770,7 +49773,7 @@ These exports come from \refto{IntegralDomain}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category GCDDOM GcdDomain} )abbrev category GCDDOM GcdDomain ++ Author: ++ Date Created: @@ -49836,20 +49839,20 @@ GcdDomain(): Category == IntegralDomain with zero? e1 => p1 monomial(1,e1)*p1 -@ -<>= +\end{chunk} +\begin{chunk}{GCDDOM.dotabb} "GCDDOM" [color=lightblue,href="bookvol10.2.pdf#nameddest=GCDDOM"]; "GCDDOM" -> "INTDOM" -@ -<>= +\end{chunk} +\begin{chunk}{GCDDOM.dotfull} "GcdDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=GCDDOM"]; "GcdDomain()" -> "IntegralDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{GCDDOM.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -49886,12 +49889,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{OrderedIntegralDomain}{OINTDOM} \pagepic{ps/v102orderedintegraldomain.ps}{OINTDOM}{0.45} -<>= +\begin{chunk}{OrderedIntegralDomain.input} )set break resume )sys rm -f OrderedIntegralDomain.output )spool OrderedIntegralDomain.output @@ -49936,8 +49939,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedIntegralDomain.help} ==================================================================== OrderedIntegralDomain examples ==================================================================== @@ -49945,7 +49948,7 @@ OrderedIntegralDomain examples See Also: o )show OrderedIntegralDomain -@ +\end{chunk} {\bf See:} \pageto{IntegerNumberSystem}{INS} @@ -50058,7 +50061,7 @@ These exports come from \refto{OrderedRing}(): ?>=? : (%,%) -> Boolean \end{verbatim} -<>= +\begin{chunk}{category OINTDOM OrderedIntegralDomain} )abbrev category OINTDOM OrderedIntegralDomain ++ Author: JH Davenport (after L Gonzalez-Vega) ++ Date Created: 30.1.96 @@ -50075,22 +50078,22 @@ These exports come from \refto{OrderedRing}(): OrderedIntegralDomain(): Category == Join(IntegralDomain, OrderedRing) -@ -<>= +\end{chunk} +\begin{chunk}{OINTDOM.dotabb} "OINTDOM" [color=lightblue,href="bookvol10.2.pdf#nameddest=OINTDOM"]; "OINTDOM" -> "INTDOM" "OINTDOM" -> "ORDRING" -@ -<>= +\end{chunk} +\begin{chunk}{OINTDOM.dotfull} "OrderedIntegralDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=OINTDOM"]; "OrderedIntegralDomain()" -> "IntegralDomain()" "OrderedIntegralDomain()" -> "OrderedRing()" -@ -<>= +\end{chunk} +\begin{chunk}{OINTDOM.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -50136,13 +50139,13 @@ digraph pic { "MONOID..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 13} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteAbelianMonoidRing}{FAMR} \pagepic{ps/v102finiteabelianmonoidring.ps}{FAMR}{0.40} -<>= +\begin{chunk}{FiniteAbelianMonoidRing.input} )set break resume )sys rm -f FiniteAbelianMonoidRing.output )spool FiniteAbelianMonoidRing.output @@ -50208,8 +50211,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteAbelianMonoidRing.help} ==================================================================== FiniteAbelianMonoidRing examples ==================================================================== @@ -50217,7 +50220,7 @@ FiniteAbelianMonoidRing examples See Also: o )show FiniteAbelianMonoidRing -@ +\end{chunk} {\bf See:} \pageto{PolynomialCategory}{POLYCAT} @@ -50383,7 +50386,7 @@ These exports come from \refto{FullyRetractableTo}(R:Ring): if R has RETRACT FRAC INT \end{verbatim} -<>= +\begin{chunk}{category FAMR FiniteAbelianMonoidRing} )abbrev category FAMR FiniteAbelianMonoidRing ++ Author: ++ Date Created: @@ -50502,15 +50505,15 @@ FiniteAbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == c := content x unitCanonical((x exquo c)::%) -@ -<>= +\end{chunk} +\begin{chunk}{FAMR.dotabb} "FAMR" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAMR"]; "FAMR" -> "AMR" "FAMR" -> "FRETRCT" -@ -<>= +\end{chunk} +\begin{chunk}{FAMR.dotfull} "FiniteAbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAMR"]; "FiniteAbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" -> @@ -50523,8 +50526,8 @@ FiniteAbelianMonoidRing(R:Ring, E:OrderedAbelianMonoid): Category == "FiniteAbelianMonoidRing(a:Ring,b:OrderedAbelianMonoidSup)" -> "FiniteAbelianMonoidRing(a:Ring,b:OrderedAbelianMonoid)" -@ -<>= +\end{chunk} +\begin{chunk}{FAMR.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -50589,12 +50592,12 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{IntervalCategory}{INTCAT} \pagepic{ps/v102intervalcategory.ps}{INTCAT}{0.60} -<>= +\begin{chunk}{IntervalCategory.input} )set break resume )sys rm -f IntervalCategory.output )spool IntervalCategory.output @@ -50663,8 +50666,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntervalCategory.help} ==================================================================== IntervalCategory examples ==================================================================== @@ -50672,7 +50675,7 @@ IntervalCategory examples See Also: o )show IntervalCategory -@ +\end{chunk} {\bf See:} \pagefrom{GcdDomain}{GCDDOM} @@ -50893,7 +50896,7 @@ These exports come from \refto{RetractableTo}(Integer): retractIfCan : % -> Union(Integer,"failed") \end{verbatim} -<>= +\begin{chunk}{category INTCAT IntervalCategory} )abbrev category INTCAT IntervalCategory ++ Author: Mike Dewar ++ Date Created: November 1996 @@ -50939,8 +50942,8 @@ IntervalCategory(R: Join(FloatingPointSystem,TranscendentalFunctionCategory)): ++ contains?(i,f) returns true if \axiom{f} is contained within the ++ interval \axiom{i}, false otherwise. -@ -<>= +\end{chunk} +\begin{chunk}{INTCAT.dotabb} "INTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=INTCAT"]; "INTCAT" -> "GCDDOM" @@ -50949,8 +50952,8 @@ IntervalCategory(R: Join(FloatingPointSystem,TranscendentalFunctionCategory)): "INTCAT" -> "RETRACT" "INTCAT" -> "TRANFUN" -@ -<>= +\end{chunk} +\begin{chunk}{INTCAT.dotfull} "IntervalCategory(a:Join(FloatingPointSystem,TranscendentalFunctionCategory))" [color=lightblue,href="bookvol10.2.pdf#nameddest=INTCAT"]; "IntervalCategory(a:Join(FloatingPointSystem,TranscendentalFunctionCategory))" @@ -50964,8 +50967,8 @@ IntervalCategory(R: Join(FloatingPointSystem,TranscendentalFunctionCategory)): "IntervalCategory(a:Join(FloatingPointSystem,TranscendentalFunctionCategory))" -> "RetractableTo(Integer)" -@ -<>= +\end{chunk} +\begin{chunk}{INTCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -51019,12 +51022,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PowerSeriesCategory}{PSCAT} \pagepic{ps/v102powerseriescategory.ps}{PSCAT}{0.60} -<>= +\begin{chunk}{PowerSeriesCategory.input} )set break resume )sys rm -f PowerSeriesCategory.output )spool PowerSeriesCategory.output @@ -51080,8 +51083,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PowerSeriesCategory.help} ==================================================================== PowerSeriesCategory examples ==================================================================== @@ -51089,7 +51092,7 @@ PowerSeriesCategory examples See Also: o )show PowerSeriesCategory -@ +\end{chunk} {\bf See:} \pageto{MultivariateTaylorSeriesCategory}{MTSCAT} @@ -51223,7 +51226,7 @@ where Coef:Ring and Expon:OrderedAbelianMonoid: ?^? : (%,PositiveInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category PSCAT PowerSeriesCategory} )abbrev category PSCAT PowerSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -51286,14 +51289,14 @@ PowerSeriesCategory(Coef,Expon,Var): Category == Definition where if Coef has Field then ps:% / r:Coef == map((r1:Coef):Coef +-> r1 / r,ps) -@ -<>= +\end{chunk} +\begin{chunk}{PSCAT.dotabb} "PSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSCAT"]; "PSCAT" -> "AMR" -@ -<>= +\end{chunk} +\begin{chunk}{PSCAT.dotfull} "PowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid,c:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PSCAT"]; "PowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid,c:OrderedSet)" -> @@ -51309,8 +51312,8 @@ PowerSeriesCategory(Coef,Expon,Var): Category == Definition where "PowerSeriesCategory(a:Ring,IndexedExponents(b:OrderedSet),c:OrderedSet))" -> "PowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid,c:OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{PSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -51365,12 +51368,12 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PrincipalIdealDomain}{PID} \pagepic{ps/v102principalidealdomain.ps}{PID}{0.65} -<>= +\begin{chunk}{PrincipalIdealDomain.input} )set break resume )sys rm -f PrincipalIdealDomain.output )spool PrincipalIdealDomain.output @@ -51415,8 +51418,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PrincipalIdealDomain.help} ==================================================================== PrincipalIdealDomain examples ==================================================================== @@ -51424,7 +51427,7 @@ PrincipalIdealDomain examples See Also: o )show PrincipalIdealDomain -@ +\end{chunk} {\bf See:} @@ -51534,7 +51537,7 @@ These exports come from \refto{GcdDomain}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category PID PrincipalIdealDomain} )abbrev category PID PrincipalIdealDomain ++ Author: ++ Date Created: @@ -51564,20 +51567,20 @@ PrincipalIdealDomain(): Category == GcdDomain with ++ of h as a linear combination of the fi or "failed" if h ++ is not in the ideal generated by the fi. -@ -<>= +\end{chunk} +\begin{chunk}{PID.dotabb} "PID" [color=lightblue,href="bookvol10.2.pdf#nameddest=PID"]; "PID" -> "GCDDOM" -@ -<>= +\end{chunk} +\begin{chunk}{PID.dotfull} "PrincipalIdealDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PID"]; "PrincipalIdealDomain()" -> "GcdDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{PID.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -51617,12 +51620,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UniqueFactorizationDomain}{UFD} \pagepic{ps/v102uniquefactorizationdomain.ps}{UFD}{0.65} -<>= +\begin{chunk}{UniqueFactorizationDomain.input} )set break resume )sys rm -f UniqueFactorizationDomain.output )spool UniqueFactorizationDomain.output @@ -51667,8 +51670,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UniqueFactorizationDomain.help} ==================================================================== UniqueFactorizationDomain examples ==================================================================== @@ -51676,7 +51679,7 @@ UniqueFactorizationDomain examples See Also: o )show UniqueFactorizationDomain -@ +\end{chunk} All Integral Domains are UniqueFactorizationDomains. \pagefrom{IntegralDomain}{INTDOM}. Unique Factorization Domains are a subset of Principal Ideal Domains. @@ -51796,7 +51799,7 @@ These exports come from \refto{GcdDomain}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category UFD UniqueFactorizationDomain} )abbrev category UFD UniqueFactorizationDomain ++ Author: ++ Date Created: @@ -51832,20 +51835,20 @@ UniqueFactorizationDomain(): Category == GcdDomain with prime? x == # factorList factor x = 1 -@ -<>= +\end{chunk} +\begin{chunk}{UFD.dotabb} "UFD" [color=lightblue,href="bookvol10.2.pdf#nameddest=UFD"]; "UFD" -> "GCDDOM" -@ -<>= +\end{chunk} +\begin{chunk}{UFD.dotfull} "UniqueFactorizationDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=UFD"]; "UniqueFactorizationDomain()" -> "GcdDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{UFD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -51885,13 +51888,13 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 14} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DivisorCategory}{DIVCAT} \pagepic{ps/v102divisorcategory.ps}{DIVCAT}{0.75} -<>= +\begin{chunk}{DivisorCategory.input} )set break resume )sys rm -f DivisorCategory.output )spool DivisorCategory.output @@ -51936,8 +51939,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DivisorCategory.help} ==================================================================== DivisorCategory examples ==================================================================== @@ -51945,7 +51948,7 @@ DivisorCategory examples See Also: o )show DivisorCategory -@ +\end{chunk} {\bf See:} @@ -52051,7 +52054,7 @@ These operations come from terms : % -> List Record(gen: S,exp: E) \end{verbatim} -<>= +\begin{chunk}{category DIVCAT DivisorCategory} )abbrev category DIVCAT DivisorCategory ++ Authors: Gaetan Hache ++ Date Created: may 1997 @@ -52104,21 +52107,21 @@ DivisorCategory(S:SetCategory):Category == Exports where incr: % -> % -@ -<>= +\end{chunk} +\begin{chunk}{DIVCAT.dotabb} "DIVCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIVCAT"]; "OAGROUP" [color=lightblue,href="bookvol10.2.pdf#nameddest=OAGROUP"]; "PID" [color=lightblue,href="bookvol10.2.pdf#nameddest=PID"]; "DIVCAT" -> "OAGROUP" "DIVCAT" -> "PID" -@ -<>= +\end{chunk} +\begin{chunk}{DIVCAT.dotfull} "DivisorCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIVCAT"]; "DivisorCategory()" -> "PrincipalIdealDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{DIVCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -52141,12 +52144,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{EuclideanDomain}{EUCDOM} \pagepic{ps/v102euclideandomain.ps}{EUCDOM}{0.65} -<>= +\begin{chunk}{EuclideanDomain.input} )set break resume )sys rm -f EuclideanDomain.output )spool EuclideanDomain.output @@ -52198,8 +52201,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EuclideanDomain.help} ==================================================================== EuclideanDomain examples ==================================================================== @@ -52207,7 +52210,7 @@ EuclideanDomain examples See Also: o )show EuclideanDomain -@ +\end{chunk} Principal Ideal Domains are a subset of Euclidean Domains. \pagefrom{PrincipalIdealDomain}{PID}. Euclidean Domains are a subset of Fields. @@ -52339,7 +52342,7 @@ These exports come from \refto{PrincipalIdealDomain}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category EUCDOM EuclideanDomain} )abbrev category EUCDOM EuclideanDomain ++ Author: ++ Date Created: @@ -52488,20 +52491,20 @@ EuclideanDomain(): Category == PrincipalIdealDomain with v2 case "failed" => "failed" concat(v1,v2) -@ -<>= +\end{chunk} +\begin{chunk}{EUCDOM.dotabb} "EUCDOM" [color=lightblue,href="bookvol10.2.pdf#nameddest=EUCDOM"]; "EUCDOM" -> "PID" -@ -<>= +\end{chunk} +\begin{chunk}{EUCDOM.dotfull} "EuclideanDomain()" [color=lightblue,href="bookvol10.2.pdf#nameddest=EUCDOM"]; "EuclideanDomain()" -> "PrincipalIdealDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{EUCDOM.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -52540,12 +52543,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MultivariateTaylorSeriesCategory}{MTSCAT} \pagepic{ps/v102multivariatetaylorseriescategory.ps}{MTSCAT}{1.00} -<>= +\begin{chunk}{MultivariateTaylorSeriesCategory.input} )set break resume )sys rm -f MultivariateTaylorSeriesCategory.output )spool MultivariateTaylorSeriesCategory.output @@ -52654,8 +52657,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MultivariateTaylorSeriesCategory.help} ==================================================================== MultivariateTaylorSeriesCategory examples ==================================================================== @@ -52663,7 +52666,7 @@ MultivariateTaylorSeriesCategory examples See Also: o )show MultivariateTaylorSeriesCategory -@ +\end{chunk} {\bf See:} \pagefrom{Evalable}{EVALAB} @@ -52905,7 +52908,7 @@ These exports come from \refto{TranscendentalFunctionCategory}(): ?**? : (%,%) -> % if Coef has ALGEBRA FRAC INT \end{verbatim} -<>= +\begin{chunk}{category MTSCAT MultivariateTaylorSeriesCategory} )abbrev category MTSCAT MultivariateTaylorSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 6 March 1990 @@ -52967,8 +52970,8 @@ MultivariateTaylorSeriesCategory(Coef,Var): Category == Definition where --++ We provide transcendental functions when we can divide --++ coefficients by integers. -@ -<>= +\end{chunk} +\begin{chunk}{MTSCAT.dotabb} "MTSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=MTSCAT"]; "MTSCAT" -> "PDRING" @@ -52976,8 +52979,8 @@ MultivariateTaylorSeriesCategory(Coef,Var): Category == Definition where "MTSCAT" -> "IEVALAB" "MTSCAT" -> "EVALAB" -@ -<>= +\end{chunk} +\begin{chunk}{MTSCAT.dotfull} "MultivariateTaylorSeriesCategory(a:Ring,b:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=MTSCAT"]; "MultivariateTaylorSeriesCategory(a:Ring,b:OrderedSet)" -> @@ -52989,8 +52992,8 @@ MultivariateTaylorSeriesCategory(Coef,Var): Category == Definition where "MultivariateTaylorSeriesCategory(a:Ring,b:OrderedSet)" -> "Evalable(MultivariateTaylorSeriesCategory(a:Ring,b:OrderedSet))" -@ -<>= +\end{chunk} +\begin{chunk}{MTSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -53013,12 +53016,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PolynomialFactorizationExplicit}{PFECAT} \pagepic{ps/v102polynomialfactorizationexplicit.ps}{PFECAT}{0.80} -<>= +\begin{chunk}{PolynomialFactorizationExplicit.input} )set break resume )sys rm -f PolynomialFactorizationExplicit.output )spool PolynomialFactorizationExplicit.output @@ -53069,8 +53072,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialFactorizationExplicit.help} ==================================================================== PolynomialFactorizationExplicit examples ==================================================================== @@ -53078,7 +53081,7 @@ PolynomialFactorizationExplicit examples See Also: o )show PolynomialFactorizationExplicit -@ +\end{chunk} {\bf See:} \pageto{PolynomialCategory}{POLYCAT} @@ -53215,7 +53218,7 @@ These exports come from \refto{UniqueFactorizationDomain}(): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category PFECAT PolynomialFactorizationExplicit} )abbrev category PFECAT PolynomialFactorizationExplicit ++ Author: James Davenport ++ Date Created: @@ -53297,20 +53300,20 @@ PolynomialFactorizationExplicit(): Category == Definition where LPE ==> LinearPolynomialEquationByFractions % solveLinearPolynomialEquationByFractions(lf,g)$LPE -@ -<>= +\end{chunk} +\begin{chunk}{PFECAT.dotabb} "PFECAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PFECAT"]; "PFECAT" -> "UFD" -@ -<>= +\end{chunk} +\begin{chunk}{PFECAT.dotfull} "PolynomialFactorizationExplicit()" [color=lightblue,href="bookvol10.2.pdf#nameddest=PFECAT"]; "PolynomialFactorizationExplicit()" -> "UniqueFactorizationDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{PFECAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -53349,12 +53352,12 @@ digraph pic { "RING..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariatePowerSeriesCategory}{UPSCAT} \pagepic{ps/v102univariatepowerseriescategory.ps}{UPSCAT}{0.55} -<>= +\begin{chunk}{UnivariatePowerSeriesCategory.input} )set break resume )sys rm -f UnivariatePowerSeriesCategory.output )spool UnivariatePowerSeriesCategory.output @@ -53432,8 +53435,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePowerSeriesCategory.help} ==================================================================== UnivariatePowerSeriesCategory examples ==================================================================== @@ -53441,7 +53444,7 @@ UnivariatePowerSeriesCategory examples See Also: o )show UnivariatePowerSeriesCategory -@ +\end{chunk} {\bf See:} \pageto{LocalPowerSeriesCategory}{LOCPOWC} @@ -53648,7 +53651,7 @@ These exports come from \refto{PartialDifferentialRing}(Symbol): and Coef has *: (Expon,Coef) -> Coef \end{verbatim} -<>= +\begin{chunk}{category UPSCAT UnivariatePowerSeriesCategory} )abbrev category UPSCAT UnivariatePowerSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -53751,14 +53754,14 @@ UnivariatePowerSeriesCategory(Coef,Expon): Category == Definition where variables f == list create() -@ -<>= +\end{chunk} +\begin{chunk}{UPSCAT.dotabb} "UPSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPSCAT"]; "UPSCAT" -> "PSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{UPSCAT.dotfull} "UnivariatePowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid)" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPSCAT"]; "UnivariatePowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid)" -> @@ -53779,8 +53782,8 @@ UnivariatePowerSeriesCategory(Coef,Expon): Category == Definition where "UnivariatePowerSeriesCategory(a:Ring,Fraction(Integer))" -> "UnivariatePowerSeriesCategory(a:Ring,b:OrderedAbelianMonoid)" -@ -<>= +\end{chunk} +\begin{chunk}{UPSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -53845,13 +53848,13 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 15} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{Field}{FIELD} \pagepic{ps/v102field.ps}{FIELD}{1.00} -<>= +\begin{chunk}{Field.input} )set break resume )sys rm -f Field.output )spool Field.output @@ -53908,8 +53911,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Field.help} ==================================================================== Field examples ==================================================================== @@ -53917,7 +53920,7 @@ Field examples See Also: o )show Field -@ +\end{chunk} Euclidean Domains are a subset of Fields. \pagefrom{EuclideanDomain}{EUCDOM} \pageto{PseudoAlgebraicClosureOfPerfectFieldCategory}{PACPERC} @@ -54085,7 +54088,7 @@ These exports come from \refto{DivisionRing}(): ?^? : (%,Integer) -> % \end{verbatim} -<>= +\begin{chunk}{category FIELD Field} )abbrev category FIELD Field ++ Author: ++ Date Created: @@ -54130,24 +54133,24 @@ Field(): Category == Join(EuclideanDomain,UniqueFactorizationDomain, x / y == (zero? y => error "catdef: division by zero"; x * inv(y)) divide(x,y) == [x / y,0] -@ -<>= +\end{chunk} +\begin{chunk}{FIELD.dotabb} "FIELD" [color=lightblue,href="bookvol10.2.pdf#nameddest=FIELD"]; "FIELD" -> "EUCDOM" "FIELD" -> "UFD" "FIELD" -> "DIVRING" -@ -<>= +\end{chunk} +\begin{chunk}{FIELD.dotfull} "Field()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FIELD"]; "Field()" -> "EuclideanDomain()" "Field()" -> "UniqueFactorizationDomain()" "Field()" -> "DivisionRing()" -@ -<>= +\end{chunk} +\begin{chunk}{FIELD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -54171,12 +54174,12 @@ digraph pic { "GCDDOM..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{IntegerNumberSystem}{INS} \pagepic{ps/v102integernumbersystem.ps}{INS}{0.30} -<>= +\begin{chunk}{IntegerNumberSystem.input} )set break resume )sys rm -f IntegerNumberSystem.output )spool IntegerNumberSystem.output @@ -54260,8 +54263,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegerNumberSystem.help} ==================================================================== IntegerNumberSystem examples ==================================================================== @@ -54269,7 +54272,7 @@ IntegerNumberSystem examples See Also: o )show IntegerNumberSystem -@ +\end{chunk} {\bf See:} \pagefrom{CharacteristicZero}{CHARZ} @@ -54538,7 +54541,7 @@ These exports come from \refto{LinearlyExplicitRingOver}(Integer): Record(mat: Matrix Integer,vec: Vector Integer) \end{verbatim} -<>= +\begin{chunk}{category INS IntegerNumberSystem} )abbrev category INS IntegerNumberSystem ++ Author: Stephen M. Watt ++ Date Created: January 1988 @@ -54709,8 +54712,8 @@ IntegerNumberSystem(): Category == zero?(n := shift(n, -1)) => return y z := mulmod(z, z, p) -@ -<>= +\end{chunk} +\begin{chunk}{INS.dotabb} "INS" [color=lightblue,href="bookvol10.2.pdf#nameddest=INS"]; "INS" -> "UFD" @@ -54726,8 +54729,8 @@ IntegerNumberSystem(): Category == "INS" -> "CHARZ" "INS" -> "STEP" -@ -<>= +\end{chunk} +\begin{chunk}{INS.dotfull} "IntegerNumberSystem()" [color=lightblue,href="bookvol10.2.pdf#nameddest=INS"]; "IntegerNumberSystem()" -> "UniqueFactorizationDomain()" @@ -54745,8 +54748,8 @@ IntegerNumberSystem(): Category == "IntegerNumberSystem()" -> "CharacteristicZero()" "IntegerNumberSystem()" -> "StepThrough()" -@ -<>= +\end{chunk} +\begin{chunk}{INS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -54781,13 +54784,13 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{LocalPowerSeriesCategory}{LOCPOWC} \pagepic{ps/v102localpowerseriescategory.ps}{LOCPOWC}{0.70} -<>= +\begin{chunk}{LocalPowerSeriesCategory.input} )set break resume )sys rm -f LocalPowerSeriesCategory.output )spool LocalPowerSeriesCategory.output @@ -54889,8 +54892,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LocalPowerSeriesCategory.help} ==================================================================== LocalPowerSeriesCategory examples ==================================================================== @@ -54898,7 +54901,7 @@ LocalPowerSeriesCategory examples See Also: o )show LocalPowerSeriesCategory -@ +\end{chunk} {\bf See:} @@ -55154,7 +55157,7 @@ These exports come from \refto{Field}(): squareFreePart : % -> % \end{verbatim} -<>= +\begin{chunk}{category LOCPOWC LocalPowerSeriesCategory} )abbrev category LOCPOWC LocalPowerSeriesCategory LocalPowerSeriesCategory(K:Field):Category == Implementation where @@ -55220,21 +55223,21 @@ LocalPowerSeriesCategory(K:Field):Category == Implementation where printInfo: () -> Boolean ++ returns the value of the \spad{printInfo} flag. -@ -<>= +\end{chunk} +\begin{chunk}{LOCPOWC.dotabb} "LOCPOWC" [color=lightblue,href="bookvol10.2.pdf#nameddest=LOCPOWC"]; "LOCPOWC" -> "UPSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{LOCPOWC.dotfull} "LocalPowerSeriesCategory(f:Field)" [color=lightblue,href="bookvol10.2.pdf#nameddest=LOCPOWC"]; "LocalPowerSeriesCategory(f:Field)" -> "UnivariatePowerSeriesCategory(c:Ring,e:OrderedAbelianMonoid)" -@ -<>= +\end{chunk} +\begin{chunk}{LOCPOWC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -55249,13 +55252,13 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PAdicIntegerCategory}{PADICCT} \pagepic{ps/v102padicintegercategory.ps}{PADICCT}{0.70} -<>= +\begin{chunk}{PAdicIntegerCategory.input} )set break resume )sys rm -f PAdicIntegerCategory.output )spool PAdicIntegerCategory.output @@ -55313,8 +55316,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PAdicIntegerCategory.help} ==================================================================== PAdicIntegerCategory examples ==================================================================== @@ -55322,7 +55325,7 @@ PAdicIntegerCategory examples See Also: o )show PAdicIntegerCategory -@ +\end{chunk} {\bf See:} \pagefrom{CharacteristicZero}{CHARZ} @@ -55463,7 +55466,7 @@ These exports come from \refto{EuclideanDomain}(): ?rem? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category PADICCT PAdicIntegerCategory} )abbrev category PADICCT PAdicIntegerCategory ++ Author: Clifton J. Williamson ++ Date Created: 15 May 1990 @@ -55513,22 +55516,22 @@ PAdicIntegerCategory(p): Category == Definition where ++ \spad{root(f,a)} returns a root of the polynomial \spad{f}. ++ Argument \spad{a} must be a root of \spad{f} \spad{(mod p)}. -@ -<>= +\end{chunk} +\begin{chunk}{PADICCT.dotabb} "PADICCT" [color=lightblue,href="bookvol10.2.pdf#nameddest=PADICCT"]; "PADICCT" -> "CHARZ" "PADICCT" -> "EUCDOM" -@ -<>= +\end{chunk} +\begin{chunk}{PADICCT.dotfull} "PAdicIntegerCategory(a:Integer)" [color=lightblue,href="bookvol10.2.pdf#nameddest=PADICCT"]; "PAdicIntegerCategory(a:Integer)" -> "CharacteristicZero()" "PAdicIntegerCategory(a:Integer)" -> "EuclideanDomain()" -@ -<>= +\end{chunk} +\begin{chunk}{PADICCT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -55574,12 +55577,12 @@ digraph pic { "BMODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PolynomialCategory}{POLYCAT} \pagepic{ps/v102polynomialcategory.ps}{POLYCAT}{0.40} -<>= +\begin{chunk}{PolynomialCategory.input} )set break resume )sys rm -f PolynomialCategory.output )spool PolynomialCategory.output @@ -55712,8 +55715,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialCategory.help} ==================================================================== PolynomialCategory examples ==================================================================== @@ -55721,7 +55724,7 @@ PolynomialCategory examples See Also: o )show PolynomialCategory -@ +\end{chunk} {\bf See:} \pageto{DifferentialPolynomialCategory}{DPOLCAT} @@ -56092,7 +56095,7 @@ These exports come from \refto{PolynomialFactorizationExplicit}(): if R has PFECAT \end{verbatim} -<>= +\begin{chunk}{category POLYCAT PolynomialCategory} )abbrev category POLYCAT PolynomialCategory ++ Author: ++ Date Created: @@ -56552,8 +56555,8 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet): map(convert, convert, p)$PolynomialCategoryLifting(E,VarSet,R,%,InputForm) -@ -<>= +\end{chunk} +\begin{chunk}{POLYCAT.dotabb} "POLYCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=POLYCAT"]; "POLYCAT" -> "PDRING" @@ -56566,8 +56569,8 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet): "POLYCAT" -> "GCDDOM" "POLYCAT" -> "PFECAT" -@ -<>= +\end{chunk} +\begin{chunk}{POLYCAT.dotfull} "PolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=POLYCAT"]; "PolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" @@ -56595,8 +56598,8 @@ PolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, VarSet:OrderedSet): [color=seagreen,href="bookvol10.2.pdf#nameddest=POLYCAT"]; "PolynomialCategory(a:Ring,b:NonNegativeInteger,c:SingletonAsOrderedSet)" -> "PolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{POLYCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -56635,12 +56638,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariateTaylorSeriesCategory}{UTSCAT} \pagepic{ps/v102univariatetaylorseriescategory.ps}{UTSCAT}{0.60} -<>= +\begin{chunk}{UnivariateTaylorSeriesCategory.input} )set break resume )sys rm -f UnivariateTaylorSeriesCategory.output )spool UnivariateTaylorSeriesCategory.output @@ -56761,8 +56764,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateTaylorSeriesCategory.help} ==================================================================== UnivariateTaylorSeriesCategory examples ==================================================================== @@ -56770,7 +56773,7 @@ UnivariateTaylorSeriesCategory examples See Also: o )show UnivariateTaylorSeriesCategory -@ +\end{chunk} {\bf See:} \pagefrom{RadicalCategory}{RADCAT} @@ -57054,7 +57057,7 @@ These exports come from \refto{RadicalCategory}(): sqrt : % -> % if Coef has ALGEBRA FRAC INT \end{verbatim} -<>= +\begin{chunk}{category UTSCAT UnivariateTaylorSeriesCategory} )abbrev category UTSCAT UnivariateTaylorSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -57332,21 +57335,21 @@ UnivariateTaylorSeriesCategory(Coef): Category == Definition where acsch x == series acsch(coefficients x)$STNC -@ -<>= +\end{chunk} +\begin{chunk}{UTSCAT.dotabb} "UTSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=UTSCAT"]; "UTSCAT" -> "UPSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{UTSCAT.dotfull} "UnivariateTaylorSeriesCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=UTSCAT"]; "UnivariateTaylorSeriesCategory(a:Ring)" -> "UnivariatePowerSeriesCategory(a:Ring,NonNegativeInteger)" -@ -<>= +\end{chunk} +\begin{chunk}{UTSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -57420,13 +57423,13 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 16} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AlgebraicallyClosedField}{ACF} \pagepic{ps/v102algebraicallyclosedfield.ps}{ACF}{0.75} -<>= +\begin{chunk}{AlgebraicallyClosedField.input} )set break resume )sys rm -f AlgebraicallyClosedField.output )spool AlgebraicallyClosedField.output @@ -57562,8 +57565,8 @@ zerosOf(sup,x) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AlgebraicallyClosedField.help} ==================================================================== AlgebraicallyClosedField examples ==================================================================== @@ -57648,7 +57651,7 @@ zerosOf(sup,x) See Also: o )show AlgebraicallyClosedField -@ +\end{chunk} {\bf See:} \pageto{AlgebraicallyClosedFunctionSpace}{ACFS} @@ -57823,7 +57826,7 @@ These exports come from \refto{RadicalCategory}(): ?**? : (%,Fraction Integer) -> % \end{verbatim} -<>= +\begin{chunk}{category ACF AlgebraicallyClosedField} )abbrev category ACF AlgebraicallyClosedField ++ Author: Manuel Bronstein ++ Date Created: 22 Mar 1988 @@ -58009,22 +58012,22 @@ AlgebraicallyClosedField(): Category == Join(Field,RadicalCategory) with ans := concat(alpha, ans) reverse_! ans -@ -<>= +\end{chunk} +\begin{chunk}{ACF.dotabb} "ACF" [color=lightblue,href="bookvol10.2.pdf#nameddest=ACF"]; "ACF" -> "FIELD" "ACF" -> "RADCAT" -@ -<>= +\end{chunk} +\begin{chunk}{ACF.dotfull} "AlgebraicallyClosedField()" [color=lightblue,href="bookvol10.2.pdf#nameddest=ACF"]; "AlgebraicallyClosedField()" -> "Field()" "AlgebraicallyClosedField()" -> "RadicalCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{ACF.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -58057,12 +58060,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{DifferentialPolynomialCategory}{DPOLCAT} \pagepic{ps/v102differentialpolynomialcategory.ps}{DPOLCAT}{0.35} -<>= +\begin{chunk}{DifferentialPolynomialCategory.input} )set break resume )sys rm -f DifferentialPolynomialCategory.output )spool DifferentialPolynomialCategory.output @@ -58226,8 +58229,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DifferentialPolynomialCategory.help} ==================================================================== DifferentialPolynomialCategory examples ==================================================================== @@ -58235,7 +58238,7 @@ DifferentialPolynomialCategory examples See Also: o )show DifferentialPolynomialCategory -@ +\end{chunk} {\bf See:} \pagefrom{DifferentialExtension}{DIFEXT} @@ -58623,7 +58626,7 @@ These exports come from \refto{Evalable}(%:DPOLCAT): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category DPOLCAT DifferentialPolynomialCategory} )abbrev category DPOLCAT DifferentialPolynomialCategory ++ Author: William Sit ++ Date Created: 19 July 1990 @@ -58860,16 +58863,16 @@ DifferentialPolynomialCategory(R:Ring,S:OrderedSet, eval(p, [retract(lhs e)@S for e in l]$List(S), [rhs e for e in l]$List($)) -@ -<>= +\end{chunk} +\begin{chunk}{DPOLCAT.dotabb} "DPOLCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DPOLCAT"]; "DPOLCAT" -> "DIFEXT" "DPOLCAT" -> "POLYCAT" "DPOLCAT" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{DPOLCAT.dotfull} "DifferentialPolynomialCategory(a:Ring,b:OrderedSet,c:DifferentialVariableCategory(b),d:OrderedAbelianMonoidSup)" [color=lightblue,href="bookvol10.2.pdf#nameddest=DPOLCAT"]; "DifferentialPolynomialCategory(a:Ring,b:OrderedSet,c:DifferentialVariableCategory(b),d:OrderedAbelianMonoidSup)" @@ -58879,8 +58882,8 @@ DifferentialPolynomialCategory(R:Ring,S:OrderedSet, "DifferentialPolynomialCategory(a:Ring,b:OrderedSet,c:DifferentialVariableCategory(b),d:OrderedAbelianMonoidSup)" -> "RetractableTo(OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{DPOLCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -58943,12 +58946,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FieldOfPrimeCharacteristic}{FPC} \pagepic{ps/v102fieldofprimecharacteristic.ps}{FPC}{1.00} -<>= +\begin{chunk}{FieldOfPrimeCharacteristic.input} )set break resume )sys rm -f FieldOfPrimeCharacteristic.output )spool FieldOfPrimeCharacteristic.output @@ -59010,8 +59013,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FieldOfPrimeCharacteristic.help} ==================================================================== FieldOfPrimeCharacteristic examples ==================================================================== @@ -59019,7 +59022,7 @@ FieldOfPrimeCharacteristic examples See Also: o )show FieldOfPrimeCharacteristic -@ +\end{chunk} {\bf See:} \pageto{FiniteFieldCategory}{FFIELDC} @@ -59181,7 +59184,7 @@ These exports come from \refto{CharacteristicNonZero}(): charthRoot : % -> Union(%,"failed") \end{verbatim} -<>= +\begin{chunk}{category FPC FieldOfPrimeCharacteristic} )abbrev category FPC FieldOfPrimeCharacteristic ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 10 March 1991 @@ -59217,21 +59220,21 @@ FieldOfPrimeCharacteristic:Category == _ primeFrobenius(a) == a ** characteristic() primeFrobenius(a,s) == a ** (characteristic()**s) -@ -<>= +\end{chunk} +\begin{chunk}{FPC.dotabb} "FPC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPC"]; "FPC" -> "CHARNZ" "FPC" -> "FIELD" -@ -<>= +\end{chunk} +\begin{chunk}{FPC.dotfull} "FieldOfPrimeCharacteristic()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPC"]; "FieldOfPrimeCharacteristic()" -> "CharacteristicNonZero()" -@ -<>= +\end{chunk} +\begin{chunk}{FPC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -59260,12 +59263,12 @@ digraph pic { "CHARNZ..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteRankAlgebra}{FINRALG} \pagepic{ps/v102finiterankalgebra.ps}{FINRALG}{0.50} -<>= +\begin{chunk}{FiniteRankAlgebra.input} )set break resume )sys rm -f FiniteRankAlgebra.output )spool FiniteRankAlgebra.output @@ -59313,8 +59316,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteRankAlgebra.help} ==================================================================== FiniteRankAlgebra examples ==================================================================== @@ -59322,7 +59325,7 @@ FiniteRankAlgebra examples See Also: o )show FiniteRankAlgebra -@ +\end{chunk} {\bf See:} \pageto{FramedAlgebra}{FRAMALG} @@ -59442,7 +59445,7 @@ These exports come from \refto{CharacteristicZero}(): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category FINRALG FiniteRankAlgebra} )abbrev category FINRALG FiniteRankAlgebra ++ Author: Barry Trager ++ Date Created: @@ -59518,8 +59521,8 @@ FiniteRankAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): matrix [parts coordinates(x*b(i+m),b) for i in 1..rank()]$List(List R) -@ -<>= +\end{chunk} +\begin{chunk}{FINRALG.dotabb} "FINRALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINRALG"]; "FINRALG" -> "ALGEBRA" @@ -59527,8 +59530,8 @@ FiniteRankAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): "FINRALG" -> "CHARNZ" "FINRALG" -> "CHARZ" -@ -<>= +\end{chunk} +\begin{chunk}{FINRALG.dotfull} "FiniteRankAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=FINRALG"]; "FiniteRankAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -> @@ -59540,8 +59543,8 @@ FiniteRankAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): "FiniteRankAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -> "CharacteristicZero()" -@ -<>= +\end{chunk} +\begin{chunk}{FINRALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -59580,12 +59583,12 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FunctionSpace}{FS} \pagepic{ps/v102functionspace.ps}{FS}{0.65} -<>= +\begin{chunk}{FunctionSpace.input} )set break resume )sys rm -f FunctionSpace.output )spool FunctionSpace.output @@ -59767,8 +59770,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FunctionSpace.help} ==================================================================== FunctionSpace examples ==================================================================== @@ -59776,7 +59779,7 @@ FunctionSpace examples See Also: o )show FunctionSpace -@ +\end{chunk} {\bf See:} \pagefrom{AbelianGroup}{ABELGRP} @@ -60246,7 +60249,7 @@ These exports come from \refto{RetractableTo}(Fraction(Integer)): ?*? : (Fraction Integer,%) -> % if R has INTDOM \end{verbatim} -<>= +\begin{chunk}{category FS FunctionSpace} )abbrev category FS FunctionSpace ++ Category for formal functions ++ Author: Manuel Bronstein @@ -60946,8 +60949,8 @@ FunctionSpace(R:OrderedSet): Category == Definition where convert(x:%):Pattern(Float) == convert(numer x) / convert(denom x) -@ -<>= +\end{chunk} +\begin{chunk}{FS.dotabb} "FS" [color=lightblue,href="bookvol10.2.pdf#nameddest=FS"]; "FS" -> "ES" @@ -60966,8 +60969,8 @@ FunctionSpace(R:OrderedSet): Category == Definition where "FS" -> "INTDOM" "FS" -> "FIELD" -@ -<>= +\end{chunk} +\begin{chunk}{FS.dotfull} "FunctionSpace(a:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FS"]; "FunctionSpace(a:OrderedSet)" -> "ExpressionSpace()" @@ -60988,8 +60991,8 @@ FunctionSpace(R:OrderedSet): Category == Definition where "FunctionSpace(a:OrderedSet)" -> "RetractableTo(Integer)" "FunctionSpace(a:OrderedSet)" -> "RetractableTo(Fraction(Integer))" -@ -<>= +\end{chunk} +\begin{chunk}{FS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -61034,12 +61037,12 @@ digraph pic { "RETRACT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{InfinitlyClosePointCategory}{INFCLCT} \pagepic{ps/v102infinitlyclosepointcategory.eps}{INFCLCT}{0.50} -<>= +\begin{chunk}{InfinitlyClosePointCategory.input} )set break resume )sys rm -f InfinitlyClosePointCategory.output )spool InfinitlyClosePointCategory.output @@ -61098,8 +61101,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InfinitlyClosePointCategory.help} ==================================================================== InfinitlyClosePointCategory examples ==================================================================== @@ -61107,7 +61110,7 @@ InfinitlyClosePointCategory examples See Also: o )show InfinitlyClosePointCategory -@ +\end{chunk} \pagefrom{SetCategoryWithDegree}{SETCATD} @@ -61181,7 +61184,7 @@ These exports come from \refto{SetCategoryWithDegree}: latex : % -> String \end{verbatim} -<>= +\begin{chunk}{category INFCLCT InfinitlyClosePointCategory} )abbrev category INFCLCT InfinitlyClosePointCategory ++ Authors: Gaetan Hache ++ Date Created: may 1997 @@ -61262,20 +61265,20 @@ InfinitlyClosePointCategory(_ actualExtensionV: % -> K -@ -<>= +\end{chunk} +\begin{chunk}{INFCLCT.dotabb} "INFCLCT" [color=lightblue,href="bookvol10.2.pdf#nameddest=INFCLCT"]; "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "INFCLCT" -> "ALIST" -@ -<>= +\end{chunk} +\begin{chunk}{INFCLCT.dotfull} "InfinitlyClosePointCategory" [color=lightblue,href="bookvol10.2.pdf#nameddest=INFCLCT"]; "InfinitlyClosePointCategory" -> "AssocationList(SetCategory,SetCategory)" -@ -<>= +\end{chunk} +\begin{chunk}{INFCLCT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -61290,12 +61293,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PseudoAlgebraicClosureOfPerfectFieldCategory}{PACPERC} \pagepic{ps/v102pseudoalgebraicclosureofperfectfieldcategory.ps}{PACPERC}{0.50} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfPerfectFieldCategory.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfPerfectFieldCategory.output )spool PseudoAlgebraicClosureOfPerfectFieldCategory.output @@ -61365,8 +61368,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfPerfectFieldCategory.help} ==================================================================== PseudoAlgebraicClosureOfPerfectFieldCategory examples ==================================================================== @@ -61374,7 +61377,7 @@ PseudoAlgebraicClosureOfPerfectFieldCategory examples See Also: o )show PseudoAlgebraicClosureOfPerfectFieldCategory -@ +\end{chunk} \pagefrom{Field}{FIELD} @@ -61557,7 +61560,7 @@ These exports come from \refto{DivisionRing}(): ?^? : (%,Integer) -> % \end{verbatim} -<>= +\begin{chunk}{category PACPERC PseudoAlgebraicClosureOfPerfectFieldCategory} )abbrev category PACPERC PseudoAlgebraicClosureOfPerfectFieldCategory ++ Authors: Gaetan Hache ++ Date Created: may 1997 @@ -61620,19 +61623,19 @@ PseudoAlgebraicClosureOfPerfectFieldCategory() : Category == PUB where setTower_!: % -> Void fullOutput: % -> OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{PACPERC.dotabb} "PACPERC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACPERC"]; "PACPERC" -> "FIELD" -@ -<>= +\end{chunk} +\begin{chunk}{PACPERC.dotfull} "PseudoAlgebraicClosureOfPerfectFieldCategory" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACPERC"]; "PseudoAlgebraicClosureOfPerfectFieldCategory" -> "Field()" -@ -<>= +\end{chunk} +\begin{chunk}{PACPERC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -61645,12 +61648,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{QuotientFieldCategory}{QFCAT} \pagepic{ps/v102quotientfieldcategory.ps}{QFCAT}{0.50} -<>= +\begin{chunk}{QuotientFieldCategory.input} )set break resume )sys rm -f QuotientFieldCategory.output )spool QuotientFieldCategory.output @@ -61774,8 +61777,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QuotientFieldCategory.help} ==================================================================== QuotientFieldCategory examples ==================================================================== @@ -61783,7 +61786,7 @@ QuotientFieldCategory examples See Also: o )show QuotientFieldCategory -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -62133,7 +62136,7 @@ These exports come from \refto{PolynomialFactorizationExplicit}(): if S has PFECAT \end{verbatim} -<>= +\begin{chunk}{category QFCAT QuotientFieldCategory} )abbrev category QFCAT QuotientFieldCategory ++ Author: ++ Date Created: @@ -62291,8 +62294,8 @@ QuotientFieldCategory(S: IntegralDomain): Category == [subMatrix(n, minRowIndex n, maxRowIndex n, 1 + minColIndex n, maxColIndex n), column(n, minColIndex n)] -@ -<>= +\end{chunk} +\begin{chunk}{QFCAT.dotabb} "QFCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=QFCAT"]; "QFCAT" -> "ALGEBRA" @@ -62304,8 +62307,8 @@ QuotientFieldCategory(S: IntegralDomain): Category == "QFCAT" -> "PATAB" "QFCAT" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{QFCAT.dotfull} "QuotientFieldCategory(a:IntegralDomain)" [color=lightblue,href="bookvol10.2.pdf#nameddest=QFCAT"]; "QuotientFieldCategory(a:IntegralDomain)" -> "Field()" @@ -62322,8 +62325,8 @@ QuotientFieldCategory(S: IntegralDomain): Category == "QuotientFieldCategory(a:IntegralDomain)" -> "FullyPatternMatchable(IntegralDomain)" -@ -<>= +\end{chunk} +\begin{chunk}{QFCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -62350,12 +62353,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RealClosedField}{RCFIELD} \pagepic{ps/v102realclosedfield.ps}{RCFIELD}{0.50} -<>= +\begin{chunk}{RealClosedField.input} )set break resume )sys rm -f RealClosedField.output )spool RealClosedField.output @@ -62443,8 +62446,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RealClosedField.help} ==================================================================== RealClosedField examples ==================================================================== @@ -62452,7 +62455,7 @@ RealClosedField examples See Also: o )show RealClosedField -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -62695,7 +62698,7 @@ These exports come from \refto{Algebra}(Integer): ?*? : (%,Integer) -> % \end{verbatim} -<>= +\begin{chunk}{category RCFIELD RealClosedField} )abbrev category RCFIELD RealClosedField ++ Author: Renaud Rioboo ++ Date Created: may 1993 @@ -62851,8 +62854,8 @@ RealClosedField : Category == PUB where allRootsOf(p:POLY(Z)) == allRootsOf(univariate(p)) -@ -<>= +\end{chunk} +\begin{chunk}{RCFIELD.dotabb} "RCFIELD" [color=lightblue,href="bookvol10.2.pdf#nameddest=RCFIELD"]; "RCFIELD" -> "ALGEBRA" @@ -62863,8 +62866,8 @@ RealClosedField : Category == PUB where "RCFIELD" -> "ORDRING" "RCFIELD" -> "RADCAT" -@ -<>= +\end{chunk} +\begin{chunk}{RCFIELD.dotfull} "RealClosedField()" [color=lightblue,href="bookvol10.2.pdf#nameddest=RCFIELD"]; "RealClosedField()" -> "Algebra(Integer)" @@ -62876,8 +62879,8 @@ RealClosedField : Category == PUB where "RealClosedField()" -> "OrderedRing()" "RealClosedField()" -> "RadicalCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{RCFIELD.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -62902,12 +62905,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RealNumberSystem}{RNS} \pagepic{ps/v102realnumbersystem.ps}{RNS}{0.50} -<>= +\begin{chunk}{RealNumberSystem.input} )set break resume )sys rm -f RealNumberSystem.output )spool RealNumberSystem.output @@ -62981,8 +62984,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RealNumberSystem.help} ==================================================================== RealNumberSystem examples ==================================================================== @@ -62990,7 +62993,7 @@ RealNumberSystem examples See Also: o )show RealNumberSystem -@ +\end{chunk} {\bf See:} \pageto{FloatingPointSystem}{FPS} @@ -63208,7 +63211,7 @@ These exports come from \refto{CharacteristicZero}(): \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category RNS RealNumberSystem} )abbrev category RNS RealNumberSystem ++ Author: Michael Monagan and Stephen M. Watt ++ Date Created: @@ -63280,8 +63283,8 @@ RealNumberSystem(): Category == failed() failed() -@ -<>= +\end{chunk} +\begin{chunk}{RNS.dotabb} "RNS" [color=lightblue,href="bookvol10.2.pdf#nameddest=RNS"]; "RNS" -> "FIELD" @@ -63293,8 +63296,8 @@ RealNumberSystem(): Category == "RNS" -> "PATMAB" "RNS" -> "CHARZ" -@ -<>= +\end{chunk} +\begin{chunk}{RNS.dotfull} "RealNumberSystem()" [color=lightblue,href="bookvol10.2.pdf#nameddest=RNS"]; "RealNumberSystem()" -> "Field()" @@ -63307,8 +63310,8 @@ RealNumberSystem(): Category == "RealNumberSystem()" -> "PatternMatchable(Float)" "RealNumberSystem()" -> "CharacteristicZero()" -@ -<>= +\end{chunk} +\begin{chunk}{RNS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -63334,12 +63337,12 @@ digraph pic { "CHARZ..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{RecursivePolynomialCategory}{RPOLCAT} \pagepic{ps/v102recursivepolynomialcategory.ps}{RPOLCAT}{0.30} -<>= +\begin{chunk}{RecursivePolynomialCategory.input} )set break resume )sys rm -f RecursivePolynomialCategory.output )spool RecursivePolynomialCategory.output @@ -63531,8 +63534,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RecursivePolynomialCategory.help} ==================================================================== RecursivePolynomialCategory examples ==================================================================== @@ -63540,7 +63543,7 @@ RecursivePolynomialCategory examples See Also: o )show RecursivePolynomialCategory -@ +\end{chunk} {\bf See:} \pagefrom{PolynomialCategory}{POLYCAT} @@ -64026,7 +64029,7 @@ where R:Ring, E:OrderedAbelianMonoidSup, V:OrderedSet: ?>=? : (%,%) -> Boolean if R has ORDSET \end{verbatim} -<>= +\begin{chunk}{category RPOLCAT RecursivePolynomialCategory} )abbrev category RPOLCAT RecursivePolynomialCategory ++ Author: Marc Moreno Maza ++ Date Created: 04/22/1994 @@ -65248,21 +65251,21 @@ RecursivePolynomialCategory(R:Ring, E:OrderedAbelianMonoidSup, V:OrderedSet):_ stpol := concat(" + ",stpol)$String concat([sipol,svpol,sdpol,stpol])$String -@ -<>= +\end{chunk} +\begin{chunk}{RPOLCAT.dotabb} "RPOLCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=RPOLCAT"]; "RPOLCAT" -> "POLYCAT" -@ -<>= +\end{chunk} +\begin{chunk}{RPOLCAT.dotfull} "RecursivePolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" [color=lightblue,href="bookvol10.2.pdf#nameddest=RPOLCAT"]; "RecursivePolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" -> "PolynomialCategory(a:Ring,b:OrderedAbelianMonoidSup,c:OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{RPOLCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -65315,12 +65318,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariateLaurentSeriesCategory}{ULSCAT} \pagepic{ps/v102univariatelaurentseriescategory.ps}{ULSCAT}{0.50} -<>= +\begin{chunk}{UnivariateLaurentSeriesCategory.input} )set break resume )sys rm -f UnivariateLaurentSeriesCategory.output )spool UnivariateLaurentSeriesCategory.output @@ -65459,8 +65462,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateLaurentSeriesCategory.help} ==================================================================== UnivariateLaurentSeriesCategory examples ==================================================================== @@ -65468,7 +65471,7 @@ UnivariateLaurentSeriesCategory examples See Also: o )show UnivariateLaurentSeriesCategory -@ +\end{chunk} {\bf See:} \pageto{UnivariateLaurentSeriesConstructorCategory}{ULSCCAT} @@ -65812,7 +65815,7 @@ These exports come from \refto{Field}(): ?rem? : (%,%) -> % if Coef has FIELD \end{verbatim} -<>= +\begin{chunk}{category ULSCAT UnivariateLaurentSeriesCategory} )abbrev category ULSCAT UnivariateLaurentSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -65882,8 +65885,8 @@ UnivariateLaurentSeriesCategory(Coef): Category == Definition where --++ Univariate Laurent series over a field form a field. --++ In fact, K((x)) is the quotient field of K[[x]]. -@ -<>= +\end{chunk} +\begin{chunk}{ULSCAT.dotabb} "ULSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=ULSCAT"]; "ULSCAT" -> "UPSCAT" @@ -65891,8 +65894,8 @@ UnivariateLaurentSeriesCategory(Coef): Category == Definition where "ULSCAT" -> "TRANFUN" "ULSCAT" -> "RADCAT" -@ -<>= +\end{chunk} +\begin{chunk}{ULSCAT.dotfull} "UnivariateLaurentSeriesCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=ULSCAT"]; "UnivariateLaurentSeriesCategory(a:Ring)" -> @@ -65904,8 +65907,8 @@ UnivariateLaurentSeriesCategory(Coef): Category == Definition where "UnivariateLaurentSeriesCategory(a:Ring)" -> "UnivariatePowerSeriesCategory(a:Ring,Integer)" -@ -<>= +\end{chunk} +\begin{chunk}{ULSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -65946,12 +65949,12 @@ digraph pic { "RADCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariatePuiseuxSeriesCategory}{UPXSCAT} \pagepic{ps/v102univariatepuiseuxseriescategory.ps}{UPXSCAT}{0.50} -<>= +\begin{chunk}{UnivariatePuiseuxSeriesCategory.input} )set break resume )sys rm -f UnivariatePuiseuxSeriesCategory.output )spool UnivariatePuiseuxSeriesCategory.output @@ -66091,8 +66094,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePuiseuxSeriesCategory.help} ==================================================================== UnivariatePuiseuxSeriesCategory examples ==================================================================== @@ -66100,7 +66103,7 @@ UnivariatePuiseuxSeriesCategory examples See Also: o )show UnivariatePuiseuxSeriesCategory -@ +\end{chunk} {\bf See:} \pageto{UnivariatePuiseuxSeriesConstructorCategory}{UPXSCCA} @@ -66437,7 +66440,7 @@ These exports come from \refto{RadicalCategory}(): ?**? : (%,Fraction Integer) -> % if Coef has ALGEBRA FRAC INT \end{verbatim} -<>= +\begin{chunk}{category UPXSCAT UnivariatePuiseuxSeriesCategory} )abbrev category UPXSCAT UnivariatePuiseuxSeriesCategory ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -66498,8 +66501,8 @@ UnivariatePuiseuxSeriesCategory(Coef): Category == Definition where if Coef has Field then Field --++ Univariate Puiseux series over a field form a field. -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCAT.dotabb} "UPXSCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPXSCAT"]; "UPXSCAT" -> "TRANFUN" @@ -66507,8 +66510,8 @@ UnivariatePuiseuxSeriesCategory(Coef): Category == Definition where "UPXSCAT" -> "RADCAT" "UPXSCAT" -> "UPSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCAT.dotfull} "UnivariatePuiseuxSeriesCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPXSCAT"]; "UnivariatePuiseuxSeriesCategory(a:Ring)" -> @@ -66520,8 +66523,8 @@ UnivariatePuiseuxSeriesCategory(Coef): Category == Definition where "UnivariatePuiseuxSeriesCategory(a:Ring)" -> "RadicalCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -66562,12 +66565,12 @@ digraph pic { "AMR..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariatePolynomialCategory}{UPOLYC} \pagepic{ps/v102univariatepolynomialcategory.ps}{UPOLYC}{0.35} -<>= +\begin{chunk}{UnivariatePolynomialCategory.input} )set break resume )sys rm -f UnivariatePolynomialCategory.output )spool UnivariatePolynomialCategory.output @@ -66757,8 +66760,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePolynomialCategory.help} ==================================================================== UnivariatePolynomialCategory examples ==================================================================== @@ -66766,7 +66769,7 @@ UnivariatePolynomialCategory examples See Also: o )show UnivariatePolynomialCategory -@ +\end{chunk} {\bf See:} \pagefrom{Algebra}{ALGEBRA} @@ -67271,7 +67274,7 @@ These exports come from \refto{PolynomialFactorizationExplicit}() \begin{verbatim} \end{verbatim} -<>= +\begin{chunk}{category UPOLYC UnivariatePolynomialCategory} )abbrev category UPOLYC UnivariatePolynomialCategory ++ Author: ++ Date Created: @@ -67669,8 +67672,8 @@ UnivariatePolynomialCategory(R:Ring): Category == p := reductum p ans -@ -<>= +\end{chunk} +\begin{chunk}{UPOLYC.dotabb} "UPOLYC" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPOLYC"]; "UPOLYC" -> "POLYCAT" @@ -67685,8 +67688,8 @@ UnivariatePolynomialCategory(R:Ring): Category == "UPOLYC" -> "ALGEBRA" "UPOLYC" -> "PFECAT" -@ -<>= +\end{chunk} +\begin{chunk}{UPOLYC.dotfull} "UnivariatePolynomialCategory(a:Ring)" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPOLYC"]; "UnivariatePolynomialCategory(a:Ring)" -> @@ -67714,8 +67717,8 @@ UnivariatePolynomialCategory(R:Ring): Category == "UnivariatePolynomialCategory(a:Ring)" -> "PolynomialFactorizationExplicit()" -@ -<>= +\end{chunk} +\begin{chunk}{UPOLYC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -67748,13 +67751,13 @@ digraph pic { } -@ +\end{chunk} \chapter{Category Layer 17} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{AlgebraicallyClosedFunctionSpace}{ACFS} \pagepic{ps/v102algebraicallyclosedfunctionspace.ps}{ACFS}{0.45} -<>= +\begin{chunk}{AlgebraicallyClosedFunctionSpace.input} )set break resume )sys rm -f AlgebraicallyClosedFunctionSpace.output )spool AlgebraicallyClosedFunctionSpace.output @@ -67935,8 +67938,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AlgebraicallyClosedFunctionSpace.help} ==================================================================== AlgebraicallyClosedFunctionSpace examples ==================================================================== @@ -67944,7 +67947,7 @@ AlgebraicallyClosedFunctionSpace examples See Also: o )show AlgebraicallyClosedFunctionSpace -@ +\end{chunk} {\bf See:} \pagefrom{AlgebraicallyClosedField}{ACF} @@ -68346,7 +68349,7 @@ where R:Join(OrderedSet, IntegralDomain)): if R has INTDOM \end{verbatim} -<>= +\begin{chunk}{category ACFS AlgebraicallyClosedFunctionSpace} )abbrev category ACFS AlgebraicallyClosedFunctionSpace ++ Author: Manuel Bronstein ++ Date Created: 31 October 1988 @@ -68449,15 +68452,15 @@ AlgebraicallyClosedFunctionSpace(R:Join(OrderedSet, IntegralDomain)): (r := retractIfCan(p)@Union($,"failed")) case $ => zeroOf(r::$, y) zeroOf(p, y)$AlgebraicallyClosedField_&($) -@ -<>= +\end{chunk} +\begin{chunk}{ACFS.dotabb} "ACFS" [color=lightblue,href="bookvol10.2.pdf#nameddest=ACFS"]; "ACFS" -> "ACF" "ACFS" -> "FS" -@ -<>= +\end{chunk} +\begin{chunk}{ACFS.dotfull} "AlgebraicallyClosedFunctionSpace(a:Join(OrderedSet,IntegralDomain))" [color=lightblue,href="bookvol10.2.pdf#nameddest=ACFS"]; "AlgebraicallyClosedFunctionSpace(a:Join(OrderedSet,IntegralDomain))" @@ -68465,8 +68468,8 @@ AlgebraicallyClosedFunctionSpace(R:Join(OrderedSet, IntegralDomain)): "AlgebraicallyClosedFunctionSpace(a:Join(OrderedSet,IntegralDomain))" -> "FunctionSpace(a:OrderedSet)" -@ -<>= +\end{chunk} +\begin{chunk}{ACFS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -68518,12 +68521,12 @@ digraph pic { "RETRACT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ExtensionField}{XF} \pagepic{ps/v102extensionfield.ps}{XF}{0.75} -<>= +\begin{chunk}{ExtensionField.input} )set break resume )sys rm -f ExtensionField.output )spool ExtensionField.output @@ -68596,8 +68599,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExtensionField.help} ==================================================================== ExtensionField examples ==================================================================== @@ -68605,7 +68608,7 @@ ExtensionField examples See Also: o )show ExtensionField -@ +\end{chunk} {\bf See:} \pageto{FiniteAlgebraicExtensionField}{FAXF} @@ -68809,7 +68812,7 @@ These exports come from \refto{FieldOfPrimeCharacteristic}(): if F has CHARNZ or F has FINITE \end{verbatim} -<>= +\begin{chunk}{category XF ExtensionField} )abbrev category XF ExtensionField ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 10 March 1991 @@ -68864,8 +68867,8 @@ ExtensionField(F:Field) : Category == _ Frobenius(a) == a ** size()$F Frobenius(a,s) == a ** (size()$F ** s) -@ -<>= +\end{chunk} +\begin{chunk}{XF.dotabb} "XF" [color=lightblue,href="bookvol10.2.pdf#nameddest=XF"]; "XF" -> "FIELD" @@ -68873,8 +68876,8 @@ ExtensionField(F:Field) : Category == _ "XF" -> "VSPACE" "XF" -> "FPC" -@ -<>= +\end{chunk} +\begin{chunk}{XF.dotfull} "ExtensionField(a:Field)" [color=lightblue,href="bookvol10.2.pdf#nameddest=XF"]; "ExtensionField(a:Field)" -> "Field()" @@ -68882,8 +68885,8 @@ ExtensionField(F:Field) : Category == _ "ExtensionField(a:Field)" -> "VectorSpace(a:Field)" "ExtensionField(a:Field)" -> "FieldOfPrimeCharacteristic()" -@ -<>= +\end{chunk} +\begin{chunk}{XF.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -68928,12 +68931,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteFieldCategory}{FFIELDC} \pagepic{ps/v102finitefieldcategory.ps}{FFIELDC}{0.70} -<>= +\begin{chunk}{FiniteFieldCategory.input} )set break resume )sys rm -f FiniteFieldCategory.output )spool FiniteFieldCategory.output @@ -69008,8 +69011,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldCategory.help} ==================================================================== FiniteFieldCategory examples ==================================================================== @@ -69017,7 +69020,7 @@ FiniteFieldCategory examples See Also: o )show FiniteFieldCategory -@ +\end{chunk} {\bf See:} \pagefrom{DifferentialRing}{DIFRING} @@ -69225,7 +69228,7 @@ These exports come from \refto{DifferentialRing}(): differentiate : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category FFIELDC FiniteFieldCategory} )abbrev category FFIELDC FiniteFieldCategory ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 11 March 1991 @@ -69464,8 +69467,8 @@ FiniteFieldCategory() : Category ==_ gcdPolynomial(f:FP,g:FP):FP == gcd(f,g)$EuclideanDomain_&(FP) -@ -<>= +\end{chunk} +\begin{chunk}{FFIELDC.dotabb} "FFIELDC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FFIELDC"]; "FFIELDC" -> "FPC" @@ -69473,8 +69476,8 @@ FiniteFieldCategory() : Category ==_ "FFIELDC" -> "STEP" "FFIELDC" -> "DIFRING" -@ -<>= +\end{chunk} +\begin{chunk}{FFIELDC.dotfull} "FiniteFieldCategory()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FFIELDC"]; "FiniteFieldCategory()" -> "FieldOfPrimeCharacteristic()" @@ -69482,8 +69485,8 @@ FiniteFieldCategory() : Category ==_ "FiniteFieldCategory()" -> "StepThrough()" "FiniteFieldCategory()" -> "DifferentialRing()" -@ -<>= +\end{chunk} +\begin{chunk}{FFIELDC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -69515,12 +69518,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FloatingPointSystem}{FPS} \pagepic{ps/v102floatingpointsystem.ps}{FPS}{0.50} -<>= +\begin{chunk}{FloatingPointSystem.input} )set break resume )sys rm -f FloatingPointSystem.output )spool FloatingPointSystem.output @@ -69606,8 +69609,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FloatingPointSystem.help} ==================================================================== FloatingPointSystem examples ==================================================================== @@ -69615,7 +69618,7 @@ FloatingPointSystem examples See Also: o )show FloatingPointSystem -@ +\end{chunk} {\bf See:} \pagefrom{RealNumberSystem}{RNS} @@ -69855,7 +69858,7 @@ These exports come from \refto{RealNumberSystem}(): ?rem? : (%,%) -> % \end{verbatim} -<>= +\begin{chunk}{category FPS FloatingPointSystem} )abbrev category FPS FloatingPointSystem ++ Author: ++ Date Created: @@ -69950,20 +69953,20 @@ FloatingPointSystem(): Category == RealNumberSystem() with float(ma, ex) == float(ma, ex, base()) digits() == max(1,4004 * (bits()-1) quo 13301)::PositiveInteger -@ -<>= +\end{chunk} +\begin{chunk}{FPS.dotabb} "FPS" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPS"]; "FPS" -> "RNS" -@ -<>= +\end{chunk} +\begin{chunk}{FPS.dotfull} "FloatingPointSystem()" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPS"]; "FloatingPointSystem()" -> "RealNumberSystem()" -@ -<>= +\end{chunk} +\begin{chunk}{FPS.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -69992,12 +69995,12 @@ digraph pic { "CHARZ..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FramedAlgebra}{FRAMALG} \pagepic{ps/v102framedalgebra.ps}{FRAMALG}{0.50} -<>= +\begin{chunk}{FramedAlgebra.input} )set break resume )sys rm -f FramedAlgebra.output )spool FramedAlgebra.output @@ -70050,8 +70053,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FramedAlgebra.help} ==================================================================== FramedAlgebra examples ==================================================================== @@ -70059,7 +70062,7 @@ FramedAlgebra examples See Also: o )show FramedAlgebra -@ +\end{chunk} {\bf See:} \pageto{MonogenicAlgebra}{MONOGEN} @@ -70176,7 +70179,7 @@ where R:CommutativeRing and UP:UnivariatePolynomialCategory R): ?^? : (%,NonNegativeInteger) -> % \end{verbatim} -<>= +\begin{chunk}{category FRAMALG FramedAlgebra} )abbrev category FRAMALG FramedAlgebra ++ Author: Barry Trager ++ Date Created: @@ -70264,21 +70267,21 @@ FramedAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): v:=first nullSpace(m) +/[monomial(v.(i+1),i) for i in 0..#v-1] -@ -<>= +\end{chunk} +\begin{chunk}{FRAMALG.dotabb} "FRAMALG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRAMALG"]; "FRAMALG" -> "FINRALG" -@ -<>= +\end{chunk} +\begin{chunk}{FRAMALG.dotfull} "FramedAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=FRAMALG"]; "FramedAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -> "FiniteRankAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -@ -<>= +\end{chunk} +\begin{chunk}{FRAMALG.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -70322,12 +70325,12 @@ digraph pic { "MODULE..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PseudoAlgebraicClosureOfFiniteFieldCategory}{PACFFC} \pagepic{ps/v102pseudoalgebraicclosureoffinitefieldcategory.ps}{PACFFC}{0.50} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfFiniteFieldCategory.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfFiniteFieldCategory.output )spool PseudoAlgebraicClosureOfFiniteFieldCategory.output @@ -70415,8 +70418,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfFiniteFieldCategory.help} ==================================================================== PseudoAlgebraicClosureOfFiniteFieldCategory examples ==================================================================== @@ -70424,7 +70427,7 @@ PseudoAlgebraicClosureOfFiniteFieldCategory examples See Also: o )show PseudoAlgebraicClosureOfFiniteFieldCategory -@ +\end{chunk} \pagefrom{FieldOfPrimeCharacteristic}{FPC} \pagefrom{PseudoAlgebraicClosureOfPerfectFieldCategory}{PACPERC} @@ -70639,7 +70642,7 @@ These exports come from \refto{FiniteFieldCategory}(): Table(PositiveInteger,NonNegativeInteger) \end{verbatim} -<>= +\begin{chunk}{category PACFFC PseudoAlgebraicClosureOfFiniteFieldCategory} )abbrev category PACFFC PseudoAlgebraicClosureOfFiniteFieldCategory -- PseudoAlgebraicClosureOfFiniteFieldCategory ++ Authors: Gaetan Hache @@ -70664,13 +70667,13 @@ These exports come from \refto{FiniteFieldCategory}(): PseudoAlgebraicClosureOfFiniteFieldCategory:Category == Join(FiniteFieldCategory, PseudoAlgebraicClosureOfPerfectFieldCategory) -@ -<>= +\end{chunk} +\begin{chunk}{PACFFC.dotabb} "PACFFC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACFFC"]; "PACFFC" -> "PACPERC" -@ -<>= +\end{chunk} +\begin{chunk}{PACFFC.dotfull} "PseudoAlgebraicClosureOfFiniteFieldCategory" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACFFC"]; "PseudoAlgebraicClosureOfFiniteFieldCategory" -> @@ -70678,8 +70681,8 @@ PseudoAlgebraicClosureOfFiniteFieldCategory:Category == "PseudoAlgebraicClosureOfFiniteFieldCategory" -> "FiniteFieldCategory()" -@ -<>= +\end{chunk} +\begin{chunk}{PACFFC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -70694,12 +70697,12 @@ digraph pic { } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariateLaurentSeriesConstructorCategory}{ULSCCAT} \pagepic{ps/v102univariatelaurentseriesconstructorcategory.ps}{ULSCCAT}{0.50} -<>= +\begin{chunk}{UnivariateLaurentSeriesConstructorCategory.input} )set break resume )sys rm -f UnivariateLaurentSeriesConstructorCategory.output )spool UnivariateLaurentSeriesConstructorCategory.output @@ -70902,8 +70905,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateLaurentSeriesConstructorCategory.help} ==================================================================== UnivariateLaurentSeriesConstructorCategory examples ==================================================================== @@ -70911,7 +70914,7 @@ UnivariateLaurentSeriesConstructorCategory examples See Also: o )show UnivariateLaurentSeriesConstructorCategory -@ +\end{chunk} {\bf See:} \pagefrom{RetractableTo}{RETRACT} @@ -71425,7 +71428,7 @@ where UTS:UnivariateLaurentSeriesCategory(Coef:Ring) ?>=? : (%,%) -> Boolean if and(has(UTS,OrderedSet),has(Coef,Field)) \end{verbatim} -<>= +\begin{chunk}{category ULSCCAT UnivariateLaurentSeriesConstructorCategory} )abbrev category ULSCCAT UnivariateLaurentSeriesConstructorCategory ++ Author: Clifton J. Williamson ++ Date Created: 6 February 1990 @@ -71501,21 +71504,21 @@ UnivariateLaurentSeriesConstructorCategory(Coef,UTS):_ retractIfCan(x:%):Union(UTS,"failed") == taylorIfCan x -@ -<>= +\end{chunk} +\begin{chunk}{ULSCCAT.dotabb} "ULSCCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=ULSCCAT"]; "ULSCCAT" -> "ULSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{ULSCCAT.dotfull} "UnivariateLaurentSeriesConstructorCategory(a:Ring,b:UnivariateTaylorSeriesCategory(Ring))" [color=lightblue,href="bookvol10.2.pdf#nameddest=ULSCCAT"]; "UnivariateLaurentSeriesConstructorCategory(a:Ring,b:UnivariateTaylorSeriesCategory(Ring))" -> "UnivariateLaurentSeriesCategory(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{ULSCCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -71561,12 +71564,12 @@ digraph pic { "RADCAT..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{UnivariatePuiseuxSeriesConstructorCategory}{UPXSCCA} \pagepic{ps/v102univariatepuiseuxseriesconstructorcategory.ps}{UPXSCCA}{0.50} -<>= +\begin{chunk}{UnivariatePuiseuxSeriesConstructorCategory.input} )set break resume )sys rm -f UnivariatePuiseuxSeriesConstructorCategory.output )spool UnivariatePuiseuxSeriesConstructorCategory.output @@ -71712,8 +71715,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePuiseuxSeriesConstructorCategory.help} ==================================================================== UnivariatePuiseuxSeriesConstructorCategory examples ==================================================================== @@ -71721,7 +71724,7 @@ UnivariatePuiseuxSeriesConstructorCategory examples See Also: o )show UnivariatePuiseuxSeriesConstructorCategory -@ +\end{chunk} {\bf See:} \pagefrom{RetractableTo}{RETRACT} @@ -72057,7 +72060,7 @@ These exports come from \refto{UnivariatePuiseuxSeriesCategory}(Coef:Ring): ?rem? : (%,%) -> % if Coef has FIELD \end{verbatim} -<>= +\begin{chunk}{category UPXSCCA UnivariatePuiseuxSeriesConstructorCategory} )abbrev category UPXSCCA UnivariatePuiseuxSeriesConstructorCategory ++ Author: Clifton J. Williamson ++ Date Created: 6 February 1990 @@ -72115,15 +72118,15 @@ UnivariatePuiseuxSeriesConstructorCategory(Coef,ULS):_ retractIfCan(x:%):Union(ULS,"failed") == laurentIfCan x -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCCA.dotabb} "UPXSCCA" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPXSCCA"]; "UPXSCCA" -> "RETRACT" "UPXSCCA" -> "UPXSCAT" -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCCA.dotfull} "UnivariatePuiseuxSeriesConstructorCategory(a:Ring,b:UnivariateLaurentSeriesCategory(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=UPXSCCA"]; "UnivariatePuiseuxSeriesConstructorCategory(a:Ring,b:UnivariateLaurentSeriesCategory(a))" @@ -72131,8 +72134,8 @@ UnivariatePuiseuxSeriesConstructorCategory(Coef,ULS):_ "UnivariatePuiseuxSeriesConstructorCategory(a:Ring,b:UnivariateLaurentSeriesCategory(a))" -> "UnivariatePuiseuxSeriesCategory(a:Ring)" -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCCA.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -72181,13 +72184,13 @@ digraph pic { "AMR..." [color=lightblue]; } -@ +\end{chunk} \chapter{Category Layer 18} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FiniteAlgebraicExtensionField}{FAXF} \pagepic{ps/v102finitealgebraicextensionfield.ps}{FAXF}{0.75} -<>= +\begin{chunk}{FiniteAlgebraicExtensionField.input} )set break resume )sys rm -f FiniteAlgebraicExtensionField.output )spool FiniteAlgebraicExtensionField.output @@ -72298,8 +72301,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteAlgebraicExtensionField.help} ==================================================================== FiniteAlgebraicExtensionField examples ==================================================================== @@ -72307,7 +72310,7 @@ FiniteAlgebraicExtensionField examples See Also: o )show FiniteAlgebraicExtensionField -@ +\end{chunk} {\bf See:} \pagefrom{ExtensionField}{XF} @@ -72590,7 +72593,7 @@ These exports come from \refto{FiniteFieldCategory}(): \end{verbatim} -<>= +\begin{chunk}{category FAXF FiniteAlgebraicExtensionField} )abbrev category FAXF FiniteAlgebraicExtensionField ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 11 March 1991 @@ -72891,22 +72894,22 @@ FiniteAlgebraicExtensionField(F : Field) : Category == _ deg:=deg+1 deg -@ -<>= +\end{chunk} +\begin{chunk}{FAXF.dotabb} "FAXF" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAXF"]; "FAXF" -> "XF" "FAXF" -> "RETRACT" -@ -<>= +\end{chunk} +\begin{chunk}{FAXF.dotfull} "FiniteAlgebraicExtensionField(a:Field)" [color=lightblue,href="bookvol10.2.pdf#nameddest=FAXF"]; "FiniteAlgebraicExtensionField(a:Field)" -> "ExtensionField(a:Field)" "FiniteAlgebraicExtensionField(a:Field)" -> "RetractableTo(a:Field)" -@ -<>= +\end{chunk} +\begin{chunk}{FAXF.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -72951,12 +72954,12 @@ digraph pic { "Category" [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{MonogenicAlgebra}{MONOGEN} \pagepic{ps/v102monogenicalgebra.ps}{MONOGEN}{0.40} -<>= +\begin{chunk}{MonogenicAlgebra.input} )set break resume )sys rm -f MonogenicAlgebra.output )spool MonogenicAlgebra.output @@ -73091,8 +73094,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MonogenicAlgebra.help} ==================================================================== MonogenicAlgebra examples ==================================================================== @@ -73100,7 +73103,7 @@ MonogenicAlgebra examples See Also: o )show MonogenicAlgebra -@ +\end{chunk} {\bf See:} \pageto{FunctionFieldCategory}{FFCAT} @@ -73443,7 +73446,7 @@ These exports come from \refto{FiniteFieldCategory}(): if R has FFIELDC \end{verbatim} -<>= +\begin{chunk}{category MONOGEN MonogenicAlgebra} )abbrev category MONOGEN MonogenicAlgebra ++ Author: Barry Trager ++ Date Created: @@ -73519,8 +73522,8 @@ MonogenicAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): case "failed" => "failed" reduce(bc.coef1) -@ -<>= +\end{chunk} +\begin{chunk}{MONOGEN.dotabb} "MONOGEN" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONOGEN"]; "MONOGEN" -> "FRAMALG" @@ -73533,8 +73536,8 @@ MonogenicAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): "MONOGEN" -> "DIFEXT" "MONOGEN" -> "FFIELDC" -@ -<>= +\end{chunk} +\begin{chunk}{MONOGEN.dotfull} "MonogenicAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" [color=lightblue,href="bookvol10.2.pdf#nameddest=MONOGEN"]; "MonogenicAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -> @@ -73553,8 +73556,8 @@ MonogenicAlgebra(R:CommutativeRing, UP:UnivariatePolynomialCategory R): "MonogenicAlgebra(a:FRAC(UPOLYC(UFD)),b:UPOLYC(FRAC(UPOLYC(UFD))))" -> "MonogenicAlgebra(a:CommutativeRing,b:UnivariatePolynomialCategory(a))" -@ -<>= +\end{chunk} +\begin{chunk}{MONOGEN.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -73592,12 +73595,12 @@ digraph pic { "FFIELDC..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PseudoAlgebraicClosureOfRationalNumberCategory}{PACRATC} \pagepic{ps/v102pseudoalgebraicclosureofrationalnumbercategory.ps}{PACRATC}{0.50} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfRationalNumberCategory.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfRationalNumberCategory.output )spool PseudoAlgebraicClosureOfRationalNumberCategory.output @@ -73687,8 +73690,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfRationalNumberCategory.help} ==================================================================== PseudoAlgebraicClosureOfRationalNumberCategory examples ==================================================================== @@ -73696,7 +73699,7 @@ PseudoAlgebraicClosureOfRationalNumberCategory examples See Also: o )show PseudoAlgebraicClosureOfRationalNumberCategory -@ +\end{chunk} {\bf See:} @@ -73920,7 +73923,7 @@ These exports come from \refto{ExtensionField}(Fraction(Integer)): transcendenceDegree : () -> NonNegativeInteger \end{verbatim} -<>= +\begin{chunk}{category PACRATC PseudoAlgebraicClosureOfRationalNumberCategory} )abbrev category PACRATC PseudoAlgebraicClosureOfRationalNumberCategory ++ Authors: Gaetan Hache ++ Date Created: feb 1997 @@ -73945,19 +73948,19 @@ PseudoAlgebraicClosureOfRationalNumberCategory:Category == CharacteristicZero,RetractableTo(Integer), RetractableTo(Fraction(Integer)),ExtensionField(Fraction(Integer))) -@ -<>= +\end{chunk} +\begin{chunk}{PACRATC.dotabb} "PACRATC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACRATC"]; "PACRATC" -> "XF" -@ -<>= +\end{chunk} +\begin{chunk}{PACRATC.dotfull} "PseudoAlgebraicClosureOfRationalNumberCategory" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACRATC"]; "PseudoAlgebraicClosureOfRationalNumberCategory" -> "ExtensionField(F:Field)" -@ -<>= +\end{chunk} +\begin{chunk}{PACRATC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -73970,13 +73973,13 @@ digraph pic { } -@ +\end{chunk} \chapter{Category Layer 19} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{ComplexCategory}{COMPCAT} \pagepic{ps/v102complexcategory.ps}{COMPCAT}{0.50} -<>= +\begin{chunk}{ComplexCategory.input} )set break resume )sys rm -f ComplexCategory.output )spool ComplexCategory.output @@ -74177,8 +74180,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ComplexCategory.help} ==================================================================== ComplexCategory examples ==================================================================== @@ -74186,7 +74189,7 @@ ComplexCategory examples See Also: o )show ComplexCategory -@ +\end{chunk} {\bf See:} \pagefrom{CommutativeRing}{COMRING} @@ -74617,7 +74620,7 @@ These exports come from \refto{PolynomialFactorizationExplicit}(): Factored SparseUnivariatePolynomial % if R has EUCDOM and R has PFECAT \end{verbatim} -<>= +\begin{chunk}{category COMPCAT ComplexCategory} )abbrev category COMPCAT ComplexCategory ++ Author: ++ Date Created: @@ -75053,8 +75056,8 @@ ComplexCategory(R:CommutativeRing): Category == norm(x) ** (q / (2::Fraction(Integer))) complex(e * cos t, e * sin t) -@ -<>= +\end{chunk} +\begin{chunk}{COMPCAT.dotabb} "COMPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMPCAT"]; "COMPCAT" -> "COMRING" @@ -75067,8 +75070,8 @@ ComplexCategory(R:CommutativeRing): Category == "COMPCAT" -> "FLINEXP" "COMPCAT" -> "ORDSET" -@ -<>= +\end{chunk} +\begin{chunk}{COMPCAT.dotfull} "ComplexCategory(R:CommutativeRing)" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMPCAT"]; "ComplexCategory(R:CommutativeRing)" -> @@ -75090,8 +75093,8 @@ ComplexCategory(R:CommutativeRing): Category == "ComplexCategory(R:CommutativeRing)" -> "OrderedSet()" -@ -<>= +\end{chunk} +\begin{chunk}{COMPCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -75119,12 +75122,12 @@ digraph pic { "ORDSET..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{FunctionFieldCategory}{FFCAT} \pagepic{ps/v102functionfieldcategory.ps}{FFCAT}{0.70} -<>= +\begin{chunk}{FunctionFieldCategory.input} )set break resume )sys rm -f FunctionFieldCategory.output )spool FunctionFieldCategory.output @@ -75293,8 +75296,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FunctionFieldCategory.help} ==================================================================== FunctionFieldCategory examples ==================================================================== @@ -75302,7 +75305,7 @@ FunctionFieldCategory examples See Also: o )show FunctionFieldCategory -@ +\end{chunk} {\bf See:} \pagefrom{MonogenicAlgebra}{MONOGEN} @@ -75817,7 +75820,7 @@ UPUP:UnivariatePolynomialCategory Fraction UP ?rem? : (%,%) -> % if Fraction UP has FIELD \end{verbatim} -<>= +\begin{chunk}{category FFCAT FunctionFieldCategory} )abbrev category FFCAT FunctionFieldCategory ++ Function field of a curve ++ Author: Manuel Bronstein @@ -76233,21 +76236,21 @@ FunctionFieldCategory(F, UP, UPUP): Category == Definition where differentiate(f:$, d:UP -> UP) == differentiate(f, x +-> differentiate(x, d)$RF) -@ -<>= +\end{chunk} +\begin{chunk}{FFCAT.dotabb} "FFCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=FFCAT"]; "FFCAT" -> "MONOGEN" -@ -<>= +\end{chunk} +\begin{chunk}{FFCAT.dotfull} "FunctionFieldCategory(a:UFD,b:UPOLYC(a),c:UPOLYC(Fraction(b)))" [color=lightblue,href="bookvol10.2.pdf#nameddest=FFCAT"]; "FunctionFieldCategory(a:UFD,b:UPOLYC(a),c:UPOLYC(Fraction(b)))" -> "MonogenicAlgebra(a:FRAC(UPOLYC(UFD)),b:UPOLYC(FRAC(UPOLYC(UFD))))" -@ -<>= +\end{chunk} +\begin{chunk}{FFCAT.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -76283,12 +76286,12 @@ digraph pic { "FLINEXP..." [color=lightblue]; } -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \pagehead{PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory}{PACEXTC} \pagepic{ps/v102pseudoalgebraicclosureofalgextofrationalnumbercategory.ps}{PACEXTC}{0.50} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory.output )spool PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory.output @@ -76386,8 +76389,8 @@ digraph pic { )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory.help} ==================================================================== PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory examples ==================================================================== @@ -76395,7 +76398,7 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory examples See Also: o )show PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory -@ +\end{chunk} {\bf See:} @@ -76631,7 +76634,7 @@ These exports come from \refto{ExtensionField} primeFrobenius : (%,NonNegativeInteger) -> % if PseudoAlgebraicClosureOfRationalNumber has CHARNZ or PseudoAlgebraicClosureOfRationalNumber has FINITE or Fraction Integer has CHARNZ or Fraction Integer has FINITE \end{verbatim} -<>= +\begin{chunk}{category PACEXTC PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory} )abbrev category PACEXTC PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory ++ Authors: Gaetan Hache ++ Date Created: jan 1998 @@ -76656,15 +76659,15 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory:Category == Impl where Impl ==> Join(PseudoAlgebraicClosureOfRationalNumberCategory,_ RetractableTo(Q),ExtensionField(Q)) -@ -<>= +\end{chunk} +\begin{chunk}{PACEXTC.dotabb} "PACEXTC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACEXTC"]; "PACEXTC" -> "PACRATC" "PACEXTC" -> "RETRACT" "PACEXTC" -> "XF" -@ -<>= +\end{chunk} +\begin{chunk}{PACEXTC.dotfull} "PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACEXTC"]; -> "PseudoAlgebraicClosureOfRationalNumberCategory" @@ -76691,8 +76694,8 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory:Category == Impl where "ExtensionField(a:Field)" [color=lightblue,href="bookvol10.2.pdf#nameddest=XF"]; -@ -<>= +\end{chunk} +\begin{chunk}{PACEXTC.dotpic} digraph pic { fontsize=10; bgcolor="#FFFF66"; @@ -76721,7 +76724,7 @@ digraph pic { } -@ +\end{chunk} \chapter{The bootstrap code} \section{ABELGRP.lsp BOOTSTRAP} @@ -76734,7 +76737,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELGRP.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -76767,7 +76770,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |AbelianGroup|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ABELGRP-.lsp BOOTSTRAP} {\bf ABELGRP-} depends on a chain of files. We need to break this cycle to build @@ -76778,7 +76781,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELGRP-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -76852,7 +76855,7 @@ Note that this code is not included in the generated catdef.spad file. 0 0 13 0 21 2 0 0 15 0 16)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{ABELMON.lsp BOOTSTRAP} {\bf ABELMON} which needs {\bf ABELSG} which needs @@ -76875,7 +76878,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELMON.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -76909,7 +76912,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |AbelianMonoid|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ABELMON-.lsp BOOTSTRAP} {\bf ABELMON-} which needs {\bf ABELSG} which needs @@ -76932,7 +76935,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELMON-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -76999,7 +77002,7 @@ Note that this code is not included in the generated catdef.spad file. 0 18 1 0 8 0 10 0 0 0 15 2 0 0 11 0 18 2 0 0 13 0 14)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{ABELSG.lsp BOOTSTRAP} {\bf ABELSG} needs {\bf SETCAT} which needs @@ -77022,7 +77025,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELSG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77053,7 +77056,7 @@ Note that this code is not included in the generated catdef.spad file. (SETELT #1# 0 (QUOTE (|AbelianSemiGroup|))))))) (MAKEPROP (QUOTE |AbelianSemiGroup|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ABELSG-.lsp BOOTSTRAP} {\bf ABELSG-} needs {\bf SETCAT} which needs @@ -77076,7 +77079,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ABELSG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77122,7 +77125,7 @@ Note that this code is not included in the generated catdef.spad file. (|makeByteWordVec2| 10 (QUOTE (2 8 6 7 6 9 2 0 0 7 0 10 2 0 0 7 0 10)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{ALAGG.lsp BOOTSTRAP} {\bf ALAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ALAGG} @@ -77132,7 +77135,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ALAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77190,7 +77193,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |AssociationListAggregate|) (|devaluate| |t#1|) (|devaluate| |t#2|))))))) -@ +\end{chunk} \section{CABMON.lsp BOOTSTRAP} {\bf CABMON} which needs {\bf ABELMON} which needs @@ -77213,7 +77216,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{CABMON.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77247,7 +77250,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |CancellationAbelianMonoid|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{CLAGG.lsp BOOTSTRAP} {\bf CLAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf CLAGG} @@ -77257,7 +77260,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{CLAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77324,7 +77327,7 @@ Note that this code is not included in the generated catdef.spad file. . #2=(|Collection|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |Collection|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{CLAGG-.lsp BOOTSTRAP} {\bf CLAGG-} depends on {\bf CLAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf CLAGG-} @@ -77334,7 +77337,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{CLAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77547,7 +77550,7 @@ Note that this code is not included in the generated catdef.spad file. 3 0 7 20 0 7 24 2 0 7 20 0 22 2 0 17 12 0 19 2 0 14 12 0 16 2 0 10 12 0 13 2 0 14 12 0 15 1 0 10 0 11)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{COMRING.lsp BOOTSTRAP} {\bf COMRING} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf COMRING} @@ -77557,7 +77560,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{COMRING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77588,7 +77591,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |CommutativeRing|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{DIFRING.lsp BOOTSTRAP} {\bf DIFRING} needs {\bf INT} which needs {\bf DIFRING}. We need to break this cycle to build the algebra. So we keep a @@ -77599,7 +77602,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{DIFRING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77633,7 +77636,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |DifferentialRing|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{DIFRING-.lsp BOOTSTRAP} {\bf DIFRING-} needs {\bf DIFRING}. We need to break this cycle to build the algebra. So we keep a @@ -77644,7 +77647,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{DIFRING-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77712,7 +77715,7 @@ Note that this code is not included in the generated catdef.spad file. (1 6 0 0 7 2 6 0 0 9 11 2 0 0 0 9 10 2 0 0 0 9 12 1 0 0 0 8)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{DIVRING.lsp BOOTSTRAP} {\bf DIVRING} depends on {\bf QFCAT} which eventually depends on {\bf DIVRING}. We need to break this cycle to build @@ -77723,7 +77726,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{DIVRING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77761,7 +77764,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |DivisionRing|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{DIVRING-.lsp BOOTSTRAP} {\bf DIVRING-} depends on {\bf DIVRING}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf DIVRING-} @@ -77771,7 +77774,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{DIVRING-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77855,7 +77858,7 @@ Note that this code is not included in the generated catdef.spad file. 0 0 0 24 2 0 0 0 7 9 2 0 0 0 7 18 2 0 0 19 0 25)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{ES.lsp BOOTSTRAP} {\bf ES} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ES} @@ -77865,7 +77868,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ES.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -77967,7 +77970,7 @@ Note that this code is not included in the generated catdef.spad file. (SETELT #1# 0 (QUOTE (|ExpressionSpace|))))))) (MAKEPROP (QUOTE |ExpressionSpace|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ES-.lsp BOOTSTRAP} {\bf ES-} depends on {\bf ES}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ES-} @@ -77977,7 +77980,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ES-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -78741,7 +78744,7 @@ Note that this code is not included in the generated catdef.spad file. 0 0 10 0 61 2 0 0 0 0 116 1 0 0 0 51 1 0 0 15 53 1 0 0 0 17 1 0 20 10 22)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{EUCDOM.lsp BOOTSTRAP} {\bf EUCDOM} depends on {\bf INT} which depends on {\bf EUCDOM}. We need to break this cycle to build @@ -78759,10 +78762,10 @@ The call to {\bf VERSIONCHECK} is a legacy check to ensure that we did not load algebra code from a previous system version (which would not run due to major surgical changes in the system) without recompiling. -<>= +\begin{chunk}{EUCDOM;VersionCheck} (|/VERSIONCHECK| 2) -@ +\end{chunk} \subsubsection{The Domain Cache Variable} We create a variable which is formed by concatenating the string ``{\bf ;AL}'' to the domain name forming, in this case, @@ -78771,10 +78774,10 @@ at load time of a list of one element, {\bf NIL}. This list is a data structure that will be modified to hold an executable function. This function is created the first time the domain is used which it replaces the {\bf NIL}. -<>= +\begin{chunk}{EuclideanDomain;AL} (SETQ |EuclideanDomain;AL| (QUOTE NIL)) -@ +\end{chunk} \subsubsection{The Domain Function} When you call a domain the code is pretty simple at the top level. This code will check to see if this domain has ever been @@ -78800,16 +78803,16 @@ value so it will be non-NIL the second time this domain is used. Thus the work of building the domain only happens once. If this function has never been called before we call the -<>= +\begin{chunk}{EuclideanDomain} (DEFUN |EuclideanDomain| NIL (LET (#:G83585) (COND (|EuclideanDomain;AL|) (T (SETQ |EuclideanDomain;AL| (|EuclideanDomain;|)))))) -@ +\end{chunk} \subsubsection{The First Call Domain Function} -<>= +\begin{chunk}{EuclideanDomain;} (DEFUN |EuclideanDomain;| NIL (PROG (#1=#:G83583) (RETURN @@ -78851,19 +78854,19 @@ If this function has never been called before we call the |EuclideanDomain|) (SETELT #1# 0 (QUOTE (|EuclideanDomain|))))))) -@ +\end{chunk} \subsubsection{EUCDOM;MAKEPROP} -<>= +\begin{chunk}{EUCDOM;MAKEPROP} (MAKEPROP (QUOTE |EuclideanDomain|) (QUOTE NILADIC) T) -@ -<>= -<> -<> -<> -<> -<> -@ +\end{chunk} +\begin{chunk}{EUCDOM.lsp BOOTSTRAP} +\getchunk{EUCDOM;VersionCheck} +\getchunk{EuclideanDomain;AL} +\getchunk{EuclideanDomain} +\getchunk{EuclideanDomain;} +\getchunk{EUCDOM;MAKEPROP} +\end{chunk} \section{EUCDOM-.lsp BOOTSTRAP} {\bf EUCDOM-} depends on {\bf EUCDOM}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf EUCDOM-} @@ -78880,12 +78883,12 @@ The call to {\bf VERSIONCHECK} is a legacy check to ensure that we did not load algebra code from a previous system version (which would not run due to major surgical changes in the system) without recompiling. -<>= +\begin{chunk}{EUCDOM-;VersionCheck} (|/VERSIONCHECK| 2) -@ +\end{chunk} \subsubsection{EUCDOM-;sizeLess?;2SB;1} -<>= +\begin{chunk}{EUCDOM-;sizeLess?;2SB;1} (DEFUN |EUCDOM-;sizeLess?;2SB;1| (|x| |y| $) (COND ((SPADCALL |y| (QREFELT $ 8)) (QUOTE NIL)) @@ -78893,22 +78896,22 @@ recompiling. ((QUOTE T) (< (SPADCALL |x| (QREFELT $ 10)) (SPADCALL |y| (QREFELT $ 10)))))) -@ +\end{chunk} \subsubsection{EUCDOM-;quo;3S;2} -<>= +\begin{chunk}{EUCDOM-;quo;3S;2} (DEFUN |EUCDOM-;quo;3S;2| (|x| |y| $) (QCAR (SPADCALL |x| |y| (QREFELT $ 13)))) -@ +\end{chunk} \subsubsection{EUCDOM-;rem;3S;3} -<>= +\begin{chunk}{EUCDOM-;rem;3S;3} (DEFUN |EUCDOM-;rem;3S;3| (|x| |y| $) (QCDR (SPADCALL |x| |y| (QREFELT $ 13)))) -@ +\end{chunk} \subsubsection{EUCDOM-;exquo;2SU;4} -<>= +\begin{chunk}{EUCDOM-;exquo;2SU;4} (DEFUN |EUCDOM-;exquo;2SU;4| (|x| |y| $) (PROG (|qr|) (RETURN @@ -78926,9 +78929,9 @@ recompiling. ((SPADCALL (QCDR |qr|) (QREFELT $ 8)) (CONS 0 (QCAR |qr|))) ((QUOTE T) (CONS 1 "failed"))))))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;gcd;3S;5} -<>= +\begin{chunk}{EUCDOM-;gcd;3S;5} (DEFUN |EUCDOM-;gcd;3S;5| (|x| |y| $) (PROG (|#G13| |#G14|) (RETURN @@ -78956,9 +78959,9 @@ recompiling. (EXIT NIL)) (EXIT |x|))))) -@ +\end{chunk} \subsubsection{EUCDOM-;unitNormalizeIdealElt} -<>= +\begin{chunk}{EUCDOM-;unitNormalizeIdealElt} (DEFUN |EUCDOM-;unitNormalizeIdealElt| (|s| $) (PROG (|#G16| |u| |c| |a|) (RETURN @@ -78980,9 +78983,9 @@ recompiling. (SPADCALL |a| (QVELT |s| 1) (QREFELT $ 26)) |c|)))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;extendedEuclidean;2SR;7} -<>= +\begin{chunk}{EUCDOM-;extendedEuclidean;2SR;7} (DEFUN |EUCDOM-;extendedEuclidean;2SR;7| (|x| |y| $) (PROG (|s3| |s2| |qr| |s1|) (RETURN @@ -79052,9 +79055,9 @@ recompiling. |EUCDOM-;extendedEuclidean;2SR;7|))))))) (EXIT |s1|))))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;extendedEuclidean;3SU;8} -<>= +\begin{chunk}{EUCDOM-;extendedEuclidean;3SU;8} (DEFUN |EUCDOM-;extendedEuclidean;3SU;8| (|x| |y| |z| $) (PROG (|s| |w| |qr|) (RETURN @@ -79093,9 +79096,9 @@ recompiling. (SPADCALL (QCAR |qr|) |x| (QREFELT $ 26)) (QREFELT $ 29)))))))))))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;principalIdeal;LR;9} -<>= +\begin{chunk}{EUCDOM-;principalIdeal;LR;9} (DEFUN |EUCDOM-;principalIdeal;LR;9| (|l| $) (PROG (|uca| |v| |u| #0=#:G1497 |vv| #1=#:G1498) (RETURN @@ -79151,9 +79154,9 @@ recompiling. (EXIT (NREVERSE0 #0#))))) (QVELT |u| 2)))))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;expressIdealMember;LSU;10} -<>= +\begin{chunk}{EUCDOM-;expressIdealMember;LSU;10} (DEFUN |EUCDOM-;expressIdealMember;LSU;10| (|l| |z| $) (PROG (#0=#:G1513 #1=#:G1514 |pid| |q| #2=#:G1515 |v| #3=#:G1516) (RETURN @@ -79217,9 +79220,9 @@ recompiling. G191 (EXIT (NREVERSE0 #2#))))))))))))))) -@ +\end{chunk} \subsubsection{EUCDOM-;multiEuclidean;LSU;11} -<>= +\begin{chunk}{EUCDOM-;multiEuclidean;LSU;11} (DEFUN |EUCDOM-;multiEuclidean;LSU;11| (|l| |z| $) (PROG (|n| |l1| |l2| #0=#:G1405 #1=#:G1535 #2=#:G1522 #3=#:G1520 #4=#:G1521 #5=#:G1406 #6=#:G1536 #7=#:G1525 #8=#:G1523 #9=#:G1524 @@ -79328,9 +79331,9 @@ recompiling. (QCDR |v2|) (QREFELT $ 51)))))))))))))))))))))) -@ +\end{chunk} \subsubsection{EuclideanDomain\&} -<>= +\begin{chunk}{EuclideanDomainAmp} (DEFUN |EuclideanDomain&| (|#1|) (PROG (DV$1 |dv$| $ |pv$|) (RETURN @@ -79344,9 +79347,9 @@ recompiling. (QSETREFV $ 6 |#1|) $)))) -@ +\end{chunk} \subsubsection{EUCDOM-;MAKEPROP} -<>= +\begin{chunk}{EUCDOM-;MAKEPROP} (MAKEPROP (QUOTE |EuclideanDomain&|) (QUOTE |infovec|) @@ -79388,24 +79391,24 @@ recompiling. 30 0 0 31 2 0 17 0 0 18 2 0 44 41 0 45)))))) (QUOTE |lookupComplete|))) -@ -<>= - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -@ +\end{chunk} +\begin{chunk}{EUCDOM-.lsp BOOTSTRAP} + +\getchunk{EUCDOM-;VersionCheck} +\getchunk{EUCDOM-;sizeLess?;2SB;1} +\getchunk{EUCDOM-;quo;3S;2} +\getchunk{EUCDOM-;rem;3S;3} +\getchunk{EUCDOM-;exquo;2SU;4} +\getchunk{EUCDOM-;gcd;3S;5} +\getchunk{EUCDOM-;unitNormalizeIdealElt} +\getchunk{EUCDOM-;extendedEuclidean;2SR;7} +\getchunk{EUCDOM-;extendedEuclidean;3SU;8} +\getchunk{EUCDOM-;principalIdeal;LR;9} +\getchunk{EUCDOM-;expressIdealMember;LSU;10} +\getchunk{EUCDOM-;multiEuclidean;LSU;11} +\getchunk{EuclideanDomainAmp} +\getchunk{EUCDOM-;MAKEPROP} +\end{chunk} \section{ENTIRER.lsp BOOTSTRAP} {\bf ENTIRER} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ENTIRER} @@ -79415,7 +79418,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ENTIRER.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -79446,7 +79449,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |EntireRing|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{FFIELDC.lsp BOOTSTRAP} {\bf FFIELDC} depends on a chain of files. We need to break this cycle to build @@ -79457,7 +79460,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{FFIELDC.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -79515,7 +79518,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |FiniteFieldCategory|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{FFIELDC-.lsp BOOTSTRAP} {\bf FFIELDC-} depends on {\bf FFIELDC}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf @@ -79526,7 +79529,7 @@ version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{FFIELDC-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80079,7 +80082,7 @@ Note that this code is not included in the generated catdef.spad file. 19 0 21 1 0 15 0 16 0 0 0 9 2 0 91 91 91 92 1 0 34 0 60 2 0 57 0 0 71 1 0 0 0 8 0 0 0 44 1 0 31 32 33 1 0 0 0 38 1 0 15 0 39)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{FPS.lsp BOOTSTRAP} {\bf FPS} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a @@ -80090,7 +80093,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{FPS.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80147,7 +80150,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |FloatingPointSystem|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{FPS-.lsp BOOTSTRAP} {\bf FPS-} depends {\bf FPS}. We need to break this cycle to build the algebra. So we keep a @@ -80158,7 +80161,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{FPS-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80228,7 +80231,7 @@ Note that this code is not included in the generated catdef.spad file. 2 0 0 9 9 11 0 0 7 16)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{GCDDOM.lsp BOOTSTRAP} {\bf GCDDOM} needs {\bf COMRING} which needs @@ -80251,7 +80254,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{GCDDOM.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80290,7 +80293,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |GcdDomain|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{GCDDOM-.lsp BOOTSTRAP} {\bf GCDDOM-} depends on {\bf GCDDOM}. We break this chain with {\bf GCDDOM-.lsp} which we @@ -80302,7 +80305,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{GCDDOM-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80558,7 +80561,7 @@ Note that this code is not included in the generated catdef.spad file. 0 20 22)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{HOAGG.lsp BOOTSTRAP} {\bf HOAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf HOAGG} @@ -80568,7 +80571,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{HOAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80644,7 +80647,7 @@ Note that this code is not included in the generated catdef.spad file. (SETELT #1# 0 (LIST (QUOTE |HomogeneousAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{HOAGG-.lsp BOOTSTRAP} {\bf HOAGG-} depends on {\bf HOAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf HOAGG-} @@ -80654,7 +80657,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{HOAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -80933,14 +80936,14 @@ Note that this code is not included in the generated catdef.spad file. 0 0 8 12 2 0 15 7 0 25 2 0 15 18 0 21 1 0 31 0 36 2 0 17 18 0 19 2 0 17 0 0 30 1 0 15 0 16)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{INS.lsp BOOTSTRAP} {\bf INS} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf INS} category which we can write into the {\bf MID} directory. We compile the lisp code and copy the {\bf INS.o} file to the {\bf OUT} directory. This is eventually forcibly replaced by a recompiled version. -<>= +\begin{chunk}{INS.lsp BOOTSTRAP} (/VERSIONCHECK 2) @@ -81016,14 +81019,14 @@ This is eventually forcibly replaced by a recompiled version. (MAKEPROP (QUOTE |IntegerNumberSystem|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{INS-.lsp BOOTSTRAP} {\bf INS-} depends on {\bf INS}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf INS-} category which we can write into the {\bf MID} directory. We compile the lisp code and copy the {\bf INS-.o} file to the {\bf OUT} directory. This is eventually forcibly replaced by a recompiled version. -<>= +\begin{chunk}{INS-.lsp BOOTSTRAP} (/VERSIONCHECK 2) @@ -81418,7 +81421,7 @@ This is eventually forcibly replaced by a recompiled version. 0 0 54)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{INTDOM.lsp BOOTSTRAP} {\bf INTDOM} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf INTDOM} @@ -81428,7 +81431,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{INTDOM.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -81469,7 +81472,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |IntegralDomain|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{INTDOM-.lsp BOOTSTRAP} {\bf INTDOM-} depends on {\bf INTDOM}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf INTDOM-} @@ -81479,7 +81482,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{INTDOM-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -81582,7 +81585,7 @@ Note that this code is not included in the generated catdef.spad file. 18 1 0 14 0 16 2 0 12 0 0 20)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{LNAGG.lsp BOOTSTRAP} {\bf LNAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf LNAGG} @@ -81592,7 +81595,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{LNAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -81653,7 +81656,7 @@ Note that this code is not included in the generated catdef.spad file. . #3=(|LinearAggregate|)))))) . #3#) (SETELT #1# 0 (LIST (QUOTE |LinearAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{LNAGG-.lsp BOOTSTRAP} {\bf LNAGG-} depends on {\bf LNAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf LNAGG-} @@ -81663,7 +81666,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{LNAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -81749,7 +81752,7 @@ Note that this code is not included in the generated catdef.spad file. 16 2 6 0 0 0 17 3 6 0 0 0 8 20 1 6 15 0 22 1 0 8 0 23 1 0 8 0 23 3 0 0 7 0 8 21 1 0 11 0 12 2 0 13 8 0 14 2 0 0 0 7 18 2 0 0 7 0 19)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{LSAGG.lsp BOOTSTRAP} {\bf LSAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf LSAGG} @@ -81759,7 +81762,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{LSAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -81802,7 +81805,7 @@ Note that this code is not included in the generated catdef.spad file. . #2=(|ListAggregate|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |ListAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{LSAGG-.lsp BOOTSTRAP} {\bf LSAGG-} depends on {\bf LSAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf LSAGG-} @@ -81812,7 +81815,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{LSAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82664,7 +82667,7 @@ Note that this code is not included in the generated catdef.spad file. 35 2 0 44 26 0 45 2 0 0 0 38 43 2 0 0 0 30 37 3 0 0 0 0 30 59 1 0 0 0 57 2 0 15 0 0 64)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{MONOID.lsp BOOTSTRAP} {\bf MONOID} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf MONOID} @@ -82674,7 +82677,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{MONOID.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82710,7 +82713,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |Monoid|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{MONOID-.lsp BOOTSTRAP} {\bf MONOID-} depends on {\bf MONOID}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf MONOID-} @@ -82720,7 +82723,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{MONOID-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82792,7 +82795,7 @@ Note that this code is not included in the generated catdef.spad file. 0 0 0 14 1 0 16 0 17 1 0 11 0 13 2 0 0 0 7 9 2 0 0 0 7 21)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{MTSCAT.lsp BOOTSTRAP} {\bf MTSCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf MTSCAT} @@ -82802,7 +82805,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{MTSCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82890,7 +82893,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |MultivariateTaylorSeriesCategory|) (|devaluate| |t#1|) (|devaluate| |t#2|))))))) -@ +\end{chunk} \section{OINTDOM.lsp BOOTSTRAP} {\bf OINTDOM} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf OINTDOM} @@ -82900,7 +82903,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{OINTDOM.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82922,7 +82925,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |OrderedIntegralDomain|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ORDRING.lsp BOOTSTRAP} {\bf ORDRING} depends on {\bf INT}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ORDRING} @@ -82937,7 +82940,7 @@ loop. This code is here to experiment with breaking that loop. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ORDRING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -82973,7 +82976,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |OrderedRing|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{ORDRING-.lsp BOOTSTRAP} {\bf ORDRING-} depends on {\bf ORDRING}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ORDRING-} @@ -82983,7 +82986,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ORDRING-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -83055,7 +83058,7 @@ Note that this code is not included in the generated catdef.spad file. (0 6 0 7 2 6 8 0 0 9 1 6 8 0 12 1 6 8 0 13 0 6 0 14 1 6 8 0 15 1 6 0 0 18 1 0 16 0 17 1 0 8 0 10 1 0 8 0 11 1 0 0 0 19)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{POLYCAT.lsp BOOTSTRAP} {\bf POLYCAT} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf POLYCAT} @@ -83065,7 +83068,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{POLYCAT.lsp BOOTSTRAP} (/VERSIONCHECK 2) @@ -83187,7 +83190,7 @@ Note that this code is not included in the generated catdef.spad file. (LIST (QUOTE |PolynomialCategory|) (|devaluate| |t#1|) (|devaluate| |t#2|) (|devaluate| |t#3|))))))) -@ +\end{chunk} \section{POLYCAT-.lsp BOOTSTRAP} {\bf POLYCAT-} depends on {\bf POLYCAT}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf POLYCAT-} @@ -83197,7 +83200,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{POLYCAT-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -84717,7 +84720,7 @@ Note that this code is not included in the generated catdef.spad file. 0 152 2 0 23 0 0 183)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{PSETCAT.lsp BOOTSTRAP} {\bf PSETCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf PSETCAT} @@ -84727,7 +84730,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{PSETCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -84830,7 +84833,7 @@ Note that this code is not included in the generated catdef.spad file. (|devaluate| |t#2|) (|devaluate| |t#3|) (|devaluate| |t#4|))))))) -@ +\end{chunk} \section{PSETCAT-.lsp BOOTSTRAP} {\bf PSETCAT-} depends on {\bf PSETCAT}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf PSETCAT-} @@ -84840,7 +84843,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{PSETCAT-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -85672,7 +85675,7 @@ Note that this code is not included in the generated catdef.spad file. 10 0 72 2 0 0 0 9 32 2 0 0 0 9 31 2 0 0 0 9 33 2 0 15 0 0 39)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{QFCAT.lsp BOOTSTRAP} {\bf QFCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf QFCAT} @@ -85682,7 +85685,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{QFCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -85755,7 +85758,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE NIL) NIL)) . #2=(|QuotientFieldCategory|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |QuotientFieldCategory|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{QFCAT-.lsp BOOTSTRAP} {\bf QFCAT-} depends on {\bf QFCAT}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf QFCAT-} @@ -85765,7 +85768,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{QFCAT-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86166,7 +86169,7 @@ Note that this code is not included in the generated catdef.spad file. 78 1 0 0 55 57 1 0 0 85 90 0 0 29 31 2 0 48 0 0 50)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{RCAGG.lsp BOOTSTRAP} {\bf RCAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf RCAGG} @@ -86176,7 +86179,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RCAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86233,7 +86236,7 @@ Note that this code is not included in the generated catdef.spad file. . #2=(|RecursiveAggregate|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |RecursiveAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{RCAGG-.lsp BOOTSTRAP} {\bf RCAGG-} depends on {\bf RCAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf RCAGG-} @@ -86243,7 +86246,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RCAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86303,7 +86306,7 @@ Note that this code is not included in the generated catdef.spad file. 1 6 13 0 14 2 16 15 6 0 17 2 0 15 0 0 18 3 0 7 0 9 7 12 2 0 7 0 9 10 2 0 15 0 0 18)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{RING.lsp BOOTSTRAP} {\bf RING} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf RING} @@ -86313,7 +86316,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86347,7 +86350,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |Ring|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{RING-.lsp BOOTSTRAP} {\bf RING-} depends on {\bf RING}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf RING-} @@ -86357,7 +86360,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RING-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86400,7 +86403,7 @@ Note that this code is not included in the generated catdef.spad file. (|makeByteWordVec2| 10 (QUOTE (0 6 0 7 2 6 0 8 0 9 1 0 0 8 10)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{RNG.lsp BOOTSTRAP} {\bf RNG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a @@ -86411,7 +86414,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RNG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86432,7 +86435,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |Rng|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{RNS.lsp BOOTSTRAP} {\bf RNS} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a @@ -86443,7 +86446,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RNS.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86497,7 +86500,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |RealNumberSystem|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{RNS-.lsp BOOTSTRAP} {\bf RNS-} depends {\bf RNS}. We need to break this cycle to build the algebra. So we keep a @@ -86508,7 +86511,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{RNS-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86709,7 +86712,7 @@ Note that this code is not included in the generated catdef.spad file. 0 33 1 0 0 25 28 1 0 0 25 28 0 0 7 8 1 0 0 0 39)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{SETAGG.lsp BOOTSTRAP} {\bf SETAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf SETAGG} @@ -86719,7 +86722,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{SETAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86774,7 +86777,7 @@ Note that this code is not included in the generated catdef.spad file. . #2=(|SetAggregate|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |SetAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{SETAGG-.lsp BOOTSTRAP} {\bf SETAGG-} depends on {\bf SETAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf SETAGG-} @@ -86784,7 +86787,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{SETAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86837,7 +86840,7 @@ Note that this code is not included in the generated catdef.spad file. (|makeByteWordVec2| 15 (QUOTE (2 6 0 0 0 8 2 6 0 0 0 9 1 6 0 11 12 2 0 0 7 0 14 2 0 0 0 7 13 2 0 0 0 0 10 2 0 0 0 7 15)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{SETCAT.lsp BOOTSTRAP} {\bf SETCAT} needs {\bf SINT} which needs @@ -86859,7 +86862,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{SETCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86896,7 +86899,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |SetCategory|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{SETCAT-.lsp BOOTSTRAP} {\bf SETCAT-} is the implementation of the operations exported by {\bf SETCAT}. It comes into existance whenever {\bf SETCAT} @@ -86906,7 +86909,7 @@ explanation under the {\bf SETCAT.lsp} section for more details. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{SETCAT-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -86963,7 +86966,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE (1 0 9 0 10 1 0 7 0 8)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{STAGG.lsp BOOTSTRAP} {\bf STAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf STAGG} @@ -86973,7 +86976,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{STAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -87017,7 +87020,7 @@ v . #2=(|StreamAggregate|))))) . #2#) (SETELT #1# 0 (LIST (QUOTE |StreamAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{STAGG-.lsp BOOTSTRAP} {\bf STAGG-} depends on {\bf STAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf STAGG-} @@ -87027,7 +87030,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{STAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -87337,7 +87340,7 @@ Note that this code is not included in the generated catdef.spad file. 1 0 8 0 11 2 0 0 37 0 38 2 0 0 0 15 16 2 0 0 0 7 39 1 0 8 0 10 2 0 7 0 19 22 2 0 0 0 23 30 2 0 0 0 0 46 1 0 0 33 35 2 0 0 0 0 32)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{TSETCAT.lsp BOOTSTRAP} {\bf TSETCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a @@ -87348,7 +87351,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{TSETCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -87494,7 +87497,7 @@ Note that this code is not included in the generated catdef.spad file. (|devaluate| |t#3|) (|devaluate| |t#4|))))))) -@ +\end{chunk} \section{TSETCAT-.lsp BOOTSTRAP} {\bf TSETCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a @@ -87505,7 +87508,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{TSETCAT-.lsp BOOTSTRAP} (/VERSIONCHECK 2) @@ -88480,7 +88483,7 @@ Note that this code is not included in the generated catdef.spad file. 0 11 0 98 99 1 0 113 0 114 2 0 11 9 0 117 2 0 11 0 0 19)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{UFD.lsp BOOTSTRAP} {\bf UFD} needs {\bf GCDDOM} which needs @@ -88502,7 +88505,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{UFD.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -88539,7 +88542,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |UniqueFactorizationDomain|) (QUOTE NILADIC) T) -@ +\end{chunk} \section{UFD-.lsp BOOTSTRAP} {\bf UFD-} needs {\bf UFD}. We need to break this cycle to build the algebra. So we keep a @@ -88550,7 +88553,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{UFD-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -88658,7 +88661,7 @@ Note that this code is not included in the generated catdef.spad file. 0 17 1 9 20 0 21 1 0 0 0 16 1 0 22 0 23)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{ULSCAT.lsp BOOTSTRAP} {\bf ULSCAT} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf ULSCAT} @@ -88668,7 +88671,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ULSCAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -88749,7 +88752,7 @@ Note that this code is not included in the generated catdef.spad file. . #3#) (SETELT #1# 0 (LIST (QUOTE |UnivariateLaurentSeriesCategory|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{UPOLYC.lsp BOOTSTRAP} {\bf UPOLYC} depends on itself. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf UPOLYC} @@ -88759,7 +88762,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{UPOLYC.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -88900,7 +88903,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |UnivariatePolynomialCategory|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{UPOLYC-.lsp BOOTSTRAP} {\bf UPOLYC-} depends on {\bf UPOLYC}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf UPOLYC-} @@ -88910,7 +88913,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{UPOLYC-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -90283,7 +90286,7 @@ Note that this code is not included in the generated catdef.spad file. 0 12 50)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \section{URAGG.lsp BOOTSTRAP} {\bf URAGG} depends on a chain of files. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf URAGG} @@ -90293,7 +90296,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{URAGG.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -90373,7 +90376,7 @@ Note that this code is not included in the generated catdef.spad file. . #2#) (SETELT #1# 0 (LIST (QUOTE |UnaryRecursiveAggregate|) (|devaluate| |t#1|))))))) -@ +\end{chunk} \section{URAGG-.lsp BOOTSTRAP} {\bf URAGG-} depends on {\bf URAGG}. We need to break this cycle to build the algebra. So we keep a cached copy of the translated {\bf URAGG-} @@ -90383,7 +90386,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{URAGG-.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -91055,471 +91058,471 @@ Note that this code is not included in the generated catdef.spad file. 21 1 0 0 0 38 1 0 0 0 64 1 0 29 0 40 1 0 0 0 39 2 0 0 0 0 57 1 0 24 0 26 2 0 19 0 0 47 1 0 29 0 34)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} \chapter{Chunk collections} -<>= -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> - -<> -<> - -<> -<> -<> -<> -<> -<> -<> - -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> - -<> -<> -<> -@ -<>= +\begin{chunk}{algebra} +\getchunk{category ABELGRP AbelianGroup} +\getchunk{category ABELMON AbelianMonoid} +\getchunk{category AMR AbelianMonoidRing} +\getchunk{category ABELSG AbelianSemiGroup} +\getchunk{category AGG Aggregate} +\getchunk{category ALGEBRA Algebra} +\getchunk{category ACF AlgebraicallyClosedField} +\getchunk{category ACFS AlgebraicallyClosedFunctionSpace} +\getchunk{category AHYP ArcHyperbolicFunctionCategory} +\getchunk{category ATRIG ArcTrigonometricFunctionCategory} +\getchunk{category ALAGG AssociationListAggregate} +\getchunk{category ATTREG AttributeRegistry} + +\getchunk{category BGAGG BagAggregate} +\getchunk{category BASTYPE BasicType} +\getchunk{category BLMETCT BlowUpMethodCategory} +\getchunk{category BMODULE BiModule} +\getchunk{category BRAGG BinaryRecursiveAggregate} +\getchunk{category BTCAT BinaryTreeCategory} +\getchunk{category BTAGG BitAggregate} + +\getchunk{category CACHSET CachableSet} +\getchunk{category CABMON CancellationAbelianMonoid} +\getchunk{category CHARNZ CharacteristicNonZero} +\getchunk{category CHARZ CharacteristicZero} +\getchunk{category KOERCE CoercibleTo} +\getchunk{category CLAGG Collection} +\getchunk{category CFCAT CombinatorialFunctionCategory} +\getchunk{category COMBOPC CombinatorialOpsCategory} +\getchunk{category COMRING CommutativeRing} +\getchunk{category COMPCAT ComplexCategory} +\getchunk{category KONVERT ConvertibleTo} + +\getchunk{category DQAGG DequeueAggregate} +\getchunk{category DSTRCAT DesingTreeCategory} +\getchunk{category DIAGG Dictionary} +\getchunk{category DIOPS DictionaryOperations} +\getchunk{category DIFEXT DifferentialExtension} +\getchunk{category DPOLCAT DifferentialPolynomialCategory} +\getchunk{category DIFRING DifferentialRing} +\getchunk{category DIVCAT DivisorCategory} +\getchunk{category DVARCAT DifferentialVariableCategory} +\getchunk{category DIRPCAT DirectProductCategory} +\getchunk{category DIVRING DivisionRing} +\getchunk{category DLAGG DoublyLinkedAggregate} + +\getchunk{category ELEMFUN ElementaryFunctionCategory} +\getchunk{category ELTAB Eltable} +\getchunk{category ELTAGG EltableAggregate} +\getchunk{category ENTIRER EntireRing} +\getchunk{category EUCDOM EuclideanDomain} +\getchunk{category EVALAB Evalable} +\getchunk{category ES ExpressionSpace} +\getchunk{category ELAGG ExtensibleLinearAggregate} +\getchunk{category XF ExtensionField} + +\getchunk{category FIELD Field} +\getchunk{category FPC FieldOfPrimeCharacteristic} +\getchunk{category FILECAT FileCategory} +\getchunk{category FNCAT FileNameCategory} +\getchunk{category FINITE Finite} +\getchunk{category FAMR FiniteAbelianMonoidRing} +\getchunk{category FAXF FiniteAlgebraicExtensionField} +\getchunk{category FDIVCAT FiniteDivisorCategory} +\getchunk{category FFIELDC FiniteFieldCategory} +\getchunk{category FLAGG FiniteLinearAggregate} +\getchunk{category FINRALG FiniteRankAlgebra} +\getchunk{category FINAALG FiniteRankNonAssociativeAlgebra} +\getchunk{category FSAGG FiniteSetAggregate} +\getchunk{category FPS FloatingPointSystem} +\getchunk{category FORTFN FortranFunctionCategory} +\getchunk{category FMTC FortranMachineTypeCategory} +\getchunk{category FMC FortranMatrixCategory} +\getchunk{category FMFUN FortranMatrixFunctionCategory} +\getchunk{category FORTCAT FortranProgramCategory} +\getchunk{category FVC FortranVectorCategory} +\getchunk{category FVFUN FortranVectorFunctionCategory} +\getchunk{category FRAMALG FramedAlgebra} +\getchunk{category FRNAALG FramedNonAssociativeAlgebra} +\getchunk{category FAMONC FreeAbelianMonoidCategory} +\getchunk{category FLALG FreeLieAlgebra} +\getchunk{category FMCAT FreeModuleCat} +\getchunk{category FEVALAB FullyEvalableOver} +\getchunk{category FLINEXP FullyLinearlyExplicitRingOver} +\getchunk{category FPATMAB FullyPatternMatchable} +\getchunk{category FRETRCT FullyRetractableTo} +\getchunk{category FFCAT FunctionFieldCategory} +\getchunk{category FS FunctionSpace} + +\getchunk{category GCDDOM GcdDomain} +\getchunk{category GRALG GradedAlgebra} +\getchunk{category GRMOD GradedModule} +\getchunk{category GROUP Group} + +\getchunk{category HOAGG HomogeneousAggregate} +\getchunk{category HYPCAT HyperbolicFunctionCategory} + +\getchunk{category IXAGG IndexedAggregate} +\getchunk{category IDPC IndexedDirectProductCategory} +\getchunk{category INFCLCT InfinitlyClosePointCategory} +\getchunk{category IEVALAB InnerEvalable} +\getchunk{category INS IntegerNumberSystem} +\getchunk{category INTDOM IntegralDomain} +\getchunk{category INTCAT IntervalCategory} + +\getchunk{category KDAGG KeyedDictionary} + +\getchunk{category LZSTAGG LazyStreamAggregate} +\getchunk{category LALG LeftAlgebra} +\getchunk{category LMODULE LeftModule} +\getchunk{category LIECAT LieAlgebra} +\getchunk{category LNAGG LinearAggregate} +\getchunk{category LINEXP LinearlyExplicitRingOver} +\getchunk{category LODOCAT LinearOrdinaryDifferentialOperatorCategory} +\getchunk{category LFCAT LiouvillianFunctionCategory} +\getchunk{category LSAGG ListAggregate} +\getchunk{category LOCPOWC LocalPowerSeriesCategory} +\getchunk{category LOGIC Logic} + +\getchunk{category MATCAT MatrixCategory} +\getchunk{category MODULE Module} +\getchunk{category MONAD Monad} +\getchunk{category MONADWU MonadWithUnit} +\getchunk{category MONOGEN MonogenicAlgebra} +\getchunk{category MLO MonogenicLinearOperator} +\getchunk{category MONOID Monoid} +\getchunk{category MDAGG MultiDictionary} +\getchunk{category MSETAGG MultisetAggregate} +\getchunk{category MTSCAT MultivariateTaylorSeriesCategory} + +\getchunk{category NAALG NonAssociativeAlgebra} +\getchunk{category NASRING NonAssociativeRing} +\getchunk{category NARNG NonAssociativeRng} +\getchunk{category NTSCAT NormalizedTriangularSetCategory} +\getchunk{category NUMINT NumericalIntegrationCategory} +\getchunk{category OPTCAT NumericalOptimizationCategory} + +\getchunk{category OC OctonionCategory} +\getchunk{category A1AGG OneDimensionalArrayAggregate} +\getchunk{category OM OpenMath} +\getchunk{category OAGROUP OrderedAbelianGroup} +\getchunk{category OAMON OrderedAbelianMonoid} +\getchunk{category OAMONS OrderedAbelianMonoidSup} +\getchunk{category OASGP OrderedAbelianSemiGroup} +\getchunk{category OCAMON OrderedCancellationAbelianMonoid} +\getchunk{category ORDFIN OrderedFinite} +\getchunk{category OINTDOM OrderedIntegralDomain} +\getchunk{category ORDMON OrderedMonoid} +\getchunk{category OMSAGG OrderedMultisetAggregate} +\getchunk{category ORDRING OrderedRing} +\getchunk{category ORDSET OrderedSet} +\getchunk{category ODECAT OrdinaryDifferentialEquationsSolverCategory} + +\getchunk{category PADICCT PAdicIntegerCategory} +\getchunk{category PDECAT PartialDifferentialEquationsSolverCategory} +\getchunk{category PDRING PartialDifferentialRing} +\getchunk{category PTRANFN PartialTranscendentalFunctions} +\getchunk{category PATAB Patternable} +\getchunk{category PATMAB PatternMatchable} +\getchunk{category PERMCAT PermutationCategory} +\getchunk{category PLACESC PlacesCategory} +\getchunk{category PPCURVE PlottablePlaneCurveCategory} +\getchunk{category PSCURVE PlottableSpaceCurveCategory} +\getchunk{category PTCAT PointCategory} +\getchunk{category POLYCAT PolynomialCategory} +\getchunk{category PFECAT PolynomialFactorizationExplicit} +\getchunk{category PSETCAT PolynomialSetCategory} +\getchunk{category PSCAT PowerSeriesCategory} +\getchunk{category PRIMCAT PrimitiveFunctionCategory} +\getchunk{category PID PrincipalIdealDomain} +\getchunk{category PRQAGG PriorityQueueAggregate} +\getchunk{category PRSPCAT ProjectiveSpaceCategory} +\getchunk{category PACEXTC PseudoAlgebraicClosureOfAlgExtOfRationalNumberCategory} +\getchunk{category PACFFC PseudoAlgebraicClosureOfFiniteFieldCategory} +\getchunk{category PACPERC PseudoAlgebraicClosureOfPerfectFieldCategory} +\getchunk{category PACRATC PseudoAlgebraicClosureOfRationalNumberCategory} + +\getchunk{category QUATCAT QuaternionCategory} +\getchunk{category QUAGG QueueAggregate} +\getchunk{category QFCAT QuotientFieldCategory} + +\getchunk{category RADCAT RadicalCategory} +\getchunk{category RCFIELD RealClosedField} +\getchunk{category REAL RealConstant} +\getchunk{category RNS RealNumberSystem} +\getchunk{category RRCC RealRootCharacterizationCategory} +\getchunk{category RMATCAT RectangularMatrixCategory} +\getchunk{category RCAGG RecursiveAggregate} +\getchunk{category RPOLCAT RecursivePolynomialCategory} +\getchunk{category RSETCAT RegularTriangularSetCategory} +\getchunk{category RETRACT RetractableTo} +\getchunk{category RMODULE RightModule} +\getchunk{category RING Ring} +\getchunk{category RNG Rng} + +\getchunk{category SEGCAT SegmentCategory} +\getchunk{category SEGXCAT SegmentExpansionCategory} +\getchunk{category SGROUP SemiGroup} +\getchunk{category SETAGG SetAggregate} +\getchunk{category SETCAT SetCategory} +\getchunk{category SETCATD SetCategoryWithDegree} +\getchunk{category SEXCAT SExpressionCategory} +\getchunk{category SPFCAT SpecialFunctionCategory} +\getchunk{category SNTSCAT SquareFreeNormalizedTriangularSetCategory} +\getchunk{category SFRTCAT SquareFreeRegularTriangularSetCategory} +\getchunk{category SMATCAT SquareMatrixCategory} +\getchunk{category SKAGG StackAggregate} +\getchunk{category STEP StepThrough} +\getchunk{category STAGG StreamAggregate} +\getchunk{category SRAGG StringAggregate} +\getchunk{category STRICAT StringCategory} + +\getchunk{category TBAGG TableAggregate} +\getchunk{category SPACEC ThreeSpaceCategory} +\getchunk{category TSETCAT TriangularSetCategory} +\getchunk{category TRIGCAT TrigonometricFunctionCategory} +\getchunk{category TRANFUN TranscendentalFunctionCategory} +\getchunk{category ARR2CAT TwoDimensionalArrayCategory} +\getchunk{category TYPE Type} + +\getchunk{category URAGG UnaryRecursiveAggregate} +\getchunk{category UFD UniqueFactorizationDomain} +\getchunk{category ULSCAT UnivariateLaurentSeriesCategory} +\getchunk{category ULSCCAT UnivariateLaurentSeriesConstructorCategory} +\getchunk{category UPOLYC UnivariatePolynomialCategory} +\getchunk{category UPSCAT UnivariatePowerSeriesCategory} +\getchunk{category UPXSCAT UnivariatePuiseuxSeriesCategory} +\getchunk{category UPXSCCA UnivariatePuiseuxSeriesConstructorCategory} +\getchunk{category OREPCAT UnivariateSkewPolynomialCategory} +\getchunk{category UTSCAT UnivariateTaylorSeriesCategory} + +\getchunk{category VECTCAT VectorCategory} +\getchunk{category VSPACE VectorSpace} + +\getchunk{category XALG XAlgebra} +\getchunk{category XFALG XFreeAlgebra} +\getchunk{category XPOLYC XPolynomialsCat} +\end{chunk} +\begin{chunk}{dotabb} digraph dotabb { ranksep=1.25; bgcolor="#FFFF66"; node [shape=box, color=white, style=filled]; -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> +\getchunk{CATEGORY.dotabb} +\getchunk{A1AGG.dotabb} +\getchunk{ABELGRP.dotabb} +\getchunk{ABELMON.dotabb} +\getchunk{ABELSG.dotabb} +\getchunk{ACF.dotabb} +\getchunk{ACFS.dotabb} +\getchunk{AGG.dotabb} +\getchunk{AHYP.dotabb} +\getchunk{ALAGG.dotabb} +\getchunk{ALGEBRA.dotabb} +\getchunk{AMR.dotabb} +\getchunk{ARR2CAT.dotabb} +\getchunk{ATRIG.dotabb} +\getchunk{ATTREG.dotabb} +\getchunk{BASTYPE.dotabb} +\getchunk{BGAGG.dotabb} +\getchunk{BLMETCT.dotabb} +\getchunk{BMODULE.dotabb} +\getchunk{BRAGG.dotabb} +\getchunk{BTAGG.dotabb} +\getchunk{BTCAT.dotabb} +\getchunk{CABMON.dotabb} +\getchunk{CACHSET.dotabb} +\getchunk{CFCAT.dotabb} +\getchunk{CHARNZ.dotabb} +\getchunk{CHARZ.dotabb} +\getchunk{CLAGG.dotabb} +\getchunk{COMBOPC.dotabb} +\getchunk{COMPCAT.dotabb} +\getchunk{COMRING.dotabb} +\getchunk{DIAGG.dotabb} +\getchunk{DIFEXT.dotabb} +\getchunk{DIFRING.dotabb} +\getchunk{DIOPS.dotabb} +\getchunk{DIRPCAT.dotabb} +\getchunk{DIVCAT.dotabb} +\getchunk{DIVRING.dotabb} +\getchunk{DLAGG.dotabb} +\getchunk{DPOLCAT.dotabb} +\getchunk{DQAGG.dotabb} +\getchunk{DSTRCAT.dotabb} +\getchunk{DVARCAT.dotabb} +\getchunk{ELAGG.dotabb} +\getchunk{ELEMFUN.dotabb} +\getchunk{ELTAB.dotabb} +\getchunk{ELTAGG.dotabb} +\getchunk{ENTIRER.dotabb} +\getchunk{ES.dotabb} +\getchunk{EUCDOM.dotabb} +\getchunk{EVALAB.dotabb} +\getchunk{FAMONC.dotabb} +\getchunk{FAMR.dotabb} +\getchunk{FAXF.dotabb} +\getchunk{FDIVCAT.dotabb} +\getchunk{FEVALAB.dotabb} +\getchunk{FFCAT.dotabb} +\getchunk{FFIELDC.dotabb} +\getchunk{FIELD.dotabb} +\getchunk{FILECAT.dotabb} +\getchunk{FINAALG.dotabb} +\getchunk{FINITE.dotabb} +\getchunk{FINRALG.dotabb} +\getchunk{FLAGG.dotabb} +\getchunk{FLALG.dotabb} +\getchunk{FLINEXP.dotabb} +\getchunk{FMC.dotabb} +\getchunk{FMCAT.dotabb} +\getchunk{FMFUN.dotabb} +\getchunk{FMTC.dotabb} +\getchunk{FNCAT.dotabb} +\getchunk{FORTCAT.dotabb} +\getchunk{FORTFN.dotabb} +\getchunk{FPATMAB.dotabb} +\getchunk{FPC.dotabb} +\getchunk{FPS.dotabb} +\getchunk{FRAMALG.dotabb} +\getchunk{FRETRCT.dotabb} +\getchunk{FRNAALG.dotabb} +\getchunk{FS.dotabb} +\getchunk{FSAGG.dotabb} +\getchunk{FVC.dotabb} +\getchunk{FVFUN.dotabb} +\getchunk{GCDDOM.dotabb} +\getchunk{GRALG.dotabb} +\getchunk{GRMOD.dotabb} +\getchunk{GROUP.dotabb} +\getchunk{HOAGG.dotabb} +\getchunk{HYPCAT.dotabb} +\getchunk{IDPC.dotabb} +\getchunk{INFCLCT.dotabb} +\getchunk{IEVALAB.dotabb} +\getchunk{INS.dotabb} +\getchunk{INTCAT.dotabb} +\getchunk{INTDOM.dotabb} +\getchunk{IXAGG.dotabb} +\getchunk{KDAGG.dotabb} +\getchunk{KOERCE.dotabb} +\getchunk{KONVERT.dotabb} +\getchunk{LALG.dotabb} +\getchunk{LFCAT.dotabb} +\getchunk{LIECAT.dotabb} +\getchunk{LINEXP.dotabb} +\getchunk{LMODULE.dotabb} +\getchunk{LNAGG.dotabb} +\getchunk{LODOCAT.dotabb} +\getchunk{LOGIC.dotabb} +\getchunk{LSAGG.dotabb} +\getchunk{LZSTAGG.dotabb} +\getchunk{MATCAT.dotabb} +\getchunk{MDAGG.dotabb} +\getchunk{MLO.dotabb} +\getchunk{MODULE.dotabb} +\getchunk{MONAD.dotabb} +\getchunk{MONADWU.dotabb} +\getchunk{MONOGEN.dotabb} +\getchunk{MONOID.dotabb} +\getchunk{MSETAGG.dotabb} +\getchunk{MTSCAT.dotabb} +\getchunk{NAALG.dotabb} +\getchunk{NARNG.dotabb} +\getchunk{NASRING.dotabb} +\getchunk{NTSCAT.dotabb} +\getchunk{NUMINT.dotabb} +\getchunk{OAGROUP.dotabb} +\getchunk{OAMON.dotabb} +\getchunk{OAMONS.dotabb} +\getchunk{OASGP.dotabb} +\getchunk{OC.dotabb} +\getchunk{OCAMON.dotabb} +\getchunk{ODECAT.dotabb} +\getchunk{OINTDOM.dotabb} +\getchunk{OM.dotabb} +\getchunk{OMSAGG.dotabb} +\getchunk{OPTCAT.dotabb} +\getchunk{ORDFIN.dotabb} +\getchunk{ORDMON.dotabb} +\getchunk{ORDRING.dotabb} +\getchunk{ORDSET.dotabb} +\getchunk{OREPCAT.dotabb} +\getchunk{PACFFC.dotabb} +\getchunk{PACPERC.dotabb} +\getchunk{PACRATC.dotabb} +\getchunk{PADICCT.dotabb} +\getchunk{PATAB.dotabb} +\getchunk{PATMAB.dotabb} +\getchunk{PDECAT.dotabb} +\getchunk{PDRING.dotabb} +\getchunk{PERMCAT.dotabb} +\getchunk{PFECAT.dotabb} +\getchunk{PID.dotabb} +\getchunk{PLACESC.dotabb} +\getchunk{POLYCAT.dotabb} +\getchunk{PPCURVE.dotabb} +\getchunk{PRIMCAT.dotabb} +\getchunk{PRQAGG.dotabb} +\getchunk{PRSPCAT.dotabb} +\getchunk{PSCAT.dotabb} +\getchunk{PSCURVE.dotabb} +\getchunk{PSETCAT.dotabb} +\getchunk{PTCAT.dotabb} +\getchunk{PTRANFN.dotabb} +\getchunk{QFCAT.dotabb} +\getchunk{QUAGG.dotabb} +\getchunk{QUATCAT.dotabb} +\getchunk{RADCAT.dotabb} +\getchunk{RCAGG.dotabb} +\getchunk{RCFIELD.dotabb} +\getchunk{REAL.dotabb} +\getchunk{RETRACT.dotabb} +\getchunk{RING.dotabb} +\getchunk{RMATCAT.dotabb} +\getchunk{RMODULE.dotabb} +\getchunk{RNG.dotabb} +\getchunk{RNS.dotabb} +\getchunk{RPOLCAT.dotabb} +\getchunk{RRCC.dotabb} +\getchunk{RSETCAT.dotabb} +\getchunk{SEGCAT.dotabb} +\getchunk{SEGXCAT.dotabb} +\getchunk{SETAGG.dotabb} +\getchunk{SETCAT.dotabb} +\getchunk{SETCATD.dotabb} +\getchunk{SEXCAT.dotabb} +\getchunk{SFRTCAT.dotabb} +\getchunk{SGROUP.dotabb} +\getchunk{SKAGG.dotabb} +\getchunk{SMATCAT.dotabb} +\getchunk{SNTSCAT.dotabb} +\getchunk{SPACEC.dotabb} +\getchunk{SPFCAT.dotabb} +\getchunk{SRAGG.dotabb} +\getchunk{STAGG.dotabb} +\getchunk{STEP.dotabb} +\getchunk{STRICAT.dotabb} +\getchunk{TBAGG.dotabb} +\getchunk{TRANFUN.dotabb} +\getchunk{TRIGCAT.dotabb} +\getchunk{TSETCAT.dotabb} +\getchunk{TYPE.dotabb} +\getchunk{UFD.dotabb} +\getchunk{ULSCAT.dotabb} +\getchunk{ULSCCAT.dotabb} +\getchunk{UPOLYC.dotabb} +\getchunk{UPSCAT.dotabb} +\getchunk{UPXSCAT.dotabb} +\getchunk{UPXSCCA.dotabb} +\getchunk{URAGG.dotabb} +\getchunk{UTSCAT.dotabb} +\getchunk{VECTCAT.dotabb} +\getchunk{VSPACE.dotabb} +\getchunk{XALG.dotabb} +\getchunk{XF.dotabb} +\getchunk{XFALG.dotabb} +\getchunk{XPOLYC.dotabb} } -@ -<>= +\end{chunk} +\begin{chunk}{dotfull} digraph dotfull { ranksep=1.25; nodesep=1.5; @@ -91527,223 +91530,223 @@ digraph dotfull { bgcolor="#FFFF66"; node [shape=box, color=white, style=filled]; -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> +\getchunk{CATEGORY.dotfull} +\getchunk{A1AGG.dotfull} +\getchunk{ABELGRP.dotfull} +\getchunk{ABELMON.dotfull} +\getchunk{ABELSG.dotfull} +\getchunk{ACF.dotfull} +\getchunk{ACFS.dotfull} +\getchunk{AGG.dotfull} +\getchunk{AHYP.dotfull} +\getchunk{ALAGG.dotfull} +\getchunk{ALGEBRA.dotfull} +\getchunk{AMR.dotfull} +\getchunk{ARR2CAT.dotfull} +\getchunk{ATRIG.dotfull} +\getchunk{ATTREG.dotfull} +\getchunk{BASTYPE.dotfull} +\getchunk{BGAGG.dotfull} +\getchunk{BLMETCT.dotfull} +\getchunk{BMODULE.dotfull} +\getchunk{BRAGG.dotfull} +\getchunk{BTAGG.dotfull} +\getchunk{BTCAT.dotfull} +\getchunk{CABMON.dotfull} +\getchunk{CACHSET.dotfull} +\getchunk{CFCAT.dotfull} +\getchunk{CHARNZ.dotfull} +\getchunk{CHARZ.dotfull} +\getchunk{CLAGG.dotfull} +\getchunk{COMBOPC.dotfull} +\getchunk{COMPCAT.dotfull} +\getchunk{COMRING.dotfull} +\getchunk{DIAGG.dotfull} +\getchunk{DIFEXT.dotfull} +\getchunk{DIFRING.dotfull} +\getchunk{DIOPS.dotfull} +\getchunk{DIRPCAT.dotfull} +\getchunk{DIVCAT.dotfull} +\getchunk{DIVRING.dotfull} +\getchunk{DLAGG.dotfull} +\getchunk{DPOLCAT.dotfull} +\getchunk{DQAGG.dotfull} +\getchunk{DSTRCAT.dotfull} +\getchunk{DVARCAT.dotfull} +\getchunk{ELAGG.dotfull} +\getchunk{ELEMFUN.dotfull} +\getchunk{ELTAB.dotfull} +\getchunk{ELTAGG.dotfull} +\getchunk{ENTIRER.dotfull} +\getchunk{ES.dotfull} +\getchunk{EUCDOM.dotfull} +\getchunk{EVALAB.dotfull} +\getchunk{FAMONC.dotfull} +\getchunk{FAMR.dotfull} +\getchunk{FAXF.dotfull} +\getchunk{FDIVCAT.dotfull} +\getchunk{FEVALAB.dotfull} +\getchunk{FFCAT.dotfull} +\getchunk{FFIELDC.dotfull} +\getchunk{FIELD.dotfull} +\getchunk{FILECAT.dotfull} +\getchunk{FINAALG.dotfull} +\getchunk{FINITE.dotfull} +\getchunk{FINRALG.dotfull} +\getchunk{FLAGG.dotfull} +\getchunk{FLALG.dotfull} +\getchunk{FLINEXP.dotfull} +\getchunk{FMC.dotfull} +\getchunk{FMCAT.dotfull} +\getchunk{FMFUN.dotfull} +\getchunk{FMTC.dotfull} +\getchunk{FNCAT.dotfull} +\getchunk{FORTCAT.dotfull} +\getchunk{FORTFN.dotfull} +\getchunk{FPATMAB.dotfull} +\getchunk{FPC.dotfull} +\getchunk{FPS.dotfull} +\getchunk{FRAMALG.dotfull} +\getchunk{FRETRCT.dotfull} +\getchunk{FRNAALG.dotfull} +\getchunk{FS.dotfull} +\getchunk{FSAGG.dotfull} +\getchunk{FVC.dotfull} +\getchunk{FVFUN.dotfull} +\getchunk{GCDDOM.dotfull} +\getchunk{GRALG.dotfull} +\getchunk{GRMOD.dotfull} +\getchunk{GROUP.dotfull} +\getchunk{HOAGG.dotfull} +\getchunk{HYPCAT.dotfull} +\getchunk{IDPC.dotfull} +\getchunk{INFCLCT.dotfull} +\getchunk{IEVALAB.dotfull} +\getchunk{INS.dotfull} +\getchunk{INTCAT.dotfull} +\getchunk{INTDOM.dotfull} +\getchunk{IXAGG.dotfull} +\getchunk{KDAGG.dotfull} +\getchunk{KOERCE.dotfull} +\getchunk{KONVERT.dotfull} +\getchunk{LALG.dotfull} +\getchunk{LFCAT.dotfull} +\getchunk{LIECAT.dotfull} +\getchunk{LINEXP.dotfull} +\getchunk{LMODULE.dotfull} +\getchunk{LNAGG.dotfull} +\getchunk{LODOCAT.dotfull} +\getchunk{LOGIC.dotfull} +\getchunk{LSAGG.dotfull} +\getchunk{LZSTAGG.dotfull} +\getchunk{MATCAT.dotfull} +\getchunk{MDAGG.dotfull} +\getchunk{MLO.dotfull} +\getchunk{MODULE.dotfull} +\getchunk{MONAD.dotfull} +\getchunk{MONADWU.dotfull} +\getchunk{MONOGEN.dotfull} +\getchunk{MONOID.dotfull} +\getchunk{MSETAGG.dotfull} +\getchunk{MTSCAT.dotfull} +\getchunk{NAALG.dotfull} +\getchunk{NARNG.dotfull} +\getchunk{NASRING.dotfull} +\getchunk{NTSCAT.dotfull} +\getchunk{NUMINT.dotfull} +\getchunk{OAGROUP.dotfull} +\getchunk{OAMON.dotfull} +\getchunk{OAMONS.dotfull} +\getchunk{OASGP.dotfull} +\getchunk{OC.dotfull} +\getchunk{OCAMON.dotfull} +\getchunk{ODECAT.dotfull} +\getchunk{OINTDOM.dotfull} +\getchunk{OM.dotfull} +\getchunk{OMSAGG.dotfull} +\getchunk{OPTCAT.dotfull} +\getchunk{ORDFIN.dotfull} +\getchunk{ORDMON.dotfull} +\getchunk{ORDRING.dotfull} +\getchunk{ORDSET.dotfull} +\getchunk{OREPCAT.dotfull} +\getchunk{PACFFC.dotfull} +\getchunk{PACPERC.dotfull} +\getchunk{PACRATC.dotfull} +\getchunk{PADICCT.dotfull} +\getchunk{PATAB.dotfull} +\getchunk{PATMAB.dotfull} +\getchunk{PDECAT.dotfull} +\getchunk{PDRING.dotfull} +\getchunk{PERMCAT.dotfull} +\getchunk{PFECAT.dotfull} +\getchunk{PID.dotfull} +\getchunk{PLACESC.dotfull} +\getchunk{POLYCAT.dotfull} +\getchunk{PPCURVE.dotfull} +\getchunk{PRIMCAT.dotfull} +\getchunk{PRQAGG.dotfull} +\getchunk{PRSPCAT.dotfull} +\getchunk{PSCAT.dotfull} +\getchunk{PSCURVE.dotfull} +\getchunk{PSETCAT.dotfull} +\getchunk{PTCAT.dotfull} +\getchunk{PTRANFN.dotfull} +\getchunk{QFCAT.dotfull} +\getchunk{QUAGG.dotfull} +\getchunk{QUATCAT.dotfull} +\getchunk{RADCAT.dotfull} +\getchunk{RCAGG.dotfull} +\getchunk{RCFIELD.dotfull} +\getchunk{REAL.dotfull} +\getchunk{RETRACT.dotfull} +\getchunk{RING.dotfull} +\getchunk{RMATCAT.dotfull} +\getchunk{RMODULE.dotfull} +\getchunk{RNG.dotfull} +\getchunk{RNS.dotfull} +\getchunk{RPOLCAT.dotfull} +\getchunk{RRCC.dotfull} +\getchunk{RSETCAT.dotfull} +\getchunk{SEGCAT.dotfull} +\getchunk{SEGXCAT.dotfull} +\getchunk{SETAGG.dotfull} +\getchunk{SETCAT.dotfull} +\getchunk{SETCATD.dotfull} +\getchunk{SEXCAT.dotfull} +\getchunk{SFRTCAT.dotfull} +\getchunk{SGROUP.dotfull} +\getchunk{SKAGG.dotfull} +\getchunk{SMATCAT.dotfull} +\getchunk{SNTSCAT.dotfull} +\getchunk{SPACEC.dotfull} +\getchunk{SPFCAT.dotfull} +\getchunk{SRAGG.dotfull} +\getchunk{STAGG.dotfull} +\getchunk{STEP.dotfull} +\getchunk{STRICAT.dotfull} +\getchunk{TBAGG.dotfull} +\getchunk{TRANFUN.dotfull} +\getchunk{TRIGCAT.dotfull} +\getchunk{TSETCAT.dotfull} +\getchunk{TYPE.dotfull} +\getchunk{UFD.dotfull} +\getchunk{ULSCAT.dotfull} +\getchunk{ULSCCAT.dotfull} +\getchunk{UPOLYC.dotfull} +\getchunk{UPSCAT.dotfull} +\getchunk{UPXSCAT.dotfull} +\getchunk{UPXSCCA.dotfull} +\getchunk{URAGG.dotfull} +\getchunk{UTSCAT.dotfull} +\getchunk{VECTCAT.dotfull} +\getchunk{VSPACE.dotfull} +\getchunk{XALG.dotfull} +\getchunk{XF.dotfull} +\getchunk{XFALG.dotfull} +\getchunk{XPOLYC.dotfull} } -@ +\end{chunk} \eject \begin{thebibliography}{99} \bibitem{1} N. Jacobson: Structure and Representations of Jordan Algebras diff --git a/books/bookvol10.3.pamphlet b/books/bookvol10.3.pamphlet index 606ae91..3829d1c 100644 --- a/books/bookvol10.3.pamphlet +++ b/books/bookvol10.3.pamphlet @@ -248,7 +248,7 @@ in the bootstrap set. Thus, %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain AFFPL AffinePlane} -<>= +\begin{chunk}{AffinePlane.input} )set break resume )sys rm -f AffinePlane.output )spool AffinePlane.output @@ -283,8 +283,8 @@ in the bootstrap set. Thus, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffinePlane.help} ==================================================================== AffinePlane examples ==================================================================== @@ -292,7 +292,7 @@ AffinePlane examples See Also: o )show AffinePlane -@ +\end{chunk} \pagehead{AffinePlane}{AFFPL} \pagepic{ps/v103affineplane.ps}{AFFPL}{1.00} @@ -300,7 +300,7 @@ o )show AffinePlane \begin{tabular}{lllll} \end{tabular} -<>= +\begin{chunk}{domain AFFPL AffinePlane} )abbrev domain AFFPL AffinePlane ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -316,17 +316,17 @@ AffinePlane(K):Exports == Implementation where Implementation ==> AffineSpace(2,K) -@ -<>= +\end{chunk} +\begin{chunk}{AFFPL.dotabb} "AFFPL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AFFPL"]; "AFFSP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AFFSP"]; "AFFPL" -> "AFFSP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain AFFPLPS AffinePlaneOverPseudoAlgebraicClosureOfFiniteField} -<>= +\begin{chunk}{AffinePlaneOverPseudoAlgebraicClosureOfFiniteField.input} )set break resume )sys rm -f AffinePlaneOverPseudoAlgebraicClosureOfFiniteField.output )spool AffinePlaneOverPseudoAlgebraicClosureOfFiniteField.output @@ -365,8 +365,8 @@ AffinePlane(K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffinePlaneOverPseudoAlgebraicClosureOfFiniteField.help}oooo ==================================================================== AffinePlaneOverPseudoAlgebraicClosureOfFiniteField examples ==================================================================== @@ -374,7 +374,7 @@ AffinePlaneOverPseudoAlgebraicClosureOfFiniteField examples See Also: o )show AffinePlaneOverPseudoAlgebraicClosureOfFiniteField -@ +\end{chunk} \pagehead{AffinePlaneOverPseudoAlgebraicClosureOfFiniteField}{AFFPLPS} \pagepic{ps/v103affineplaneoverpseudoalgebraicclosureoffinitefield.ps}% {AFFPLPS}{1.00} @@ -400,7 +400,7 @@ o )show AffinePlaneOverPseudoAlgebraicClosureOfFiniteField \cross{AFFPLPS}{setelt} &&& \end{tabular} -<>= +\begin{chunk}{domain AFFPLPS AffinePlaneOverPseudoAlgebraicClosureOfFiniteField} )abbrev domain AFFPLPS AffinePlaneOverPseudoAlgebraicClosureOfFiniteField ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -416,17 +416,17 @@ AffinePlaneOverPseudoAlgebraicClosureOfFiniteField(K):Exports == Impl where Exports ==> AffineSpaceCategory(KK) Impl ==> AffinePlane(KK) -@ -<>= +\end{chunk} +\begin{chunk}{AFFPLPS.dotabb} "AFFPLPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AFFPLPS"]; "AFFPL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AFFPL"]; "AFFPLPS" -> "AFFPL" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain AFFSP AffineSpace} -<>= +\begin{chunk}{AffineSpace.input} )set break resume )sys rm -f AffineSpace.output )spool AffineSpace.output @@ -461,8 +461,8 @@ AffinePlaneOverPseudoAlgebraicClosureOfFiniteField(K):Exports == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffineSpace.help} ==================================================================== AffineSpace examples ==================================================================== @@ -470,7 +470,7 @@ AffineSpace examples See Also: o )show AffineSpace -@ +\end{chunk} \pagehead{AffineSpace}{AFFSP} \pagepic{ps/v103affinespace.ps}{AFFSP}{1.00} @@ -495,7 +495,7 @@ o )show AffineSpace \cross{AFFSP}{setelt} &&& \end{tabular} -<>= +\begin{chunk}{domain AFFSP AffineSpace} )abbrev domain AFFSP AffineSpace ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -596,19 +596,19 @@ AffineSpace(dim,K):Exports == Implementation where ptt:%:= pt ptt -@ -<>= +\end{chunk} +\begin{chunk}{AFFSP.dotabb} "AFFSP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AFFSP"]; "PACPERC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACPERC"]; "FPC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPC"]; "AFFSP" -> "FPC" "AFFSP" -> "PACPERC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ALGSC AlgebraGivenByStructuralConstants} -<>= +\begin{chunk}{AlgebraGivenByStructuralConstants.input} )set break resume )sys rm -f AlgebraGivenByStructuralConstants.output )spool AlgebraGivenByStructuralConstants.output @@ -692,8 +692,8 @@ AffineSpace(dim,K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AlgebraGivenByStructuralConstants.help} ==================================================================== AlgebraGivenByStructuralConstants examples ==================================================================== @@ -701,7 +701,7 @@ AlgebraGivenByStructuralConstants examples See Also: o )show AlgebraGivenByStructuralConstants -@ +\end{chunk} \pagehead{AlgebraGivenByStructuralConstants}{ALGSC} \pagepic{ps/v103algebragivenbystructuralconstants.ps}{ALGSC}{1.00} @@ -781,7 +781,7 @@ o )show AlgebraGivenByStructuralConstants \cross{ALGSC}{?*?} \end{tabular} -<>= +\begin{chunk}{domain ALGSC AlgebraGivenByStructuralConstants} )abbrev domain ALGSC AlgebraGivenByStructuralConstants ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 01 March 1991 @@ -1170,17 +1170,17 @@ AlgebraGivenByStructuralConstants(R:Field, n : PositiveInteger,_ messagePrint("Jacobi identity holds")$OutputForm true -@ -<>= +\end{chunk} +\begin{chunk}{ALGSC.dotabb} "ALGSC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALGSC"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "ALGSC" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ALGFF AlgebraicFunctionField} -<>= +\begin{chunk}{AlgebraicFunctionField.input} )set break resume )sys rm -f AlgebraicFunctionField.output )spool AlgebraicFunctionField.output @@ -1350,8 +1350,8 @@ AlgebraGivenByStructuralConstants(R:Field, n : PositiveInteger,_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AlgebraicFunctionField.help} ==================================================================== AlgebraicFunctionField examples ==================================================================== @@ -1359,7 +1359,7 @@ AlgebraicFunctionField examples See Also: o )show AlgebraicFunctionField -@ +\end{chunk} \pagehead{AlgebraicFunctionField}{ALGFF} \pagepic{ps/v103algebraicfunctionfield.ps}{ALGFF}{1.00} @@ -1484,7 +1484,7 @@ o )show AlgebraicFunctionField \cross{ALGFF}{?rem?} \\ \end{tabular} -<>= +\begin{chunk}{domain ALGFF AlgebraicFunctionField} )abbrev domain ALGFF AlgebraicFunctionField ++ Author: Manuel Bronstein ++ Date Created: 3 May 1988 @@ -1622,17 +1622,17 @@ AlgebraicFunctionField(F, UP, UPUP, modulus): Exports == Impl where (r:=retractIfCan(p)@Union(F,"failed")) case F =>branchPoint?(r::F) not ground? gcd(retract(discriminant())@UP, p) -@ -<>= +\end{chunk} +\begin{chunk}{ALGFF.dotabb} "ALGFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALGFF"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "ALGFF" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain AN AlgebraicNumber} -<>= +\begin{chunk}{AlgebraicNumber.input} )set break resume )sys rm -f AlgebraicNumber.output )spool AlgebraicNumber.output @@ -1758,8 +1758,8 @@ AlgebraicFunctionField(F, UP, UPUP, modulus): Exports == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AlgebraicNumber.help} ==================================================================== AlgebraicNumber examples ==================================================================== @@ -1767,7 +1767,7 @@ AlgebraicNumber examples See Also: o )show AlgebraicNumber -@ +\end{chunk} \pagehead{AlgebraicNumber}{AN} \pagepic{ps/v103algebraicnumber.ps}{AN}{1.00} @@ -1863,7 +1863,7 @@ o )show AlgebraicNumber \cross{AN}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain AN AlgebraicNumber} )abbrev domain AN AlgebraicNumber ++ Author: James Davenport ++ Date Created: 9 October 1995 @@ -1913,17 +1913,17 @@ AlgebraicNumber(): Exports == Implementation where one? a == trueEqual(a::Rep,1::Rep) a=b == trueEqual((a-b)::Rep,0::Rep) -@ -<>= +\end{chunk} +\begin{chunk}{AN.dotabb} "AN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AN"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "AN" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ANON AnonymousFunction} -<>= +\begin{chunk}{AnonymousFunction.input} )set break resume )sys rm -f AnonymousFunction.output )spool AnonymousFunction.output @@ -1947,8 +1947,8 @@ AlgebraicNumber(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AnonymousFunction.help} ==================================================================== AnonymousFunction examples ==================================================================== @@ -1956,7 +1956,7 @@ AnonymousFunction examples See Also: o )show AnonymousFunction -@ +\end{chunk} \pagehead{AnonymousFunction}{ANON} \pagepic{ps/v103anonymousfunction.ps}{ANON}{1.00} @@ -1970,7 +1970,7 @@ o )show AnonymousFunction \cross{ANON}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain ANON AnonymousFunction} )abbrev domain ANON AnonymousFunction ++ Author: Mark Botch ++ Description: @@ -1979,19 +1979,19 @@ o )show AnonymousFunction AnonymousFunction():SetCategory == add coerce(x:%):OutputForm == x pretend OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{ANON.dotabb} "ANON" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ANON"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "ANON" -> "BASTYPE" "ANON" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ANTISYM AntiSymm} -<>= +\begin{chunk}{AntiSymm.input} )set break resume )sys rm -f AntiSymm.output )spool AntiSymm.output @@ -2035,8 +2035,8 @@ AnonymousFunction():SetCategory == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AntiSymm.help} ==================================================================== AntiSymm examples ==================================================================== @@ -2044,7 +2044,7 @@ AntiSymm examples See Also: o )show AntiSymm -@ +\end{chunk} \pagehead{AntiSymm}{ANTISYM} \pagepic{ps/v103antisymm.ps}{ANTISYM}{1.00} @@ -2089,7 +2089,7 @@ o )show AntiSymm \cross{ANTISYM}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain ANTISYM AntiSymm} )abbrev domain ANTISYM AntiSymm ++ Author: Larry A. Lambe ++ Date : 01/26/91. @@ -2281,17 +2281,17 @@ AntiSymm(R:Ring, lVar:List Symbol): Export == Implement where makeTerm(t.coef,t.base) reduce(_+,[makeTerm(t.coef,t.base) for t in (a @ Rep)])$L(O) -@ -<>= +\end{chunk} +\begin{chunk}{ANTISYM.dotabb} "ANTISYM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ANTISYM"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ANTISYM" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ANY Any} -<>= +\begin{chunk}{Any.input} )set break resume )sys rm -f Any.output )spool Any.output @@ -2457,8 +2457,8 @@ b := generator()$Sae )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Any.help} ==================================================================== Any examples ==================================================================== @@ -2534,7 +2534,7 @@ b := generator()$Sae See Also: o )show Any -@ +\end{chunk} \pagehead{Any}{ANY} \pagepic{ps/v103any.ps}{ANY}{1.00} {\bf See}\\ @@ -2555,7 +2555,7 @@ o )show Any \cross{ANY}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain ANY Any} )abbrev domain ANY Any ++ Author: Robert S. Sutor ++ Date Created: @@ -2636,17 +2636,17 @@ Any(): SetCategory with (isValidType(domain)$Lisp)@Boolean => [domain, object] error "function any must have a domain as first argument" -@ -<>= +\end{chunk} +\begin{chunk}{ANY.dotabb} "ANY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ANY"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ANY" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASTACK ArrayStack} -<>= +\begin{chunk}{ArrayStack.input} )set break resume )sys rm -f ArrayStack.output )spool ArrayStack.output @@ -3042,8 +3042,8 @@ latex a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ArrayStack.help} ==================================================================== ArrayStack examples ==================================================================== @@ -3271,7 +3271,7 @@ o )show Dequeue o )show Heap o )show BagAggregate -@ +\end{chunk} \pagehead{ArrayStack}{ASTACK} \pagepic{ps/v103arraystack.ps}{ASTACK}{1.00} {\bf See}\\ @@ -3316,7 +3316,7 @@ o )show BagAggregate \cross{ASTACK}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain ASTACK ArrayStack} )abbrev domain ASTACK ArrayStack ++ Author: Michael Monagan, Stephen Watt, Timothy Daly ++ Date Created:June 86 and July 87 @@ -3508,17 +3508,17 @@ ArrayStack(S:SetCategory): StackAggregate(S) with if empty? s then error "empty stack" qelt(s,0) -@ -<>= +\end{chunk} +\begin{chunk}{ASTACK.dotabb} "ASTACK" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASTACK"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "ASTACK" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP1 Asp1} -<>= +\begin{chunk}{Asp1.input} )set break resume )sys rm -f Asp1.output )spool Asp1.output @@ -3553,8 +3553,8 @@ ArrayStack(S:SetCategory): StackAggregate(S) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp1.help} ==================================================================== Asp1 examples ==================================================================== @@ -3562,7 +3562,7 @@ Asp1 examples See Also: o )show Asp1 -@ +\end{chunk} \pagehead{Asp1}{ASP1} \pagepic{ps/v103asp1.ps}{ASP1}{1.00} @@ -3575,7 +3575,7 @@ o )show Asp1 \cross{ASP1}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP1 Asp1} )abbrev domain ASP1 Asp1 ++ Author: Mike Dewar, Grant Keady, Godfrey Nolan ++ Date Created: Mar 1993 @@ -3678,17 +3678,17 @@ Asp1(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP1.dotabb} "ASP1" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP1"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP1" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP10 Asp10} -<>= +\begin{chunk}{Asp10.input} )set break resume )sys rm -f Asp10.output )spool Asp10.output @@ -3725,8 +3725,8 @@ Asp1(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp10.help} ==================================================================== Asp10 examples ==================================================================== @@ -3734,7 +3734,7 @@ Asp10 examples See Also: o )show Asp10 -@ +\end{chunk} \pagehead{Asp10}{ASP10} \pagepic{ps/v103asp10.ps}{ASP10}{1.00} @@ -3747,7 +3747,7 @@ o )show Asp10 \cross{ASP10}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP10 Asp10} )abbrev domain ASP10 Asp10 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Mar 1993 @@ -3882,17 +3882,17 @@ Asp10(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP10.dotabb} "ASP10" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP10"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP10" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP12 Asp12} -<>= +\begin{chunk}{Asp12.input} )set break resume )sys rm -f Asp12.output )spool Asp12.output @@ -3915,8 +3915,8 @@ Asp10(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp12.help} ==================================================================== Asp12 examples ==================================================================== @@ -3924,7 +3924,7 @@ Asp12 examples See Also: o )show Asp12 -@ +\end{chunk} \pagehead{Asp12}{ASP12} \pagepic{ps/v103asp12.ps}{ASP12}{1.00} @@ -3935,7 +3935,7 @@ o )show Asp12 \cross{ASP12}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP12 Asp12} )abbrev domain ASP12 Asp12 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Oct 1993 @@ -4000,17 +4000,17 @@ Asp12(name): Exports == Implementation where outputAsFortran(u:%):Void == outputAsFortran(u)$Rep outputAsFortran():Void == outputAsFortran(code)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{ASP12.dotabb} "ASP12" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP12"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP12" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP19 Asp19} -<>= +\begin{chunk}{Asp19.input} )set break resume )sys rm -f Asp19.output )spool Asp19.output @@ -4047,8 +4047,8 @@ Asp12(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp19.help} ==================================================================== Asp19 examples ==================================================================== @@ -4056,7 +4056,7 @@ Asp19 examples See Also: o )show Asp19 -@ +\end{chunk} \pagehead{Asp19}{ASP19} \pagepic{ps/v103asp19.ps}{ASP19}{1.00} @@ -4069,7 +4069,7 @@ o )show Asp19 \cross{ASP19}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP19 Asp19} )abbrev domain ASP19 Asp19 ++ Author: Mike Dewar, Godfrey Nolan, Grant Keady ++ Date Created: Mar 1993 @@ -4338,17 +4338,17 @@ Asp19(name): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP19.dotabb} "ASP19" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP19"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP19" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP20 Asp20} -<>= +\begin{chunk}{Asp20.input} )set break resume )sys rm -f Asp20.output )spool Asp20.output @@ -4385,8 +4385,8 @@ Asp19(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp20.help} ==================================================================== Asp20 examples ==================================================================== @@ -4394,7 +4394,7 @@ Asp20 examples See Also: o )show Asp20 -@ +\end{chunk} \pagehead{Asp20}{ASP20} \pagepic{ps/v103asp20.ps}{ASP20}{1.00} @@ -4407,7 +4407,7 @@ o )show Asp20 \cross{ASP20}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP20 Asp20} )abbrev domain ASP20 Asp20 ++ Author: Mike Dewar and Godfrey Nolan and Grant Keady ++ Date Created: Dec 1993 @@ -4568,17 +4568,17 @@ Asp20(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP20.dotabb} "ASP20" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP20"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP20" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP24 Asp24} -<>= +\begin{chunk}{Asp24.input} )set break resume )sys rm -f Asp24.output )spool Asp24.output @@ -4613,8 +4613,8 @@ Asp20(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp24.help} ==================================================================== Asp24 examples ==================================================================== @@ -4622,7 +4622,7 @@ Asp24 examples See Also: o )show Asp24 -@ +\end{chunk} \pagehead{Asp24}{ASP24} \pagepic{ps/v103asp24.ps}{ASP24}{1.00} @@ -4635,7 +4635,7 @@ o )show Asp24 \cross{ASP20}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP24 Asp24} )abbrev domain ASP24 Asp24 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -4748,17 +4748,17 @@ Asp24(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP24.dotabb} "ASP24" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP24"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP24" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP27 Asp27} -<>= +\begin{chunk}{Asp27.input} )set break resume )sys rm -f Asp27.output )spool Asp27.output @@ -4783,8 +4783,8 @@ Asp24(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp27.help} ==================================================================== Asp27 examples ==================================================================== @@ -4792,7 +4792,7 @@ Asp27 examples See Also: o )show Asp27 -@ +\end{chunk} \pagehead{Asp27}{ASP27} \pagepic{ps/v103asp27.ps}{ASP27}{1.00} @@ -4803,7 +4803,7 @@ o )show Asp27 \cross{ASP27}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP27 Asp27} )abbrev domain ASP27 Asp27 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Nov 1993 @@ -4897,17 +4897,17 @@ Asp27(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP27.dotabb} "ASP27" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP27"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP27" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP28 Asp28} -<>= +\begin{chunk}{Asp28.input} )set break resume )sys rm -f Asp28.output )spool Asp28.output @@ -4932,8 +4932,8 @@ Asp27(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp28.help} ==================================================================== Asp28 examples ==================================================================== @@ -4941,7 +4941,7 @@ Asp28 examples See Also: o )show Asp28 -@ +\end{chunk} \pagehead{Asp28}{ASP28} \pagepic{ps/v103asp28.ps}{ASP28}{1.00} @@ -4952,7 +4952,7 @@ o )show Asp28 \cross{ASP28}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP28 Asp28} )abbrev domain ASP28 Asp28 ++ Author: Mike Dewar ++ Date Created: 21 March 1994 @@ -5157,17 +5157,17 @@ Asp28(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP28.dotabb} "ASP28" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP28"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP28" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP29 Asp29} -<>= +\begin{chunk}{Asp29.input} )set break resume )sys rm -f Asp29.output )spool Asp29.output @@ -5190,8 +5190,8 @@ Asp28(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp29.help} ==================================================================== Asp29 examples ==================================================================== @@ -5199,7 +5199,7 @@ Asp29 examples See Also: o )show Asp29 -@ +\end{chunk} \pagehead{Asp29}{ASP29} \pagepic{ps/v103asp29.ps}{ASP29}{1.00} @@ -5210,7 +5210,7 @@ o )show Asp29 \cross{ASP29}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP29 Asp29} )abbrev domain ASP29 Asp29 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Nov 1993 @@ -5278,17 +5278,17 @@ Asp29(name): Exports == Implementation where code : List FC := [callOne,returns()]$List(FC) outputAsFortran(coerce(code)@Rep)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{ASP29.dotabb} "ASP29" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP29"] "FORTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FORTCAT"] "ASP29" -> "FORTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP30 Asp30} -<>= +\begin{chunk}{Asp30.input} )set break resume )sys rm -f Asp30.output )spool Asp30.output @@ -5313,8 +5313,8 @@ Asp29(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp30.help} ==================================================================== Asp30 examples ==================================================================== @@ -5322,7 +5322,7 @@ Asp30 examples See Also: o )show Asp30 -@ +\end{chunk} \pagehead{Asp30}{ASP30} \pagepic{ps/v103asp30.ps}{ASP30}{1.00} @@ -5333,7 +5333,7 @@ o )show Asp30 \cross{ASP30}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP30 Asp30} )abbrev domain ASP30 Asp30 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Nov 1993 @@ -5457,17 +5457,17 @@ Asp30(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP30.dotabb} "ASP30" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP30"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP30" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP31 Asp31} -<>= +\begin{chunk}{Asp31.input} )set break resume )sys rm -f Asp31.output )spool Asp31.output @@ -5504,8 +5504,8 @@ Asp30(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp31.help} ==================================================================== Asp31 examples ==================================================================== @@ -5513,7 +5513,7 @@ Asp31 examples See Also: o )show Asp31 -@ +\end{chunk} \pagehead{Asp31}{ASP31} \pagepic{ps/v103asp31.ps}{ASP31}{1.00} @@ -5526,7 +5526,7 @@ o )show Asp31 \cross{ASP31}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP31 Asp31} )abbrev domain ASP31 Asp31 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -5684,17 +5684,17 @@ Asp31(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP31.dotabb} "ASP31" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP31"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP31" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP33 Asp33} -<>= +\begin{chunk}{Asp33.input} )set break resume )sys rm -f Asp33.output )spool Asp33.output @@ -5717,8 +5717,8 @@ Asp31(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp33.help} ==================================================================== Asp33 examples ==================================================================== @@ -5726,7 +5726,7 @@ Asp33 examples See Also: o )show Asp33 -@ +\end{chunk} \pagehead{Asp33}{ASP33} \pagepic{ps/v103asp33.ps}{ASP33}{1.00} @@ -5737,7 +5737,7 @@ o )show Asp33 \cross{ASP33}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP33 Asp33} )abbrev domain ASP33 Asp33 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Nov 1993 @@ -5785,17 +5785,17 @@ Asp33(name): Exports == Implementation where coerce(u:$):OutputForm == coerce(u)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{ASP33.dotabb} "ASP33" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP33"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP33" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP34 Asp34} -<>= +\begin{chunk}{Asp34.input} )set break resume )sys rm -f Asp34.output )spool Asp34.output @@ -5820,8 +5820,8 @@ Asp33(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp34.help} ==================================================================== Asp34 examples ==================================================================== @@ -5829,7 +5829,7 @@ Asp34 examples See Also: o )show Asp34 -@ +\end{chunk} \pagehead{Asp34}{ASP34} \pagepic{ps/v103asp34.ps}{ASP34}{1.00} @@ -5840,7 +5840,7 @@ o )show Asp34 \cross{ASP34}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP34 Asp34} )abbrev domain ASP34 Asp34 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Nov 1993 @@ -5934,19 +5934,19 @@ Asp34(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP34.dotabb} "ASP34" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP34"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "ASP34" -> "FIELD" "ASP34" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP35 Asp35} -<>= +\begin{chunk}{Asp35.input} )set break resume )sys rm -f Asp35.output )spool Asp35.output @@ -5983,8 +5983,8 @@ Asp34(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp35.help} ==================================================================== Asp35 examples ==================================================================== @@ -5992,7 +5992,7 @@ Asp35 examples See Also: o )show Asp35 -@ +\end{chunk} \pagehead{Asp35}{ASP35} \pagepic{ps/v103asp35.ps}{ASP35}{1.00} @@ -6005,7 +6005,7 @@ o )show Asp35 \cross{ASP35}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP35 Asp35} )abbrev domain ASP35 Asp35 ++ Author: Mike Dewar, Godfrey Nolan, Grant Keady ++ Date Created: Mar 1993 @@ -6173,17 +6173,17 @@ Asp35(name): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP35.dotabb} "ASP35" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP35"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP35" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP4 Asp4} -<>= +\begin{chunk}{Asp4.input} )set break resume )sys rm -f Asp4.output )spool Asp4.output @@ -6218,8 +6218,8 @@ Asp35(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp4.help} ==================================================================== Asp4 examples ==================================================================== @@ -6227,7 +6227,7 @@ Asp4 examples See Also: o )show Asp4 -@ +\end{chunk} \pagehead{Asp4}{ASP4} \pagepic{ps/v103asp4.ps}{ASP4}{1.00} @@ -6240,7 +6240,7 @@ o )show Asp4 \cross{ASP4}{retractIfCan} & \end{tabular} -<>= +\begin{chunk}{domain ASP4 Asp4} )abbrev domain ASP4 Asp4 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -6346,17 +6346,17 @@ Asp4(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP4.dotabb} "ASP4" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP4"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP4" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP41 Asp41} -<>= +\begin{chunk}{Asp41.input} )set break resume )sys rm -f Asp41.output )spool Asp41.output @@ -6393,8 +6393,8 @@ Asp4(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp41.help} ==================================================================== Asp41 examples ==================================================================== @@ -6402,7 +6402,7 @@ Asp41 examples See Also: o )show Asp41 -@ +\end{chunk} \pagehead{Asp41}{ASP41} \pagepic{ps/v103asp41.ps}{ASP41}{1.00} @@ -6415,7 +6415,7 @@ o )show Asp41 \cross{ASP41}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP41 Asp41} )abbrev domain ASP41 Asp41 ++ Author: Mike Dewar, Godfrey Nolan ++ Date Created: @@ -6629,17 +6629,17 @@ Asp41(nameOne,nameTwo,nameThree): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP41.dotabb} "ASP41" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP41"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP41" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP42 Asp42} -<>= +\begin{chunk}{Asp42.input} )set break resume )sys rm -f Asp42.output )spool Asp42.output @@ -6676,8 +6676,8 @@ Asp41(nameOne,nameTwo,nameThree): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp42.help} ==================================================================== Asp42 examples ==================================================================== @@ -6685,7 +6685,7 @@ Asp42 examples See Also: o )show Asp42 -@ +\end{chunk} \pagehead{Asp42}{ASP42} \pagepic{ps/v103asp42.ps}{ASP42}{1.00} @@ -6698,7 +6698,7 @@ o )show Asp42 \cross{ASP42}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP42 Asp42} )abbrev domain ASP42 Asp42 ++ Author: Mike Dewar, Godfrey Nolan ++ Date Created: @@ -6934,17 +6934,17 @@ Asp42(nameOne,nameTwo,nameThree): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP42.dotabb} "ASP42" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP42"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP42" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP49 Asp49} -<>= +\begin{chunk}{Asp49.input} )set break resume )sys rm -f Asp49.output )spool Asp49.output @@ -6979,8 +6979,8 @@ Asp42(nameOne,nameTwo,nameThree): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp49.help} ==================================================================== Asp49 examples ==================================================================== @@ -6988,7 +6988,7 @@ Asp49 examples See Also: o )show Asp49 -@ +\end{chunk} \pagehead{Asp49}{ASP49} \pagepic{ps/v103asp49.ps}{ASP49}{1.00} @@ -7001,7 +7001,7 @@ o )show Asp49 \cross{ASP49}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP49 Asp49} )abbrev domain ASP49 Asp49 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -7143,17 +7143,17 @@ Asp49(name): Exports == Implementation where foo case "failed" => "failed" (foo::FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP49.dotabb} "ASP49" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP49"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP49" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP50 Asp50} -<>= +\begin{chunk}{Asp50.input} )set break resume )sys rm -f Asp50.output )spool Asp50.output @@ -7190,8 +7190,8 @@ Asp49(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp50.help} ==================================================================== Asp50 examples ==================================================================== @@ -7199,7 +7199,7 @@ Asp50 examples See Also: o )show Asp50 -@ +\end{chunk} \pagehead{Asp50}{ASP50} \pagepic{ps/v103asp50.ps}{ASP50}{1.00} @@ -7212,7 +7212,7 @@ o )show Asp50 \cross{ASP50}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP50 Asp50} )abbrev domain ASP50 Asp50 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -7370,17 +7370,17 @@ Asp50(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP50.dotabb} "ASP50" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP50"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP50" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP55 Asp55} -<>= +\begin{chunk}{Asp55.input} )set break resume )sys rm -f Asp55.output )spool Asp55.output @@ -7417,8 +7417,8 @@ Asp50(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp55.help} ==================================================================== Asp55 examples ==================================================================== @@ -7426,7 +7426,7 @@ Asp55 examples See Also: o )show Asp55 -@ +\end{chunk} \pagehead{Asp55}{ASP55} \pagepic{ps/v103asp55.ps}{ASP55}{1.00} @@ -7439,7 +7439,7 @@ o )show Asp55 \cross{ASP55}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP55 Asp55} )abbrev domain ASP55 Asp55 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: June 1993 @@ -7640,17 +7640,17 @@ Asp55(name): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP55.dotabb} "ASP55" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP55"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP55" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP6 Asp6} -<>= +\begin{chunk}{Asp6.input} )set break resume )sys rm -f Asp6.output )spool Asp6.output @@ -7687,8 +7687,8 @@ Asp55(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp6.help} ==================================================================== Asp6 examples ==================================================================== @@ -7696,7 +7696,7 @@ Asp6 examples See Also: o )show Asp6 -@ +\end{chunk} \pagehead{Asp6}{ASP6} \pagepic{ps/v103asp6.ps}{ASP6}{1.00} @@ -7709,7 +7709,7 @@ o )show Asp6 \cross{ASP6}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP6 Asp6} )abbrev domain ASP6 Asp6 ++ Author: Mike Dewar and Godfrey Nolan and Grant Keady ++ Date Created: Mar 1993 @@ -7853,17 +7853,17 @@ Asp6(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP6.dotabb} "ASP6" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP6"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP6" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP7 Asp7} -<>= +\begin{chunk}{Asp7.input} )set break resume )sys rm -f Asp7.output )spool Asp7.output @@ -7900,8 +7900,8 @@ Asp6(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp7.help} ==================================================================== Asp7 examples ==================================================================== @@ -7909,7 +7909,7 @@ Asp7 examples See Also: o )show Asp7 -@ +\end{chunk} \pagehead{Asp7}{ASP7} \pagepic{ps/v103asp7.ps}{ASP7}{1.00} @@ -7922,7 +7922,7 @@ o )show Asp7 \cross{ASP7}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP7 Asp7} )abbrev domain ASP7 Asp7 ++ Author: Mike Dewar and Godfrey Nolan and Grant Keady ++ Date Created: Mar 1993 @@ -8051,17 +8051,17 @@ Asp7(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP7.dotabb} "ASP7" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP7"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP7" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP73 Asp73} -<>= +\begin{chunk}{Asp73.input} )set break resume )sys rm -f Asp73.output )spool Asp73.output @@ -8098,8 +8098,8 @@ Asp7(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp73.help} ==================================================================== Asp73 examples ==================================================================== @@ -8107,7 +8107,7 @@ Asp73 examples See Also: o )show Asp73 -@ +\end{chunk} \pagehead{Asp73}{ASP73} \pagepic{ps/v103asp73.ps}{ASP73}{1.00} @@ -8120,7 +8120,7 @@ o )show Asp73 \cross{ASP73}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP73 Asp73} )abbrev domain ASP73 Asp73 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -8261,17 +8261,17 @@ Asp73(name): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP73.dotabb} "ASP73" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP73"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ASP73" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP74 Asp74} -<>= +\begin{chunk}{Asp74.input} )set break resume )sys rm -f Asp74.output )spool Asp74.output @@ -8308,8 +8308,8 @@ Asp73(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp74.help} ==================================================================== Asp74 examples ==================================================================== @@ -8317,7 +8317,7 @@ Asp74 examples See Also: o )show Asp74 -@ +\end{chunk} \pagehead{Asp74}{ASP74} \pagepic{ps/v103asp74.ps}{ASP74}{1.00} @@ -8330,7 +8330,7 @@ o )show Asp74 \cross{ASP74}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP74 Asp74} )abbrev domain ASP74 Asp74 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Oct 1993 @@ -8513,17 +8513,17 @@ Asp74(name): Exports == Implementation where v case "failed" => "failed" (v::MAT FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP74.dotabb} "ASP74" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP74"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP74" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP77 Asp77} -<>= +\begin{chunk}{Asp77.input} )set break resume )sys rm -f Asp77.output )spool Asp77.output @@ -8560,8 +8560,8 @@ Asp74(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp77.help} ==================================================================== Asp77 examples ==================================================================== @@ -8569,7 +8569,7 @@ Asp77 examples See Also: o )show Asp77 -@ +\end{chunk} \pagehead{Asp77}{ASP77} \pagepic{ps/v103asp77.ps}{ASP77}{1.00} @@ -8582,7 +8582,7 @@ o )show Asp77 \cross{ASP77}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP77 Asp77} )abbrev domain ASP77 Asp77 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -8730,17 +8730,17 @@ Asp77(name): Exports == Implementation where v case "failed" => "failed" (v::MAT FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP77.dotabb} "ASP77" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP77"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP77" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP78 Asp78} -<>= +\begin{chunk}{Asp78.input} )set break resume )sys rm -f Asp78.output )spool Asp78.output @@ -8777,8 +8777,8 @@ Asp77(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp78.help} ==================================================================== Asp78 examples ==================================================================== @@ -8786,7 +8786,7 @@ Asp78 examples See Also: o )show Asp78 -@ +\end{chunk} \pagehead{Asp78}{ASP78} \pagepic{ps/v103asp78.ps}{ASP78}{1.00} @@ -8799,7 +8799,7 @@ o )show Asp78 \cross{ASP78}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP78 Asp78} )abbrev domain ASP78 Asp78 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -8922,17 +8922,17 @@ Asp78(name): Exports == Implementation where v case "failed" => "failed" (v::VEC FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP78.dotabb} "ASP78" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP78"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP78" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP8 Asp8} -<>= +\begin{chunk}{Asp8.input} )set break resume )sys rm -f Asp8.output )spool Asp8.output @@ -8957,8 +8957,8 @@ Asp78(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp8.help} ==================================================================== Asp8 examples ==================================================================== @@ -8966,7 +8966,7 @@ Asp8 examples See Also: o )show Asp8 -@ +\end{chunk} \pagehead{Asp8}{ASP8} \pagepic{ps/v103asp8.ps}{ASP8}{1.00} @@ -8977,7 +8977,7 @@ o )show Asp8 \cross{ASP8}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain ASP8 Asp8} )abbrev domain ASP8 Asp8 ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: 11 February 1994 @@ -9102,17 +9102,17 @@ Asp8(name): Exports == Implementation where code := [assign1, assign2, loop, endCase]$List(FC) ([locals,code]$RSFC)::% -@ -<>= +\end{chunk} +\begin{chunk}{ASP8.dotabb} "ASP8" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP8"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP8" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP80 Asp80} -<>= +\begin{chunk}{Asp80.input} )set break resume )sys rm -f Asp80.output )spool Asp80.output @@ -9149,8 +9149,8 @@ Asp8(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp80.help} ==================================================================== Asp80 examples ==================================================================== @@ -9158,7 +9158,7 @@ Asp80 examples See Also: o )show Asp80 -@ +\end{chunk} \pagehead{Asp80}{ASP80} \pagepic{ps/v103asp80.ps}{ASP80}{1.00} @@ -9171,7 +9171,7 @@ o )show Asp80 \cross{ASP80}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP80 Asp80} )abbrev domain ASP80 Asp80 ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: Oct 1993 @@ -9317,17 +9317,17 @@ Asp80(name): Exports == Implementation where v case "failed" => "failed" (v::MAT FEXPR)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ASP80.dotabb} "ASP80" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP80"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ASP80" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ASP9 Asp9} -<>= +\begin{chunk}{Asp9.input} )set break resume )sys rm -f Asp9.output )spool Asp9.output @@ -9362,8 +9362,8 @@ Asp80(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Asp9.help} ==================================================================== Asp9 examples ==================================================================== @@ -9371,7 +9371,7 @@ Asp9 examples See Also: o )show Asp9 -@ +\end{chunk} \pagehead{Asp9}{ASP9} \pagepic{ps/v103asp9.ps}{ASP9}{1.00} @@ -9384,7 +9384,7 @@ o )show Asp9 \cross{ASP9}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{domain ASP9 Asp9} )abbrev domain ASP9 Asp9 ++ Author: Mike Dewar, Grant Keady and Godfrey Nolan ++ Date Created: Mar 1993 @@ -9508,17 +9508,17 @@ Asp9(name): Exports == Implementation where outputAsFortran(u)$Rep p => restorePrecision()$NAGLinkSupportPackage -@ -<>= +\end{chunk} +\begin{chunk}{ASP9.dotabb} "ASP9" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ASP9"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ASP9" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain JORDAN AssociatedJordanAlgebra} -<>= +\begin{chunk}{AssociatedJordanAlgebra.input} )set break resume )sys rm -f AssociatedJordanAlgebra.output )spool AssociatedJordanAlgebra.output @@ -9618,8 +9618,8 @@ Asp9(name): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AssociatedJordanAlgebra.help} ==================================================================== AssociatedJordanAlgebra examples ==================================================================== @@ -9627,7 +9627,7 @@ AssociatedJordanAlgebra examples See Also: o )show AssociatedJordanAlgebra -@ +\end{chunk} \pagehead{AssociatedJordanAlgebra}{JORDAN} \pagepic{ps/v103associatedjordanalgebra.ps}{JORDAN}{1.00} @@ -9709,7 +9709,7 @@ o )show AssociatedJordanAlgebra \cross{JORDAN}{?.?} \end{tabular} -<>= +\begin{chunk}{domain JORDAN AssociatedJordanAlgebra} )abbrev domain JORDAN AssociatedJordanAlgebra ++ Author: J. Grabmeier ++ Date Created: 14 June 1991 @@ -9767,17 +9767,17 @@ AssociatedJordanAlgebra(R:CommutativeRing,A:NonAssociativeAlgebra R): coerce(a:A):% == a :: % (a:%) ** (n:PositiveInteger) == a -@ -<>= +\end{chunk} +\begin{chunk}{JORDAN.dotabb} "JORDAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=JORDAN"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "JORDAN" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LIE AssociatedLieAlgebra} -<>= +\begin{chunk}{AssociatedLieAlgebra.input} )set break resume )sys rm -f AssociatedLieAlgebra.output )spool AssociatedLieAlgebra.output @@ -9877,8 +9877,8 @@ AssociatedJordanAlgebra(R:CommutativeRing,A:NonAssociativeAlgebra R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AssociatedLieAlgebra.help} ==================================================================== AssociatedLieAlgebra examples ==================================================================== @@ -9886,7 +9886,7 @@ AssociatedLieAlgebra examples See Also: o )show AssociatedLieAlgebra -@ +\end{chunk} \pagehead{AssociatedLieAlgebra}{LIE} \pagepic{ps/v103associatedliealgebra.ps}{LIE}{1.00} @@ -9970,7 +9970,7 @@ o )show AssociatedLieAlgebra \cross{LIE}{?.?} \end{tabular} -<>= +\begin{chunk}{domain LIE AssociatedLieAlgebra} )abbrev domain LIE AssociatedLieAlgebra ++ Author: J. Grabmeier ++ Date Created: 07 March 1991 @@ -10024,17 +10024,17 @@ AssociatedLieAlgebra(R:CommutativeRing,A:NonAssociativeAlgebra R): n = 1 => a 0 -@ -<>= +\end{chunk} +\begin{chunk}{LIE.dotabb} "LIE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LIE"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "LIE" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ALIST AssociationList} -<>= +\begin{chunk}{AssociationList.input} )set break resume )sys rm -f AssociationList.output )spool AssociationList.output @@ -10134,8 +10134,8 @@ delete!(al,1) --E 10 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AssociationList.help} ==================================================================== AssociationList examples ==================================================================== @@ -10221,7 +10221,7 @@ o )help Table o )help List o )show AssociationList -@ +\end{chunk} \pagehead{AssociationList}{ALIST} \pagepic{ps/v103associationlist.ps}{ALIST}{1.00} {\bf See}\\ @@ -10341,7 +10341,7 @@ o )show AssociationList \cross{ALIST}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain ALIST AssociationList} )abbrev domain ALIST AssociationList ++ Author: Mark Botch ++ Date Created: @@ -10422,17 +10422,17 @@ AssociationList(Key:SetCategory, Entry:SetCategory): setrest_!(prev, rest curr) first(curr).entry -@ -<>= +\end{chunk} +\begin{chunk}{ALIST.dotabb} "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "ALIST" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ATTRBUT AttributeButtons} -<>= +\begin{chunk}{AttributeButtons.input} )set break resume )sys rm -f AttributeButtons.output )spool AttributeButtons.output @@ -10463,8 +10463,8 @@ AssociationList(Key:SetCategory, Entry:SetCategory): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AttributeButtons.help} ==================================================================== AttributeButtons examples ==================================================================== @@ -10472,7 +10472,7 @@ AttributeButtons examples See Also: o )show AttributeButtons -@ +\end{chunk} \pagehead{AttributeButtons}{ATTRBUT} \pagepic{ps/v103attributebuttons.ps}{ATTRBUT}{1.00} @@ -10492,7 +10492,7 @@ o )show AttributeButtons \cross{ATTRBUT}{?=?} \end{tabular} -<>= +\begin{chunk}{domain ATTRBUT AttributeButtons} )abbrev domain ATTRBUT AttributeButtons ++ Author: Brian Dupee ++ Date Created: April 1996 @@ -10703,17 +10703,17 @@ AttributeButtons(): E == I where error("getButtonValue","attribute name " attributeName " not found for routine " routineName)$ErrorFunctions -@ -<>= +\end{chunk} +\begin{chunk}{ATTRBUT.dotabb} "ATTRBUT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ATTRBUT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ATTRBUT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain AUTOMOR Automorphism} -<>= +\begin{chunk}{Automorphism.input} )set break resume )sys rm -f Automorphism.output )spool Automorphism.output @@ -10748,8 +10748,8 @@ AttributeButtons(): E == I where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Automorphism.help} ==================================================================== Automorphism examples ==================================================================== @@ -10757,7 +10757,7 @@ Automorphism examples See Also: o )show Automorphism -@ +\end{chunk} \pagehead{Automorphism}{AUTOMOR} \pagepic{ps/v103automorphism.ps}{AUTOMOR}{1.00} @@ -10787,7 +10787,7 @@ o )show Automorphism \cross{AUTOMOR}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain AUTOMOR Automorphism} )abbrev domain AUTOMOR Automorphism ++ Author: Manuel Bronstein ++ Date Created: 31 January 1994 @@ -10844,19 +10844,19 @@ Automorphism(R:Ring): Join(Group, Eltable(R, R)) with (v1:R):R +-> (inv g)(inv f) v1, i2, r1) -@ -<>= +\end{chunk} +\begin{chunk}{AUTOMOR.dotabb} "AUTOMOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=AUTOMOR"] "GROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=GROUP"] "AUTOMOR" -> "GROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter B} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BBTREE BalancedBinaryTree} -<>= +\begin{chunk}{BalancedBinaryTree.input} )set break resume )sys rm -f BalancedBinaryTree.output )spool BalancedBinaryTree.output @@ -10893,8 +10893,8 @@ leaves % )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BalancedBinaryTree.help} ==================================================================== BalancedBinaryTree examples ==================================================================== @@ -10996,7 +10996,7 @@ Call the Chinese Remainder Algorithm to get the answer for 12^2. See Also: o )show BalancedBinaryTree -@ +\end{chunk} \pagehead{BalancedBinaryTree}{BBTREE} \pagepic{ps/v103balancedbinarytree.ps}{BBTREE}{1.00} {\bf See}\\ @@ -11057,7 +11057,7 @@ o )show BalancedBinaryTree \cross{BBTREE}{?.value} &&& \end{tabular} -<>= +\begin{chunk}{domain BBTREE BalancedBinaryTree} )abbrev domain BBTREE BalancedBinaryTree ++ Description: ++ \spadtype{BalancedBinaryTree(S)} is the domain of balanced @@ -11211,17 +11211,17 @@ BalancedBinaryTree(S: SetCategory): Exports == Implementation where mapDown_!(x.right, u.2, fn) x -@ -<>= +\end{chunk} +\begin{chunk}{BBTREE.dotabb} "BBTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BBTREE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "BBTREE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BPADIC BalancedPAdicInteger} -<>= +\begin{chunk}{BalancedPAdicInteger.input} )set break resume )sys rm -f BalancedPAdicInteger.output )spool BalancedPAdicInteger.output @@ -11279,8 +11279,8 @@ BalancedBinaryTree(S: SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BalancedPAdicInteger.help} ==================================================================== BalancedPAdicInteger examples ==================================================================== @@ -11288,7 +11288,7 @@ BalancedPAdicInteger examples See Also: o )show BalancedPAdicInteger -@ +\end{chunk} \pagehead{BalancedPAdicInteger}{BPADIC} \pagepic{ps/v103balancedpadicinteger.ps}{BPADIC}{1.00} @@ -11349,7 +11349,7 @@ o )show BalancedPAdicInteger \cross{BPADIC}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain BPADIC BalancedPAdicInteger} )abbrev domain BPADIC BalancedPAdicInteger ++ Author: Clifton J. Williamson ++ Date Created: 15 May 1990 @@ -11367,17 +11367,17 @@ o )show BalancedPAdicInteger BalancedPAdicInteger(p:Integer) == InnerPAdicInteger(p,false$Boolean) -@ -<>= +\end{chunk} +\begin{chunk}{BPADIC.dotabb} "BPADIC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BPADIC"] "PADICCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PADICCT"] "BPADIC" -> "PADICCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BPADICRT BalancedPAdicRational} -<>= +\begin{chunk}{BalancedPAdicRational.input} )set break resume )sys rm -f BalancedPAdicRational.output )spool BalancedPAdicRational.output @@ -11511,8 +11511,8 @@ BalancedPAdicInteger(p:Integer) == InnerPAdicInteger(p,false$Boolean) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BalancedPAdicRational.help} ==================================================================== BalancedPAdicRational examples ==================================================================== @@ -11520,7 +11520,7 @@ BalancedPAdicRational examples See Also: o )show BalancedPAdicRational -@ +\end{chunk} \pagehead{BalancedPAdicRational}{BPADICRT} \pagepic{ps/v103balancedpadicrational.ps}{BPADICRT}{1.00} @@ -11617,7 +11617,7 @@ o )show BalancedPAdicRational \cross{BPADICRT}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain BPADICRT BalancedPAdicRational} )abbrev domain BPADICRT BalancedPAdicRational ++ Author: Clifton J. Williamson ++ Date Created: 15 May 1990 @@ -11637,17 +11637,17 @@ o )show BalancedPAdicRational BalancedPAdicRational(p:Integer) == PAdicRationalConstructor(p,BalancedPAdicInteger p) -@ -<>= +\end{chunk} +\begin{chunk}{BPADICRT.dotabb} "BPADICRT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BPADICRT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BPADICRT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BFUNCT BasicFunctions} -<>= +\begin{chunk}{BasicFunctions.input} )set break resume )sys rm -f BasicFunctions.output )spool BasicFunctions.output @@ -11672,8 +11672,8 @@ BalancedPAdicRational(p:Integer) == )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BasicFunctions.help} ==================================================================== BasicFunctions examples ==================================================================== @@ -11681,7 +11681,7 @@ BasicFunctions examples See Also: o )show BasicFunctions -@ +\end{chunk} \pagehead{BasicFunctions}{BFUNCT} \pagepic{ps/v103basicfunctions.ps}{BFUNCT}{1.00} @@ -11697,7 +11697,7 @@ o )show BasicFunctions \cross{BFUNCT}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain BFUNCT BasicFunctions} )abbrev domain BFUNCT BasicFunctions ++ Author: Brian Dupee ++ Date Created: August 1994 @@ -11763,17 +11763,17 @@ BasicFunctions(): E == I where bfEntry(k:Symbol):RS == qelt(bf(),k)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{BFUNCT.dotabb} "BFUNCT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BFUNCT"] "FIELD-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FIELD"] "BFUNCT" -> "FIELD-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BOP BasicOperator} -<>= +\begin{chunk}{BasicOperator.input} )set break resume )sys rm -f BasicOperator.output )spool BasicOperator.output @@ -11931,8 +11931,8 @@ properties y --E 18 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BasicOperator.help} ==================================================================== BasicOperator examples ==================================================================== @@ -12076,7 +12076,7 @@ o )help Expression o )help Kernel o )show BasicOperator -@ +\end{chunk} \pagehead{BasicOperator}{BOP} \pagepic{ps/v103basicoperator.ps}{BOP}{1.00} @@ -12120,7 +12120,7 @@ o )show BasicOperator \cross{BOP}{?$>=$?} &&&& \end{tabular} -<>= +\begin{chunk}{domain BOP BasicOperator} )abbrev domain BOP BasicOperator ++ Author: Manuel Bronstein ++ Date Created: 22 March 1988 @@ -12300,17 +12300,17 @@ BasicOperator(): Exports == Implementation where not(((func::None) pretend (($, $) -> Boolean)) (op1, op2)) false -@ -<>= +\end{chunk} +\begin{chunk}{BOP.dotabb} "BOP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BOP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "BOP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BSD BasicStochasticDifferential} -<>= +\begin{chunk}{BasicStochasticDifferential.input} )set break resume )sys rm -f BasicStochasticDifferential.output )spool BasicStochasticDifferential.output @@ -12574,8 +12574,8 @@ print copyIto() )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BasicStochasticDifferential.help} ==================================================================== BasicStochasticDifferential examples ==================================================================== @@ -12672,7 +12672,7 @@ The d function can extract these symbols: See Also: o )show BasicStochasticDifferential -@ +\end{chunk} \pagehead{BasicStochasticDifferential}{BSD} \pagepic{ps/v103basicstochasticdifferential.ps}{BSD}{1.00} {\bf See}\\ @@ -12700,7 +12700,7 @@ o )show BasicStochasticDifferential \cross{BSD}{?$>=$?} \end{tabular} -<>= +\begin{chunk}{domain BSD BasicStochasticDifferential} )abbrev domain BSD BasicStochasticDifferential ++ Author: Wilfrid S. Kendall ++ Date Last Updated: July 26, 1999 @@ -12798,17 +12798,17 @@ BasicStochasticDifferential(): Category == Implementation where copyIto() == tableIto getSmgl(ds:%):Union(Symbol,"failed") == tableBSD(ds) -@ -<>= +\end{chunk} +\begin{chunk}{BSD.dotabb} "BSD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BSD"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "BSD" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BINARY BinaryExpansion} -<>= +\begin{chunk}{BinaryExpansion.input} )set break resume )sys rm -f BinaryExpansion.output )spool BinaryExpansion.output @@ -12891,8 +12891,8 @@ g := gcd(p, q) --E 7 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryExpansion.help} ==================================================================== BinaryExpansion examples ==================================================================== @@ -12969,7 +12969,7 @@ o )help DecimalExpansion o )help HexadecimalExpansion o )show BinaryExpansion -@ +\end{chunk} \pagehead{BinaryExpansion}{BINARY} \pagepic{ps/v103binaryexpansion.ps}{BINARY}{1.00} {\bf See}\\ @@ -13061,7 +13061,7 @@ o )show BinaryExpansion \cross{BINARY}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain BINARY BinaryExpansion} )abbrev domain BINARY BinaryExpansion ++ Author: Clifton J. Williamson ++ Date Created: April 26, 1990 @@ -13094,17 +13094,17 @@ BinaryExpansion(): Exports == Implementation where binary r == r :: % coerce(x:%): RadixExpansion(2) == x pretend RadixExpansion(2) -@ -<>= +\end{chunk} +\begin{chunk}{BINARY.dotabb} "BINARY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BINARY"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BINARY" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BINFILE BinaryFile} -<>= +\begin{chunk}{BinaryFile.input} )set break resume )sys rm -f BinaryFile.output )spool BinaryFile.output @@ -13135,8 +13135,8 @@ BinaryExpansion(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryFile.help} ==================================================================== BinaryFile examples ==================================================================== @@ -13144,7 +13144,7 @@ BinaryFile examples See Also: o )show BinaryFile -@ +\end{chunk} \pagehead{BinaryFile}{BINFILE} \pagepic{ps/v103binaryfile.ps}{BINFILE}{1.00} @@ -13173,7 +13173,7 @@ o )show BinaryFile \cross{BINFILE}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain BINFILE BinaryFile} )abbrev domain BINFILE BinaryFile ++ Author: Barry M. Trager ++ Date Created: 1993 @@ -13277,17 +13277,17 @@ BinaryFile: Cat == Def where f.fileIOmode ^= "input" => error "file must be in read state" (FILE_-POSITION(f.fileState,i)$Lisp ; i) -@ -<>= +\end{chunk} +\begin{chunk}{BINFILE.dotabb} "BINFILE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BINFILE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "BINFILE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BSTREE BinarySearchTree} -<>= +\begin{chunk}{BinarySearchTree.input} )set break resume )sys rm -f BinarySearchTree.output )spool BinarySearchTree.output @@ -13391,8 +13391,8 @@ rt := buildFromRoot reverse lv --E 12 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinarySearchTree.help} ==================================================================== BinarySearchTree examples ==================================================================== @@ -13490,7 +13490,7 @@ Have Axiom check that these are equal. See Also: o )show BinarySearchTree -@ +\end{chunk} \pagehead{BinarySearchTree}{BSTREE} \pagepic{ps/v103binarysearchtree.ps}{BSTREE}{1.00} {\bf See}\\ @@ -13557,7 +13557,7 @@ o )show BinarySearchTree \cross{BSTREE}{?.value} && \end{tabular} -<>= +\begin{chunk}{domain BSTREE BinarySearchTree} )abbrev domain BSTREE BinarySearchTree ++ Author: Mark Botch ++ Description: @@ -13621,13 +13621,13 @@ BinarySearchTree(S: OrderedSet): Exports == Implementation where a := split(x,t) node(a.less, x, a.greater) -@ -<>= +\end{chunk} +\begin{chunk}{BSTREE.dotabb} "BSTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BSTREE"] "BTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BTCAT"] "BSTREE" -> "BTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BTOURN BinaryTournament} @@ -13636,7 +13636,7 @@ ordered down the tree. A binary search tree is either empty or is a node containing a value of type S, and a right and a left which are both BinaryTree(S) -<>= +\begin{chunk}{BinaryTournament.input} )set break resume )sys rm -f BinaryTournament.output )spool BinaryTournament.output @@ -13698,8 +13698,8 @@ both BinaryTree(S) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryTournament.help} ==================================================================== BinaryTournament examples ==================================================================== @@ -13707,7 +13707,7 @@ BinaryTournament examples See Also: o )show BinaryTournament -@ +\end{chunk} \pagehead{BinaryTournament}{BTOURN} \pagepic{ps/v103binarytournament.ps}{BTOURN}{1.00} @@ -13767,7 +13767,7 @@ o )show BinaryTournament \cross{BTOURN}{?.value} \end{tabular} -<>= +\begin{chunk}{domain BTOURN BinaryTournament} )abbrev domain BTOURN BinaryTournament ++ Author: Mark Botch ++ Description: @@ -13806,17 +13806,17 @@ BinaryTournament(S: OrderedSet): Exports == Implementation where setright_!(t,insert_!(x,right t)) t -@ -<>= +\end{chunk} +\begin{chunk}{BTOURN.dotabb} "BTOURN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BTOURN"] "BTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BTCAT"] "BTOURN" -> "BTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BTREE BinaryTree} -<>= +\begin{chunk}{BinaryTree.input} )set break resume )sys rm -f BinaryTree.output )spool BinaryTree.output @@ -13878,8 +13878,8 @@ BinaryTournament(S: OrderedSet): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BinaryTree.help} ==================================================================== BinaryTree examples ==================================================================== @@ -13887,7 +13887,7 @@ BinaryTree examples See Also: o )show BinaryTree -@ +\end{chunk} \pagehead{BinaryTree}{BTREE} \pagepic{ps/v103binarytree.ps}{BTREE}{1.00} @@ -13946,7 +13946,7 @@ o )show BinaryTree \cross{BTREE}{?.value} & \end{tabular} -<>= +\begin{chunk}{domain BTREE BinaryTree} )abbrev domain BTREE BinaryTree ++ Author: Mark Botch ++ Description: @@ -14002,17 +14002,17 @@ BinaryTree(S: SetCategory): Exports == Implementation where empty? t1 => error "binaryTree:no right to set" setrest_!(t1:List Tree S,t2) -@ -<>= +\end{chunk} +\begin{chunk}{BTREE.dotabb} "BTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BTREE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "BTREE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BITS Bits} -<>= +\begin{chunk}{Bits.input} )set break resume )sys rm -f Bits.output )spool Bits.output @@ -14108,8 +14108,8 @@ BinaryTree(S: SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Bits.help} ==================================================================== Bits examples ==================================================================== @@ -14117,7 +14117,7 @@ Bits examples See Also: o )show Bits -@ +\end{chunk} \pagehead{Bits}{BITS} \pagepic{ps/v103bits.ps}{BITS}{1.00} @@ -14203,7 +14203,7 @@ o )show Bits \cross{BITS}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain BITS Bits} )abbrev domain BITS Bits ++ Author: Stephen M. Watt ++ Date Created: @@ -14221,17 +14221,17 @@ Bits(): Exports == Implementation where Implementation == IndexedBits(1) add bits(n,b) == new(n,b) -@ -<>= +\end{chunk} +\begin{chunk}{BITS.dotabb} "BITS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BITS"] "BTAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BTAGG"] "BITS" -> "BTAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BLHN BlowUpWithHamburgerNoether} -<>= +\begin{chunk}{BlowUpWithHamburgerNoether.input} )set break resume )sys rm -f BlowUpWithHamburgerNoether.output )spool BlowUpWithHamburgerNoether.output @@ -14261,8 +14261,8 @@ Bits(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BlowUpWithHamburgerNoether.help} ==================================================================== BlowUpWithHamburgerNoether examples ==================================================================== @@ -14270,7 +14270,7 @@ BlowUpWithHamburgerNoether examples See Also: o )show BlowUpWithHamburgerNoether -@ +\end{chunk} \pagehead{BlowUpWithHamburgerNoether}{BLHN} \pagepic{ps/v103blowupwithquadtrans.ps}{BLHN}{1.00} @@ -14291,7 +14291,7 @@ o )show BlowUpWithHamburgerNoether \cross{BLHN}{type} && \end{tabular} -<>= +\begin{chunk}{domain BLHN BlowUpWithHamburgerNoether} )abbrev domain BLHN BlowUpWithHamburgerNoether ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -14326,18 +14326,18 @@ BlowUpWithHamburgerNoether: Exports == Implementation where type a == a.type coerce(c:%):OutputForm== ( (c :: Rep ) :: MetRec) :: OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{BLHN.dotabb} "BLHN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BLHN", shape=ellipse] "BLMETCT" [color="#4488FF",href="bookvol10.3.pdf#nameddest=BLMETCT"] "BLHN" -> "BLMETCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BLQT BlowUpWithQuadTrans} -<>= +\begin{chunk}{BlowUpWithQuadTrans.input} )set break resume )sys rm -f BlowUpWithQuadTrans.output )spool BlowUpWithQuadTrans.output @@ -14367,8 +14367,8 @@ BlowUpWithHamburgerNoether: Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BlowUpWithQuadTrans.help} ==================================================================== BlowUpWithQuadTrans examples ==================================================================== @@ -14376,7 +14376,7 @@ BlowUpWithQuadTrans examples See Also: o )show BlowUpWithQuadTrans -@ +\end{chunk} \pagehead{BlowUpWithQuadTrans}{BLQT} \pagepic{ps/v103blowupwithquadtrans.ps}{BLQT}{1.00} @@ -14397,7 +14397,7 @@ o )show BlowUpWithQuadTrans \cross{BLQT}{type} && \end{tabular} -<>= +\begin{chunk}{domain BLQT BlowUpWithQuadTrans} )abbrev domain BLQT BlowUpWithQuadTrans ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -14433,18 +14433,18 @@ BlowUpWithQuadTrans: Exports == Implementation where oo: outRec := [ excepCoord(c) , chartCoord(c) ]$outRec oo :: OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{BLQT.dotabb} "BLQT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BLQT", shape=ellipse] "BLMETCT" [color="#4488FF",href="bookvol10.3.pdf#nameddest=BLMETCT"] "BLQT" -> "BLMETCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain BOOLEAN Boolean} -<>= +\begin{chunk}{Boolean.input} )set break resume )sys rm -f Boolean.output )spool Boolean.output @@ -14480,8 +14480,8 @@ BlowUpWithQuadTrans: Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Boolean.help} ==================================================================== Boolean examples ==================================================================== @@ -14489,7 +14489,7 @@ Boolean examples See Also: o )show Boolean -@ +\end{chunk} \pagehead{Boolean}{BOOLEAN} \pagepic{ps/v103boolean.ps}{BOOLEAN}{1.00} @@ -14532,7 +14532,7 @@ o )show Boolean \cross{BOOLEAN}{?or?} \end{tabular} -<>= +\begin{chunk}{domain BOOLEAN Boolean} )abbrev domain BOOLEAN Boolean ++ Author: Stephen M. Watt ++ Date Created: @@ -14613,20 +14613,20 @@ Boolean(): Join(OrderedSet, Finite, Logic, ConvertibleTo InputForm) with x pretend Boolean => message "true" message "false" -@ -<>= +\end{chunk} +\begin{chunk}{BOOLEAN.dotabb} "BOOLEAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=BOOLEAN", shape=ellipse] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "BOOLEAN" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter C} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CARD CardinalNumber} -<>= +\begin{chunk}{CardinalNumber.input} )set break resume )sys rm -f CardinalNumber.output )spool CardinalNumber.output @@ -14794,8 +14794,8 @@ f := 2**c --E 20 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CardinalNumber.help} ==================================================================== CardinalNumber examples ==================================================================== @@ -14943,7 +14943,7 @@ continuum hypothesis in this way. See Also: o )show CardinalNumber -@ +\end{chunk} \pagehead{CardinalNumber}{CARD} \pagepic{ps/v103cardinalnumber.ps}{CARD}{1.00} @@ -14980,7 +14980,7 @@ o )show CardinalNumber \cross{CARD}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain CARD CardinalNumber} )abbrev domain CARD CardinalNumber ++ Author: S.M. Watt ++ Date Created: June 1986 @@ -15165,17 +15165,17 @@ CardinalNumber: Join(OrderedSet, AbelianMonoid, Monoid, generalizedContinuumHypothesisAssumed?() == GCHypothesis() generalizedContinuumHypothesisAssumed b == (GCHypothesis() := b) -@ -<>= +\end{chunk} +\begin{chunk}{CARD.dotabb} "CARD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CARD"] "ALGEBRA-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALGEBRA"] "CARD" -> "ALGEBRA-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CARTEN CartesianTensor} -<>= +\begin{chunk}{CartesianTensor.input} )set break resume )sys rm -f CartesianTensor.output )spool CartesianTensor.output @@ -15645,8 +15645,8 @@ contract(epsilon*Tm*epsilon, 1,2) = 2 * determinant m --E 48 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CartesianTensor.help} ==================================================================== CartesianTensor examples ==================================================================== @@ -16122,7 +16122,7 @@ interpretation. See Also o )show CartesianTensor -@ +\end{chunk} \pagehead{CartesianTensor}{CARTEN} \pagepic{ps/v103cartesiantensor.ps}{CARTEN}{1.00} @@ -16156,7 +16156,7 @@ o )show CartesianTensor \cross{CARTEN}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain CARTEN CartesianTensor} )abbrev domain CARTEN CartesianTensor ++ Author: Stephen M. Watt ++ Date Created: December 1986 @@ -16761,17 +16761,17 @@ CartesianTensor(minix, dim, R): Exports == Implementation where set_!(z, pi, get(x,i)) z -@ -<>= +\end{chunk} +\begin{chunk}{CARTEN.dotabb} "CARTEN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CARTEN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "CARTEN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CHAR Character} -<>= +\begin{chunk}{Character.input} )set break resume )sys rm -f Character.output )spool Character.output @@ -16883,8 +16883,8 @@ escape() --E 13 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Character.help} ==================================================================== Character examples ==================================================================== @@ -16972,7 +16972,7 @@ o )help CharacterClass o )help String o )show Character -@ +\end{chunk} \pagehead{Character}{CHAR} \pagepic{ps/v103character.ps}{CHAR}{1.00} {\bf See}\\ @@ -17012,7 +17012,7 @@ o )show Character \cross{CHAR}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain CHAR Character} )abbrev domain CHAR Character ++ Author: Stephen M. Watt ++ Date Created: July 1986 @@ -17153,17 +17153,17 @@ Character: OrderedFinite() with lowerCase c == QENUM(PNAME(DOWNCASE(CODE_-CHAR(ord c)$Lisp)$Lisp)$Lisp,0$Lisp)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{CHAR.dotabb} "CHAR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CHAR",shape=ellipse] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "CHAR" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CCLASS CharacterClass} -<>= +\begin{chunk}{CharacterClass.input} )set break resume )sys rm -f CharacterClass.output )spool CharacterClass.output @@ -17299,8 +17299,8 @@ remove!(char "b", cl2) --E 16 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CharacterClass.help} ==================================================================== CharacterClass examples ==================================================================== @@ -17389,7 +17389,7 @@ o )help Character o )help String o )show CharacterClass -@ +\end{chunk} \pagehead{CharacterClass}{CCLASS} \pagepic{ps/v103characterclass.ps}{CCLASS}{1.00} {\bf See}\\ @@ -17471,7 +17471,7 @@ o )show CharacterClass \cross{CCLASS}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain CCLASS CharacterClass} )abbrev domain CCLASS CharacterClass ++ Author: Stephen M. Watt ++ Date Created: July 1986 @@ -17584,13 +17584,13 @@ CharacterClass: Join(SetCategory, ConvertibleTo String, parts a == [char i for i in 0..N-1 | a.i] -@ -<>= +\end{chunk} +\begin{chunk}{CCLASS.dotabb} "CCLASS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CCLASS"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "CCLASS" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CLIF CliffordAlgebra\cite{7,12}} \subsection{Vector (linear) spaces} @@ -17775,7 +17775,7 @@ $\mathbb{R}_{m,m}$ & --------$>$ & $\mathbb{R}^{4^m}$ \\ $\mathbb{R}(2^m)$ & --------$>$ & $\mathbb{R}^{4^m}$\\ & reshape & \\ \end{tabular} -<>= +\begin{chunk}{CliffordAlgebra.input} )set break resume )sys rm -f CliffordAlgebra.output )spool CliffordAlgebra.output @@ -18112,8 +18112,8 @@ rhs := 2*(gam s * gam m*gam n*gam r + gam r*gam n*gam m*gam s) --E 36 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CliffordAlgebra.help} ==================================================================== CliffordAlgebra examples ==================================================================== @@ -18393,7 +18393,7 @@ o )help Quaternion o )show CliffordAlgebra o $AXIOM/doc/src/algebra/clifford.spad -@ +\end{chunk} \pagehead{CliffordAlgebra}{CLIF} \pagepic{ps/v103cliffordalgebra.ps}{CLIF}{1.00} {\bf See}\\ @@ -18427,7 +18427,7 @@ o $AXIOM/doc/src/algebra/clifford.spad \cross{CLIF}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain CLIF CliffordAlgebra} )abbrev domain CLIF CliffordAlgebra ++ Author: Stephen M. Watt ++ Date Created: August 1988 @@ -18630,17 +18630,17 @@ CliffordAlgebra(n, K, Q): T == Impl where ansC := ansC + cj*monomial(1,pj) ansC -@ -<>= +\end{chunk} +\begin{chunk}{CLIF.dotabb} "CLIF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CLIF"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "CLIF" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain COLOR Color} -<>= +\begin{chunk}{Color.input} )set break resume )sys rm -f Color.output )spool Color.output @@ -18669,8 +18669,8 @@ CliffordAlgebra(n, K, Q): T == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Color.help} ==================================================================== Color examples ==================================================================== @@ -18678,7 +18678,7 @@ Color examples See Also: o )show Color -@ +\end{chunk} \pagehead{Color}{COLOR} \pagepic{ps/v103color.ps}{COLOR}{1.00} @@ -18703,7 +18703,7 @@ o )show Color \cross{COLOR}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain COLOR Color} )abbrev domain COLOR Color ++ Author: Jim Wen ++ Date Created: 10 May 1989 @@ -18794,19 +18794,19 @@ Color(): Exports == Implementation where hconcat ["Hue: "::OutputForm, (c.hue)::OutputForm, " Weight: "::OutputForm, (c.weight)::OutputForm] -@ -<>= +\end{chunk} +\begin{chunk}{COLOR.dotabb} "COLOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=COLOR"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "COLOR" -> "BASTYPE" "COLOR" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain COMM Commutator} -<>= +\begin{chunk}{Commutator.input} )set break resume )sys rm -f Commutator.output )spool Commutator.output @@ -18831,8 +18831,8 @@ Color(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Commutator.help} ==================================================================== Commutator examples ==================================================================== @@ -18840,7 +18840,7 @@ Commutator examples See Also: o )show Commutator -@ +\end{chunk} \pagehead{Commutator}{COMM} \pagepic{ps/v103commutator.ps}{COMM}{1.00} @@ -18858,7 +18858,7 @@ o )show Commutator \cross{COMM}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain COMM Commutator} )abbrev domain COMM Commutator ++ Author : Larry Lambe ++ Date created: 30 June 1988. @@ -18899,19 +18899,19 @@ Commutator: Export == Implement where xx := x::P bracket([xx.left::O,xx.right::O])$O -@ -<>= +\end{chunk} +\begin{chunk}{COMM.dotabb} "COMM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=COMM"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "COMM" -> "BASTYPE" "COMM" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain COMPLEX Complex} -<>= +\begin{chunk}{Complex.input} )set break resume )sys rm -f Complex.output )spool Complex.output @@ -19068,8 +19068,8 @@ factor complex(2,0) --E 16 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Complex.help} ==================================================================== Complex examples ==================================================================== @@ -19190,7 +19190,7 @@ You can factor Gaussian integers. See Also o )show Complex -@ +\end{chunk} \pagehead{Complex}{COMPLEX} \pagepic{ps/v103complex.ps}{COMPLEX}{1.00} @@ -19334,7 +19334,7 @@ o )show Complex \cross{COMPLEX}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain COMPLEX Complex} )abbrev domain COMPLEX Complex ++ Author: Mark Botch ++ Date Created: @@ -19420,16 +19420,16 @@ Complex(R:CommutativeRing): ComplexCategory(R) with zero? y.imag => x exquo y.real x * conjugate(y) exquo norm(y) -@ -<>= +\end{chunk} +\begin{chunk}{COMPLEX.dotabb} "COMPLEX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=COMPLEX"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "COMPLEX" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CDFMAT ComplexDoubleFloatMatrix} -<>= +\begin{chunk}{ComplexDoubleFloatMatrix.input} )set break resume )sys rm -f ComplexDoubleFloatMatrix.output )spool ComplexDoubleFloatMatrix.output @@ -19570,9 +19570,9 @@ a )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{ComplexDoubleFloatMatrix.help} ==================================================================== ComplexDoubleFloatMatrix examples ==================================================================== @@ -19610,7 +19610,7 @@ o )help Float o )help DoubleFloat o )show ComplexDoubleFloatMatrix -@ +\end{chunk} \pagehead{ComplexDoubleFloatMatrix}{CDFMAT} \pagepic{ps/v103complexdoublefloatmatrix.eps}{CDFMAT}{1.00} @@ -19691,7 +19691,7 @@ o )show ComplexDoubleFloatMatrix \cross{CDFMAT}{zero} &&& \end{tabular} -<>= +\begin{chunk}{domain CDFMAT ComplexDoubleFloatMatrix} )abbrev domain CDFMAT ComplexDoubleFloatMatrix ++ Author: Waldek Hebisch ++ Description: This is a low-level domain which implements matrices @@ -19735,17 +19735,17 @@ ComplexDoubleFloatMatrix : MatrixCategory(Complex DoubleFloat, Qsetelt2(res, i, j, a) res -@ -<>= +\end{chunk} +\begin{chunk}{CDFMAT.dotabb} "CDFMAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CDFMAT", shape=ellipse] "COMPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMPCAT"]; "CDFMAT" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CDFVEC ComplexDoubleFloatVector} -<>= +\begin{chunk}{ComplexDoubleFloatVector.input} )set break resume )sys rm -f ComplexDoubleFloatVector.output )spool ComplexDoubleFloatVector.output @@ -19894,9 +19894,9 @@ t1 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{ComplexDoubleFloatVector.help} ==================================================================== ComplexDoubleFloatVector examples ==================================================================== @@ -19929,7 +19929,7 @@ o )help Float o )help DoubleFloat o )show ComplexDoubleFloatVector -@ +\end{chunk} \pagehead{ComplexDoubleFloatVector}{CDFVEC} \pagepic{ps/v103complexdoublefloatvector.eps}{CDFVEC}{1.00} @@ -20011,7 +20011,7 @@ o )show ComplexDoubleFloatVector \cross{CDFVEC}{zero} && \end{tabular} -<>= +\begin{chunk}{domain CDFVEC ComplexDoubleFloatVector} )abbrev domain CDFVEC ComplexDoubleFloatVector ++ Author: Waldek Hebisch ++ Description: This is a low-level domain which implements vectors @@ -20054,18 +20054,18 @@ ComplexDoubleFloatVector : VectorCategory Complex DoubleFloat with for i in 0..((Qsize(x)) - 1) repeat Qsetelt1(x, i, s) x -@ -<>= +\end{chunk} +\begin{chunk}{CDFVEC.dotabb} "CDFVEC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CDFVEC", shape=ellipse] "COMPCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=COMPCAT"]; "CDFVEC" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain CONTFRAC ContinuedFraction} -<>= +\begin{chunk}{ContinuedFraction.input} )set break resume )sys rm -f ContinuedFraction.output )spool ContinuedFraction.output @@ -20307,8 +20307,8 @@ continuedFraction r --E 22 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ContinuedFraction.help} ==================================================================== ContinuedFraction examples ==================================================================== @@ -20608,7 +20608,7 @@ See Also: o )help Stream o )show ContinuedFraction -@ +\end{chunk} \pagehead{ContinuedFraction}{CONTFRAC} \pagepic{ps/v103continuedfraction.ps}{CONTFRAC}{1.00} @@ -20671,7 +20671,7 @@ o )show ContinuedFraction \cross{CONTFRAC}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain CONTFRAC ContinuedFraction} )abbrev domain CONTFRAC ContinuedFraction ++ Author: Stephen M. Watt ++ Date Created: January 1987 @@ -21001,19 +21001,19 @@ ContinuedFraction(R): Exports == Implementation where zero? wh => e (wh :: OUT) + e -@ -<>= +\end{chunk} +\begin{chunk}{CONTFRAC.dotabb} "CONTFRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=CONTFRAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CONTFRAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter D} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DBASE Database} -<>= +\begin{chunk}{Database.input} )set break resume )sys rm -f Database.output )spool Database.output @@ -21046,8 +21046,8 @@ ContinuedFraction(R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Database.help} ==================================================================== Database examples ==================================================================== @@ -21055,7 +21055,7 @@ Database examples See Also: o )show Database -@ +\end{chunk} \pagehead{Database}{DBASE} \pagepic{ps/v103database.ps}{DBASE}{1.00} @@ -21078,7 +21078,7 @@ o )show Database \cross{DBASE}{?.?} \end{tabular} -<>= +\begin{chunk}{domain DBASE Database} )abbrev domain DBASE Database ++ Author: Mark Botch ++ Description: @@ -21129,17 +21129,17 @@ Database(S): Exports == Implementation where fullDisplay(data,n,m) == for x in data for i in 1..m repeat if i >= n then fullDisplay x -@ -<>= +\end{chunk} +\begin{chunk}{DBASE.dotabb} "DBASE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DBASE"] "STRICAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=STRICAT"] "DBASE" -> "STRICAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DLIST DataList} -<>= +\begin{chunk}{DataList.input} )set break resume )sys rm -f DataList.output )spool DataList.output @@ -21272,8 +21272,8 @@ Database(S): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DataList.help} ==================================================================== DataList examples ==================================================================== @@ -21281,7 +21281,7 @@ DataList examples See Also: o )show DataList -@ +\end{chunk} \pagehead{DataList}{DLIST} \pagepic{ps/v103datalist.ps}{DLIST}{1.00} @@ -21398,7 +21398,7 @@ o )show DataList \cross{DLIST}{?.value} \end{tabular} -<>= +\begin{chunk}{domain DLIST DataList} )abbrev domain DLIST DataList ++ Author: Mark Botch ++ Description: @@ -21429,17 +21429,17 @@ DataList(S:OrderedSet) : Exports == Implementation where coerce(x:%): OutputForm == (x :: List S) :: OutputForm datalist(x:List S) == x::% -@ -<>= +\end{chunk} +\begin{chunk}{DLIST.dotabb} "DLIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DLIST"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "DLIST" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DECIMAL DecimalExpansion} -<>= +\begin{chunk}{DecimalExpansion.input} )set break resume )sys rm -f DecimalExpansion.output )spool DecimalExpansion.output @@ -21518,8 +21518,8 @@ g := gcd(p, q) --E 7 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DecimalExpansion.help} ==================================================================== DecimalExpansion examples ==================================================================== @@ -21589,7 +21589,7 @@ o )help BinaryExpansion o )help HexadecimalExpansion o )show DecimalExpansion -@ +\end{chunk} \pagehead{DecimalExpansion}{DECIMAL} \pagepic{ps/v103decimalexpansion.ps}{DECIMAL}{1.00} {\bf See}\\ @@ -21681,7 +21681,7 @@ o )show DecimalExpansion \cross{DECIMAL}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain DECIMAL DecimalExpansion} )abbrev domain DECIMAL DecimalExpansion ++ Author: Stephen M. Watt ++ Date Created: October, 1986 @@ -21713,13 +21713,13 @@ DecimalExpansion(): Exports == Implementation where decimal r == r :: % coerce(x:%): RadixExpansion(10) == x pretend RadixExpansion(10) -@ -<>= +\end{chunk} +\begin{chunk}{DECIMAL.dotabb} "DECIMAL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DECIMAL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DECIMAL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{Denavit-Hartenberg Matrices} @@ -22131,14 +22131,14 @@ $$[1\ 0\ 0\ -6] \left[\matrix{6\cr The general translation operation can be represented in Axiom as -<>= +\begin{chunk}{translate} translate(x,y,z) == matrix(_ [[1,0,0,x],_ [0,1,0,y],_ [0,0,1,z],_ [0,0,0,1]]) -@ +\end{chunk} \subsection{Rotation Transformations} \noindent @@ -22163,7 +22163,7 @@ $$radians = {{degrees * \pi}\over{180}}$$ \noindent The Axiom code for ${\bf Rot(x,degree)}$ is -<>= +\begin{chunk}{rotatex} rotatex(degree) == angle := degree * pi() / 180::R cosAngle := cos(angle) @@ -22173,7 +22173,7 @@ The Axiom code for ${\bf Rot(x,degree)}$ is [0, cosAngle, -sinAngle, 0], _ [0, sinAngle, cosAngle, 0], _ [0, 0, 0, 1]]) -@ +\end{chunk} $${\bf Rot(y,\theta)} = \left[\matrix{{cos\ \theta} & 0 & {sin\ \theta} & 0\cr @@ -22185,7 +22185,7 @@ $${\bf Rot(y,\theta)} = \noindent The Axiom code for ${\bf Rot(y,degree)}$ is -<>= +\begin{chunk}{rotatey} rotatey(degree) == angle := degree * pi() / 180::R cosAngle := cos(angle) @@ -22195,7 +22195,7 @@ The Axiom code for ${\bf Rot(y,degree)}$ is [ 0, 1, 0, 0], _ [-sinAngle, 0, cosAngle, 0], _ [ 0, 0, 0, 1]]) -@ +\end{chunk} $${\bf Rot(z,\theta)} = \left[\matrix{{cos\ \theta} & {-sin\ \theta} & 0 & 0\cr @@ -22207,7 +22207,7 @@ $${\bf Rot(z,\theta)} = \noindent And the Axiom code for ${\bf Rot(z,degree)}$ is -<>= +\begin{chunk}{rotatez} rotatez(degree) == angle := degree * pi() / 180::R cosAngle := cos(angle) @@ -22217,7 +22217,7 @@ And the Axiom code for ${\bf Rot(z,degree)}$ is [sinAngle, cosAngle, 0, 0], _ [ 0, 0, 1, 0], _ [ 0, 0, 0, 1]]) -@ +\end{chunk} \noindent Let us interpret these rotations by means of an example. Given a point ${\bf u} = 7{\bf i} + 3{\bf j} + 2{\bf k}$ what is the effect of @@ -23116,14 +23116,14 @@ a rectangular parallelepiped by such a transform. The Axiom code to perform this scale change is: -<>= +\begin{chunk}{scale} scale(scalex, scaley, scalez) == matrix(_ [[scalex, 0 ,0 , 0], _ [0 , scaley ,0 , 0], _ [0 , 0, scalez, 0], _ [0 , 0, 0 , 1]]) -@ +\end{chunk} \noindent The transform {\bf S} where @@ -23393,7 +23393,7 @@ description is in terms of a vector and angle of rotation. \cross{DHMATRIX}{?-?} &&&& \end{tabular} -<>= +\begin{chunk}{domain DHMATRIX DenavitHartenbergMatrix} )abbrev domain DHMATRIX DenavitHartenbergMatrix @@ -23472,27 +23472,27 @@ DenavitHartenbergMatrix(R): Exports == Implementation where v := d * v point ([v.1, v.2, v.3]$List(R)) -<> +\getchunk{rotatex} -<> +\getchunk{rotatey} -<> +\getchunk{rotatez} -<> +\getchunk{scale} -<> +\getchunk{translate} -@ -<>= +\end{chunk} +\begin{chunk}{DHMATRIX.dotabb} "DHMATRIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DHMATRIX"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "DHMATRIX" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DEQUEUE Dequeue} -<>= +\begin{chunk}{Dequeue.input} )set break resume )sys rm -f Dequeue.output )spool Dequeue.output @@ -24047,8 +24047,8 @@ latex a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Dequeue.help} ==================================================================== Dequeue examples ==================================================================== @@ -24371,7 +24371,7 @@ o )show Dequeue o )show Heap o )show BagAggregate -@ +\end{chunk} \pagehead{Dequeue}{DEQUEUE} \pagepic{ps/v103dequeue.ps}{DEQUEUE}{1.00} {\bf See}\\ @@ -24430,7 +24430,7 @@ o )show BagAggregate \cross{DEQUEUE}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain DEQUEUE Dequeue} )abbrev domain DEQUEUE Dequeue ++ Author: Michael Monagan and Stephen Watt ++ Date Created:June 86 and July 87 @@ -24690,19 +24690,19 @@ Dequeue(S:SetCategory): DequeueAggregate S with top d == if empty? d then error "empty dequeue" else first deref d reverse! d == (setref(d,reverse deref d); d) -@ -<>= +\end{chunk} +\begin{chunk}{DEQUEUE.dotabb} "DEQUEUE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DEQUEUE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "DEQUEUE" -> "FLAGG-" "DEQUEUE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DERHAM DeRhamComplex} -<>= +\begin{chunk}{DeRhamComplex.input} )set break resume )sys rm -f DeRhamComplex.output )spool DeRhamComplex.output @@ -25030,8 +25030,8 @@ gamma := alpha * beta --E 34 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DeRhamComplex.help} ==================================================================== DeRhamComplex examples ==================================================================== @@ -25279,7 +25279,7 @@ See Also: o )help Operator o )show DeRhamComplex -@ +\end{chunk} \pagehead{DeRhamComplex}{DERHAM} \pagepic{ps/v103derhamcomplex.ps}{DERHAM}{1.00} {\bf See}\\ @@ -25322,7 +25322,7 @@ o )show DeRhamComplex \cross{DERHAM}{?=?} \end{tabular} -<>= +\begin{chunk}{domain DERHAM DeRhamComplex} )abbrev domain DERHAM DeRhamComplex ++ Author: Larry A. Lambe ++ Date : 01/26/91. @@ -25435,17 +25435,17 @@ DeRhamComplex(CoefRing,listIndVar:List Symbol): Export == Implement where null ta.rest => makeTerm(ta.first.c, ta.first.k) reduce(_+,[makeTerm(t.c,t.k) for t in ta])$L(O) -@ -<>= +\end{chunk} +\begin{chunk}{DERHAM.dotabb} "DERHAM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DERHAM"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "DERHAM" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DSTREE DesingTree} -<>= +\begin{chunk}{DesingTree.input} )set break resume )sys rm -f DesingTree.output )spool DesingTree.output @@ -25503,8 +25503,8 @@ DeRhamComplex(CoefRing,listIndVar:List Symbol): Export == Implement where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DesingTree.help} ==================================================================== DesingTree examples ==================================================================== @@ -25512,7 +25512,7 @@ DesingTree examples See Also: o )show DesingTree -@ +\end{chunk} \pagehead{DesingTree}{DSTREE} \pagepic{ps/v103desingtree.eps}{DSTREE}{1.00} @@ -25560,7 +25560,7 @@ o )show DesingTree \cross{DSTREE}{value} \end{tabular} -<>= +\begin{chunk}{domain DSTREE DesingTree} )abbrev domain DSTREE DesingTree ++ Authors: Gaetan Hache ++ Date Created: jan 1998 @@ -25633,17 +25633,17 @@ DesingTree(S: SetCategory): T==C where empty?(chtr:=children(t)) => empty()$String concat([concat(["U",encode(arb),"."]) for arb in chtr]) -@ -<>= +\end{chunk} +\begin{chunk}{DSTREE.dotabb} "DSTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DSTREE"]; "DSTRCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DSTRCAT"] "DSTREE" -> "DSTRCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DSMP DifferentialSparseMultivariatePolynomial} -<>= +\begin{chunk}{DifferentialSparseMultivariatePolynomial.input} )set break resume )sys rm -f DifferentialSparseMultivariatePolynomial.output )spool DifferentialSparseMultivariatePolynomial.output @@ -25812,8 +25812,8 @@ DesingTree(S: SetCategory): T==C where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DifferentialSparseMultivariatePolynomial.help} ==================================================================== DifferentialSparseMultivariatePolynomial examples ==================================================================== @@ -25821,7 +25821,7 @@ DifferentialSparseMultivariatePolynomial examples See Also: o )show DifferentialSparseMultivariatePolynomial -@ +\end{chunk} \pagehead{DifferentialSparseMultivariatePolynomial}{DSMP} \pagepic{ps/v103differentialsparsemultivariatepolynomial.ps}{DSMP}{1.00} @@ -25926,7 +25926,7 @@ o )show DifferentialSparseMultivariatePolynomial \cross{DSMP}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain DSMP DifferentialSparseMultivariatePolynomial} )abbrev domain DSMP DifferentialSparseMultivariatePolynomial ++ Author: William Sit ++ Date Created: 19 July 1990 @@ -25970,17 +25970,17 @@ DifferentialSparseMultivariatePolynomial(R, S, V): coerce(p:SMP):$ == map(x+->x::V::$, y+->y::$, p)$PCL(IndexedExponents S, S, R, SMP, $) -@ -<>= +\end{chunk} +\begin{chunk}{DSMP.dotabb} "DSMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DSMP"] "DPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DPOLCAT"] "DSMP" -> "DPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DIRPROD DirectProduct} -<>= +\begin{chunk}{DirectProduct.input} )set break resume )sys rm -f DirectProduct.output )spool DirectProduct.output @@ -26104,8 +26104,8 @@ DifferentialSparseMultivariatePolynomial(R, S, V): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DirectProduct.help} ==================================================================== DirectProduct examples ==================================================================== @@ -26113,7 +26113,7 @@ DirectProduct examples See Also: o )show DirectProduct -@ +\end{chunk} \pagehead{DirectProduct}{DIRPROD} \pagepic{ps/v103directproduct.ps}{DIRPROD}{1.00} @@ -26197,7 +26197,7 @@ o )show DirectProduct \cross{DIRPROD}{?.?} \end{tabular} -<>= +\begin{chunk}{domain DIRPROD DirectProduct} )abbrev domain DIRPROD DirectProduct ++ Author: Mark Botch ++ Date Created: @@ -26297,17 +26297,17 @@ DirectProduct(dim:NonNegativeInteger, R:Type): --)bo $noSubsumption := false -@ -<>= +\end{chunk} +\begin{chunk}{DIRPROD.dotabb} "DIRPROD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DIRPROD"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "DIRPROD" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DPMM DirectProductMatrixModule} -<>= +\begin{chunk}{DirectProductMatrixModule.input} )set break resume )sys rm -f DirectProductMatrixModule.output )spool DirectProductMatrixModule.output @@ -26427,8 +26427,8 @@ DirectProduct(dim:NonNegativeInteger, R:Type): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DirectProductMatrixModule.help} ==================================================================== DirectProductMatrixModule examples ==================================================================== @@ -26436,7 +26436,7 @@ DirectProductMatrixModule examples See Also: o )show DirectProductMatrixModule -@ +\end{chunk} \pagehead{DirectProductMatrixModule}{DPMM} \pagepic{ps/v103directproductmatrixmodule.ps}{DPMM}{1.00} @@ -26525,7 +26525,7 @@ o )show DirectProductMatrixModule \cross{DPMM}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain DPMM DirectProductMatrixModule} )abbrev domain DPMM DirectProductMatrixModule ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -26555,17 +26555,17 @@ DirectProductMatrixModule(n, R, M, S): DPcategory == DPcapsule where r:R * x:$ == [r*x.i for i in 1..n] m:M * x:$ == [ +/[m(i,j)*x.j for j in 1..n] for i in 1..n] -@ -<>= +\end{chunk} +\begin{chunk}{DPMM.dotabb} "DPMM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DPMM"] "SMATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SMATCAT"] "DPMM" -> "SMATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DPMO DirectProductModule} -<>= +\begin{chunk}{DirectProductModule.input} )set break resume )sys rm -f DirectProductModule.output )spool DirectProductModule.output @@ -26685,8 +26685,8 @@ DirectProductMatrixModule(n, R, M, S): DPcategory == DPcapsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DirectProductModule.help} ==================================================================== DirectProductModule examples ==================================================================== @@ -26694,7 +26694,7 @@ DirectProductModule examples See Also: o )show DirectProductModule -@ +\end{chunk} \pagehead{DirectProductModule}{DPMO} \pagepic{ps/v103directproductmodule.ps}{DPMO}{1.00} @@ -26782,7 +26782,7 @@ o )show DirectProductModule \cross{DPMO}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain DPMO DirectProductModule} )abbrev domain DPMO DirectProductModule ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -26811,13 +26811,13 @@ DirectProductModule(n, R, S): DPcategory == DPcapsule where Rep := Vector(S) r:R * x:$ == [r * x.i for i in 1..n] -@ -<>= +\end{chunk} +\begin{chunk}{DPMO.dotabb} "DPMO" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DPMO"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "DPMO" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DIRRING DirichletRing} The Dirichlet Ring is the ring of arithmetical functions @@ -26837,7 +26837,7 @@ in this case it is even an algebra. Apart from the operations inherited from those categories, we only provide some convenient coercion functions. -<>= +\begin{chunk}{DirichletRing.input} )set break resume )sys rm -f DirichletRing.output )spool DirichletRing.output @@ -27052,8 +27052,8 @@ reduce(_and,[(x = y)@Boolean for x in t9 for y in t10]) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DirichletRing.help} ==================================================================== DirichletRing examples ==================================================================== @@ -27061,7 +27061,7 @@ DirichletRing examples See Also: o )show DirichletRing -@ +\end{chunk} \pagehead{DirichletRing}{DIRRING} \pagepic{ps/v103dirichletring.ps}{DIRRING}{1.00} @@ -27098,7 +27098,7 @@ o )show DirichletRing \cross{DIRRING}{zeta} && \end{tabular} -<>= +\begin{chunk}{domain DIRRING DirichletRing} )abbrev domain DIRRING DirichletRing ++ Author: Martin Rubey ++ Description: DirichletRing is the ring of arithmetical functions @@ -27230,17 +27230,17 @@ DirichletRing(Coef: Ring): return false true -@ -<>= +\end{chunk} +\begin{chunk}{DIRRING.dotabb} "DIRRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DIRRING"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "DIRRING" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DMP DistributedMultivariatePolynomial} -<>= +\begin{chunk}{DistributedMultivariatePolynomial.input} )set break resume )sys rm -f DistributedMultivariatePolynomial.output )spool DistributedMultivariatePolynomial.output @@ -27348,9 +27348,9 @@ groebner [n1,n2,n3] --E 10 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{DistributedMultivariatePolynomial.help} ==================================================================== MultivariatePolynomial DistributedMultivariatePolynomial @@ -27449,7 +27449,7 @@ o )help HomogeneousDistributedMultivariatePolynomial o )help GeneralDistributedMultivariatePolynomial o )show DistributedMultivariatePolynomial -@ +\end{chunk} \pagehead{DistributedMultivariatePolynomial}{DMP} \pagepic{ps/v103distributedmultivariatepolynomial.ps}{DMP}{1.00} {\bf See}\\ @@ -27544,7 +27544,7 @@ o )show DistributedMultivariatePolynomial \cross{DMP}{?$>=$?} \end{tabular} -<>= +\begin{chunk}{domain DMP DistributedMultivariatePolynomial} )abbrev domain DMP DistributedMultivariatePolynomial ++ Author: Barry Trager ++ Date Created: @@ -27578,19 +27578,19 @@ DistributedMultivariatePolynomial(vl,R): public == private where private == GeneralDistributedMultivariatePolynomial(vl,R,E) -@ -<>= +\end{chunk} +\begin{chunk}{DMP.dotabb} "DMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "DMP" -> "PFECAT" "DMP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DIV Divisor} -<>= +\begin{chunk}{Divisor.input} )set break resume )sys rm -f Divisor.output )spool Divisor.output @@ -27638,8 +27638,8 @@ DistributedMultivariatePolynomial(vl,R): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Divisor.help} ==================================================================== Divisor examples ==================================================================== @@ -27647,7 +27647,7 @@ Divisor examples See Also: o )show Divisor -@ +\end{chunk} \pagehead{Divisor}{DIV} \pagepic{ps/v103divisor.ps}{DIV}{1.00} @@ -27692,7 +27692,7 @@ o )show Divisor \cross{DIV}{zero?} && \end{tabular} -<>= +\begin{chunk}{domain DIV Divisor} )abbrev domain DIV Divisor ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -27835,15 +27835,15 @@ Divisor(S:SetCategoryWithDegree):Exports == Implementation where degree(d:%):Integer== reduce("+",[(p.exp * degree(p.gen)) for p in d @ Rep],0$INT) -@ -<>= +\end{chunk} +\begin{chunk}{DIV.dotabb} "DIV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DIV",shape=ellipse] "DIVCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=DIVCAT"]; "FLAGG" [color=lightblue,href="bookvol10.2.pdf#nameddest=FLAGG"]; "DIV" -> "DIVCAT" "DIV" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DFLOAT DoubleFloat} Greg Vanuxem has added some functionality to allow the user to modify @@ -27997,7 +27997,7 @@ results into an Axiom {\bf Fraction(Integer)} and {\tt integerDecode} which just returns a list of the multiple values from the {\tt integer-decode-float} function. -<>= +\begin{chunk}{DoubleFloat.input} )set break resume )sys rm -f DoubleFloat.output )spool DoubleFloat.output @@ -28113,9 +28113,9 @@ machineFraction a )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{DoubleFloat.help} ==================================================================== DoubleFloat examples ==================================================================== @@ -28229,7 +28229,7 @@ See Also: o )help Float o )show DoubleFloat -@ +\end{chunk} \pagehead{DoubleFloat}{DFLOAT} \pagepic{ps/v103doublefloat.ps}{DFLOAT}{1.00} @@ -28359,7 +28359,7 @@ o )show DoubleFloat \cross{DFLOAT}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain DFLOAT DoubleFloat} )abbrev domain DFLOAT DoubleFloat ++ Author: Michael Monagan ++ Date Created: @@ -28695,17 +28695,17 @@ DoubleFloat(): Join(FloatingPointSystem, DifferentialRing, OpenMath, d = 2 => sqrt(x) ** n x ** (n::% / d::%) -@ -<>= +\end{chunk} +\begin{chunk}{DFLOAT.dotabb} "DFLOAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DFLOAT", shape=ellipse] "FRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRAC"] "DFLOAT" -> "FRAC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DFMAT DoubleFloatMatrix} -<>= +\begin{chunk}{DoubleFloatMatrix.input} )set break resume )sys rm -f DoubleFloatMatrix.output )spool DoubleFloatMatrix.output @@ -28844,9 +28844,9 @@ a )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{DoubleFloatMatrix.help} ==================================================================== DoubleFloatMatrix examples ==================================================================== @@ -28885,7 +28885,7 @@ o )help Float o )help DoubleFloat o )show DoubleFloatMatrix -@ +\end{chunk} \pagehead{DoubleFloatMatrix}{DFMAT} \pagepic{ps/v103doublefloatmatrix.eps}{DFMAT}{1.00} @@ -28978,7 +28978,7 @@ o )show DoubleFloatMatrix \cross{DFMAT}{zero} && \end{tabular} -<>= +\begin{chunk}{domain DFMAT DoubleFloatMatrix} )abbrev domain DFMAT DoubleFloatMatrix ++ Author: Waldek Hebisch ++ Description: This is a low-level domain which implements matrices @@ -29016,8 +29016,8 @@ DoubleFloatMatrix : MatrixCategory(DoubleFloat, qnew(rows, cols) == Qnew(rows, cols) new(rows, cols, a) == Qnew1(rows, cols, a) -@ -<>= +\end{chunk} +\begin{chunk}{DFMAT.dotabb} "DFMAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DFMAT", shape=ellipse] "VECTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=VECTCAT"]; @@ -29025,10 +29025,10 @@ DoubleFloatMatrix : MatrixCategory(DoubleFloat, "DFMAT" -> "VECTCAT" "DFMAT" -> "MATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DFVEC DoubleFloatVector} -<>= +\begin{chunk}{DoubleFloatVector.input} )set break resume )sys rm -f DoubleFloatVector.output )spool DoubleFloatVector.output @@ -29173,9 +29173,9 @@ t1 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{DoubleFloatVector.help} ==================================================================== DoubleFloatVector examples ==================================================================== @@ -29209,7 +29209,7 @@ o )help Float o )help DoubleFloat o )show DoubleFloatVector -@ +\end{chunk} \pagehead{DoubleFloatVector}{DFVEC} \pagepic{ps/v103doublefloatvector.ps}{DFVEC}{1.00} @@ -29290,7 +29290,7 @@ o )show DoubleFloatVector \cross{DFVEC}{zero} && \end{tabular} -<>= +\begin{chunk}{domain DFVEC DoubleFloatVector} )abbrev domain DFVEC DoubleFloatVector ++ Author: Waldek Hebisch ++ Description: This is a low-level domain which implements vectors @@ -29326,18 +29326,18 @@ DoubleFloatVector : VectorCategory DoubleFloat with for i in 0..((Qsize(x)) - 1) repeat Qsetelt1(x, i, s) x -@ -<>= +\end{chunk} +\begin{chunk}{DFVEC.dotabb} "DFVEC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DFVEC", shape=ellipse] "VECTCAT" [color=lightblue,href="bookvol10.2.pdf#nameddest=VECTCAT"]; "DFVEC" -> "VECTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain DROPT DrawOption} -<>= +\begin{chunk}{DrawOption.input} )set break resume )sys rm -f DrawOption.output )spool DrawOption.output @@ -29379,8 +29379,8 @@ DoubleFloatVector : VectorCategory DoubleFloat with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DrawOption.help} ==================================================================== DrawOption examples ==================================================================== @@ -29388,7 +29388,7 @@ DrawOption examples See Also: o )show DrawOption -@ +\end{chunk} \pagehead{DrawOption}{DROPT} \pagepic{ps/v103drawoption.ps}{DROPT}{1.00} @@ -29423,7 +29423,7 @@ o )show DrawOption \cross{DROPT}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain DROPT DrawOption} )abbrev domain DROPT DrawOption ++ Author: Stephen Watt ++ Date Created: 1 March 1990 @@ -29635,17 +29635,17 @@ DrawOption(): Exports == Implementation where x.keyword = s => return(x.value) "failed" -@ -<>= +\end{chunk} +\begin{chunk}{DROPT.dotabb} "DROPT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=DROPT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "DROPT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01AJFA d01ajfAnnaType} -<>= +\begin{chunk}{d01ajfAnnaType.input} )set break resume )sys rm -f d01ajfAnnaType.output )spool d01ajfAnnaType.output @@ -29673,8 +29673,8 @@ DrawOption(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01ajfAnnaType.help} ==================================================================== d01ajfAnnaType examples ==================================================================== @@ -29682,7 +29682,7 @@ d01ajfAnnaType examples See Also: o )show d01ajfAnnaType -@ +\end{chunk} \pagehead{d01ajfAnnaType}{D01AJFA} \pagepic{ps/v103d01ajfannatype.ps}{D01AJFA}{1.00} @@ -29698,7 +29698,7 @@ o )show d01ajfAnnaType \cross{D01AJFA}{?=?} \end{tabular} -<>= +\begin{chunk}{domain D01AJFA d01ajfAnnaType} )abbrev domain D01AJFA d01ajfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -29752,17 +29752,17 @@ d01ajfAnnaType(): NumericalIntegrationCategory == Result add d01ajf(getlo(args.range),gethi(args.range),args.abserr,_ args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01AJFA.dotabb} "D01AJFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01AJFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01AJFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01AKFA d01akfAnnaType} -<>= +\begin{chunk}{d01akfAnnaType.input} )set break resume )sys rm -f d01akfAnnaType.output )spool d01akfAnnaType.output @@ -29790,8 +29790,8 @@ d01ajfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01akfAnnaType.help} ==================================================================== d01akfAnnaType examples ==================================================================== @@ -29799,7 +29799,7 @@ d01akfAnnaType examples See Also: o )show d01akfAnnaType -@ +\end{chunk} \pagehead{d01akfAnnaType}{D01AKFA} \pagepic{ps/v103d01akfannatype.ps}{D01AKFA}{1.00} @@ -29815,7 +29815,7 @@ o )show d01akfAnnaType \cross{D01AKFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01AKFA d01akfAnnaType} )abbrev domain D01AKFA d01akfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -29874,17 +29874,17 @@ d01akfAnnaType(): NumericalIntegrationCategory == Result add d01akf(getlo(args.range),gethi(args.range),args.abserr,_ args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01AKFA.dotabb} "D01AKFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01AKFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01AKFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01ALFA d01alfAnnaType} -<>= +\begin{chunk}{d01alfAnnaType.input} )set break resume )sys rm -f d01alfAnnaType.output )spool d01alfAnnaType.output @@ -29912,8 +29912,8 @@ d01akfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01alfAnnaType.help} ==================================================================== d01alfAnnaType examples ==================================================================== @@ -29921,7 +29921,7 @@ d01alfAnnaType examples See Also: o )show d01alfAnnaType -@ +\end{chunk} \pagehead{d01alfAnnaType}{D01ALFA} \pagepic{ps/v103d01alfannatype.ps}{D01ALFA}{1.00} @@ -29937,7 +29937,7 @@ o )show d01alfAnnaType \cross{D01ALFA}{?=?} \end{tabular} -<>= +\begin{chunk}{domain D01ALFA d01alfAnnaType} )abbrev domain D01ALFA d01alfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30008,17 +30008,17 @@ d01alfAnnaType(): NumericalIntegrationCategory == Result add d01alf(getlo(args.range),gethi(args.range),n,M,_ args.abserr,args.relerr,2*n*iw,n*iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01ALFA.dotabb} "D01ALFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01ALFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01ALFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01AMFA d01amfAnnaType} -<>= +\begin{chunk}{d01amfAnnaType.input} )set break resume )sys rm -f d01amfAnnaType.output )spool d01amfAnnaType.output @@ -30046,8 +30046,8 @@ d01alfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01amfAnnaType.help} ==================================================================== d01amfAnnaType examples ==================================================================== @@ -30055,7 +30055,7 @@ d01amfAnnaType examples See Also: o )show d01amfAnnaType -@ +\end{chunk} \pagehead{d01amfAnnaType}{D01AMFA} \pagepic{ps/v103d01amfannatype.ps}{D01AMFA}{1.00} @@ -30071,7 +30071,7 @@ o )show d01amfAnnaType \cross{D01AMFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01AMFA d01amfAnnaType} )abbrev domain D01AMFA d01amfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30138,17 +30138,17 @@ d01amfAnnaType(): NumericalIntegrationCategory == Result add r := 2 d01amf(bound,r,args.abserr,args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01AMFA.dotabb} "D01AMFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01AMFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01AMFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01ANFA d01anfAnnaType} -<>= +\begin{chunk}{d01anfAnnaType.input} )set break resume )sys rm -f d01anfAnnaType.output )spool d01anfAnnaType.output @@ -30176,8 +30176,8 @@ d01amfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01anfAnnaType.help} ==================================================================== d01anfAnnaType examples ==================================================================== @@ -30185,7 +30185,7 @@ d01anfAnnaType examples See Also: o )show d01anfAnnaType -@ +\end{chunk} \pagehead{d01anfAnnaType}{D01ANFA} \pagepic{ps/v103d01anfannatype.ps}{D01ANFA}{1.00} @@ -30201,7 +30201,7 @@ o )show d01anfAnnaType \cross{D10ANFA}{?=?} \end{tabular} -<>= +\begin{chunk}{domain D01ANFA d01anfAnnaType} )abbrev domain D01ANFA d01anfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30270,17 +30270,17 @@ d01anfAnnaType(): NumericalIntegrationCategory == Result add d01anf(getlo(args.range),gethi(args.range),rec.w,a,_ args.abserr,args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01ANFA.dotabb} "D01ANFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01ANFA"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "D01ANFA" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01APFA d01apfAnnaType} -<>= +\begin{chunk}{d01apfAnnaType.input} )set break resume )sys rm -f d01apfAnnaType.output )spool d01apfAnnaType.output @@ -30308,8 +30308,8 @@ d01anfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01apfAnnaType.help} ==================================================================== d01apfAnnaType examples ==================================================================== @@ -30317,7 +30317,7 @@ d01apfAnnaType examples See Also: o )show d01apfAnnaType -@ +\end{chunk} \pagehead{d01apfAnnaType}{D01APFA} \pagepic{ps/v103d01apfannatype.ps}{D01APFA}{1.00} @@ -30333,7 +30333,7 @@ o )show d01apfAnnaType \cross{D01APFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01APFA d01apfAnnaType} )abbrev domain D01APFA d01apfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30415,17 +30415,17 @@ d01apfAnnaType(): NumericalIntegrationCategory == Result add d01apf(getlo(args.range),gethi(args.range),c,d,l,_ args.abserr,args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01APFA.dotabb} "D01APFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01APFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01APFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01AQFA d01aqfAnnaType} -<>= +\begin{chunk}{d01aqfAnnaType.input} )set break resume )sys rm -f d01aqfAnnaType.output )spool d01aqfAnnaType.output @@ -30453,8 +30453,8 @@ d01apfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01aqfAnnaType.help} ==================================================================== d01aqfAnnaType examples ==================================================================== @@ -30462,7 +30462,7 @@ d01aqfAnnaType examples See Also: o )show d01aqfAnnaType -@ +\end{chunk} \pagehead{d01aqfAnnaType}{D01AQFA} \pagepic{ps/v103d01aqfannatype.ps}{D01AQFA}{1.00} @@ -30478,7 +30478,7 @@ o )show d01aqfAnnaType \cross{D01APFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01AQFA d01aqfAnnaType} )abbrev domain D01AQFA d01aqfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30554,19 +30554,19 @@ d01aqfAnnaType(): NumericalIntegrationCategory == Result add d01aqf(getlo(Args.range),gethi(Args.range),c,_ Args.abserr,Args.relerr,4*iw,iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01AQFA.dotabb} "D01AQFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01AQFA"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "D01AQFA" -> "STRING" "D01AQFA" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01ASFA d01asfAnnaType} -<>= +\begin{chunk}{d01asfAnnaType.input} )set break resume )sys rm -f d01asfAnnaType.output )spool d01asfAnnaType.output @@ -30594,8 +30594,8 @@ d01aqfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01asfAnnaType.help} ==================================================================== d01asfAnnaType examples ==================================================================== @@ -30603,7 +30603,7 @@ d01asfAnnaType examples See Also: o )show d01asfAnnaType -@ +\end{chunk} \pagehead{d01asfAnnaType}{D01ASFA} \pagepic{ps/v103d01asfannatype.ps}{D01ASFA}{1.00} @@ -30619,7 +30619,7 @@ o )show d01asfAnnaType \cross{D01ASFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01ASFA d01asfAnnaType} )abbrev domain D01ASFA d01asfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30694,17 +30694,17 @@ d01asfAnnaType(): NumericalIntegrationCategory == Result add args.relerr d01asf(getlo(args.range),rec.w,i,err,50,4*iw,2*iw,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{D01ASFA.dotabb} "D01ASFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01ASFA"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "D01ASFA" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01FCFA d01fcfAnnaType} -<>= +\begin{chunk}{d01fcfAnnaType.input} )set break resume )sys rm -f d01fcfAnnaType.output )spool d01fcfAnnaType.output @@ -30732,8 +30732,8 @@ d01asfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01fcfAnnaType.help} ==================================================================== d01fcfAnnaType examples ==================================================================== @@ -30741,7 +30741,7 @@ d01fcfAnnaType examples See Also: o )show d01fcfAnnaType -@ +\end{chunk} \pagehead{d01fcfAnnaType}{D01FCFA} \pagepic{ps/v103d01fcfannatype.ps}{D01FCFA}{1.00} @@ -30757,7 +30757,7 @@ o )show d01fcfAnnaType \cross{D01FCFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01FCFA d01fcfAnnaType} )abbrev domain D01FCFA d01fcfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30822,17 +30822,17 @@ d01fcfAnnaType(): NumericalIntegrationCategory == Result add out:Result := d01fcf(dim,low,high,maxpts,err,lenwrk,minpts,-1,f) changeName(finval@Symbol,result@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{D01FCFA.dotabb} "D01FCFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01FCFA"] "TRANFUN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TRANFUN"] "D01FCFA" -> "TRANFUN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01GBFA d01gbfAnnaType} -<>= +\begin{chunk}{d01gbfAnnaType.input} )set break resume )sys rm -f d01gbfAnnaType.output )spool d01gbfAnnaType.output @@ -30860,8 +30860,8 @@ d01fcfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01gbfAnnaType.help} ==================================================================== d01gbfAnnaType examples ==================================================================== @@ -30869,7 +30869,7 @@ d01gbfAnnaType examples See Also: o )show d01gbfAnnaType -@ +\end{chunk} \pagehead{d01gbfAnnaType}{D01GBFA} \pagepic{ps/v103d01gbfannatype.ps}{D01GBFA}{1.00} @@ -30885,7 +30885,7 @@ o )show d01gbfAnnaType \cross{D01GBFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01GBFA d01gbfAnnaType} )abbrev domain D01GBFA d01gbfAnnaType ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -30952,8 +30952,8 @@ d01gbfAnnaType(): NumericalIntegrationCategory == Result add d01gbf(dim,low,high,maxcls,args.relerr,lenwrk,mincls,wrkstr,-1,f) changeName(finest@Symbol,result@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{D01GBFA.dotabb} "D01GBFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01GBFA"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] @@ -30962,11 +30962,11 @@ d01gbfAnnaType(): NumericalIntegrationCategory == Result add "D01GBFA" -> "RADCAT" "D01GBFA" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D01TRNS d01TransformFunctionType} -<>= +\begin{chunk}{d01TransformFunctionType.input} )set break resume )sys rm -f d01TransformFunctionType.output )spool d01TransformFunctionType.output @@ -30994,8 +30994,8 @@ d01gbfAnnaType(): NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d01TransformFunctionType.help} ==================================================================== d01TransformFunctionType examples ==================================================================== @@ -31003,7 +31003,7 @@ d01TransformFunctionType examples See Also: o )show d01TransformFunctionType -@ +\end{chunk} \pagehead{d01TransformFunctionType}{D01TRNS} \pagepic{ps/v103d01transformfunctiontype.ps}{D01TRNS}{1.00} @@ -31019,7 +31019,7 @@ o )show d01TransformFunctionType \cross{D01TRNS}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D01TRNS d01TransformFunctionType} )abbrev domain D01TRNS d01TransformFunctionType ++ Author: Brian Dupee ++ Date Created: April 1994 @@ -31176,17 +31176,17 @@ d01TransformFunctionType():NumericalIntegrationCategory == Result add recAbserr:Record(key:S,entry:Any):=[abserr pretend S,anyAbserr] insert!(recAbserr,insert!(recResult,ans))$Result -@ -<>= +\end{chunk} +\begin{chunk}{D01TRNS.dotabb} "D01TRNS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D01TRNS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "D01TRNS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D02BBFA d02bbfAnnaType} -<>= +\begin{chunk}{d02bbfAnnaType.input} )set break resume )sys rm -f d02bbfAnnaType.output )spool d02bbfAnnaType.output @@ -31212,8 +31212,8 @@ d01TransformFunctionType():NumericalIntegrationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d02bbfAnnaType.help} ==================================================================== d02bbfAnnaType examples ==================================================================== @@ -31221,7 +31221,7 @@ d02bbfAnnaType examples See Also: o )show d02bbfAnnaType -@ +\end{chunk} \pagehead{d02bbfAnnaType}{D02BBFA} \pagepic{ps/v103d02bbfannatype.ps}{D02BBFA}{1.00} @@ -31237,7 +31237,7 @@ o )show d02bbfAnnaType \cross{D02BBFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D02BBFA d02bbfAnnaType} )abbrev domain D02BBFA d02bbfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -31327,17 +31327,17 @@ d02bbfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add d02bbf(ode.xend,M,# ode.fn,irelab,ode.xinit,matrix([ode.yinit])$MDF, tol,-1,asp7,asp8) -@ -<>= +\end{chunk} +\begin{chunk}{D02BBFA.dotabb} "D02BBFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D02BBFA"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "D02BBFA" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D02BHFA d02bhfAnnaType} -<>= +\begin{chunk}{d02bhfAnnaType.input} )set break resume )sys rm -f d02bhfAnnaType.output )spool d02bhfAnnaType.output @@ -31363,8 +31363,8 @@ d02bbfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d02bhfAnnaType.help} ==================================================================== d02bhfAnnaType examples ==================================================================== @@ -31372,7 +31372,7 @@ d02bhfAnnaType examples See Also: o )show d02bhfAnnaType -@ +\end{chunk} \pagehead{d02bhfAnnaType}{D02BHFA} \pagepic{ps/v103d02bhfannatype.ps}{D02BHFA}{1.00} @@ -31388,7 +31388,7 @@ o )show d02bhfAnnaType \cross{D02BHFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D02BHFA d02bhfAnnaType} )abbrev domain D02BHFA d02bhfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -31475,17 +31475,17 @@ d02bhfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add d02bhf(ode.xend,# e,irelab,0$DF,ode.xinit,matrix([ode.yinit])$MDF, tol,-1,asp9,asp7) -@ -<>= +\end{chunk} +\begin{chunk}{D02BHFA.dotabb} "D02BHFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D02BHFA"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "D02BHFA" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D02CJFA d02cjfAnnaType} -<>= +\begin{chunk}{d02cjfAnnaType.input} )set break resume )sys rm -f d02cjfAnnaType.output )spool d02cjfAnnaType.output @@ -31511,8 +31511,8 @@ d02bhfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d02cjfAnnaType.help} ==================================================================== d02cjfAnnaType examples ==================================================================== @@ -31520,7 +31520,7 @@ d02cjfAnnaType examples See Also: o )show d02cjfAnnaType -@ +\end{chunk} \pagehead{d02cjfAnnaType}{D02CJFA} \pagepic{ps/v103d02cjfannatype.ps}{D02CJFA}{1.00} @@ -31536,7 +31536,7 @@ o )show d02cjfAnnaType \cross{D02CJFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D02CJFA d02cjfAnnaType} )abbrev domain D02CJFA d02cjfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -31616,17 +31616,17 @@ d02cjfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add d02cjf(ode.xend,M,# e,tol,ire,ode.xinit,matrix([ode.yinit])$MDF, -1,asp9,asp7,asp8) -@ -<>= +\end{chunk} +\begin{chunk}{D02CJFA.dotabb} "D02CJFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D02CJFA"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "D02CJFA" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D02EJFA d02ejfAnnaType} -<>= +\begin{chunk}{d02ejfAnnaType.input} )set break resume )sys rm -f d02ejfAnnaType.output )spool d02ejfAnnaType.output @@ -31652,8 +31652,8 @@ d02cjfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d02ejfAnnaType.help} ==================================================================== d02ejfAnnaType examples ==================================================================== @@ -31661,7 +31661,7 @@ d02ejfAnnaType examples See Also: o )show d02ejfAnnaType -@ +\end{chunk} \pagehead{d02ejfAnnaType}{D02EJFA} \pagepic{ps/v103d02ejfannatype.ps}{D02EJFA}{1.00} @@ -31677,7 +31677,7 @@ o )show d02ejfAnnaType \cross{D02EJFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D02EJFA d02ejfAnnaType} )abbrev domain D02EJFA d02ejfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -31782,8 +31782,8 @@ d02ejfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add ans := d02ejf(ode.xend,m,n,ire,iw,ode.xinit,matrix([ode.yinit])$MDF, tol,-1,asp9,asp7,asp31,asp8) -@ -<>= +\end{chunk} +\begin{chunk}{D02EJFA.dotabb} "D02EJFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D02EJFA"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] @@ -31794,11 +31794,11 @@ d02ejfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add "D02EJFA" -> "FIELD" "D02EJFA" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D03EEFA d03eefAnnaType} -<>= +\begin{chunk}{d03eefAnnaType.input} )set break resume )sys rm -f d03eefAnnaType.output )spool d03eefAnnaType.output @@ -31824,8 +31824,8 @@ d02ejfAnnaType():OrdinaryDifferentialEquationsSolverCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d03eefAnnaType.help} ==================================================================== d03eefAnnaType examples ==================================================================== @@ -31833,7 +31833,7 @@ d03eefAnnaType examples See Also: o )show d03eefAnnaType -@ +\end{chunk} \pagehead{d03eefAnnaType}{D03EEFA} \pagepic{ps/v103d03eefannatype.ps}{D03EEFA}{1.00} @@ -31849,7 +31849,7 @@ o )show d03eefAnnaType \cross{D03EEFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D03EEFA d03eefAnnaType} )abbrev domain D03EEFA d03eefAnnaType ++ Author: Brian Dupee ++ Date Created: June 1996 @@ -31920,17 +31920,17 @@ d03eefAnnaType():PartialDifferentialEquationsSolverCategory == Result add fderhs := retract(rh)$AnyFunctions1(MDF) d03edf(nx,ny,lda,15,args.tol,0,fdea,fderhs,ub,-1) -@ -<>= +\end{chunk} +\begin{chunk}{D03EEFA.dotabb} "D03EEFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D03EEFA"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "D03EEFA" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain D03FAFA d03fafAnnaType} -<>= +\begin{chunk}{d03fafAnnaType.input} )set break resume )sys rm -f d03fafAnnaType.output )spool d03fafAnnaType.output @@ -31956,8 +31956,8 @@ d03eefAnnaType():PartialDifferentialEquationsSolverCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{d03fafAnnaType.help} ==================================================================== d03fafAnnaType examples ==================================================================== @@ -31965,7 +31965,7 @@ d03fafAnnaType examples See Also: o )show d03fafAnnaType -@ +\end{chunk} \pagehead{d03fafAnnaType}{D03FAFA} \pagepic{ps/v103d03fafannatype.ps}{D03FAFA}{1.00} @@ -31981,7 +31981,7 @@ o )show d03fafAnnaType \cross{D03FAFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain D03FAFA d03fafAnnaType} )abbrev domain D03FAFA d03fafAnnaType ++ Author: Brian Dupee ++ Date Created: July 1996 @@ -32019,19 +32019,19 @@ d03fafAnnaType():PartialDifferentialEquationsSolverCategory == Result add [0$F,"d03faf is unsuitable for PDEs of order other than 3"] [0$F,"d03faf isn't finished"] -@ -<>= +\end{chunk} +\begin{chunk}{D03FAFAs.dotabb} "D03FAFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=D03FAFA"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "D03FAFA" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter E} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EQ Equation} -<>= +\begin{chunk}{Equation.input} )set break resume )sys rm -f Equation.output )spool Equation.output @@ -32137,8 +32137,8 @@ eqpol::Boolean --E 12 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Equation.help} ==================================================================== Equation examples ==================================================================== @@ -32220,7 +32220,7 @@ do is ask! See Also: o )show Equation -@ +\end{chunk} \pagehead{Equation}{EQ} \pagepic{ps/v103equation.ps}{EQ}{1.00} @@ -32267,7 +32267,7 @@ o )show Equation \cross{EQ}{?\^{}?} & \end{tabular} -<>= +\begin{chunk}{domain EQ Equation} )abbrev domain EQ Equation --FOR THE BENEFIT OF LIBAX0 GENERATION ++ Author: Stephen M. Watt, enhancements by Johannes Grabmeier @@ -32479,17 +32479,17 @@ Equation(S: Type): public == private where eq3 := eq2 pretend Equation S [subst(lhs eq1,eq3),subst(rhs eq1,eq3)] -@ -<>= +\end{chunk} +\begin{chunk}{EQ.dotabb} "EQ" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EQ"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "EQ" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EQTBL EqTable} -<>= +\begin{chunk}{EqTable.input} )set break resume )sys rm -f EqTable.output )spool EqTable.output @@ -32545,8 +32545,8 @@ e.l1 --E 6 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EqTable.help} ==================================================================== EqTable examples ==================================================================== @@ -32591,7 +32591,7 @@ See Also: o )help Table o )show EqTable -@ +\end{chunk} \pagehead{EqTable}{EQTBL} \pagepic{ps/v103eqtable.ps}{EQTBL}{1.00} {\bf See}\\ @@ -32662,7 +32662,7 @@ o )show EqTable \cross{EQTBL}{?.?} &&&& \end{tabular} -<>= +\begin{chunk}{domain EQTBL EqTable} )abbrev domain EQTBL EqTable ++ Author: Stephen M. Watt ++ Date Created: @@ -32682,17 +32682,17 @@ o )show EqTable EqTable(Key: SetCategory, Entry: SetCategory) == HashTable(Key, Entry, "EQ") -@ -<>= +\end{chunk} +\begin{chunk}{EQTBL.dotabb} "EQTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EQTBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "EQTBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EMR EuclideanModularRing} -<>= +\begin{chunk}{EuclideanModularRing.input} )set break resume )sys rm -f EuclideanModularRing.output )spool EuclideanModularRing.output @@ -32747,8 +32747,8 @@ EqTable(Key: SetCategory, Entry: SetCategory) == )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EuclideanModularRing.help} ==================================================================== EuclideanModularRing examples ==================================================================== @@ -32756,7 +32756,7 @@ EuclideanModularRing examples See Also: o )show EuclideanModularRing -@ +\end{chunk} \pagehead{EuclideanModularRing}{EMR} \pagepic{ps/v103euclideanmodularring.ps}{EMR}{1.00} @@ -32809,7 +32809,7 @@ o )show EuclideanModularRing \cross{EMR}{?rem?} &&&& \end{tabular} -<>= +\begin{chunk}{domain EMR EuclideanModularRing} )abbrev domain EMR EuclideanModularRing ++ Author: Mark Botch ++ Description: @@ -32914,17 +32914,17 @@ EuclideanModularRing(S,R,Mod,reduction:(R,Mod) -> R, elt(x : %,s : R) : R == reduction(elt(x.val,s),x.modulo) -@ -<>= +\end{chunk} +\begin{chunk}{EMR.dotabb} "EMR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EMR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "EMR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXIT Exit} -<>= +\begin{chunk}{Exit.input} )set break resume )sys rm -f Exit.output )spool Exit.output @@ -32985,8 +32985,8 @@ n --E 6 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Exit.help} ==================================================================== Exit examples ==================================================================== @@ -33024,7 +33024,7 @@ resolved to be Integer. See Also: o )show Exit -@ +\end{chunk} \pagehead{Exit}{EXIT} \pagepic{ps/v103exit.ps}{EXIT}{1.00} @@ -33037,7 +33037,7 @@ o )show Exit \cross{EXIT}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain EXIT Exit} )abbrev domain EXIT Exit ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -33061,19 +33061,19 @@ Exit: SetCategory == add coerce(n:%) == error "Cannot use an Exit value." n1 = n2 == error "Cannot use an Exit value." -@ -<>= +\end{chunk} +\begin{chunk}{EXIT.dotabb} "EXIT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EXIT"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "EXIT" -> "BASTYPE" "EXIT" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXPEXPAN ExponentialExpansion} -<>= +\begin{chunk}{ExponentialExpansion.input} )set break resume )sys rm -f ExponentialExpansion.output )spool ExponentialExpansion.output @@ -33208,8 +33208,8 @@ Exit: SetCategory == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExponentialExpansion.help} ==================================================================== ExponentialExpansion examples ==================================================================== @@ -33217,7 +33217,7 @@ ExponentialExpansion examples See Also: o )show ExponentialExpansion -@ +\end{chunk} \pagehead{ExponentialExpansion}{EXPEXPAN} \pagepic{ps/v103exponentialexpansion.ps}{EXPEXPAN}{1.00} @@ -33309,7 +33309,7 @@ o )show ExponentialExpansion \cross{EXPEXPAN}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain EXPEXPAN ExponentialExpansion} )abbrev domain EXPEXPAN ExponentialExpansion ++ Author: Clifton J. Williamson ++ Date Created: 13 August 1992 @@ -33455,19 +33455,19 @@ ExponentialExpansion(R,FE,var,cen): Exports == Implementation where -- denominator tends to zero exponentially or is a series seriesQuotientInfinity(numCoef,denCoef) -@ -<>= +\end{chunk} +\begin{chunk}{EXPEXPAN.dotabb} "EXPEXPAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EXPEXPAN"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "EXPEXPAN" -> "ACF" "EXPEXPAN" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXPR Expression} -<>= +\begin{chunk}{Expression.input} )set break resume )sys rm -f Expression.output )spool Expression.output @@ -33703,8 +33703,8 @@ simplify % --E 23 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Expression.help} ==================================================================== Expression examples ==================================================================== @@ -33841,7 +33841,7 @@ See Also: o )show Kernel o )show Expression -@ +\end{chunk} \pagehead{Expression}{EXPR} \pagepic{ps/v103expression.ps}{EXPR}{1.00} {\bf See}\\ @@ -34006,7 +34006,7 @@ o )show Expression \cross{EXPR}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain EXPR Expression} )abbrev domain EXPR Expression ++ Author: Manuel Bronstein ++ Date Created: 19 July 1988 @@ -34536,17 +34536,17 @@ Expression(R:OrderedSet): Exports == Implementation where -- l:PatternMatchResult(Float, %)) == -- patternMatch(x pretend K, p, l)$PatternMatchKernel(Float, %) -@ -<>= +\end{chunk} +\begin{chunk}{EXPR.dotabb} "EXPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EXPR"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "EXPR" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EXPUPXS ExponentialOfUnivariatePuiseuxSeries} -<>= +\begin{chunk}{ExponentialOfUnivariatePuiseuxSeries.input} )set break resume )sys rm -f ExponentialOfUnivariatePuiseuxSeries.output )spool ExponentialOfUnivariatePuiseuxSeries.output @@ -34691,8 +34691,8 @@ Expression(R:OrderedSet): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExponentialOfUnivariatePuiseuxSeries.help} ==================================================================== ExponentialOfUnivariatePuiseuxSeries examples ==================================================================== @@ -34700,7 +34700,7 @@ ExponentialOfUnivariatePuiseuxSeries examples See Also: o )show ExponentialOfUnivariatePuiseuxSeries -@ +\end{chunk} \pagehead{ExponentialOfUnivariatePuiseuxSeries}{EXPUPXS} \pagepic{ps/v103exponentialofunivariatepuiseuxseries.ps}{EXPUPXS}{1.00} @@ -34819,7 +34819,7 @@ o )show ExponentialOfUnivariatePuiseuxSeries \cross{EXPUPXS}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain EXPUPXS ExponentialOfUnivariatePuiseuxSeries} )abbrev domain EXPUPXS ExponentialOfUnivariatePuiseuxSeries ++ Author: Clifton J. Williamson ++ Date Created: 4 August 1992 @@ -34890,17 +34890,17 @@ ExponentialOfUnivariatePuiseuxSeries(FE,var,cen):_ coerce(f:%):OutputForm == ("%e" :: OutputForm) ** ((coerce$Rep)(complete f)@OutputForm) -@ -<>= +\end{chunk} +\begin{chunk}{EXPUPXS.dotabb} "EXPUPXS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EXPUPXS"] "UPXSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UPXSCAT"] "EXPUPXS" -> "UPXSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain EAB ExtAlgBasis} -<>= +\begin{chunk}{ExtAlgBasis.input} )set break resume )sys rm -f ExtAlgBasis.output )spool ExtAlgBasis.output @@ -34929,8 +34929,8 @@ ExponentialOfUnivariatePuiseuxSeries(FE,var,cen):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ExtAlgBasis.help} ==================================================================== ExtAlgBasis examples ==================================================================== @@ -34938,7 +34938,7 @@ ExtAlgBasis examples See Also: o )show ExtAlgBasis -@ +\end{chunk} \pagehead{ExtAlgBasis}{EAB} \pagepic{ps/v103extalgbasis.ps}{EAB}{1.00} @@ -34964,7 +34964,7 @@ o )show ExtAlgBasis \cross{EAB}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain EAB ExtAlgBasis} )abbrev domain EAB ExtAlgBasis ++ Author: Larry Lambe ++ Date created: 03/14/89 @@ -35043,19 +35043,19 @@ ExtAlgBasis(): Export == Implement where coerce x == coerce(x @ Rep)$(L I) -@ -<>= +\end{chunk} +\begin{chunk}{EAB.dotabb} "EAB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=EAB"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "EAB" -> "PID" "EAB" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04DGFA e04dgfAnnaType} -<>= +\begin{chunk}{e04dgfAnnaType.input} )set break resume )sys rm -f e04dgfAnnaType.output )spool e04dgfAnnaType.output @@ -35083,8 +35083,8 @@ ExtAlgBasis(): Export == Implement where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04dgfAnnaType.help} ==================================================================== e04dgfAnnaType examples ==================================================================== @@ -35092,7 +35092,7 @@ e04dgfAnnaType examples See Also: o )show e04dgfAnnaType -@ +\end{chunk} \pagehead{e04dgfAnnaType}{E04DGFA} \pagepic{ps/v103e04dgfannatype.ps}{E04DGFA}{1.00} @@ -35115,7 +35115,7 @@ o )show e04dgfAnnaType \cross{E04DGFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04DGFA e04dgfAnnaType} )abbrev domain E04DGFA e04dgfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35184,17 +35184,17 @@ e04dgfAnnaType(): NumericalOptimizationCategory == Result add f:Union(fn:FileName,fp:Asp49(OBJFUN)) := [retract(ArgsFn)$Asp49(OBJFUN)] e04dgf(n,1$DF,fu,it,lin,true,ma,op,1,1,n,0,x,-1,f) -@ -<>= +\end{chunk} +\begin{chunk}{E04DGFA.dotabb} "E04DGFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04DGFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "E04DGFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04FDFA e04fdfAnnaType} -<>= +\begin{chunk}{e04fdfAnnaType.input} )set break resume )sys rm -f e04fdfAnnaType.output )spool e04fdfAnnaType.output @@ -35222,8 +35222,8 @@ e04dgfAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04fdfAnnaType.help} ==================================================================== e04fdfAnnaType examples ==================================================================== @@ -35231,7 +35231,7 @@ e04fdfAnnaType examples See Also: o )show e04fdfAnnaType -@ +\end{chunk} \pagehead{e04fdfAnnaType}{E04FDFA} \pagepic{ps/v103e04fdfannatype.ps}{E04FDFA}{1.00} @@ -35254,7 +35254,7 @@ o )show e04fdfAnnaType \cross{E04FDFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04FDFA e04fdfAnnaType} )abbrev domain E04FDFA e04fdfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35349,17 +35349,17 @@ e04fdfAnnaType(): NumericalOptimizationCategory == Result add out:Result := e04fdf(m,n,1,lw,x,-1,f) changeNameToObjf(fsumsq@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{E04FDFA.dotabb} "E04FDFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04FDFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "E04FDFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04GCFA e04gcfAnnaType} -<>= +\begin{chunk}{e04gcfAnnaType.input} )set break resume )sys rm -f e04gcfAnnaType.output )spool e04gcfAnnaType.output @@ -35387,8 +35387,8 @@ e04fdfAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04gcfAnnaType.help} ==================================================================== e04gcfAnnaType examples ==================================================================== @@ -35396,7 +35396,7 @@ e04gcfAnnaType examples See Also: o )show e04gcfAnnaType -@ +\end{chunk} \pagehead{e04gcfAnnaType}{E04GCFA} \pagepic{ps/v103e04gcfannatype.ps}{E04GCFA}{1.00} @@ -35419,7 +35419,7 @@ o )show e04gcfAnnaType \cross{E04GCFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04GCFA e04gcfAnnaType} )abbrev domain E04GCFA e04gcfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35530,17 +35530,17 @@ e04gcfAnnaType(): NumericalOptimizationCategory == Result add out:Result := e04gcf(m,n,1,lw,x,-1,f) changeNameToObjf(fsumsq@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{E04GCFA.dotabb} "E04GCFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04GCFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "E04GCFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04JAFA e04jafAnnaType} -<>= +\begin{chunk}{e04jafAnnaType.input} )set break resume )sys rm -f e04jafAnnaType.output )spool e04jafAnnaType.output @@ -35568,8 +35568,8 @@ e04gcfAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04jafAnnaType.help} ==================================================================== e04jafAnnaType examples ==================================================================== @@ -35577,7 +35577,7 @@ e04jafAnnaType examples See Also: o )show e04jafAnnaType -@ +\end{chunk} \pagehead{e04jafAnnaType}{E04JAFA} \pagepic{ps/v103e04jafannatype.ps}{E04JAFA}{1.00} @@ -35600,7 +35600,7 @@ o )show e04jafAnnaType \cross{E04JAFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04JAFA e04jafAnnaType} )abbrev domain E04JAFA e04jafAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35686,17 +35686,17 @@ e04jafAnnaType(): NumericalOptimizationCategory == Result add out:Result := e04jaf(n,ibound,n+2,lw,bl,bu,x,-1,fr) changeNameToObjf(f@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{E04JAFA.dotabb} "E04JAFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04JAFA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "E04JAFA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04MBFA e04mbfAnnaType} -<>= +\begin{chunk}{e04mbfAnnaType.input} )set break resume )sys rm -f e04mbfAnnaType.output )spool e04mbfAnnaType.output @@ -35724,8 +35724,8 @@ e04jafAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04mbfAnnaType.help} ==================================================================== e04mbfAnnaType examples ==================================================================== @@ -35733,7 +35733,7 @@ e04mbfAnnaType examples See Also: o )show e04mbfAnnaType -@ +\end{chunk} \pagehead{e04mbfAnnaType}{E04MBFA} \pagepic{ps/v103e04mbfannatype.ps}{E04MBFA}{1.00} @@ -35756,7 +35756,7 @@ o )show e04mbfAnnaType \cross{E04MBFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04MBFA e04mbfAnnaType} )abbrev domain E04MBFA e04mbfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35828,17 +35828,17 @@ e04mbfAnnaType(): NumericalOptimizationCategory == Result add out:Result := e04mbf(20,1,n,nclin,n+nclin,nrowa,A,bl,bu,cvec,true,2*n,lwork,x,-1) changeNameToObjf(objlp@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{E04MBFA.dotabb} "E04MBFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04MBFA"] "TRANFUN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TRANFUN"] "E04MBFA" -> "TRANFUN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04NAFA e04nafAnnaType} -<>= +\begin{chunk}{e04nafAnnaType.input} )set break resume )sys rm -f e04nafAnnaType.output )spool e04nafAnnaType.output @@ -35866,8 +35866,8 @@ e04mbfAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04nafAnnaType.help} ==================================================================== e04nafAnnaType examples ==================================================================== @@ -35875,7 +35875,7 @@ e04nafAnnaType examples See Also: o )show e04nafAnnaType -@ +\end{chunk} \pagehead{e04nafAnnaType}{E04NAFA} \pagepic{ps/v103e04nafannatype.ps}{E04NAFA}{1.00} @@ -35898,7 +35898,7 @@ o )show e04nafAnnaType \cross{E04NAFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04NAFA e04nafAnnaType} )abbrev domain E04NAFA e04nafAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -35985,17 +35985,17 @@ e04nafAnnaType(): NumericalOptimizationCategory == Result add hess,true,false,true,2*n,lwork,x,istate,-1,qphess) changeNameToObjf(obj@Symbol,out) -@ -<>= +\end{chunk} +\begin{chunk}{E04NAFA.dotabb} "E04NAFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04NAFA"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "E04NAFA" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain E04UCFA e04ucfAnnaType} -<>= +\begin{chunk}{e04ucfAnnaType.input} )set break resume )sys rm -f e04ucfAnnaType.output )spool e04ucfAnnaType.output @@ -36023,8 +36023,8 @@ e04nafAnnaType(): NumericalOptimizationCategory == Result add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{e04ucfAnnaType.help} ==================================================================== e04ucfAnnaType examples ==================================================================== @@ -36032,7 +36032,7 @@ e04ucfAnnaType examples See Also: o )show e04ucfAnnaType -@ +\end{chunk} \pagehead{e04ucfAnnaType}{E04UCFA} \pagepic{ps/v103e04ucfannatype.ps}{E04UCFA}{1.00} @@ -36055,7 +36055,7 @@ o )show e04ucfAnnaType \cross{E04UCFA}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain E04UCFA e04ucfAnnaType} )abbrev domain E04UCFA e04ucfAnnaType ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -36158,19 +36158,19 @@ e04ucfAnnaType(): NumericalOptimizationCategory == Result add fun,true,infb,infb,fea,lint,true,maji,1,mini,0,-1,nonf,opt,ste,1, 1,n,n,3,istate,cjac,clambda,r,x,-1,casp,fasp) -@ -<>= +\end{chunk} +\begin{chunk}{E04UCFA.dotabb} "E04UCFA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=E04UCFA"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "E04UCFA" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter F} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FR Factored} -<>= +\begin{chunk}{Factored.input} )set break resume )sys rm -f Factored.output )spool Factored.output @@ -36504,8 +36504,8 @@ numberOfFactors(%) --E 38 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Factored.help} ==================================================================== Factored examples ==================================================================== @@ -36787,7 +36787,7 @@ See Also: o )help FactoredFunctions2 o )show Factored -@ +\end{chunk} \pagehead{Factored}{FR} \pagepic{ps/v103factored.ps}{FR}{1.00} @@ -36853,7 +36853,7 @@ o )show Factored \cross{FR}{?.?} && \end{tabular} -<>= +\begin{chunk}{domain FR Factored} )abbrev domain FR Factored ++ Author: Robert S. Sutor ++ Date Created: 1985 @@ -37402,17 +37402,17 @@ Factored(R: IntegralDomain): Exports == Implementation where -- one?(l.first.xpnt) and (l.first.flg case "prime") ((l.first.xpnt) = 1) and (l.first.flg case "prime") -@ -<>= +\end{chunk} +\begin{chunk}{FR.dotabb} "FR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FR"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FR" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FILE File} -<>= +\begin{chunk}{File.input} )set break resume )sys rm -f File.output )spool File.output @@ -37517,8 +37517,8 @@ close! ifile )system rm jazz1 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{File.help} ==================================================================== File examples ==================================================================== @@ -37608,7 +37608,7 @@ o )help Library o )help Filename o )show File -@ +\end{chunk} \pagehead{File}{FILE} \pagepic{ps/v103file.ps}{FILE}{1.00} {\bf See}\\ @@ -37635,7 +37635,7 @@ o )show File \cross{FILE}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain FILE File} )abbrev domain FILE File ++ Author: Stephen M. Watt, Victor Miller ++ Date Created: 1984 @@ -37720,17 +37720,17 @@ File(S:SetCategory): FileCategory(FileName, S) with f.fileIOmode ^= "output" => error "File not in write state" FORCE_-OUTPUT(f.fileState)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{FILE.dotabb} "FILE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FILE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FILE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FNAME FileName} -<>= +\begin{chunk}{FileName.input} )set break resume )sys rm -f FileName.output )spool FileName.output @@ -37880,8 +37880,8 @@ fn := new(objdir, "xxx", "yy") --E 18 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FileName.help} ==================================================================== FileName examples ==================================================================== @@ -38008,7 +38008,7 @@ extension, and the same defaults are used. See Also: o )show FileName -@ +\end{chunk} \pagehead{FileName}{FNAME} \pagepic{ps/v103filename.ps}{FNAME}{1.00} @@ -38029,7 +38029,7 @@ o )show FileName \cross{FNAME}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain FNAME FileName} )abbrev domain FNAME FileName ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -38064,17 +38064,17 @@ FileName(): FileNameCategory == add new(d,pref,e) == fnameNew(d,pref,e)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{FNAME.dotabb} "FNAME" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FNAME"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FNAME" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FDIV FiniteDivisor} -<>= +\begin{chunk}{FiniteDivisor.input} )set break resume )sys rm -f FiniteDivisor.output )spool FiniteDivisor.output @@ -38112,8 +38112,8 @@ FileName(): FileNameCategory == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteDivisor.help} ==================================================================== FiniteDivisor examples ==================================================================== @@ -38121,7 +38121,7 @@ FiniteDivisor examples See Also: o )show FiniteDivisor -@ +\end{chunk} \pagehead{FiniteDivisor}{FDIV} \pagepic{ps/v103finitedivisor.ps}{FDIV}{1.00} @@ -38155,7 +38155,7 @@ o )show FiniteDivisor \cross{FDIV}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain FDIV FiniteDivisor} )abbrev domain FDIV FiniteDivisor ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -38283,17 +38283,17 @@ FiniteDivisor(F, UP, UPUP, R): Exports == Implementation where if not ground? gcd(g, b) then h := intReduce(h ** rank(), b) divisor ideal [b::RF::R, h]$Vector(R) -@ -<>= +\end{chunk} +\begin{chunk}{FDIV.dotabb} "FDIV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FDIV"] "FDIVCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FDIVCAT"] "FDIV" -> "FDIVCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FF FiniteField} -<>= +\begin{chunk}{FiniteField.input} )set break resume )sys rm -f FiniteField.output )spool FiniteField.output @@ -38406,8 +38406,8 @@ FiniteDivisor(F, UP, UPUP, R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteField.help} ==================================================================== FiniteField examples ==================================================================== @@ -38415,7 +38415,7 @@ FiniteField examples See Also: o )show FiniteField -@ +\end{chunk} \pagehead{FiniteField}{FF} \pagepic{ps/v103finitefield.ps}{FF}{1.00} @@ -38513,7 +38513,7 @@ o )show FiniteField \cross{FF}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain FF FiniteField} )abbrev domain FF FiniteField ++ Author: Mark Botch ++ Date Created: ??? @@ -38542,17 +38542,17 @@ FiniteField(p:PositiveInteger, n:PositiveInteger): _ -- now "better" order (sparse polys first) -- generateIrredPoly(n)$IrredPolyOverFiniteField(GF)) -@ -<>= +\end{chunk} +\begin{chunk}{FF.dotabb} "FF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FF"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FF" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFCG FiniteFieldCyclicGroup} -<>= +\begin{chunk}{FiniteFieldCyclicGroup.input} )set break resume )sys rm -f FiniteFieldCyclicGroup.output )spool FiniteFieldCyclicGroup.output @@ -38666,8 +38666,8 @@ FiniteField(p:PositiveInteger, n:PositiveInteger): _ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldCyclicGroup.help} ==================================================================== FiniteFieldCyclicGroup examples ==================================================================== @@ -38675,7 +38675,7 @@ FiniteFieldCyclicGroup examples See Also: o )show FiniteFieldCyclicGroup -@ +\end{chunk} \pagehead{FiniteFieldCyclicGroup}{FFCG} \pagepic{ps/v103finitefieldcyclicgroup.ps}{FFCG}{1.00} @@ -38773,7 +38773,7 @@ o )show FiniteFieldCyclicGroup \cross{FFCG}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain FFCG FiniteFieldCyclicGroup} )abbrev domain FFCG FiniteFieldCyclicGroup ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 04.04.1991 @@ -38812,17 +38812,17 @@ FiniteFieldCyclicGroup(p,extdeg):_ Implementation ==> FiniteFieldCyclicGroupExtensionByPolynomial(PrimeField(p),_ createPrimitivePoly(extdeg)$FFPOLY) -@ -<>= +\end{chunk} +\begin{chunk}{FFCG.dotabb} "FFCG" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFCG"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFCG" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFCGX FiniteFieldCyclicGroupExtension} -<>= +\begin{chunk}{FiniteFieldCyclicGroupExtension.input} )set break resume )sys rm -f FiniteFieldCyclicGroupExtension.output )spool FiniteFieldCyclicGroupExtension.output @@ -38934,8 +38934,8 @@ FiniteFieldCyclicGroup(p,extdeg):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldCyclicGroupExtension.help} ==================================================================== FiniteFieldCyclicGroupExtension examples ==================================================================== @@ -38943,7 +38943,7 @@ FiniteFieldCyclicGroupExtension examples See Also: o )show FiniteFieldCyclicGroupExtension -@ +\end{chunk} \pagehead{FiniteFieldCyclicGroupExtension}{FFCGX} \pagepic{ps/v103finitefieldcyclicgroupextension.ps}{FFCGX}{1.00} @@ -39041,7 +39041,7 @@ o )show FiniteFieldCyclicGroupExtension \cross{FFCGX}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain FFCGX FiniteFieldCyclicGroupExtension} )abbrev domain FFCGX FiniteFieldCyclicGroupExtension ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 04.04.1991 @@ -39082,17 +39082,17 @@ FiniteFieldCyclicGroupExtension(GF,extdeg):_ Implementation ==> FiniteFieldCyclicGroupExtensionByPolynomial(GF,_ createPrimitivePoly(extdeg)$FFPOLY) -@ -<>= +\end{chunk} +\begin{chunk}{FFCGX.dotabb} "FFCGX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFCGX"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFCGX" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFCGP FiniteFieldCyclicGroupExtensionByPolynomial} -<>= +\begin{chunk}{FiniteFieldCyclicGroupExtensionByPolynomial.input} )set break resume )sys rm -f FiniteFieldCyclicGroupExtensionByPolynomial.output )spool FiniteFieldCyclicGroupExtensionByPolynomial.output @@ -39204,8 +39204,8 @@ FiniteFieldCyclicGroupExtension(GF,extdeg):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldCyclicGroupExtensionByPolynomial.help} ==================================================================== FiniteFieldCyclicGroupExtensionByPolynomial examples ==================================================================== @@ -39213,7 +39213,7 @@ FiniteFieldCyclicGroupExtensionByPolynomial examples See Also: o )show FiniteFieldCyclicGroupExtensionByPolynomial -@ +\end{chunk} \pagehead{FiniteFieldCyclicGroupExtensionByPolynomial}{FFCGP} \pagepic{ps/v103finitefieldcyclicgroupextensionbypolynomial.ps}{FFCGP}{1.00} @@ -39311,7 +39311,7 @@ o )show FiniteFieldCyclicGroupExtensionByPolynomial \cross{FFCGP}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain FFCGP FiniteFieldCyclicGroupExtensionByPolynomial} )abbrev domain FFCGP FiniteFieldCyclicGroupExtensionByPolynomial ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -39618,17 +39618,17 @@ FiniteFieldCyclicGroupExtensionByPolynomial(GF,defpol):_ x = 0 => 0 mulmod(m,x,sizeCG::Rep)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{FFCGP.dotabb} "FFCGP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFCGP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FFCGP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFX FiniteFieldExtension} -<>= +\begin{chunk}{FiniteFieldExtension.input} )set break resume )sys rm -f FiniteFieldExtension.output )spool FiniteFieldExtension.output @@ -39739,8 +39739,8 @@ FiniteFieldCyclicGroupExtensionByPolynomial(GF,defpol):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldExtension.help} ==================================================================== FiniteFieldExtension examples ==================================================================== @@ -39748,7 +39748,7 @@ FiniteFieldExtension examples See Also: o )show FiniteFieldExtension -@ +\end{chunk} \pagehead{FiniteFieldExtension}{FFX} \pagepic{ps/v103finitefieldextension.ps}{FFX}{1.00} @@ -39846,7 +39846,7 @@ o )show FiniteFieldExtension \cross{FFX}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain FFX FiniteFieldExtension} )abbrev domain FFX FiniteFieldExtension ++ Authors: R.Sutor, J. Grabmeier, A. Scheerhorn ++ Date Created: @@ -39881,17 +39881,17 @@ FiniteFieldExtension(GF, n): Exports == Implementation where -- now "better" order (sparse polys first) -- generateIrredPoly(n)$IrredPolyOverFiniteField(GF)) -@ -<>= +\end{chunk} +\begin{chunk}{FFX.dotabb} "FFX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFX"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFX" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFP FiniteFieldExtensionByPolynomial} -<>= +\begin{chunk}{FiniteFieldExtensionByPolynomial.input} )set break resume )sys rm -f FiniteFieldExtensionByPolynomial.output )spool FiniteFieldExtensionByPolynomial.output @@ -40002,8 +40002,8 @@ FiniteFieldExtension(GF, n): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldExtensionByPolynomial.help} ==================================================================== FiniteFieldExtensionByPolynomial examples ==================================================================== @@ -40011,7 +40011,7 @@ FiniteFieldExtensionByPolynomial examples See Also: o )show FiniteFieldExtensionByPolynomial -@ +\end{chunk} \pagehead{FiniteFieldExtensionByPolynomial}{FFP} \pagepic{ps/v103finitefieldextensionbypolynomial.ps}{FFP}{1.00} @@ -40110,7 +40110,7 @@ o )show FiniteFieldExtensionByPolynomial \cross{FFP}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain FFP FiniteFieldExtensionByPolynomial} )abbrev domain FFP FiniteFieldExtensionByPolynomial ++ Authors: R.Sutor, J. Grabmeier, O. Gschnitzer, A. Scheerhorn ++ Date Created: @@ -40342,17 +40342,17 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_ characteristic() == characteristic()$GF -@ -<>= +\end{chunk} +\begin{chunk}{FFP.dotabb} "FFP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FFP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFNB FiniteFieldNormalBasis} -<>= +\begin{chunk}{FiniteFieldNormalBasis.input} )set break resume )sys rm -f FiniteFieldNormalBasis.output )spool FiniteFieldNormalBasis.output @@ -40468,8 +40468,8 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldNormalBasis.help} ==================================================================== FiniteFieldNormalBasis examples ==================================================================== @@ -40477,7 +40477,7 @@ FiniteFieldNormalBasis examples See Also: o )show FiniteFieldNormalBasis -@ +\end{chunk} \pagehead{FiniteFieldNormalBasis}{FFNB} \pagepic{ps/v103finitefieldnormalbasis.ps}{FFNB}{1.00} @@ -40577,7 +40577,7 @@ o )show FiniteFieldNormalBasis \cross{FFNB}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain FFNB FiniteFieldNormalBasis} )abbrev domain FFNB FiniteFieldNormalBasis ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -40626,17 +40626,17 @@ FiniteFieldNormalBasis(p,extdeg):_ Implementation ==> FiniteFieldNormalBasisExtensionByPolynomial(PrimeField(p),_ createLowComplexityNormalBasis(extdeg)$FFF) -@ -<>= +\end{chunk} +\begin{chunk}{FFNB.dotabb} "FFNB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFNB"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFNB" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFNBX FiniteFieldNormalBasisExtension} -<>= +\begin{chunk}{FiniteFieldNormalBasisExtension.input} )set break resume )sys rm -f FiniteFieldNormalBasisExtension.output )spool FiniteFieldNormalBasisExtension.output @@ -40750,8 +40750,8 @@ FiniteFieldNormalBasis(p,extdeg):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldNormalBasisExtension.help} ==================================================================== FiniteFieldNormalBasisExtension examples ==================================================================== @@ -40759,7 +40759,7 @@ FiniteFieldNormalBasisExtension examples See Also: o )show FiniteFieldNormalBasisExtension -@ +\end{chunk} \pagehead{FiniteFieldNormalBasisExtension}{FFNBX} \pagepic{ps/v103finitefieldnormalbasisextension.ps}{FFNBX}{1.00} @@ -40859,7 +40859,7 @@ o )show FiniteFieldNormalBasisExtension \cross{FFNBX}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain FFNBX FiniteFieldNormalBasisExtension} )abbrev domain FFNBX FiniteFieldNormalBasisExtension ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -40908,17 +40908,17 @@ FiniteFieldNormalBasisExtension(GF,extdeg):_ Implementation ==> FiniteFieldNormalBasisExtensionByPolynomial(GF,_ createLowComplexityNormalBasis(extdeg)$FFF) -@ -<>= +\end{chunk} +\begin{chunk}{FFNBX.dotabb} "FFNBX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFNBX"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFNBX" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FFNBP FiniteFieldNormalBasisExtensionByPolynomial} -<>= +\begin{chunk}{FiniteFieldNormalBasisExtensionByPolynomial.input} )set break resume )sys rm -f FiniteFieldNormalBasisExtensionByPolynomial.output )spool FiniteFieldNormalBasisExtensionByPolynomial.output @@ -41032,8 +41032,8 @@ FiniteFieldNormalBasisExtension(GF,extdeg):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldNormalBasisExtensionByPolynomial.help} ==================================================================== FiniteFieldNormalBasisExtensionByPolynomial examples ==================================================================== @@ -41041,7 +41041,7 @@ FiniteFieldNormalBasisExtensionByPolynomial examples See Also: o )show FiniteFieldNormalBasisExtensionByPolynomial -@ +\end{chunk} \pagehead{FiniteFieldNormalBasisExtensionByPolynomial}{FFNBP} \pagepic{ps/v103finitefieldnormalbasisextensionbypolynomial.ps}{FFNBP}{1.00} @@ -41141,7 +41141,7 @@ o )show FiniteFieldNormalBasisExtensionByPolynomial \cross{FFNBP}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain FFNBP FiniteFieldNormalBasisExtensionByPolynomial} )abbrev domain FFNBP FiniteFieldNormalBasisExtensionByPolynomial ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -41500,17 +41500,17 @@ divisor of the order of the multiplicative group" normalElement() == normalElement(extdeg)$INBFF -@ -<>= +\end{chunk} +\begin{chunk}{FFNBP.dotabb} "FFNBP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FFNBP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FFNBP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FARRAY FlexibleArray} -<>= +\begin{chunk}{FlexibleArray.input} )set break resume )sys rm -f FlexibleArray.output )spool FlexibleArray.output @@ -41646,8 +41646,8 @@ shrinkable(false)$FlexibleArray(Integer) --E 16 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FlexibleArray.help} ==================================================================== FlexibleArray ==================================================================== @@ -41775,7 +41775,7 @@ o )help Vector o )help ExtensibleLinearAggregate o )show FlexibleArray -@ +\end{chunk} \pagehead{FlexibleArray}{FARRAY} \pagepic{ps/v103flexiblearray.ps}{FARRAY}{1.00} {\bf See}\\ @@ -41862,7 +41862,7 @@ o )show FlexibleArray \cross{FARRAY}{?.?} && \end{tabular} -<>= +\begin{chunk}{domain FARRAY FlexibleArray} )abbrev domain FARRAY FlexibleArray ++ Author: Mark Botch ++ Description: @@ -41886,13 +41886,13 @@ FlexibleArray(S: Type) == Implementation where Implementation ==> IndexedFlexibleArray(S, ARRAYMININDEX) -- Join(OneDimensionalArrayAggregate S, ExtensibleLinearAggregate S) -@ -<>= +\end{chunk} +\begin{chunk}{FARRAY.dotabb} "FARRAY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FARRAY"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "FARRAY" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FLOAT Float} As reported in bug number 4733 (rounding of negative numbers) @@ -41920,7 +41920,7 @@ required function. It is currently unknown whether the unexpected behaviour of shift for negative arguments will cause bugs in other parts of Axiom. -<>= +\begin{chunk}{Float.input} )set break resume )sys rm -f Float.output )spool Float.output @@ -42607,8 +42607,8 @@ outputFixed(2) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Float.help} ==================================================================== Float ==================================================================== @@ -42927,7 +42927,7 @@ See Also: o )help DoubleFloat o )show Float -@ +\end{chunk} \pagehead{Float}{FLOAT} \pagepic{ps/v103float.ps}{FLOAT}{1.00} @@ -43051,7 +43051,7 @@ o )show Float \cross{FLOAT}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain FLOAT Float} )abbrev domain FLOAT Float B ==> Boolean @@ -44038,17 +44038,17 @@ Float(): (q0,q1) := (q1,q2) (s,t) := (t,r) -@ -<>= +\end{chunk} +\begin{chunk}{FLOAT.dotabb} "FLOAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLOAT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FLOAT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FC FortranCode} -<>= +\begin{chunk}{FortranCode.input} )set break resume )sys rm -f FortranCode.output )spool FortranCode.output @@ -44122,8 +44122,8 @@ Float(): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranCode.help} ==================================================================== FortranCode examples ==================================================================== @@ -44131,7 +44131,7 @@ FortranCode examples See Also: o )show FortranCode -@ +\end{chunk} \pagehead{FortranCode}{FC} \pagepic{ps/v103fortrancode.ps}{FC}{1.00} @@ -44173,7 +44173,7 @@ o )show FortranCode \cross{FC}{?~=?} \end{tabular} -<>= +\begin{chunk}{domain FC FortranCode} )abbrev domain FC FortranCode ++ Author: Mike Dewar ++ Date Created: April 1991 @@ -44762,19 +44762,19 @@ FortranCode(): public == private where call(s:String):$ == [["call"]$OP,[s]$OPREC]$Rep -@ -<>= +\end{chunk} +\begin{chunk}{FC.dotabb} "FC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FC"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "FC" -> "COMPCAT" "FC" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FEXPR FortranExpression} -<>= +\begin{chunk}{FortranExpression.input} )set break resume )sys rm -f FortranExpression.output )spool FortranExpression.output @@ -44884,8 +44884,8 @@ FortranCode(): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranExpression.help} ==================================================================== FortranExpression examples ==================================================================== @@ -44893,7 +44893,7 @@ FortranExpression examples See Also: o )show FortranExpression -@ +\end{chunk} \pagehead{FortranExpression}{FEXPR} \pagepic{ps/v103fortranexpression.ps}{FEXPR}{1.00} @@ -44977,7 +44977,7 @@ o )show FortranExpression \cross{FEXPR}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain FEXPR FortranExpression} )abbrev domain FEXPR FortranExpression ++ Author: Mike Dewar ++ Date Created: December 1993 @@ -45322,17 +45322,17 @@ FortranExpression(basicSymbols,subscriptedSymbols,R): res case "failed" => error("Illegal Symbol Detected:",u::String) res::$ -@ -<>= +\end{chunk} +\begin{chunk}{FEXPR.dotabb} "FEXPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FEXPR"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FEXPR" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FORTRAN FortranProgram} -<>= +\begin{chunk}{FortranProgram.input} )set break resume )sys rm -f FortranProgram.output )spool FortranProgram.output @@ -45367,8 +45367,8 @@ FortranExpression(basicSymbols,subscriptedSymbols,R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranProgram.help} ==================================================================== FortranProgram examples ==================================================================== @@ -45376,7 +45376,7 @@ FortranProgram examples See Also: o )show FortranProgram -@ +\end{chunk} \pagehead{FortranProgram}{FORTRAN} \pagepic{ps/v103fortranprogram.ps}{FORTRAN}{1.00} @@ -45395,7 +45395,7 @@ o )show FortranProgram \cross{FORTRAN}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain FORTRAN FortranProgram} )abbrev domain FORTRAN FortranProgra\\ ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -45620,17 +45620,17 @@ FortranProgram(name,returnType,arguments,symbols): Exports == Implement where [equation(w,v) for w in veList for v in aeList] (subst(rhs u,eList))::$ -@ -<>= +\end{chunk} +\begin{chunk}{FORTRAN.dotabb} "FORTRAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FORTRAN"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "FORTRAN" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FST FortranScalarType} -<>= +\begin{chunk}{FortranScalarType.input} )set break resume )sys rm -f FortranScalarType.output )spool FortranScalarType.output @@ -45658,8 +45658,8 @@ FortranProgram(name,returnType,arguments,symbols): Exports == Implement where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranScalarType.help} ==================================================================== FortranScalarType examples ==================================================================== @@ -45667,7 +45667,7 @@ FortranScalarType examples See Also: o )show FortranScalarType -@ +\end{chunk} \pagehead{FortranScalarType}{FST} \pagepic{ps/v103fortranscalartype.ps}{FST}{1.00} @@ -45689,7 +45689,7 @@ o )show FortranScalarType \cross{FST}{?=?} \end{tabular} -<>= +\begin{chunk}{domain FST FortranScalarType} )abbrev domain FST FortranScalarType ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -45843,17 +45843,17 @@ FortranScalarType() : exports == implementation where doubleComplex?(t:$):Boolean == t case DoubleComplexThing -@ -<>= +\end{chunk} +\begin{chunk}{FST.dotabb} "FST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FST"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FST" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FTEM FortranTemplate} -<>= +\begin{chunk}{FortranTemplate.input} )set break resume )sys rm -f FortranTemplate.output )spool FortranTemplate.output @@ -45885,8 +45885,8 @@ FortranScalarType() : exports == implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranTemplate.help} ==================================================================== FortranTemplate examples ==================================================================== @@ -45894,7 +45894,7 @@ FortranTemplate examples See Also: o )show FortranTemplate -@ +\end{chunk} \pagehead{FortranTemplate}{FTEM} \pagepic{ps/v103fortrantemplate.ps}{FTEM}{1.00} @@ -45927,7 +45927,7 @@ o )show FortranTemplate \cross{FTEM}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain FTEM FortranTemplate} )abbrev domain FTEM FortranTemplate ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -46019,17 +46019,17 @@ FortranTemplate() : specification == implementation where error concat(["Missing `endVerbatim' line in ",tp::String])$String string(_$fortranOutputFile$Lisp)::FileName -@ -<>= +\end{chunk} +\begin{chunk}{FTEM.dotabb} "FTEM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FTEM"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FTEM" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FT FortranType} -<>= +\begin{chunk}{FortranType.input} )set break resume )sys rm -f FortranType.output )spool FortranType.output @@ -46061,8 +46061,8 @@ FortranTemplate() : specification == implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FortranType.help} ==================================================================== FortranType examples ==================================================================== @@ -46070,7 +46070,7 @@ FortranType examples See Also: o )show FortranType -@ +\end{chunk} \pagehead{FortranType}{FT} \pagepic{ps/v103fortrantype.ps}{FT}{1.00} @@ -46099,7 +46099,7 @@ o )show FortranType \cross{FT}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain FT FortranType} )abbrev domain FT FortranType ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -46206,19 +46206,19 @@ FortranType() : exports == implementation where fortranLogical():$ == ("logical"::FST)::$ -@ -<>= +\end{chunk} +\begin{chunk}{FT.dotabb} "FT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FT"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "FT" -> "PID" "FT" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FCOMP FourierComponent} -<>= +\begin{chunk}{FourierComponent.input} )set break resume )sys rm -f FourierComponent.output )spool FourierComponent.output @@ -46247,8 +46247,8 @@ FortranType() : exports == implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FourierComponent.help} ==================================================================== FourierComponent examples ==================================================================== @@ -46256,7 +46256,7 @@ FourierComponent examples See Also: o )show FourierComponent -@ +\end{chunk} \pagehead{FourierComponent}{FCOMP} \pagepic{ps/v103fouriercomponent.ps}{FCOMP}{1.00} @@ -46282,7 +46282,7 @@ o )show FourierComponent \cross{FCOMP}{?$>=$?} \end{tabular} -<>= +\begin{chunk}{domain FCOMP FourierComponent} )abbrev domain FCOMP FourierComponent ++ Author: James Davenport ++ Date Created: 17 April 1992 @@ -46325,17 +46325,17 @@ FourierComponent(E:OrderedSet): x.SinIfTrue => false y.SinIfTrue -@ -<>= +\end{chunk} +\begin{chunk}{FCOMP.dotabb} "FCOMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FCOMP"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "FCOMP" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FSERIES FourierSeries} -<>= +\begin{chunk}{FourierSeries.input} )set break resume )sys rm -f FourierSeries.output )spool FourierSeries.output @@ -46374,8 +46374,8 @@ FourierComponent(E:OrderedSet): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FourierSeries.help} ==================================================================== FourierSeries examples ==================================================================== @@ -46383,7 +46383,7 @@ FourierSeries examples See Also: o )show FourierSeries -@ +\end{chunk} \pagehead{FourierSeries}{FSERIES} \pagepic{ps/v103fourierseries.ps}{FSERIES}{1.00} @@ -46415,7 +46415,7 @@ o )show FourierSeries \cross{FSERIES}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain FSERIES FourierSeries} )abbrev domain FSERIES FourierSeries ++ Author: James Davenport ++ Date Created: 17 April 1992 @@ -46488,19 +46488,19 @@ FourierSeries(R:Join(CommutativeRing,Algebra(Fraction Integer)), a<0 => [[sin(-a),-r]] [[sin a,r]] -@ -<>= +\end{chunk} +\begin{chunk}{FSERIES.dotabb} "FSERIES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FSERIES"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "FSERIES" -> "PID" "FSERIES" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FRAC Fraction} -<>= +\begin{chunk}{Fraction.input} )set break resume )sys rm -f Fraction.output )spool Fraction.output @@ -46632,8 +46632,8 @@ g :: FRAC COMPLEX INT )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Fraction.help} ==================================================================== Fraction examples ==================================================================== @@ -46754,7 +46754,7 @@ o )help PartialFraction o )help Integer o )show Fraction -@ +\end{chunk} \pagehead{Fraction}{FRAC} \pagepic{ps/v103fraction.ps}{FRAC}{1.00} {\bf See}\\ @@ -46845,7 +46845,7 @@ o )show Fraction \cross{FRAC}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain FRAC Fraction} )abbrev domain FRAC Fraction ++ Author: Mark Botch ++ Date Created: @@ -47173,17 +47173,17 @@ Fraction(S: IntegralDomain): QuotientFieldCategory S with w.xpnt] for w in factorList ff] makeFR(map(x+->x::%/den1,unit(ff)),lfact) -@ -<>= +\end{chunk} +\begin{chunk}{FRAC.dotabb} "FRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FRAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FRIDEAL FractionalIdeal} -<>= +\begin{chunk}{FractionalIdeal.input} )set break resume )sys rm -f FractionalIdeal.output )spool FractionalIdeal.output @@ -47219,8 +47219,8 @@ Fraction(S: IntegralDomain): QuotientFieldCategory S with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FractionalIdeal.help} ==================================================================== FractionalIdeal examples ==================================================================== @@ -47228,7 +47228,7 @@ FractionalIdeal examples See Also: o )show FractionalIdeal -@ +\end{chunk} \pagehead{FractionalIdeal}{FRIDEAL} \pagepic{ps/v103fractionalideal.ps}{FRIDEAL}{1.00} @@ -47266,7 +47266,7 @@ o )show FractionalIdeal \cross{FRIDEAL}{?\^{}?} \end{tabular} -<>= +\begin{chunk}{domain FRIDEAL FractionalIdeal} )abbrev domain FRIDEAL FractionalIdeal ++ Author: Manuel Bronstein ++ Date Created: 27 Jan 1989 @@ -47435,17 +47435,17 @@ FractionalIdeal(R, F, UP, A): Exports == Implementation where (u := tryRange(range, nm, nrm, i)) case $ => return(u::$) i -@ -<>= +\end{chunk} +\begin{chunk}{FRIDEAL.dotabb} "FRIDEAL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRIDEAL"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "FRIDEAL" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FRMOD FramedModule} -<>= +\begin{chunk}{FramedModule.input} )set break resume )sys rm -f FramedModule.output )spool FramedModule.output @@ -47477,8 +47477,8 @@ FractionalIdeal(R, F, UP, A): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FramedModule.help} ==================================================================== FramedModule examples ==================================================================== @@ -47486,7 +47486,7 @@ FramedModule examples See Also: o )show FramedModule -@ +\end{chunk} \pagehead{FramedModule}{FRMOD} \pagepic{ps/v103framedmodule.ps}{FRMOD}{1.00} @@ -47515,7 +47515,7 @@ o )show FramedModule \cross{FRMOD}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain FRMOD FramedModule} )abbrev domain FRMOD FramedModule ++ Author: Manuel Bronstein ++ Date Created: 27 Jan 1989 @@ -47620,17 +47620,17 @@ FramedModule(R, F, UP, A, ibasis): Exports == Implementation where module(i:FractionalIdeal(R, F, UP, A)) == module(basis i) * module(ibasis) -@ -<>= +\end{chunk} +\begin{chunk}{FRMOD.dotabb} "FRMOD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRMOD"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "FRMOD" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FAGROUP FreeAbelianGroup} -<>= +\begin{chunk}{FreeAbelianGroup.input} )set break resume )sys rm -f FreeAbelianGroup.output )spool FreeAbelianGroup.output @@ -47675,8 +47675,8 @@ FramedModule(R, F, UP, A, ibasis): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeAbelianGroup.help} ==================================================================== FreeAbelianGroup examples ==================================================================== @@ -47684,7 +47684,7 @@ FreeAbelianGroup examples See Also: o )show FreeAbelianGroup -@ +\end{chunk} \pagehead{FreeAbelianGroup}{FAGROUP} \pagepic{ps/v103freeabeliangroup.ps}{FAGROUP}{1.00} @@ -47728,7 +47728,7 @@ o )show FreeAbelianGroup \cross{FAGROUP}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain FAGROUP FreeAbelianGroup} )abbrev domain FAGROUP FreeAbelianGroup ++ Free abelian group on any set of generators ++ Author: Manuel Bronstein @@ -47771,19 +47771,19 @@ FreeAbelianGroup(S:SetCategory): Exports == Implementation where lc := ta.exp * ta.gen (a - lc) < (b - lc) -@ -<>= +\end{chunk} +\begin{chunk}{FAGROUP.dotabb} "FAGROUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FAGROUP"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "FAGROUP" -> "PID" "FAGROUP" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FAMONOID FreeAbelianMonoid} -<>= +\begin{chunk}{FreeAbelianMonoid.input} )set break resume )sys rm -f FreeAbelianMonoid.output )spool FreeAbelianMonoid.output @@ -47821,8 +47821,8 @@ FreeAbelianGroup(S:SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeAbelianMonoid.help} ==================================================================== FreeAbelianMonoid examples ==================================================================== @@ -47830,7 +47830,7 @@ FreeAbelianMonoid examples See Also: o )show FreeAbelianMonoid -@ +\end{chunk} \pagehead{FreeAbelianMonoid}{FAMONOID} \pagepic{ps/v103freeabelianmonoid.ps}{FAMONOID}{1.00} @@ -47866,7 +47866,7 @@ o )show FreeAbelianMonoid \cross{FAMONOID}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain FAMONOID FreeAbelianMonoid} )abbrev domain FAMONOID FreeAbelianMonoid ++ Free abelian monoid on any set of generators ++ Author: Manuel Bronstein @@ -47881,17 +47881,17 @@ FreeAbelianMonoid(S: SetCategory): FreeAbelianMonoidCategory(S, NonNegativeInteger) == InnerFreeAbelianMonoid(S, NonNegativeInteger, 1) -@ -<>= +\end{chunk} +\begin{chunk}{FAMONOID.dotabb} "FAMONOID" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FAMONOID"] "OAMONS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMONS"] "FAMONOID" -> "OAMONS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FGROUP FreeGroup} -<>= +\begin{chunk}{FreeGroup.input} )set break resume )sys rm -f FreeGroup.output )spool FreeGroup.output @@ -47931,8 +47931,8 @@ FreeAbelianMonoid(S: SetCategory): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeGroup.help} ==================================================================== FreeGroup examples ==================================================================== @@ -47940,7 +47940,7 @@ FreeGroup examples See Also: o )show FreeGroup -@ +\end{chunk} \pagehead{FreeGroup}{FGROUP} \pagepic{ps/v103freegroup.ps}{FGROUP}{1.00} @@ -47979,7 +47979,7 @@ o )show FreeGroup \cross{FGROUP}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain FGROUP FreeGroup} )abbrev domain FGROUP FreeGroup ++ Free group on any set of generators ++ Author: Stephen M. Watt @@ -48042,19 +48042,19 @@ FreeGroup(S: SetCategory): Join(Group, RetractableTo S) with makeMulti concat_!(h, rest q) makeMulti concat_!(reverse_! r, q) -@ -<>= +\end{chunk} +\begin{chunk}{FGROUP.dotabb} "FGROUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FGROUP"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "FGROUP" -> "FLAGG" "FGROUP" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FM FreeModule} -<>= +\begin{chunk}{FreeModule.input} )set break resume )sys rm -f FreeModule.output )spool FreeModule.output @@ -48087,8 +48087,8 @@ FreeGroup(S: SetCategory): Join(Group, RetractableTo S) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeModule.help} ==================================================================== FreeModule examples ==================================================================== @@ -48096,7 +48096,7 @@ FreeModule examples See Also: o )show FreeModule -@ +\end{chunk} \pagehead{FreeModule}{FM} \pagepic{ps/v103freemodule.ps}{FM}{1.00} @@ -48127,7 +48127,7 @@ o )show FreeModule \cross{FM}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain FM FreeModule} )abbrev domain FM FreeModule ++ Author: Dave Barton, James Davenport, Barry Trager ++ Date Created: @@ -48195,17 +48195,17 @@ FreeModule(R:Ring,S:OrderedSet): le := cons(rec.c :: OutputForm * rec.k :: OutputForm, le) reduce("+",le) -@ -<>= +\end{chunk} +\begin{chunk}{FM.dotabb} "FM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FM"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FM" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FM1 FreeModule1} -<>= +\begin{chunk}{FreeModule1.input} )set break resume )sys rm -f FreeModule1.output )spool FreeModule1.output @@ -48246,8 +48246,8 @@ FreeModule(R:Ring,S:OrderedSet): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeModule1.help} ==================================================================== FreeModule1 examples ==================================================================== @@ -48255,7 +48255,7 @@ FreeModule1 examples See Also: o )show FreeModule1 -@ +\end{chunk} \pagehead{FreeModule1}{FM1} \pagepic{ps/v103freemodule1.ps}{FM1}{1.00} @@ -48291,7 +48291,7 @@ o )show FreeModule1 \cross{FM1}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain FM1 FreeModule1} )abbrev domain FM1 FreeModule1 ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -48389,17 +48389,17 @@ FreeModule1(R:Ring,S:OrderedSet): FMcat == FMdef where x.first.k = s => x.first.c 0$R -@ -<>= +\end{chunk} +\begin{chunk}{FM1.dotabb} "FM1" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FM1"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FM1" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FMONOID FreeMonoid} -<>= +\begin{chunk}{FreeMonoid.input} )set break resume )sys rm -f FreeMonoid.output )spool FreeMonoid.output @@ -48448,8 +48448,8 @@ FreeModule1(R:Ring,S:OrderedSet): FMcat == FMdef where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeMonoid.help} ==================================================================== FreeMonoid examples ==================================================================== @@ -48457,7 +48457,7 @@ FreeMonoid examples See Also: o )show FreeMonoid -@ +\end{chunk} \pagehead{FreeMonoid}{FMONOID} \pagepic{ps/v103freemonoid.ps}{FMONOID}{1.00} @@ -48504,7 +48504,7 @@ o )show FreeMonoid \cross{FMONOID}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain FMONOID FreeMonoid} )abbrev domain FMONOID FreeMonoid ++ Free monoid on any set of generators ++ Author: Stephen M. Watt @@ -48686,19 +48686,19 @@ FreeMonoid(S: SetCategory): FMcategory == FMdefinition where na:=na-1 empty? la and not empty? lb -@ -<>= +\end{chunk} +\begin{chunk}{FMONOID.dotabb} "FMONOID" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FMONOID"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "FMONOID" -> "FLAGG-" "FMONOID" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FNLA FreeNilpotentLie} -<>= +\begin{chunk}{FreeNilpotentLie.input} )set break resume )sys rm -f FreeNilpotentLie.output )spool FreeNilpotentLie.output @@ -48737,8 +48737,8 @@ FreeMonoid(S: SetCategory): FMcategory == FMdefinition where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FreeNilpotentLie.help} ==================================================================== FreeNilpotentLie examples ==================================================================== @@ -48746,7 +48746,7 @@ FreeNilpotentLie examples See Also: o )show FreeNilpotentLie -@ +\end{chunk} \pagehead{FreeNilpotentLie}{FNLA} \pagepic{ps/v103freenilpotentlie.ps}{FNLA}{1.00} @@ -48782,7 +48782,7 @@ o )show FreeNilpotentLie \cross{FNLA}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain FNLA FreeNilpotentLie} )abbrev domain FNLA FreeNilpotentLie ++ Author: Larry Lambe ++ Date Created: July 1988 @@ -48899,17 +48899,17 @@ FreeNilpotentLie(n:NNI,class:NNI,R: CommutativeRing): Export == Implement where lC(f)=1 => Fac(value(lS f))::O + deepExpand(reductum f) lC(f)::O * Fac(value(lS f))::O + deepExpand(reductum f) -@ -<>= +\end{chunk} +\begin{chunk}{FNLA.dotabb} "FNLA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FNLA"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "FNLA" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FPARFRAC FullPartialFractionExpansion} -<>= +\begin{chunk}{FullPartialFractionExpansion.input} )set break resume )sys rm -f FullPartialFractionExpansion.output )spool FullPartialFractionExpansion.output @@ -49163,8 +49163,8 @@ g :: Fx - f --E 16 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FullPartialFractionExpansion.help} ==================================================================== FullPartialFractionExpansion expansion ==================================================================== @@ -49382,7 +49382,7 @@ See Also: o )help PartialFraction o )show FullPartialFractionExpansion -@ +\end{chunk} \pagehead{FullPartialFractionExpansion}{FPARFRAC} \pagepic{ps/v103fullpartialfractionexpansion.ps}{FPARFRAC}{1.00} @@ -49403,7 +49403,7 @@ o )show FullPartialFractionExpansion \cross{FPARFRAC}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain FPARFRAC FullPartialFractionExpansion} )abbrev domain FPARFRAC FullPartialFractionExpansion ++ Author: Manuel Bronstein ++ Date Created: 9 December 1992 @@ -49581,17 +49581,17 @@ FullPartialFractionExpansion(F, UP): Exports == Implementation where (n = 1) => f f ** (n::O) -@ -<>= +\end{chunk} +\begin{chunk}{FPARFRAC.dotabb} "FPARFRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FPARFRAC"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FPARFRAC" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FUNCTION FunctionCalled} -<>= +\begin{chunk}{FunctionCalled.input} )set break resume )sys rm -f FunctionCalled.output )spool FunctionCalled.output @@ -49615,8 +49615,8 @@ FullPartialFractionExpansion(F, UP): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FunctionCalled.help} ==================================================================== FunctionCalled examples ==================================================================== @@ -49624,7 +49624,7 @@ FunctionCalled examples See Also: o )show FunctionCalled -@ +\end{chunk} \pagehead{FunctionCalled}{FUNCTION} \pagepic{ps/v103functioncalled.ps}{FUNCTION}{1.00} @@ -49639,7 +49639,7 @@ o )show FunctionCalled \cross{FUNCTION}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain FUNCTION FunctionCalled} )abbrev domain FUNCTION FunctionCalled ++ Author: Mark Botch ++ Description: @@ -49654,19 +49654,19 @@ FunctionCalled(f:Symbol): SetCategory with x = y == true latex(x:%):String == latex f -@ -<>= +\end{chunk} +\begin{chunk}{FUNCTION.dotabb} "FUNCTION" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FUNCTION"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FUNCTION" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter G} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GDMP GeneralDistributedMultivariatePolynomial} -<>= +\begin{chunk}{GeneralDistributedMultivariatePolynomial.input} )set break resume )sys rm -f GeneralDistributedMultivariatePolynomial.output )spool GeneralDistributedMultivariatePolynomial.output @@ -49774,9 +49774,9 @@ groebner [n1,n2,n3] --E 10 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{GeneralDistributedMultivariatePolynomial.help} ==================================================================== MultivariatePolynomial DistributedMultivariatePolynomial @@ -49875,7 +49875,7 @@ o )help HomogeneousDistributedMultivariatePolynomial o )help DistributedMultivariatePolynomial o )show GeneralDistributedMultivariatePolynomial -@ +\end{chunk} \pagehead{GeneralDistributedMultivariatePolynomial}{GDMP} \pagepic{ps/v103generaldistributedmultivariatepolynomial.ps}{GDMP}{1.00} {\bf See}\\ @@ -49968,7 +49968,7 @@ o )show GeneralDistributedMultivariatePolynomial \cross{GDMP}{?\^{}?} && \end{tabular} -<>= +\begin{chunk}{domain GDMP GeneralDistributedMultivariatePolynomial} )abbrev domain GDMP GeneralDistributedMultivariatePolynomial ++ Author: Barry Trager ++ Date Created: @@ -50219,17 +50219,17 @@ GeneralDistributedMultivariatePolynomial(vl,R,E): public == private where 1 = #lt => first lt reduce("+",lt) -@ -<>= +\end{chunk} +\begin{chunk}{GDMP.dotabb} "GDMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GDMP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "GDMP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GMODPOL GeneralModulePolynomial} -<>= +\begin{chunk}{GeneralModulePolynomial.input} )set break resume )sys rm -f GeneralModulePolynomial.output )spool GeneralModulePolynomial.output @@ -50266,8 +50266,8 @@ GeneralDistributedMultivariatePolynomial(vl,R,E): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralModulePolynomial.help} ==================================================================== GeneralModulePolynomial examples ==================================================================== @@ -50275,7 +50275,7 @@ GeneralModulePolynomial examples See Also: o )show GeneralModulePolynomial -@ +\end{chunk} \pagehead{GeneralModulePolynomial}{GMODPOL} \pagepic{ps/v103generalmodulepolynomial.ps}{GMODPOL}{1.00} @@ -50308,7 +50308,7 @@ o )show GeneralModulePolynomial \cross{GMODPOL}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain GMODPOL GeneralModulePolynomial} )abbrev domain GMODPOL GeneralModulePolynomial ++ Author: Mark Botch ++ Description: @@ -50379,19 +50379,19 @@ GeneralModulePolynomial(vl, R, IS, E, ff, P): public == private where multMonom(leadingCoefficient p, degree p, mp) + reductum(p) * mp -@ -<>= +\end{chunk} +\begin{chunk}{GMODPOL.dotabb} "GMODPOL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GMODPOL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "GMODPOL" -> "PFECAT" "GMODPOL" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GCNAALG GenericNonAssociativeAlgebra} -<>= +\begin{chunk}{GenericNonAssociativeAlgebra.input} )set break resume )sys rm -f GenericNonAssociativeAlgebra.output )spool GenericNonAssociativeAlgebra.output @@ -50502,8 +50502,8 @@ GeneralModulePolynomial(vl, R, IS, E, ff, P): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GenericNonAssociativeAlgebra.help} ==================================================================== GenericNonAssociativeAlgebra examples ==================================================================== @@ -50511,7 +50511,7 @@ GenericNonAssociativeAlgebra examples See Also: o )show GenericNonAssociativeAlgebra -@ +\end{chunk} \pagehead{GenericNonAssociativeAlgebra}{GCNAALG} \pagepic{ps/v103genericnonassociativealgebra.ps}{GCNAALG}{1.00} @@ -50614,7 +50614,7 @@ o )show GenericNonAssociativeAlgebra \cross{GCNAALG}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain GCNAALG GenericNonAssociativeAlgebra} )abbrev domain GCNAALG GenericNonAssociativeAlgebra ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 26 June 1991 @@ -50908,17 +50908,17 @@ GenericNonAssociativeAlgebra(R : CommutativeRing, n : PositiveInteger,_ --eval(rf, ls, coefOfa)$FPR --le : List Equation PR := [equation(lh,rh) for lh in ls for rh in coefOfa] -@ -<>= +\end{chunk} +\begin{chunk}{GCNAALG.dotabb} "GCNAALG" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GCNAALG"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "GCNAALG" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GPOLSET GeneralPolynomialSet} -<>= +\begin{chunk}{GeneralPolynomialSet.input} )set break resume )sys rm -f GeneralPolynomialSet.output )spool GeneralPolynomialSet.output @@ -50987,8 +50987,8 @@ GenericNonAssociativeAlgebra(R : CommutativeRing, n : PositiveInteger,_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralPolynomialSet.help} ==================================================================== GeneralPolynomialSet examples ==================================================================== @@ -50996,7 +50996,7 @@ GeneralPolynomialSet examples See Also: o )show GeneralPolynomialSet -@ +\end{chunk} \pagehead{GeneralPolynomialSet}{GPOLSET} \pagepic{ps/v103generalpolynomialset.ps}{GPOLSET}{1.00} @@ -51055,7 +51055,7 @@ o )show GeneralPolynomialSet \cross{GPOLSET}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain GPOLSET GeneralPolynomialSet} )abbrev domain GPOLSET GeneralPolynomialSet ++ Author: Marc Moreno Maza ++ Date Created: 04/26/1994 @@ -51135,17 +51135,17 @@ GeneralPolynomialSet(R,E,VarSet,P) : Exports == Implementation where convert(lp:LP) : $ == construct lp -@ -<>= +\end{chunk} +\begin{chunk}{GPOLSET.dotabb} "GPOLSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GPOLSET"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "GPOLSET" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GSTBL GeneralSparseTable} -<>= +\begin{chunk}{GeneralSparseTable.input} )set break resume )sys rm -f GeneralSparseTable.output )spool GeneralSparseTable.output @@ -51182,8 +51182,8 @@ reduce(+, entries patrons) --E 7 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralSparseTable.help} ==================================================================== GeneralSparseTable ==================================================================== @@ -51227,7 +51227,7 @@ So the project is cancelled and we can delete the data base: See Also: o )show GeneralSparseTable -@ +\end{chunk} \pagehead{GeneralSparseTable}{GSTBL} \pagepic{ps/v103generalsparsetable.ps}{GSTBL}{1.00} {\bf See}\\ @@ -51297,7 +51297,7 @@ o )show GeneralSparseTable \cross{GSTBL}{?.?} \end{tabular} -<>= +\begin{chunk}{domain GSTBL GeneralSparseTable} )abbrev domain GSTBL GeneralSparseTable ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -51334,17 +51334,17 @@ GeneralSparseTable(Key, Entry, Tbl, dent): TableAggregate(Key, Entry) == Impl (u := search(k, t)$Rep) case "failed" => dent u -@ -<>= +\end{chunk} +\begin{chunk}{GSTBL.dotabb} "GSTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GSTBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "GSTBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GTSET GeneralTriangularSet} -<>= +\begin{chunk}{GeneralTriangularSet.input} )set break resume )sys rm -f GeneralTriangularSet.output )spool GeneralTriangularSet.output @@ -51436,8 +51436,8 @@ GeneralSparseTable(Key, Entry, Tbl, dent): TableAggregate(Key, Entry) == Impl )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralTriangularSet.help} ==================================================================== GeneralTriangularSet examples ==================================================================== @@ -51445,7 +51445,7 @@ GeneralTriangularSet examples See Also: o )show GeneralTriangularSet -@ +\end{chunk} \pagehead{GeneralTriangularSet}{GTSET} \pagepic{ps/v103generaltriangularset.ps}{GTSET}{1.00} @@ -51536,7 +51536,7 @@ o )show GeneralTriangularSet \cross{GTSET}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain GTSET GeneralTriangularSet} )abbrev domain GTSET GeneralTriangularSet ++ Author: Marc Moreno Maza (marc@nag.co.uk) ++ Date Created: 10/06/1995 @@ -51643,17 +51643,17 @@ GeneralTriangularSet(R,E,V,P) : Exports == Implementation where not (mvar(ts) < mvar(p)) => "failed"::Union($,"failed") (per(cons(p,rep(ts))))::Union($,"failed") -@ -<>= +\end{chunk} +\begin{chunk}{GTSET.dotabb} "GTSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GTSET"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "GTSET" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GSERIES GeneralUnivariatePowerSeries} -<>= +\begin{chunk}{GeneralUnivariatePowerSeries.input} )set break resume )sys rm -f GeneralUnivariatePowerSeries.output )spool GeneralUnivariatePowerSeries.output @@ -51796,8 +51796,8 @@ GeneralTriangularSet(R,E,V,P) : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralUnivariatePowerSeries.help} ==================================================================== GeneralUnivariatePowerSeries examples ==================================================================== @@ -51805,7 +51805,7 @@ GeneralUnivariatePowerSeries examples See Also: o )show GeneralUnivariatePowerSeries -@ +\end{chunk} \pagehead{GeneralUnivariatePowerSeries}{GSERIES} \pagepic{ps/v103generalunivariatepowerseries.ps}{GSERIES}{1.00} @@ -51911,7 +51911,7 @@ o )show GeneralUnivariatePowerSeries \cross{GSERIES}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain GSERIES GeneralUnivariatePowerSeries} )abbrev domain GSERIES GeneralUnivariatePowerSeries ++ Author: Clifton J. Williamson ++ Date Created: 22 September 1993 @@ -52021,17 +52021,17 @@ GeneralUnivariatePowerSeries(Coef,var,cen): Exports == Implementation where map(x+->integrateWithOneAnswer(x,s),f) error "integrate: center is a function of variable of integration" -@ -<>= +\end{chunk} +\begin{chunk}{GSERIES.dotabb} "GSERIES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GSERIES"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "GSERIES" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GRIMAGE GraphImage} -<>= +\begin{chunk}{GraphImage.input} )set break resume )sys rm -f GraphImage.output )spool GraphImage.output @@ -52071,8 +52071,8 @@ GeneralUnivariatePowerSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GraphImage.help} ==================================================================== GraphImage examples ==================================================================== @@ -52080,7 +52080,7 @@ GraphImage examples See Also: o )show GraphImage -@ +\end{chunk} \pagehead{GraphImage}{GRIMAGE} \pagepic{ps/v103graphimage.ps}{GRIMAGE}{1.00} @@ -52105,7 +52105,7 @@ o )show GraphImage \cross{GRIMAGE}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain GRIMAGE GraphImage} )abbrev domain GRIMAGE GraphImage ++ Author: Jim Wen ++ Date Created: 27 April 1989 @@ -52512,17 +52512,17 @@ GraphImage (): Exports == Implementation where hconcat( ["Graph with " :: E,(p := # pointLists graf) :: E, (p=1 => " point list"; " point lists") :: E]) -@ -<>= +\end{chunk} +\begin{chunk}{GRIMAGE.dotabb} "GRIMAGE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GRIMAGE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "GRIMAGE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GOPT GuessOption} -<>= +\begin{chunk}{GuessOption.input} )set break resume )sys rm -f GuessOption.output )spool GuessOption.output @@ -52562,8 +52562,8 @@ GraphImage (): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GuessOption.help} ==================================================================== GuessOption examples ==================================================================== @@ -52571,7 +52571,7 @@ GuessOption examples See Also: o )show GuessOption -@ +\end{chunk} \pagehead{GuessOption}{GOPT} \pagepic{ps/v103guessoption.ps}{GOPT}{1.00} @@ -52606,7 +52606,7 @@ o )show GuessOption \cross{GOPT}{variableName} \end{tabular} -<>= +\begin{chunk}{domain GOPT GuessOption} )abbrev domain GOPT GuessOption ++ Author: Martin Rubey ++ Description: GuessOption is a domain whose elements are various options used @@ -52772,17 +52772,17 @@ GuessOption(): Exports == Implementation where x.keyword = s => return(x.value) "failed" -@ -<>= +\end{chunk} +\begin{chunk}{GOPT.dotabb} "GOPT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GOPT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "GOPT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain GOPT0 GuessOptionFunctions0} -<>= +\begin{chunk}{GuessOptionFunctions0.input} )set break resume )sys rm -f GuessOptionFunctions0.output )spool GuessOptionFunctions0.output @@ -52823,8 +52823,8 @@ GuessOption(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GuessOptionFunctions0.help} ==================================================================== GuessOptionFunctions0 examples ==================================================================== @@ -52832,7 +52832,7 @@ GuessOptionFunctions0 examples See Also: o )show GuessOptionFunctions0 -@ +\end{chunk} \pagehead{GuessOptionFunctions0}{GOPT0} \pagepic{ps/v103guessoptionfunctions0.eps}{GOPT0}{1.00} @@ -52865,7 +52865,7 @@ o )show GuessOptionFunctions0 \cross{GOPT0}{variableName} \end{tabular} -<>= +\begin{chunk}{domain GOPT0 GuessOptionFunctions0} )abbrev domain GOPT0 GuessOptionFunctions0 ++ Author: Martin Rubey ++ Description: @@ -53129,19 +53129,19 @@ GuessOptionFunctions0(): Exports == Implementation where "Guess: homogeneous requires that maxShift/maxDerivative",_ " is at least one or maxSubst is at least two" ] error err -@ -<>= +\end{chunk} +\begin{chunk}{GOPT0.dotabb} "GOPT0" [color="#88FF44",href="bookvol10.3.pdf#nameddest=GOPT0"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "GOPT0" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter H} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HASHTBL HashTable} -<>= +\begin{chunk}{HashTable.input} )set break resume )sys rm -f HashTable.output )spool HashTable.output @@ -53234,8 +53234,8 @@ GuessOptionFunctions0(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HashTable.help} ==================================================================== HashTable examples ==================================================================== @@ -53243,7 +53243,7 @@ HashTable examples See Also: o )show HashTable -@ +\end{chunk} \pagehead{HashTable}{HASHTBL} \pagepic{ps/v103hashtable.ps}{HASHTBL}{1.00} @@ -53314,7 +53314,7 @@ o )show HashTable \cross{HASHTBL}{?.?} \end{tabular} -<>= +\begin{chunk}{domain HASHTBL HashTable} )abbrev domain HASHTBL HashTable ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -53363,17 +53363,17 @@ HashTable(Key, Entry, hashfn): Exports == Implementation where not EQ(r, failMsg)$Lisp => r pretend Entry "failed" -@ -<>= +\end{chunk} +\begin{chunk}{HASHTBL.dotabb} "HASHTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HASHTBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "HASHTBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HEAP Heap} -<>= +\begin{chunk}{Heap.input} )set break resume )sys rm -f Heap.output )spool Heap.output @@ -53758,8 +53758,8 @@ coerce a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Heap.help} ==================================================================== Heap examples ==================================================================== @@ -53980,7 +53980,7 @@ o )show Dequeue o )show Heap o )show BagAggregate -@ +\end{chunk} \pagehead{Heap}{HEAP} \pagepic{ps/v103heap.ps}{HEAP}{1.00} {\bf See}\\ @@ -54024,7 +54024,7 @@ o )show BagAggregate \cross{HEAP}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain HEAP Heap} )abbrev domain HEAP Heap ++ Author: Michael Monagan and Stephen Watt ++ Date Created:June 86 and July 87 @@ -54236,17 +54236,17 @@ Heap(S:OrderedSet): Exports == Implementation where merge(a,b) == makeHeap concat(a,b) merge_!(a,b) == makeHeap concat_!(a,b) -@ -<>= +\end{chunk} +\begin{chunk}{HEAP.dotabb} "HEAP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HEAP"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "HEAP" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HEXADEC HexadecimalExpansion} -<>= +\begin{chunk}{HexadecimalExpansion.input} )set break resume )sys rm -f HexadecimalExpansion.output )spool HexadecimalExpansion.output @@ -54322,8 +54322,8 @@ g := gcd(p, q) --E 7 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HexadecimalExpansion.help} ==================================================================== HexadecimalExpansion ==================================================================== @@ -54389,7 +54389,7 @@ o )help BinaryExpansion o )help DecimalExpansion o )show HexadecimalExpansion -@ +\end{chunk} \pagehead{HexadecimalExpansion}{HEXADEC} \pagepic{ps/v103hexadecimalexpansion.ps}{HEXADEC}{1.00} {\bf See}\\ @@ -54481,7 +54481,7 @@ o )show HexadecimalExpansion \cross{HEXADEC}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain HEXADEC HexadecimalExpansion} )abbrev domain HEXADEC HexadecimalExpansion ++ Author: Clifton J. Williamson ++ Date Created: April 26, 1990 @@ -54513,13 +54513,13 @@ HexadecimalExpansion(): Exports == Implementation where hex r == r :: % coerce(x:%): RadixExpansion(16) == x pretend RadixExpansion(16) -@ -<>= +\end{chunk} +\begin{chunk}{HEXADEC.dotabb} "HEXADEC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HEXADEC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "HEXADEC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package HTMLFORM HTMLFormat} Here I have put some information about 'how to use' and 'the benefits of' @@ -54668,7 +54668,7 @@ MathMLFormat, SVGFormat and X3DFormat. However programming effort might be better spent creating a version of OutputForm which has better syntax information. -<>= +\begin{chunk}{HTMLFormat.input} )set break resume )sys rm -f HTMLFormat.output )spool HTMLFormat.output @@ -54799,8 +54799,8 @@ display(coerce(sqrt(3+x)::OutputForm)$HTMLFORM)$HTMLFORM --E 9 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HTMLFormat.help} ==================================================================== HTMLFormat examples ==================================================================== @@ -54868,7 +54868,7 @@ display(coerce(sqrt(3+x)::OutputForm)$HTMLFORM)$HTMLFORM See Also: o )show HTMLFormat -@ +\end{chunk} \pagehead{HTMLFormat}{HTMLFORM} \pagepic{ps/v103htmlformat.eps}{HTMLFORM}{1.00} @@ -54888,7 +54888,7 @@ o )show HTMLFormat \cross{HTMLFORM}{latex} & \end{tabular} -<>= +\begin{chunk}{domain HTMLFORM HTMLFormat} )abbrev domain HTMLFORM HTMLFormat ++ Author: Martin J Baker, Arthur C. Ralfs, Robert S. Sutor ++ Date: January 2010 @@ -55728,17 +55728,17 @@ HTMLFormat(): public == private where op1 := formatHtml(first l,minPrec) formatFunction(op1,args,prec) -@ -<>= +\end{chunk} +\begin{chunk}{HTMLFORM.dotabb} "HTMLFORM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HTMLFORM"] "STRING" [color="#4488FF",href="bookvol10.2.pdf#nameddest=STRING"] "HTMLFORM" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HDP HomogeneousDirectProduct} -<>= +\begin{chunk}{HomogeneousDirectProduct.input} )set break resume )sys rm -f HomogeneousDirectProduct.output )spool HomogeneousDirectProduct.output @@ -55862,8 +55862,8 @@ HTMLFormat(): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HomogeneousDirectProduct.help} ==================================================================== HomogeneousDirectProduct examples ==================================================================== @@ -55871,7 +55871,7 @@ HomogeneousDirectProduct examples See Also: o )show HomogeneousDirectProduct -@ +\end{chunk} \pagehead{HomogeneousDirectProduct}{HDP} \pagepic{ps/v103homogeneousdirectproduct.ps}{HDP}{1.00} @@ -55958,7 +55958,7 @@ o )show HomogeneousDirectProduct \cross{HDP}{?.?} \end{tabular} -<>= +\begin{chunk}{domain HDP HomogeneousDirectProduct} )abbrev domain HDP HomogeneousDirectProduct ++ Author: Mark Botch ++ Date Created: @@ -55997,17 +55997,17 @@ HomogeneousDirectProduct(dim,S) : T == C where if qelt(v1,i) < qelt(v2,i) then return false false -@ -<>= +\end{chunk} +\begin{chunk}{HDP.dotabb} "HDP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HDP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "HDP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HDMP HomogeneousDistributedMultivariatePolynomial} -<>= +\begin{chunk}{HomogeneousDistributedMultivariatePolynomial.input} )set break resume )sys rm -f HomogeneousDistributedMultivariatePolynomial.output )spool HomogeneousDistributedMultivariatePolynomial.output @@ -56115,9 +56115,9 @@ groebner [n1,n2,n3] --E 10 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{HomogeneousDistributedMultivariatePolynomial.help} ==================================================================== MultivariatePolynomial DistributedMultivariatePolynomial @@ -56216,7 +56216,7 @@ o )help DistributedMultivariatePolynomial o )help GeneralDistributedMultivariatePolynomial o )show HomogeneousDistributedMultivariatePolynomial -@ +\end{chunk} \pagehead{HomogeneousDistributedMultivariatePolynomial}{HDMP} \pagepic{ps/v103homogeneousdistributedmultivariatepolynomial.ps}{HDMP}{1.00} {\bf See}\\ @@ -56312,7 +56312,7 @@ o )show HomogeneousDistributedMultivariatePolynomial \cross{HDMP}{?\^{}?} && \end{tabular} -<>= +\begin{chunk}{domain HDMP HomogeneousDistributedMultivariatePolynomial} )abbrev domain HDMP HomogeneousDistributedMultivariatePolynomial ++ Author: Barry Trager ++ Date Created: @@ -56346,19 +56346,19 @@ HomogeneousDistributedMultivariatePolynomial(vl,R): public == private where private == GeneralDistributedMultivariatePolynomial(vl,R,E) -@ -<>= +\end{chunk} +\begin{chunk}{HDMP.dotabb} "HDMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HDMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "HDMP" -> "PFECAT" "HDMP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HELLFDIV HyperellipticFiniteDivisor} -<>= +\begin{chunk}{HyperellipticFiniteDivisor.input} )set break resume )sys rm -f HyperellipticFiniteDivisor.output )spool HyperellipticFiniteDivisor.output @@ -56395,8 +56395,8 @@ HomogeneousDistributedMultivariatePolynomial(vl,R): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{HyperellipticFiniteDivisor.help} ==================================================================== HyperellipticFiniteDivisor examples ==================================================================== @@ -56404,7 +56404,7 @@ HyperellipticFiniteDivisor examples See Also: o )show HyperellipticFiniteDivisor -@ +\end{chunk} \pagehead{HyperellipticFiniteDivisor}{HELLFDIV} \pagepic{ps/v103hyperellipticfinitedivisor.ps}{HELLFDIV}{1.00} @@ -56436,7 +56436,7 @@ o )show HyperellipticFiniteDivisor \cross{HELLFDIV}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain HELLFDIV HyperellipticFiniteDivisor} )abbrev domain HELLFDIV HyperellipticFiniteDivisor ++ Author: Manuel Bronstein ++ Date Created: 19 May 1993 @@ -56602,19 +56602,19 @@ HyperellipticFiniteDivisor(F, UP, UPUP, R): Exports == Implementation where bb := ((numer(b) * rec.coef1) exquo rec.generator)::UP rem a reduce makeDivisor(a, bb, 1) -@ -<>= +\end{chunk} +\begin{chunk}{HELLFDIV.dotabb} "HELLFDIV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HELLFDIV"] "FDIVCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FDIVCAT"] "HELLFDIV" -> "FDIVCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter I} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ICP InfClsPt} -<>= +\begin{chunk}{InfClsPt.input} )set break resume )sys rm -f InfClsPt.output )spool InfClsPt.output @@ -56658,8 +56658,8 @@ HyperellipticFiniteDivisor(F, UP, UPUP, R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InfClsPt.help} ==================================================================== InfClsPt examples ==================================================================== @@ -56667,7 +56667,7 @@ InfClsPt examples See Also: o )show InfClsPt -@ +\end{chunk} \pagehead{InfClsPt}{ICP} \pagepic{ps/v103infclspt.eps}{ICP}{1.00} @@ -56703,7 +56703,7 @@ o )show InfClsPt \cross{IC}{symbNameV} && \end{tabular} -<>= +\begin{chunk}{domain ICP InfClsPt} )abbrev domain ICP InfClsPt ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -56739,19 +56739,19 @@ InfClsPt(K,symb,BLMET):Exports == Implementation where PCS,Plc,DIVISOR,BLMET) -@ -<>= +\end{chunk} +\begin{chunk}{ICP.dotabb} "ICP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ICP"] "INFCLSPT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFCLSPT"] "PLACES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLACES"] "ICP" -> "INFCLSPT" "ICP" -> "PLACES" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ICARD IndexCard} -<>= +\begin{chunk}{IndexCard.input} )set break resume )sys rm -f IndexCard.output )spool IndexCard.output @@ -56780,8 +56780,8 @@ InfClsPt(K,symb,BLMET):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexCard.help} ==================================================================== IndexCard examples ==================================================================== @@ -56789,7 +56789,7 @@ IndexCard examples See Also: o )show IndexCard -@ +\end{chunk} \pagehead{IndexCard}{ICARD} \pagepic{ps/v103indexcard.ps}{ICARD}{1.00} @@ -56816,7 +56816,7 @@ o )show IndexCard \cross{ICARD}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain ICARD IndexCard} )abbrev domain ICARD IndexCard ++ Author: Mark Botch ++ Description: @@ -56875,17 +56875,17 @@ IndexCard() : Exports == Implementation where s = "doc" => dbComments(x)$Lisp error "unknown selector" -@ -<>= +\end{chunk} +\begin{chunk}{ICARD.dotabb} "ICARD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ICARD"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "ICARD" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IBITS IndexedBits} -<>= +\begin{chunk}{IndexedBits.input} )set break resume )sys rm -f IndexedBits.output )spool IndexedBits.output @@ -56997,9 +56997,9 @@ c:=copy a --E 13 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{IndexedBits.help} ==================================================================== IndexedBits ==================================================================== @@ -57046,7 +57046,7 @@ c:=copy a See Also: o )show IndexedBits -@ +\end{chunk} \pagehead{IndexedBits}{IBITS} \pagepic{ps/v103indexedbits.ps}{IBITS}{1.00} {\bf See}\\ @@ -57133,7 +57133,7 @@ o )show IndexedBits \cross{IBITS}{?and?} \end{tabular} -<>= +\begin{chunk}{domain IBITS IndexedBits} )abbrev domain IBITS IndexedBits ++ Author: Stephen Watt and Michael Monagan ++ Date Created: July 86 @@ -57192,17 +57192,17 @@ IndexedBits(mn:Integer): BitAggregate() with And(u, v) == (#v=#u => BVEC_-AND(v,u)$Lisp; map("and",v,u)) Or(u, v) == (#v=#u => BVEC_-OR(v, u)$Lisp; map("or", v,u)) -@ -<>= +\end{chunk} +\begin{chunk}{IBITS.dotabb} "IBITS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IBITS"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "IBITS" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDPAG IndexedDirectProductAbelianGroup} -<>= +\begin{chunk}{IndexedDirectProductAbelianGroup.input} )set break resume )sys rm -f IndexedDirectProductAbelianGroup.output )spool IndexedDirectProductAbelianGroup.output @@ -57234,8 +57234,8 @@ IndexedBits(mn:Integer): BitAggregate() with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductAbelianGroup.help} ==================================================================== IndexedDirectProductAbelianGroup examples ==================================================================== @@ -57243,7 +57243,7 @@ IndexedDirectProductAbelianGroup examples See Also: o )show IndexedDirectProductAbelianGroup -@ +\end{chunk} \pagehead{IndexedDirectProductAbelianGroup}{IDPAG} \pagepic{ps/v103indexeddirectproductabeliangroup.ps}{IDPAG}{1.00} @@ -57275,7 +57275,7 @@ o )show IndexedDirectProductAbelianGroup \cross{IDPAG}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain IDPAG IndexedDirectProductAbelianGroup} )abbrev domain IDPAG IndexedDirectProductAbelianGroup ++ Author: Mark Botch ++ Description: @@ -57344,19 +57344,19 @@ IndexedDirectProductAbelianGroup(A:AbelianGroup,S:OrderedSet): -- r = 0 => x.rest - y.rest -- cons([x.first.k,r],(x.rest - y.rest)) -@ -<>= +\end{chunk} +\begin{chunk}{IDPAG.dotabb} "IDPAG" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDPAG"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "IDPC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=IDPC"] "IDPAG" -> "IDPC" "IDPAG" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDPAM IndexedDirectProductAbelianMonoid} -<>= +\begin{chunk}{IndexedDirectProductAbelianMonoid.input} )set break resume )sys rm -f IndexedDirectProductAbelianMonoid.output )spool IndexedDirectProductAbelianMonoid.output @@ -57386,8 +57386,8 @@ IndexedDirectProductAbelianGroup(A:AbelianGroup,S:OrderedSet): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductAbelianMonoid.help} ==================================================================== IndexedDirectProductAbelianMonoid examples ==================================================================== @@ -57395,7 +57395,7 @@ IndexedDirectProductAbelianMonoid examples See Also: o )show IndexedDirectProductAbelianMonoid -@ +\end{chunk} \pagehead{IndexedDirectProductAbelianMonoid}{IDPAM} \pagepic{ps/v103indexeddirectproductabelianmonoid.ps}{IDPAM}{1.00} @@ -57424,7 +57424,7 @@ o )show IndexedDirectProductAbelianMonoid \cross{IDPAM}{?=?} \end{tabular} -<>= +\begin{chunk}{domain IDPAM IndexedDirectProductAbelianMonoid} )abbrev domain IDPAM IndexedDirectProductAbelianMonoid ++ Author: Mark Botch ++ Description: @@ -57504,19 +57504,19 @@ IndexedDirectProductAbelianMonoid(A:AbelianMonoid,S:OrderedSet): reductum x == (null x => 0; rest x) leadingCoefficient x == (null x => 0; x.first.c) -@ -<>= +\end{chunk} +\begin{chunk}{IDPAM.dotabb} "IDPAM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDPAM"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "IDPC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=IDPC"] "IDPAM" -> "IDPC" "IDPAM" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDPO IndexedDirectProductObject} -<>= +\begin{chunk}{IndexedDirectProductObject.input} )set break resume )sys rm -f IndexedDirectProductObject.output )spool IndexedDirectProductObject.output @@ -57542,8 +57542,8 @@ IndexedDirectProductAbelianMonoid(A:AbelianMonoid,S:OrderedSet): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductObject.help} ==================================================================== IndexedDirectProductObject examples ==================================================================== @@ -57551,7 +57551,7 @@ IndexedDirectProductObject examples See Also: o )show IndexedDirectProductObject -@ +\end{chunk} \pagehead{IndexedDirectProductObject}{IDPO} \pagepic{ps/v103indexeddirectproductobject.ps}{IDPO}{1.00} @@ -57575,7 +57575,7 @@ o )show IndexedDirectProductObject \cross{IDPO}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain IDPO IndexedDirectProductObject} )abbrev domain IDPO IndexedDirectProductObject ++ Author: Mark Botch ++ Description: @@ -57618,19 +57618,19 @@ IndexedDirectProductObject(A:SetCategory,S:OrderedSet): _ null x => error "Can't take leadingCoefficient of empty product element" x.first.k -@ -<>= +\end{chunk} +\begin{chunk}{IDPO.dotabb} "IDPO" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDPO"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "IDPC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=IDPC"] "IDPO" -> "IDPC" "IDPO" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDPOAM IndexedDirectProductOrderedAbelianMonoid} -<>= +\begin{chunk}{IndexedDirectProductOrderedAbelianMonoid.input} )set break resume )sys rm -f IndexedDirectProductOrderedAbelianMonoid.output )spool IndexedDirectProductOrderedAbelianMonoid.output @@ -57663,8 +57663,8 @@ IndexedDirectProductObject(A:SetCategory,S:OrderedSet): _ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductOrderedAbelianMonoid.help} ==================================================================== IndexedDirectProductOrderedAbelianMonoid examples ==================================================================== @@ -57672,7 +57672,7 @@ IndexedDirectProductOrderedAbelianMonoid examples See Also: o )show IndexedDirectProductOrderedAbelianMonoid -@ +\end{chunk} \pagehead{IndexedDirectProductOrderedAbelianMonoid}{IDPOAM} \pagepic{ps/v103indexeddirectproductorderedabelianmonoid.ps}{IDPOAM}{1.00} @@ -57707,7 +57707,7 @@ o )show IndexedDirectProductOrderedAbelianMonoid \cross{IDPOAM}{?$>=$?} &&&& \end{tabular} -<>= +\begin{chunk}{domain IDPOAM IndexedDirectProductOrderedAbelianMonoid} )abbrev domain IDPOAM IndexedDirectProductOrderedAbelianMonoid ++ Author: Mark Botch ++ Description: @@ -57732,17 +57732,17 @@ IndexedDirectProductOrderedAbelianMonoid(A:OrderedAbelianMonoid,S:OrderedSet): y.first.c < x.first.c => false x.rest < y.rest -@ -<>= +\end{chunk} +\begin{chunk}{IDPOAM.dotabb} "IDPOAM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDPOAM"] "OAMON" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMON"] "IDPOAM" -> "OAMON" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDPOAMS IndexedDirectProductOrderedAbelianMonoidSup} -<>= +\begin{chunk}{IndexedDirectProductOrderedAbelianMonoidSup.input} )set break resume )sys rm -f IndexedDirectProductOrderedAbelianMonoidSup.output )spool IndexedDirectProductOrderedAbelianMonoidSup.output @@ -57776,8 +57776,8 @@ IndexedDirectProductOrderedAbelianMonoid(A:OrderedAbelianMonoid,S:OrderedSet): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedDirectProductOrderedAbelianMonoidSup.help} ==================================================================== IndexedDirectProductOrderedAbelianMonoidSup examples ==================================================================== @@ -57785,7 +57785,7 @@ IndexedDirectProductOrderedAbelianMonoidSup examples See Also: o )show IndexedDirectProductOrderedAbelianMonoidSup -@ +\end{chunk} \pagehead{IndexedDirectProductOrderedAbelianMonoidSup}{IDPOAMS} \pagepic{ps/v103indexeddirectproductorderedabelianmonoidsup.ps}{IDPOAMS}{1.00} @@ -57822,7 +57822,7 @@ o )show IndexedDirectProductOrderedAbelianMonoidSup \cross{IDPOAMS}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain IDPOAMS IndexedDirectProductOrderedAbelianMonoidSup} )abbrev domain IDPOAMS IndexedDirectProductOrderedAbelianMonoidSup ++ Author: Mark Botch ++ Description: @@ -57863,17 +57863,17 @@ IndexedDirectProductOrderedAbelianMonoidSup(A:OrderedAbelianMonoidSup,S:OrderedS u:=sup(x.first.c, y.first.c) cons([x.first.k,u],sup(x.rest,y.rest)) -@ -<>= +\end{chunk} +\begin{chunk}{IDPOAMS.dotabb} "IDPOAMS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDPOAMS"] "OAMONS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMONS"] "IDPOAMS" -> "OAMONS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INDE IndexedExponents} -<>= +\begin{chunk}{IndexedExponents.input} )set break resume )sys rm -f IndexedExponents.output )spool IndexedExponents.output @@ -57909,8 +57909,8 @@ IndexedDirectProductOrderedAbelianMonoidSup(A:OrderedAbelianMonoidSup,S:OrderedS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedExponents.help} ==================================================================== IndexedExponents examples ==================================================================== @@ -57918,7 +57918,7 @@ IndexedExponents examples See Also: o )show IndexedExponents -@ +\end{chunk} \pagehead{IndexedExponents}{INDE} \pagepic{ps/v103indexedexponents.ps}{INDE}{1.00} @@ -57954,7 +57954,7 @@ o )show IndexedExponents \cross{INDE}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain INDE IndexedExponents} )abbrev domain INDE IndexedExponents ++ Author: James Davenport ++ Date Created: @@ -57986,17 +57986,17 @@ IndexedExponents(Varset:OrderedSet): C == T where null rest x => coerceOF(first x) reduce("*",[coerceOF t for t in x]) -@ -<>= +\end{chunk} +\begin{chunk}{INDE.dotabb} "INDE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INDE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "INDE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IFARRAY IndexedFlexibleArray} -<>= +\begin{chunk}{IndexedFlexibleArray.input} )set break resume )sys rm -f IndexedFlexibleArray.output )spool IndexedFlexibleArray.output @@ -58101,8 +58101,8 @@ IndexedExponents(Varset:OrderedSet): C == T where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedFlexibleArray.help} ==================================================================== IndexedFlexibleArray examples ==================================================================== @@ -58110,7 +58110,7 @@ IndexedFlexibleArray examples See Also: o )show IndexedFlexibleArray -@ +\end{chunk} \pagehead{IndexedFlexibleArray}{IFARRAY} \pagepic{ps/v103indexedflexiblearray.ps}{IFARRAY}{1.00} @@ -58200,7 +58200,7 @@ o )show IndexedFlexibleArray \cross{IFARRAY}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain IFARRAY IndexedFlexibleArray} )abbrev domain IFARRAY IndexedFlexibleArray ++ Author: Michael Monagan July/87, modified SMW June/91 ++ Description: @@ -58434,17 +58434,17 @@ IndexedFlexibleArray(S:Type, mn: Integer): Exports == Implementation where nlim ^= nlim0 => delete_!(a, i..) a -@ -<>= +\end{chunk} +\begin{chunk}{IFARRAY.dotabb} "IFARRAY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IFARRAY"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "IFARRAY" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ILIST IndexedList} -<>= +\begin{chunk}{IndexedList.input} )set break resume )sys rm -f IndexedList.output )spool IndexedList.output @@ -58573,8 +58573,8 @@ IndexedFlexibleArray(S:Type, mn: Integer): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedList.help} ==================================================================== IndexedList examples ==================================================================== @@ -58582,7 +58582,7 @@ IndexedList examples See Also: o )show IndexedList -@ +\end{chunk} \pagehead{IndexedList}{ILIST} \pagepic{ps/v103indexedlist.ps}{ILIST}{1.00} @@ -58694,7 +58694,7 @@ o )show IndexedList \cross{ILIST}{?.value} \end{tabular} -<>= +\begin{chunk}{domain ILIST IndexedList} )abbrev domain ILIST IndexedList ++ Author: Michael Monagan ++ Date Created: Sep 1987 @@ -58884,18 +58884,18 @@ IndexedList(S:Type, mn:Integer): Exports == Implementation where q := mergeSort(f, q, n - l) merge_!(f, p, q) -@ -<>= +\end{chunk} +\begin{chunk}{ILIST.dotabb} "ILIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ILIST", shape=ellipse] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "ILIST" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IMATRIX IndexedMatrix} -<>= +\begin{chunk}{IndexedMatrix.input} )set break resume )sys rm -f IndexedMatrix.output )spool IndexedMatrix.output @@ -58987,8 +58987,8 @@ IndexedList(S:Type, mn:Integer): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedMatrix.help} ==================================================================== IndexedMatrix examples ==================================================================== @@ -58996,7 +58996,7 @@ IndexedMatrix examples See Also: o )show IndexedMatrix -@ +\end{chunk} \pagehead{IndexedMatrix}{IMATRIX} \pagepic{ps/v103indexedmatrix.ps}{IMATRIX}{1.00} @@ -59079,7 +59079,7 @@ o )show IndexedMatrix \cross{IMATRIX}{?-?} \end{tabular} -<>= +\begin{chunk}{domain IMATRIX IndexedMatrix} )abbrev domain IMATRIX IndexedMatrix ++ Author: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -59146,19 +59146,19 @@ IndexedMatrix(R,mnRow,mnCol): Exports == Implementation where inverse x == inverse(x)$MATLIN -@ -<>= +\end{chunk} +\begin{chunk}{IMATRIX.dotabb} "IMATRIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IMATRIX"] "MATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MATCAT"] "VECTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=VECTCAT"] "IMATRIX" -> "MATCAT" "IMATRIX" -> "VECTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IARRAY1 IndexedOneDimensionalArray} -<>= +\begin{chunk}{IndexedOneDimensionalArray.input} )set break resume )sys rm -f IndexedOneDimensionalArray.output )spool IndexedOneDimensionalArray.output @@ -59251,8 +59251,8 @@ IndexedMatrix(R,mnRow,mnCol): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedOneDimensionalArray.help} ==================================================================== IndexedOneDimensionalArray examples ==================================================================== @@ -59260,7 +59260,7 @@ IndexedOneDimensionalArray examples See Also: o )show IndexedOneDimensionalArray -@ +\end{chunk} \pagehead{IndexedOneDimensionalArray}{IARRAY1} \pagepic{ps/v103indexedonedimensionalarray.ps}{IARRAY1}{1.00} @@ -59354,7 +59354,7 @@ o )show IndexedOneDimensionalArray \cross{IARRAY1}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain IARRAY1 IndexedOneDimensionalArray} )abbrev domain IARRAY1 IndexedOneDimensionalArray ++ Author Micheal Monagan Aug/87 ++ Description: @@ -59441,17 +59441,17 @@ IndexedOneDimensionalArray(S:Type, mn:Integer): i < mn or i > maxIndex(x) => error "index out of range" qsetelt_!(x, i, s) -@ -<>= +\end{chunk} +\begin{chunk}{IARRAY1.dotabb} "IARRAY1" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IARRAY1"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "IARRAY1" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ISTRING IndexedString} -<>= +\begin{chunk}{IndexedString.input} )set break resume )sys rm -f IndexedString.output )spool IndexedString.output @@ -59562,8 +59562,8 @@ IndexedOneDimensionalArray(S:Type, mn:Integer): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedString.help} ==================================================================== IndexedString examples ==================================================================== @@ -59571,7 +59571,7 @@ IndexedString examples See Also: o )show IndexedString -@ +\end{chunk} \pagehead{IndexedString}{ISTRING} \pagepic{ps/v103indexedstring.ps}{ISTRING}{1.00} @@ -59660,7 +59660,7 @@ o )show IndexedString \cross{ISTRING}{?.?} &&&& \end{tabular} -<>= +\begin{chunk}{domain ISTRING IndexedString} )abbrev domain ISTRING IndexedString ++ Authors: Stephen Watt, Michael Monagan, Manuel Bronstein 1986 .. 1991 -- The following Lisp dependencies are divided into two groups @@ -59856,14 +59856,14 @@ IndexedString(mn:Integer): Export == Implementation where (p ^= n) and not suffix?(pattern(p+1..n), target) => false true -@ -<>= +\end{chunk} +\begin{chunk}{ISTRING.dotabb} "ISTRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ISTRING", shape=ellipse] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "ISTRING" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IARRAY2 IndexedTwoDimensionalArray} @@ -59877,7 +59877,7 @@ be obtained by calling the function 'minColIndex'. The index of the first element of a 'Row' is the same as the index of the first column in an array and vice versa. -<>= +\begin{chunk}{IndexedTwoDimensionalArray.input} )set break resume )sys rm -f IndexedTwoDimensionalArray.output )spool IndexedTwoDimensionalArray.output @@ -59934,8 +59934,8 @@ first column in an array and vice versa. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedTwoDimensionalArray.help} ==================================================================== IndexedTwoDimensionalArray examples ==================================================================== @@ -59943,7 +59943,7 @@ IndexedTwoDimensionalArray examples See Also: o )show IndexedTwoDimensionalArray -@ +\end{chunk} \pagehead{IndexedTwoDimensionalArray}{IARRAY2} \pagepic{ps/v103indexedtwodimensionalarray.ps}{IARRAY2}{1.00} @@ -59995,7 +59995,7 @@ o )show IndexedTwoDimensionalArray \cross{IARRAY2}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain IARRAY2 IndexedTwoDimensionalArray} )abbrev domain IARRAY2 IndexedTwoDimensionalArray ++ Author: Mark Botch ++ Description: @@ -60012,19 +60012,19 @@ IndexedTwoDimensionalArray(R,mnRow,mnCol):Exports == Implementation where Implementation ==> InnerIndexedTwoDimensionalArray(R,mnRow,mnCol,Row,Col) -@ -<>= +\end{chunk} +\begin{chunk}{IARRAY2.dotabb} "IARRAY2" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IARRAY2"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "ARR2CAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ARR2CAT"] "IARRAY2" -> "ARR2CAT" "IARRAY2" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IVECTOR IndexedVector} -<>= +\begin{chunk}{IndexedVector.input} )set break resume )sys rm -f IndexedVector.output )spool IndexedVector.output @@ -60128,8 +60128,8 @@ IndexedTwoDimensionalArray(R,mnRow,mnCol):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IndexedVector.help} ==================================================================== IndexedVector examples ==================================================================== @@ -60137,7 +60137,7 @@ IndexedVector examples See Also: o )show IndexedVector -@ +\end{chunk} \pagehead{IndexedVector}{IVECTOR} \pagepic{ps/v103indexedvector.ps}{IVECTOR}{1.00} @@ -60217,7 +60217,7 @@ o )show IndexedVector \cross{IVECTOR}{?.?} &&&& \end{tabular} -<>= +\begin{chunk}{domain IVECTOR IndexedVector} )abbrev domain IVECTOR IndexedVector ++ Author: Mark Botch ++ Date Created: @@ -60235,17 +60235,17 @@ o )show IndexedVector IndexedVector(R:Type, mn:Integer): VectorCategory R == IndexedOneDimensionalArray(R, mn) -@ -<>= +\end{chunk} +\begin{chunk}{IVECTOR.dotabb} "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "VECTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=VECTCAT"] "IVECTOR" -> "VECTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ITUPLE InfiniteTuple} -<>= +\begin{chunk}{InfiniteTuple.input} )set break resume )sys rm -f InfiniteTuple.output )spool InfiniteTuple.output @@ -60271,8 +60271,8 @@ IndexedVector(R:Type, mn:Integer): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InfiniteTuple.help} ==================================================================== InfiniteTuple examples ==================================================================== @@ -60280,7 +60280,7 @@ InfiniteTuple examples See Also: o )show InfiniteTuple -@ +\end{chunk} \pagehead{InfiniteTuple}{ITUPLE} \pagepic{ps/v103infinitetuple.ps}{ITUPLE}{1.00} @@ -60296,7 +60296,7 @@ o )show InfiniteTuple \cross{ITUPLE}{select} \end{tabular} -<>= +\begin{chunk}{domain ITUPLE InfiniteTuple} )abbrev domain ITUPLE InfiniteTuple ++ Author: Clifton J. Williamson ++ Date Created: 16 February 1990 @@ -60334,17 +60334,17 @@ InfiniteTuple(S:Type): Exports == Implementation where -- coerce x == -- coerce(x)$Stream(S) -@ -<>= +\end{chunk} +\begin{chunk}{ITUPLE.dotabb} "ITUPLE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ITUPLE"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "ITUPLE" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INFCLSPT InfinitlyClosePoint} -<>= +\begin{chunk}{InfinitlyClosePoint.input} )set break resume )sys rm -f InfinitlyClosePoint.output )spool InfinitlyClosePoint.output @@ -60386,8 +60386,8 @@ InfiniteTuple(S:Type): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InfinitlyClosePoint.help} ==================================================================== InfinitlyClosePoint examples ==================================================================== @@ -60395,7 +60395,7 @@ InfinitlyClosePoint examples See Also: o )show InfinitlyClosePoint -@ +\end{chunk} \pagehead{InfinitlyClosePoint}{INFCLSPT} \pagepic{ps/v103infinitlyclosepoint.eps}{INFCLSPT}{1.00} @@ -60432,7 +60432,7 @@ o )show InfinitlyClosePoint \cross{INFCLSPT}{symbNameV} & \end{tabular} -<>= +\begin{chunk}{domain INFCLSPT InfinitlyClosePoint} )abbrev domain INFCLSPT InfinitlyClosePoint ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -60603,17 +60603,17 @@ InfinitlyClosePoint(K,symb,PolyRing,E,ProjPt,PCS,Plc,DIVISOR,BLMET):Exports == I setsymbName_!(a:%,n:Symbol) ==(a:Rep)(symbName):=n -@ -<>= +\end{chunk} +\begin{chunk}{INFCLSPT.dotabb} "INFCLSPT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFCLSPT"] "INFCLCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=INFCLCT"] "INFCLSPT" -> "INFCLCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INFCLSPS InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField} -<>= +\begin{chunk}{InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField.input} )set break resume )sys rm -f InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField.output )spool InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField.output @@ -60659,8 +60659,8 @@ InfinitlyClosePoint(K,symb,PolyRing,E,ProjPt,PCS,Plc,DIVISOR,BLMET):Exports == I )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField.help} ==================================================================== InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField examples ==================================================================== @@ -60668,7 +60668,7 @@ InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField examples See Also: o )show InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField -@ +\end{chunk} \pagehead{InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField}{INFCLSPS} \pagepic{ps/v103infinitlyclosepointoverpseudoalgebraicclosureoffinitefield.eps}{INFCLSPS}{1.00} @@ -60704,7 +60704,7 @@ o )show InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField \cross{INFCLSPS}{symbNameV} && \end{tabular} -<>= +\begin{chunk}{domain INFCLSPS InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField} )abbrev domain INFCLSPS InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -60743,17 +60743,17 @@ InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField(K,symb,BLMET):_ Implementation == InfinitlyClosePoint(KK,symb,PolyRing,E,ProjPt,_ PCS,Plc,DIVISOR,BLMET) -@ -<>= +\end{chunk} +\begin{chunk}{INFCLSPS.dotabb} "INFCLSPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFCLSPS"] "PROJPLPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PROJPLPS"] "INFCLSPS" -> "PROJPLPS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IAN InnerAlgebraicNumber} -<>= +\begin{chunk}{InnerAlgebraicNumber.input} )set break resume )sys rm -f InnerAlgebraicNumber.output )spool InnerAlgebraicNumber.output @@ -60879,8 +60879,8 @@ InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField(K,symb,BLMET):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerAlgebraicNumber.help} ==================================================================== InnerAlgebraicNumber examples ==================================================================== @@ -60888,7 +60888,7 @@ InnerAlgebraicNumber examples See Also: o )show InnerAlgebraicNumber -@ +\end{chunk} \pagehead{InnerAlgebraicNumber}{IAN} \pagepic{ps/v103inneralgebraicnumber.ps}{IAN}{1.00} @@ -60987,7 +60987,7 @@ o )show InnerAlgebraicNumber \cross{IAN}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain IAN InnerAlgebraicNumber} )abbrev domain IAN InnerAlgebraicNumber ++ Author: Manuel Bronstein ++ Date Created: 22 March 1988 @@ -61128,8 +61128,8 @@ InnerAlgebraicNumber(): Exports == Implementation where retract map(y +-> y::Complex(Float),x pretend FE)_ $ExpressionFunctions2(Z, Complex Float) -@ -<>= +\end{chunk} +\begin{chunk}{IAN.dotabb} "IAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IAN"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] @@ -61138,11 +61138,11 @@ InnerAlgebraicNumber(): Exports == Implementation where "IAN" -> "FS" "IAN" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IFF InnerFiniteField} -<>= +\begin{chunk}{InnerFiniteField.input} )set break resume )sys rm -f InnerFiniteField.output )spool InnerFiniteField.output @@ -61255,8 +61255,8 @@ InnerAlgebraicNumber(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerFiniteField.help} ==================================================================== InnerFiniteField examples ==================================================================== @@ -61264,7 +61264,7 @@ InnerFiniteField examples See Also: o )show InnerFiniteField -@ +\end{chunk} \pagehead{InnerFiniteField}{IFF} \pagepic{ps/v103innerfinitefield.ps}{IFF}{1.00} @@ -61362,7 +61362,7 @@ o )show InnerFiniteField \cross{IFF}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain IFF InnerFiniteField} )abbrev domain IFF InnerFiniteField ++ Author: Mark Botch ++ Date Created: ??? @@ -61387,17 +61387,17 @@ o )show InnerFiniteField InnerFiniteField(p:PositiveInteger, n:PositiveInteger) == FiniteFieldExtension(InnerPrimeField p, n) -@ -<>= +\end{chunk} +\begin{chunk}{IFF.dotabb} "IFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IFF"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "IFF" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IFAMON InnerFreeAbelianMonoid} -<>= +\begin{chunk}{InnerFreeAbelianMonoid.input} )set break resume )sys rm -f InnerFreeAbelianMonoid.output )spool InnerFreeAbelianMonoid.output @@ -61433,8 +61433,8 @@ InnerFiniteField(p:PositiveInteger, n:PositiveInteger) == )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerFreeAbelianMonoid.help} ==================================================================== InnerFreeAbelianMonoid examples ==================================================================== @@ -61442,7 +61442,7 @@ InnerFreeAbelianMonoid examples See Also: o )show InnerFreeAbelianMonoid -@ +\end{chunk} \pagehead{InnerFreeAbelianMonoid}{IFAMON} \pagepic{ps/v103innerfreeabelianmonoid.ps}{IFAMON}{1.00} @@ -61478,7 +61478,7 @@ o )show InnerFreeAbelianMonoid \cross{IFAMON}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain IFAMON InnerFreeAbelianMonoid} )abbrev domain IFAMON InnerFreeAbelianMonoid ++ Author: Manuel Bronstein ++ Date Created: November 1989 @@ -61514,20 +61514,20 @@ InnerFreeAbelianMonoid(S: SetCategory, E:CancellationAbelianMonoid, un:E): makeMulti [[x.gen, min(x.exp, n)] for x in listOfMonoms f | (n := coefficient(x.gen, g)) > 0] -@ -<>= +\end{chunk} +\begin{chunk}{IFAMON.dotabb} "IFAMON" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IFAMON"] "OAMON" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMON"] "IFAMON" -> "OAMON" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IIARRAY2 InnerIndexedTwoDimensionalArray} This is an internal type which provides an implementation of 2-dimensional arrays as PrimitiveArray's of PrimitiveArray's. -<>= +\begin{chunk}{InnerIndexedTwoDimensionalArray.input} )set break resume )sys rm -f InnerIndexedTwoDimensionalArray.output )spool InnerIndexedTwoDimensionalArray.output @@ -61583,8 +61583,8 @@ This is an internal type which provides an implementation of )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerIndexedTwoDimensionalArray.help} ==================================================================== InnerIndexedTwoDimensionalArray examples ==================================================================== @@ -61592,7 +61592,7 @@ InnerIndexedTwoDimensionalArray examples See Also: o )show InnerIndexedTwoDimensionalArray -@ +\end{chunk} \pagehead{InnerIndexedTwoDimensionalArray}{IIARRAY2} \pagepic{ps/v103innerindexedtwodimensionalarray.ps}{IIARRAY2}{1.00} @@ -61643,7 +61643,7 @@ o )show InnerIndexedTwoDimensionalArray \cross{IIARRAY2}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain IIARRAY2 InnerIndexedTwoDimensionalArray} )abbrev domain IIARRAY2 InnerIndexedTwoDimensionalArray ++ Author: Mark Botch ++ Description: @@ -61730,17 +61730,17 @@ InnerIndexedTwoDimensionalArray(R,mnRow,mnCol,Row,Col):_ if i < maxRowIndex(m) then s := concat(s, " \\ ")$String concat(s, "\end{array} \right]")$String -@ -<>= +\end{chunk} +\begin{chunk}{IIARRAY2.dotabb} "IIARRAY2" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IIARRAY2"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "IIARRAY2" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IPADIC InnerPAdicInteger} -<>= +\begin{chunk}{InnerPAdicInteger.input} )set break resume )sys rm -f InnerPAdicInteger.output )spool InnerPAdicInteger.output @@ -61798,8 +61798,8 @@ InnerIndexedTwoDimensionalArray(R,mnRow,mnCol,Row,Col):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerPAdicInteger.help} ==================================================================== InnerPAdicInteger examples ==================================================================== @@ -61807,7 +61807,7 @@ InnerPAdicInteger examples See Also: o )show InnerPAdicInteger -@ +\end{chunk} \pagehead{InnerPAdicInteger}{IPADIC} \pagepic{ps/v103innerpadicinteger.ps}{IPADIC}{1.00} @@ -61868,7 +61868,7 @@ o )show InnerPAdicInteger \cross{IPADIC}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain IPADIC InnerPAdicInteger} )abbrev domain IPADIC InnerPAdicInteger ++ Author: Clifton J. Williamson ++ Date Created: 20 August 1989 @@ -62118,19 +62118,19 @@ InnerPAdicInteger(p,unBalanced?): Exports == Implementation where empty? l => 0 :: OUT reduce("+",reverse_! l) -@ -<>= +\end{chunk} +\begin{chunk}{IPADIC.dotabb} "IPADIC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IPADIC"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PADICCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PADICCT"] "IPADIC" -> "PADICCT" "IPADIC" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IPF InnerPrimeField} -<>= +\begin{chunk}{InnerPrimeField.input} )set break resume )sys rm -f InnerPrimeField.output )spool InnerPrimeField.output @@ -62233,8 +62233,8 @@ InnerPAdicInteger(p,unBalanced?): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerPrimeField.help} ==================================================================== InnerPrimeField examples ==================================================================== @@ -62242,7 +62242,7 @@ InnerPrimeField examples See Also: o )show InnerPrimeField -@ +\end{chunk} \pagehead{InnerPrimeField}{IPF} \pagepic{ps/v103innerprimefield.ps}{IPF}{1.00} @@ -62339,7 +62339,7 @@ o )show InnerPrimeField \cross{IPF}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain IPF InnerPrimeField} )abbrev domain IPF InnerPrimeField ++ Authors: N.N., J.Grabmeier, A.Scheerhorn ++ Date Created: ?, November 1990, 26.03.1991 @@ -62517,17 +62517,17 @@ InnerPrimeField(p:PositiveInteger): Exports == Implementation where charthRoot x == x -@ -<>= +\end{chunk} +\begin{chunk}{IPF.dotabb} "IPF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IPF"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "IPF" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ISUPS InnerSparseUnivariatePowerSeries} -<>= +\begin{chunk}{InnerSparseUnivariatePowerSeries.input} )set break resume )sys rm -f InnerSparseUnivariatePowerSeries.output )spool InnerSparseUnivariatePowerSeries.output @@ -62643,8 +62643,8 @@ InnerPrimeField(p:PositiveInteger): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerSparseUnivariatePowerSeries.help} ==================================================================== InnerSparseUnivariatePowerSeries examples ==================================================================== @@ -62652,7 +62652,7 @@ InnerSparseUnivariatePowerSeries examples See Also: o )show InnerSparseUnivariatePowerSeries -@ +\end{chunk} \pagehead{InnerSparseUnivariatePowerSeries}{ISUPS} \pagepic{ps/v103innersparseunivariatepowerseries.ps}{ISUPS}{1.00} @@ -62750,7 +62750,7 @@ o )show InnerSparseUnivariatePowerSeries \cross{ISUPS}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain ISUPS InnerSparseUnivariatePowerSeries} )abbrev domain ISUPS InnerSparseUnivariatePowerSeries ++ Author: Clifton J. Williamson ++ Date Created: 28 October 1994 @@ -63815,17 +63815,17 @@ InnerSparseUnivariatePowerSeries(Coef): Exports == Implementation where empty? l => (0$Coef) :: OUT reduce("+",reverse_! l) -@ -<>= +\end{chunk} +\begin{chunk}{ISUPS.dotabb} "ISUPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ISUPS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ISUPS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INTABL InnerTable} -<>= +\begin{chunk}{InnerTable.input} )set break resume )sys rm -f InnerTable.output )spool InnerTable.output @@ -63920,8 +63920,8 @@ InnerSparseUnivariatePowerSeries(Coef): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerTable.help} ==================================================================== InnerTable examples ==================================================================== @@ -63929,7 +63929,7 @@ InnerTable examples See Also: o )show InnerTable -@ +\end{chunk} \pagehead{InnerTable}{INTABL} \pagepic{ps/v103innertable.ps}{INTABL}{1.00} @@ -64001,7 +64001,7 @@ o )show InnerTable \cross{INTABL}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain INTABL InnerTable} )abbrev domain INTABL InnerTable ++ Author: Barry Trager ++ Date Created: 1992 @@ -64024,17 +64024,17 @@ InnerTable(Key: SetCategory, Entry: SetCategory, addDom):Exports == Implementati finiteAggregate Implementation ==> addDom -@ -<>= +\end{chunk} +\begin{chunk}{INTABL.dotabb} "INTABL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INTABL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "INTABL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ITAYLOR InnerTaylorSeries} -<>= +\begin{chunk}{InnerTaylorSeries.input} )set break resume )sys rm -f InnerTaylorSeries.output )spool InnerTaylorSeries.output @@ -64081,8 +64081,8 @@ InnerTable(Key: SetCategory, Entry: SetCategory, addDom):Exports == Implementati )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InnerTaylorSeries.help} ==================================================================== InnerTaylorSeries examples ==================================================================== @@ -64090,7 +64090,7 @@ InnerTaylorSeries examples See Also: o )show InnerTaylorSeries -@ +\end{chunk} \pagehead{InnerTaylorSeries}{ITAYLOR} \pagepic{ps/v103innertaylorseries.ps}{ITAYLOR}{1.00} @@ -64130,7 +64130,7 @@ o )show InnerTaylorSeries \cross{ITAYLOR}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain ITAYLOR InnerTaylorSeries} )abbrev domain ITAYLOR InnerTaylorSeries ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -64266,17 +64266,17 @@ InnerTaylorSeries(Coef): Exports == Implementation where order x == iOrder2(stream x,0) -@ -<>= +\end{chunk} +\begin{chunk}{ITAYLOR.dotabb} "ITAYLOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ITAYLOR"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "ITAYLOR" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INFORM InputForm} -<>= +\begin{chunk}{InputForm.input} )set break resume )sys rm -f InputForm.output )spool InputForm.output @@ -64323,8 +64323,8 @@ InnerTaylorSeries(Coef): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InputForm.help} ==================================================================== InputForm examples ==================================================================== @@ -64332,7 +64332,7 @@ InputForm examples See Also: o )show InputForm -@ +\end{chunk} \pagehead{InputForm}{INFORM} \pagepic{ps/v103inputform.ps}{INFORM}{1.00} @@ -64381,7 +64381,7 @@ o )show InputForm \cross{INFORM}{?.?} \end{tabular} -<>= +\begin{chunk}{domain INFORM InputForm} )abbrev domain INFORM InputForm ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -64567,20 +64567,20 @@ InputForm(): s2 = 1 => s1 conv [convert("/"::Symbol), s1, s2]$List(%) -@ -<>= +\end{chunk} +\begin{chunk}{INFORM.dotabb} "INFORM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFORM"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "INFORM" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INT Integer} The function {\bf one?} has been rewritten back to its original form. The NAG version called a lisp primitive that exists only in Codemist Common Lisp and is not defined in Common Lisp. -<>= +\begin{chunk}{Integer.input} )set break resume )sys rm -f Integer.output )spool Integer.output @@ -64932,8 +64932,8 @@ factor(2 :: Complex Integer) --E 42 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Integer.help} ==================================================================== Integer examples ==================================================================== @@ -65240,7 +65240,7 @@ o )help IntegerNumberTheoryFunctions o )help RomanNumeral o )show Integer -@ +\end{chunk} \pagehead{Integer}{INT} \pagepic{ps/v103integer.ps}{INT}{1.00} {\bf See}\\ @@ -65337,7 +65337,7 @@ o )show Integer \cross{INT}{?rem?} &&& \end{tabular} -<>= +\begin{chunk}{domain INT Integer} )abbrev domain INT Integer ++ Author: Mark Botch ++ Date Created: @@ -65515,8 +65515,8 @@ Integer: Join(IntegerNumberSystem, ConvertibleTo String, OpenMath) with -- TT:=InnerModularGcd(%,ZP,67108859 pretend %,myNextPrime) -- gcdPolynomial(p,q) == modularGcd(p,q)$TT -@ -<>= +\end{chunk} +\begin{chunk}{INT.dotabb} "INT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INT", shape=ellipse] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] @@ -65524,11 +65524,11 @@ Integer: Join(IntegerNumberSystem, ConvertibleTo String, OpenMath) with "INT" -> "STRING" "INT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ZMOD IntegerMod} -<>= +\begin{chunk}{IntegerMod.input} )set break resume )sys rm -f IntegerMod.output )spool IntegerMod.output @@ -65568,8 +65568,8 @@ Integer: Join(IntegerNumberSystem, ConvertibleTo String, OpenMath) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegerMod.help} ==================================================================== IntegerMod examples ==================================================================== @@ -65577,7 +65577,7 @@ IntegerMod examples See Also: o )show IntegerMod -@ +\end{chunk} \pagehead{IntegerMod}{ZMOD} \pagepic{ps/v103integermod.ps}{ZMOD}{1.00} @@ -65612,7 +65612,7 @@ o )show IntegerMod \cross{ZMOD}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain ZMOD IntegerMod} )abbrev domain ZMOD IntegerMod ++ Author: Mark Botch ++ Date Created: @@ -65698,17 +65698,17 @@ IntegerMod(p:PositiveInteger): not (g = 1) => "failed" positiveRemainder(c1, p) -@ -<>= +\end{chunk} +\begin{chunk}{ZMOD.dotabb} "ZMOD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ZMOD"] "BMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BMODULE"] "ZMOD" -> "BMODULE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INTFTBL IntegrationFunctionsTable} -<>= +\begin{chunk}{IntegrationFunctionsTable.input} )set break resume )sys rm -f IntegrationFunctionsTable.output )spool IntegrationFunctionsTable.output @@ -65736,8 +65736,8 @@ IntegerMod(p:PositiveInteger): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegrationFunctionsTable.help} ==================================================================== IntegrationFunctionsTable examples ==================================================================== @@ -65745,7 +65745,7 @@ IntegrationFunctionsTable examples See Also: o )show IntegrationFunctionsTable -@ +\end{chunk} \pagehead{IntegrationFunctionsTable}{INTFTBL} \pagepic{ps/v103integrationfunctionstable.ps}{INTFTBL}{1.00} @@ -65762,7 +65762,7 @@ o )show IntegrationFunctionsTable \cross{INTFTBL}{showTheFTable} \end{tabular} -<>= +\begin{chunk}{domain INTFTBL IntegrationFunctionsTable} )abbrev domain INTFTBL IntegrationFunctionsTable ++ Author: Brian Dupee ++ Date Created: March 1995 @@ -65860,17 +65860,17 @@ IntegrationFunctionsTable(): E == I where entry(k:NIA):ATT == qelt(theFTable,k)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{INTFTBL.dotabb} "INTFTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INTFTBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "INTFTBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IR IntegrationResult} -<>= +\begin{chunk}{IntegrationResult.input} )set break resume )sys rm -f IntegrationResult.output )spool IntegrationResult.output @@ -65910,8 +65910,8 @@ IntegrationFunctionsTable(): E == I where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegrationResult.help} ==================================================================== IntegrationResult examples ==================================================================== @@ -65919,7 +65919,7 @@ IntegrationResult examples See Also: o )show IntegrationResult -@ +\end{chunk} \pagehead{IntegrationResult}{IR} \pagepic{ps/v103integrationresult.ps}{IR}{1.00} @@ -65950,7 +65950,7 @@ o )show IntegrationResult \cross{IR}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain IR IntegrationResult} )abbrev domain IR IntegrationResult ++ Author: Barry Trager, Manuel Bronstein ++ Date Created: 1987 @@ -66122,17 +66122,17 @@ IntegrationResult(F:Field): Exports == Implementation where NE2O ne == int((ne.integrand)::O * hconcat ["d"::Symbol::O, (ne.intvar)::O]) -@ -<>= +\end{chunk} +\begin{chunk}{IR.dotabb} "IR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IR"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "IR" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain INTRVL Interval} -<>= +\begin{chunk}{Interval.input} )set break resume )sys rm -f Interval.output )spool Interval.output @@ -66303,8 +66303,8 @@ contains?(t3,0.3) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Interval.help} ==================================================================== Interval examples ==================================================================== @@ -66349,7 +66349,7 @@ negative? t3 contains?(t3,0.3) false -@ +\end{chunk} \pagehead{Interval}{INTRVL} \pagepic{ps/v103interval.ps}{INTRVL}{1.00} @@ -66429,7 +66429,7 @@ contains?(t3,0.3) \cross{INTRVL}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain INTRVL Interval} )abbrev domain INTRVL Interval ++ Author: Mike Dewar ++ Date Created: November 1996 @@ -66872,13 +66872,13 @@ Interval(R:Join(FloatingPointSystem,TranscendentalFunctionCategory)): IntervalCa -- From RadicalCategory _*_* (u:%,n:Fraction Integer):% == interval(inf(u)**n,sup(u)**n) -@ -<>= +\end{chunk} +\begin{chunk}{INTRVL.dotabb} "INTRVL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INTRVL"] "INTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=INTCAT"] "INTRVL" -> "INTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter J} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -66887,7 +66887,7 @@ Interval(R:Join(FloatingPointSystem,TranscendentalFunctionCategory)): IntervalCa %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain KERNEL Kernel} -<>= +\begin{chunk}{Kernel.input} )set break resume )sys rm -f Kernel.output )spool Kernel.output @@ -67048,8 +67048,8 @@ argument mainKernel e --E 19 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Kernel.help} ==================================================================== Kernel examples ==================================================================== @@ -67193,7 +67193,7 @@ o )help Expression o )help BasicOperator o )show Kernel -@ +\end{chunk} \pagehead{Kernel}{KERNEL} \pagepic{ps/v103kernel.ps}{KERNEL}{1.00} {\bf See}\\ @@ -67224,7 +67224,7 @@ o )show Kernel \cross{KERNEL}{?$>=$?} &&&& \end{tabular} -<>= +\begin{chunk}{domain KERNEL Kernel} )abbrev domain KERNEL Kernel ++ Author: Manuel Bronstein ++ Date Created: 22 March 1988 @@ -67367,17 +67367,17 @@ Kernel(S:OrderedSet): Exports == Implementation where setPredicates(s, l) o [convert x for x in k.arg]$List(Pattern Float) -@ -<>= +\end{chunk} +\begin{chunk}{KERNEL.dotabb} "KERNEL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=KERNEL"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "KERNEL" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain KAFILE KeyedAccessFile} -<>= +\begin{chunk}{KeyedAccessFile.input} )set break resume )sys rm -f KeyedAccessFile.output )spool KeyedAccessFile.output @@ -67549,8 +67549,8 @@ members ey )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{KeyedAccessFile.help} ==================================================================== KeyedAccessFile examples ==================================================================== @@ -67645,7 +67645,7 @@ o )help TextFile o )help Library o )show KeyedAccessFile -@ +\end{chunk} \pagehead{KeyedAccessFile}{KAFILE} \pagepic{ps/v103keyedaccessfile.ps}{KAFILE}{1.00} {\bf See}\\ @@ -67725,7 +67725,7 @@ o )show KeyedAccessFile \cross{KAFILE}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain KAFILE KeyedAccessFile} )abbrev domain KAFILE KeyedAccessFile ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -67861,19 +67861,19 @@ KeyedAccessFile(Entry): KAFcategory == KAFcapsule where RPACKFILE(f.fileName)$Lisp f -@ -<>= +\end{chunk} +\begin{chunk}{KAFILE.dotabb} "KAFILE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=KAFILE"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "KAFILE" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter L} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LAUPOL LaurentPolynomial} -<>= +\begin{chunk}{LaurentPolynomial.input} )set break resume )sys rm -f LaurentPolynomial.output )spool LaurentPolynomial.output @@ -67959,8 +67959,8 @@ KeyedAccessFile(Entry): KAFcategory == KAFcapsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LaurentPolynomial.help} ==================================================================== LaurentPolynomial examples ==================================================================== @@ -67968,7 +67968,7 @@ LaurentPolynomial examples See Also: o )show LaurentPolynomial -@ +\end{chunk} \pagehead{LaurentPolynomial}{LAUPOL} \pagepic{ps/v103laurentpolynomial.ps}{LAUPOL}{1.00} @@ -68028,7 +68028,7 @@ o )show LaurentPolynomial \cross{LAUPOL}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain LAUPOL LaurentPolynomial} )abbrev domain LAUPOL LaurentPolynomial ++ Author: Manuel Bronstein ++ Date Created: May 1988 @@ -68188,17 +68188,17 @@ LaurentPolynomial(R, UP): Exports == Implementation where [mkgpol(order c - order a, bc.coef1), mkgpol(order c - order b, bc.coef2)] -@ -<>= +\end{chunk} +\begin{chunk}{LAUPOL.dotabb} "LAUPOL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LAUPOL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LAUPOL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LIB Library} -<>= +\begin{chunk}{Library.input} )set break resume )sys rm -f Library.output )spool Library.output @@ -68268,8 +68268,8 @@ stuff("poly") )system rm -rf Neat.stuff )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Library.help} ==================================================================== Library examples ==================================================================== @@ -68314,7 +68314,7 @@ o )help TextFile o )help KeyedAccessFile o )show Library -@ +\end{chunk} \pagehead{Library}{LIB} \pagepic{ps/v103library.ps}{LIB}{1.00} {\bf See}\\ @@ -68387,7 +68387,7 @@ o )show Library \cross{LIB}{?.?} \end{tabular} -<>= +\begin{chunk}{domain LIB Library} )abbrev domain LIB Library ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -68426,17 +68426,17 @@ Library(): TableAggregate(String, Any) with elt(f:%,v:Symbol) == elt(f, string v) setelt(f:%, v:Symbol, val:Any) == setelt(f, string v, val) -@ -<>= +\end{chunk} +\begin{chunk}{LIB.dotabb} "LIB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LIB"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "LIB" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LEXP LieExponentials} -<>= +\begin{chunk}{LieExponentials.input} )set break resume )sys rm -f LieExponentials.output )spool LieExponentials.output @@ -68567,8 +68567,8 @@ g*g1 --E 13 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LieExponentials.help} ==================================================================== LieExponentials examples ==================================================================== @@ -68654,7 +68654,7 @@ Calculations See Also: o )show LieExponentials -@ +\end{chunk} \pagehead{LieExponentials}{LEXP} \pagepic{ps/v103lieexponentials.ps}{LEXP}{1.00} @@ -68686,7 +68686,7 @@ o )show LieExponentials \cross{LEXP}{?=?} \end{tabular} -<>= +\begin{chunk}{domain LEXP LieExponentials} )abbrev domain LEXP LieExponentials ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -68818,19 +68818,19 @@ LieExponentials(VarSet, R, Order): XDPcat == XDPdef where lt:= [[t.k, (odd? length(t.k)$BASIS => - t.c; t.c)]$TERM for t in lt ] lt pretend $ -@ -<>= +\end{chunk} +\begin{chunk}{LEXP.dotabb} "LEXP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LEXP"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "LEXP" -> "FLAGG-" "LEXP" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LPOLY LiePolynomial} -<>= +\begin{chunk}{LiePolynomial.input} )set break resume )sys rm -f LiePolynomial.output )spool LiePolynomial.output @@ -69077,8 +69077,8 @@ r + r1 + r2 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LiePolynomial.help} ==================================================================== LiePolynomial examples ==================================================================== @@ -69229,7 +69229,7 @@ o )help LyndonWord o )help XDistributedPolynomial o )show LiePolynomial -@ +\end{chunk} \pagehead{LiePolynomial}{LPOLY} \pagepic{ps/v103liepolynomial.ps}{LPOLY}{1.00} @@ -69276,7 +69276,7 @@ o )show LiePolynomial \cross{LPOLY}{?=?} \end{tabular} -<>= +\begin{chunk}{domain LPOLY LiePolynomial} )abbrev domain LPOLY LiePolynomial ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -69470,17 +69470,17 @@ LiePolynomial(VarSet:OrderedSet, R:CommutativeRing) : Public == Private where -- 1 = #le => first le -- mkNary("+" :: EX,le) -@ -<>= +\end{chunk} +\begin{chunk}{LPOLY.dotabb} "LPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LPOLY"] "FLALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLALG"] "LPOLY" -> "FLALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LSQM LieSquareMatrix} -<>= +\begin{chunk}{LieSquareMatrix.input} )set break resume )sys rm -f LieSquareMatrix.output )spool LieSquareMatrix.output @@ -69637,8 +69637,8 @@ LiePolynomial(VarSet:OrderedSet, R:CommutativeRing) : Public == Private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LieSquareMatrix.help} ==================================================================== LieSquareMatrix examples ==================================================================== @@ -69646,7 +69646,7 @@ LieSquareMatrix examples See Also: o )show LieSquareMatrix -@ +\end{chunk} \pagehead{LieSquareMatrix}{LSQM} \pagepic{ps/v103liesquarematrix.ps}{LSQM}{1.00} @@ -69785,7 +69785,7 @@ o )show LieSquareMatrix \cross{LSQM}{?.?} && \end{tabular} -<>= +\begin{chunk}{domain LSQM LieSquareMatrix} )abbrev domain LSQM LieSquareMatrix ++ Author: J. Grabmeier ++ Date Created: 07 March 1991 @@ -69871,17 +69871,17 @@ LieSquareMatrix(n,R): Exports == Implementation where -- if R has commutative("*") then central -- if R has commutative("*") and R has unitsKnown then unitsKnown -@ -<>= +\end{chunk} +\begin{chunk}{LSQM.dotabb} "LSQM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LSQM"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "LSQM" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO LinearOrdinaryDifferentialOperator} -<>= +\begin{chunk}{LinearOrdinaryDifferentialOperator.input} )set break resume )sys rm -f LinearOrdinaryDifferentialOperator.output )spool LinearOrdinaryDifferentialOperator.output @@ -70170,8 +70170,8 @@ leq --E 16 )spool -@ -<>= +\end{chunk} +\begin{chunk}{LinearOrdinaryDifferentialOperator.help} ==================================================================== LinearOrdinaryDifferentialOperator examples ==================================================================== @@ -70368,7 +70368,7 @@ Evaluate this for several values of n. See Also: o )show LinearOrdinaryDifferentialOperator -@ +\end{chunk} \pagehead{LinearOrdinaryDifferentialOperator}{LODO} \pagepic{ps/v103linearordinarydifferentialoperator.ps}{LODO}{1.00} {\bf See}\\ @@ -70434,7 +70434,7 @@ o )show LinearOrdinaryDifferentialOperator \cross{LODO}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain LODO LinearOrdinaryDifferentialOperator} )abbrev domain LODO LinearOrdinaryDifferentialOperator ++ Author: Manuel Bronstein ++ Date Created: 9 December 1993 @@ -70464,17 +70464,17 @@ LinearOrdinaryDifferentialOperator(A:Ring, diff: A -> A): symmetricPower(a, n) == symmetricPower(a, n, diff) directSum(a, b) == directSum(a, b, diff) -@ -<>= +\end{chunk} +\begin{chunk}{LODO.dotabb} "LODO" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LODO"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "LODO" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO1 LinearOrdinaryDifferentialOperator1} -<>= +\begin{chunk}{LinearOrdinaryDifferentialOperator1.input} )set break resume )sys rm -f LinearOrdinaryDifferentialOperator1.output )spool LinearOrdinaryDifferentialOperator1.output @@ -70670,9 +70670,9 @@ leftRemainder(f, b) --E 20 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{LinearOrdinaryDifferentialOperator1.help} ==================================================================== LinearOrdinaryDifferentialOperator1 example ==================================================================== @@ -70865,7 +70865,7 @@ both sides. See Also: o )show LinearOrdinaryDifferentialOperator1 -@ +\end{chunk} \pagehead{LinearOrdinaryDifferentialOperator1}{LODO1} \pagepic{ps/v103linearordinarydifferentialoperator1.ps}{LODO1}{1.00} {\bf See}\\ @@ -70931,7 +70931,7 @@ o )show LinearOrdinaryDifferentialOperator1 \cross{LODO1}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain LODO1 LinearOrdinaryDifferentialOperator1} )abbrev domain LODO1 LinearOrdinaryDifferentialOperator1 ++ Author: Manuel Bronstein ++ Date Created: 9 December 1993 @@ -70946,17 +70946,17 @@ o )show LinearOrdinaryDifferentialOperator1 LinearOrdinaryDifferentialOperator1(A:DifferentialRing) == LinearOrdinaryDifferentialOperator(A, differentiate$A) -@ -<>= +\end{chunk} +\begin{chunk}{LODO1.dotabb} "LODO1" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LODO1"] "LODOCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LODOCAT"] "LODO1" -> "LODOCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LODO2 LinearOrdinaryDifferentialOperator2} -<>= +\begin{chunk}{LinearOrdinaryDifferentialOperator2.input} )set break resume )sys rm -f LinearOrdinaryDifferentialOperator2.output )spool LinearOrdinaryDifferentialOperator2.output @@ -71228,8 +71228,8 @@ b p --E 26 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LinearOrdinaryDifferentialOperator2.help} ==================================================================== LinearOrdinaryDifferentialOperator2 ==================================================================== @@ -71476,7 +71476,7 @@ These operators can be applied to vector values. See Also: o )show LinearOrdinaryDifferentialOperator2 -@ +\end{chunk} \pagehead{LinearOrdinaryDifferentialOperator2}{LODO2} \pagepic{ps/v103linearordinarydifferentialoperator2.ps}{LODO2}{1.00} {\bf See}\\ @@ -71542,7 +71542,7 @@ o )show LinearOrdinaryDifferentialOperator2 \cross{LODO2}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain LODO2 LinearOrdinaryDifferentialOperator2} )abbrev domain LODO2 LinearOrdinaryDifferentialOperator2 ++ Author: Stephen M. Watt, Manuel Bronstein ++ Date Created: 1986 @@ -71567,17 +71567,17 @@ LinearOrdinaryDifferentialOperator2(A, M): Exports == Implementation where elt(p:%, m:M):M == apply(p, differentiate, m)$ApplyUnivariateSkewPolynomial(A, M, %) -@ -<>= +\end{chunk} +\begin{chunk}{LODO2.dotabb} "LODO2" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LODO2"] "LODOCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LODOCAT"] "LODO2" -> "LODOCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LIST List} -<>= +\begin{chunk}{List.input} )set break resume )sys rm -f List.output )spool List.output @@ -71857,8 +71857,8 @@ expand [1..] --E 34 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{List.help} ==================================================================== List examples ==================================================================== @@ -72135,7 +72135,7 @@ See Also: o )help Stream o )show List -@ +\end{chunk} \pagehead{List}{LIST} \pagepic{ps/v103list.ps}{LIST}{1.00} {\bf See}\\ @@ -72255,7 +72255,7 @@ o )show List \cross{LIST}{?.value} & \end{tabular} -<>= +\begin{chunk}{domain LIST List} )abbrev domain LIST List ++ Author: Michael Monagan ++ Date Created: Sep 1987 @@ -72384,18 +72384,18 @@ List(S:Type): Exports == Implementation where convert concat(convert("construct"::Symbol)@InputForm, [convert a for a in (x pretend List S)]$List(InputForm)) -@ -<>= +\end{chunk} +\begin{chunk}{LIST.dotabb} "LIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LIST", shape=ellipse] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "LIST" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LMOPS ListMonoidOps} -<>= +\begin{chunk}{ListMonoidOps.input} )set break resume )sys rm -f ListMonoidOps.output )spool ListMonoidOps.output @@ -72431,8 +72431,8 @@ List(S:Type): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ListMonoidOps.help} ==================================================================== ListMonoidOps examples ==================================================================== @@ -72440,7 +72440,7 @@ ListMonoidOps examples See Also: o )show ListMonoidOps -@ +\end{chunk} \pagehead{ListMonoidOps}{LMOPS} \pagepic{ps/v103listmonoidops.ps}{LMOPS}{1.00} @@ -72478,7 +72478,7 @@ o )show ListMonoidOps \cross{LMOPS}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain LMOPS ListMonoidOps} )abbrev domain LMOPS ListMonoidOps ++ Author: Manuel Bronstein ++ Date Created: November 1989 @@ -72631,19 +72631,19 @@ ListMonoidOps(S, E, un): Exports == Implementation where g := plus(x.gen, x.exp, g) g -@ -<>= +\end{chunk} +\begin{chunk}{LMOPS.dotabb} "LMOPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LMOPS"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "LMOPS" -> "FLAGG" "LMOPS" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LMDICT ListMultiDictionary} -<>= +\begin{chunk}{ListMultiDictionary.input} )set break resume )sys rm -f ListMultiDictionary.output )spool ListMultiDictionary.output @@ -72707,8 +72707,8 @@ ListMonoidOps(S, E, un): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ListMultiDictionary.help} ==================================================================== ListMultiDictionary examples ==================================================================== @@ -72716,7 +72716,7 @@ ListMultiDictionary examples See Also: o )show ListMultiDictionary -@ +\end{chunk} \pagehead{ListMultiDictionary}{LMDICT} \pagepic{ps/v103listmultidictionary.ps}{LMDICT}{1.00} @@ -72767,7 +72767,7 @@ o )show ListMultiDictionary \cross{LMDICT}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain LMDICT ListMultiDictionary} )abbrev domain LMDICT ListMultiDictionary ++ Author: Mark Botch ++ Date Created: @@ -72910,17 +72910,17 @@ ListMultiDictionary(S:SetCategory): EE == II where setref(s, concat(x, deref s)) s -@ -<>= +\end{chunk} +\begin{chunk}{LMDICT.dotabb} "LMDICT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LMDICT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "LMDICT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LA LocalAlgebra} -<>= +\begin{chunk}{LocalAlgebra.input} )set break resume )sys rm -f LocalAlgebra.output )spool LocalAlgebra.output @@ -72970,8 +72970,8 @@ ListMultiDictionary(S:SetCategory): EE == II where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LocalAlgebra.help} ==================================================================== LocalAlgebra examples ==================================================================== @@ -72979,7 +72979,7 @@ LocalAlgebra examples See Also: o )show LocalAlgebra -@ +\end{chunk} \pagehead{LocalAlgebra}{LA} \pagepic{ps/v103localalgebra.ps}{LA}{1.00} @@ -73023,7 +73023,7 @@ o )show LocalAlgebra \cross{LA}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain LA LocalAlgebra} )abbrev domain LA LocalAlgebra ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -73055,17 +73055,17 @@ LocalAlgebra(A: Algebra R, x:% * y:% == (numer(x) * numer(y)) / (denom(x) * denom(y)) characteristic() == characteristic()$A -@ -<>= +\end{chunk} +\begin{chunk}{LA.dotabb} "LA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LA"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "LA" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LO Localize} -<>= +\begin{chunk}{Localize.input} )set break resume )sys rm -f Localize.output )spool Localize.output @@ -73104,8 +73104,8 @@ LocalAlgebra(A: Algebra R, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Localize.help} ==================================================================== Localize examples ==================================================================== @@ -73113,7 +73113,7 @@ Localize examples See Also: o )show Localize -@ +\end{chunk} \pagehead{Localize}{LO} \pagepic{ps/v103localize.ps}{LO}{1.00} @@ -73147,7 +73147,7 @@ o )show Localize \cross{LO}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain LO Localize} )abbrev domain LO Localize ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -73214,17 +73214,17 @@ Localize(M:Module R, dl : String := concat("{", concat(latex(x.den), "}")$String)$String concat("{ ", concat(nl, concat(" \over ", concat(dl, " }")$String)$String)$String)$String -@ -<>= +\end{chunk} +\begin{chunk}{LO.dotabb} "LO" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LO"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "LO" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain LWORD LyndonWord} -<>= +\begin{chunk}{LyndonWord.input} )set break resume )sys rm -f LyndonWord.output )spool LyndonWord.output @@ -73427,8 +73427,8 @@ lyndon(w1*w2)$lword --E 22 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LyndonWord.help} ==================================================================== LyndonWord examples ==================================================================== @@ -73562,7 +73562,7 @@ Checks and coercions See Also: o )show LyndonWord -@ +\end{chunk} \pagehead{LyndonWord}{LWORD} \pagepic{ps/v103lyndonword.ps}{LWORD}{1.00} @@ -73595,7 +73595,7 @@ o )show LyndonWord \cross{LWORD}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain LWORD LyndonWord} )abbrev domain LWORD LyndonWord ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -73757,19 +73757,19 @@ LyndonWord(VarSet:OrderedSet):Public == Private where v:ARRAY1 List $ := LyndonWordsList1(vl,n) "append"/ [v.i for i in 1..n] -@ -<>= +\end{chunk} +\begin{chunk}{LWORD.dotabb} "LWORD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=LWORD"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "LWORD" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter M} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MCMPLX MachineComplex} -<>= +\begin{chunk}{MachineComplex.input} )set break resume )sys rm -f MachineComplex.output )spool MachineComplex.output @@ -73975,8 +73975,8 @@ LyndonWord(VarSet:OrderedSet):Public == Private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MachineComplex.help} ==================================================================== MachineComplex examples ==================================================================== @@ -73984,7 +73984,7 @@ MachineComplex examples See Also: o )show MachineComplex -@ +\end{chunk} \pagehead{MachineComplex}{MCMPLX} \pagepic{ps/v103machinecomplex.ps}{MCMPLX}{1.00} @@ -74132,7 +74132,7 @@ o )show MachineComplex \cross{MCMPLX}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain MCMPLX MachineComplex} )abbrev domain MCMPLX MachineComplex ++ Date Created: December 1993 ++ Date Last Updated: @@ -74180,17 +74180,17 @@ MachineComplex():Exports == Implementation where coerce(u:$):Complex Float == complex(real(u)::Float,imag(u)::Float) -@ -<>= +\end{chunk} +\begin{chunk}{MCMPLX.dotabb} "MCMPLX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MCMPLX"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "MCMPLX" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MFLOAT MachineFloat} -<>= +\begin{chunk}{MachineFloat.input} )set break resume )sys rm -f MachineFloat.output )spool MachineFloat.output @@ -74284,8 +74284,8 @@ MachineComplex():Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MachineFloat.help} ==================================================================== MachineFloat examples ==================================================================== @@ -74293,7 +74293,7 @@ MachineFloat examples See Also: o )show MachineFloat -@ +\end{chunk} \pagehead{MachineFloat}{MFLOAT} \pagepic{ps/v103machinefloat.ps}{MFLOAT}{1.00} @@ -74383,7 +74383,7 @@ o )show MachineFloat \cross{MFLOAT}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain MFLOAT MachineFloat} )abbrev domain MFLOAT MachineFloat ++ Author: Mike Dewar ++ Date Created: December 1993 @@ -74686,17 +74686,17 @@ MachineFloat(): Exports == Implementation where characteristic():NNI == 0 -@ -<>= +\end{chunk} +\begin{chunk}{MFLOAT.dotabb} "MFLOAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MFLOAT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "MFLOAT" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MINT MachineInteger} -<>= +\begin{chunk}{MachineInteger.input} )set break resume )sys rm -f MachineInteger.output )spool MachineInteger.output @@ -74782,8 +74782,8 @@ MachineFloat(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MachineInteger.help} ==================================================================== MachineInteger examples ==================================================================== @@ -74791,7 +74791,7 @@ MachineInteger examples See Also: o )show MachineInteger -@ +\end{chunk} \pagehead{MachineInteger}{MINT} \pagepic{ps/v103machineinteger.ps}{MINT}{1.00} @@ -74887,7 +74887,7 @@ o )show MachineInteger \cross{MINT}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain MINT MachineInteger} )abbrev domain MINT MachineInteger ++ Author: Mike Dewar ++ Date Created: December 1993 @@ -74941,17 +74941,17 @@ MachineInteger(): Exports == Implementation where retractIfCan(u:$):Union(Integer,"failed") == u pretend Integer -@ -<>= +\end{chunk} +\begin{chunk}{MINT.dotabb} "MINT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MINT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "MINT" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MAGMA Magma} -<>= +\begin{chunk}{Magma.input} )set break resume )sys rm -f Magma.output )spool Magma.output @@ -75136,8 +75136,8 @@ lexico(xa,ax) --E 22 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Magma.help} ==================================================================== Magma examples ==================================================================== @@ -75248,7 +75248,7 @@ Check ordering See Also: o )show Magma -@ +\end{chunk} \pagehead{Magma}{MAGMA} \pagepic{ps/v103magma.ps}{MAGMA}{1.00} @@ -75279,7 +75279,7 @@ o )show Magma \cross{MAGMA}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain MAGMA Magma} )abbrev domain MAGMA Magma ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -75423,19 +75423,19 @@ Magma(VarSet:OrderedSet):Public == Private where lx = ly => recursif(x,y) lx < ly -@ -<>= +\end{chunk} +\begin{chunk}{MAGMA.dotabb} "MAGMA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MAGMA"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "MAGMA" -> "FLAGG" "MAGMA" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MKCHSET MakeCachableSet} -<>= +\begin{chunk}{MakeCachableSet.input} )set break resume )sys rm -f MakeCachableSet.output )spool MakeCachableSet.output @@ -75465,8 +75465,8 @@ Magma(VarSet:OrderedSet):Public == Private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MakeCachableSet.help} ==================================================================== MakeCachableSet examples ==================================================================== @@ -75474,7 +75474,7 @@ MakeCachableSet examples See Also: o )show MakeCachableSet -@ +\end{chunk} \pagehead{MakeCachableSet}{MKCHSET} \pagepic{ps/v103makecachableset.ps}{MKCHSET}{1.00} @@ -75498,7 +75498,7 @@ o )show MakeCachableSet \cross{MKCHSET}{?$>=$?} &&&&& \end{tabular} -<>= +\begin{chunk}{domain MKCHSET MakeCachableSet} )abbrev domain MKCHSET MakeCachableSet ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -75534,17 +75534,17 @@ MakeCachableSet(S:SetCategory): Exports == Implementation where if position(y) = 0 then enterInCache(y, x1+->(y::S = x1::S)) position(x) = position(y) -@ -<>= +\end{chunk} +\begin{chunk}{MKCHSET.dotabb} "MKCHSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MKCHSET"] "CACHSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=CACHSET"] "MKCHSET" -> "CACHSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MMLFORM MathMLFormat} -<>= +\begin{chunk}{MathMLFormat.input} )set break resume )sys rm -f MathMLFormat.output )spool MathMLFormat.output @@ -75570,8 +75570,8 @@ MakeCachableSet(S:SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MathMLFormat.help} ==================================================================== MathMLFormat examples ==================================================================== @@ -75579,7 +75579,7 @@ MathMLFormat examples See Also: o )show MathMLFormat -@ +\end{chunk} Both this code and documentation are still under development and @@ -75893,7 +75893,7 @@ to have a humanly readable formatted output as well. The basics do exist in the coerceS function however the formatting still needs some work to be really good. -<>= +\begin{chunk}{public declarations} )abbrev domain MMLFORM MathMLFormat ++ Author: Arthur C. Ralfs ++ Date: January 2007 @@ -75933,9 +75933,9 @@ MathMLFormat(): public == private where display: S -> Void ++ prints the string returned by coerce, adding tags. -@ +\end{chunk} \subsection{Private Constant Declarations} -<>= +\begin{chunk}{private constant declarations} private == add import OutputForm import Character @@ -75987,7 +75987,7 @@ MathMLFormat(): public == private where "cosh","coth","csch","sech","sinh","tanh", "arccos","arcsin","arctan","erf","…","$","∞"] -@ +\end{chunk} \subsection{Private Function Declarations} These are the local functions: @@ -76060,7 +76060,7 @@ These are the local functions: ungroup:S -$>$ S -<>= +\begin{chunk}{private function declarations} -- local function signatures addBraces: S -> S @@ -76101,7 +76101,7 @@ These are the local functions: ++ finds closing ">" of start or end tag for mathML element ungroup: S -> S -@ +\end{chunk} \subsection{Public Function Definitions} Note that I use the function sayTeX\$Lisp much as I would printf in a @@ -76114,7 +76114,7 @@ The functions coerceS and coerceL should probably be changed to display functions, {\it i.e.}\/ \spadfun{displayS} and \spadfun{display L}, returning Void. I really only need the one coerce function. -<>= +\begin{chunk}{public function definitions} -- public function definitions coerce(expr : E): S == @@ -76166,7 +76166,7 @@ returning Void. I really only need the one coerce function. s := concat [s,s1] s := concat [s,"}"] -@ +\end{chunk} \subsection{Private Function Definitions} \subsubsection{Display Functions} @@ -76179,7 +76179,7 @@ returning Void. I really only need the one coerce function. tagEnd(name:S,pos:I,mathml:S):I -<>= +\begin{chunk}{display functions} displayElt(mathML:S): Void == -- Takes a string of syntactically complete mathML @@ -76269,7 +76269,7 @@ returning Void. I really only need the one coerce function. --sayTeX$Lisp "tagEnd: "mathML.u pI -@ +\end{chunk} \subsubsection{Formatting Functions} Still need to format \verb+\zag+ in formatSpecial! @@ -76304,7 +76304,7 @@ Ordinary derivatives are formatted in formatSuperSub and there are 2 versions, formatSuperSub and formatSuperSub1, which at this point have to be switched by swapping names. -<>= +\begin{chunk}{formatting functions} atomize(expr : E): L E == -- This breaks down an expression into a flat list of atomic expressions. @@ -77009,9 +77009,9 @@ have to be switched by swapping names. op := formatMml(first l,minPrec) formatFunction(op,args,prec) -@ +\end{chunk} \subsection{Mathematical Markup Language Form} -<>= +\begin{chunk}{MathMLFormat.input} )set break resume )spool MathMLFormat.output )set message test on @@ -77085,8 +77085,8 @@ have to be switched by swapping names. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MathMLFormat.help} ==================================================================== MathMLFormat examples ==================================================================== @@ -77168,7 +77168,7 @@ but we don't do that here so you can compare the output. See Also: o )show MathMLFormat -@ +\end{chunk} \pagehead{MathMLForm}{MMLFORM} \pagepic{ps/v104mathmlform.ps}{MMLFORM}{1.00} @@ -77185,25 +77185,25 @@ o )show MathMLFormat \cross{MMLFORM}{?\~{}=?} & \end{tabular} -<>= -<> -<> -<> -<> -<> -<> +\begin{chunk}{domain MMLFORM MathMLFormat} +\getchunk{public declarations} +\getchunk{private constant declarations} +\getchunk{private function declarations} +\getchunk{public function definitions} +\getchunk{display functions} +\getchunk{formatting functions} -@ -<>= +\end{chunk} +\begin{chunk}{MMLFORM.dotabb} "MMLFORM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MMLFORM"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "MMLFORM" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MATRIX Matrix} -<>= +\begin{chunk}{Matrix.input} )set break resume )sys rm -f Matrix.output )spool Matrix.output @@ -77678,8 +77678,8 @@ rowEchelon(mm) --E 38 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Matrix.help} ==================================================================== Matrix examples ==================================================================== @@ -78114,7 +78114,7 @@ o )help Vector o )help Permanent o )show Matrix -@ +\end{chunk} \pagehead{Matrix}{MATRIX} \pagepic{ps/v103matrix.ps}{MATRIX}{1.00} {\bf See}\\ @@ -78198,7 +78198,7 @@ o )show Matrix \cross{MATRIX}{?-?} &&& \end{tabular} -<>= +\begin{chunk}{domain MATRIX Matrix} )abbrev domain MATRIX Matrix ++ Author: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -78373,17 +78373,17 @@ Matrix(R): Exports == Implementation where convert [convert("matrix"::Symbol)@InputForm, convert listOfLists x]$List(InputForm) -@ -<>= +\end{chunk} +\begin{chunk}{MATRIX.dotabb} "MATRIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MATRIX"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "MATRIX" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MODMON ModMonic} -<>= +\begin{chunk}{ModMonic.input} )set break resume )sys rm -f ModMonic.output )spool ModMonic.output @@ -78583,8 +78583,8 @@ Matrix(R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ModMonic.help} ==================================================================== ModMonic examples ==================================================================== @@ -78592,7 +78592,7 @@ ModMonic examples See Also: o )show ModMonic -@ +\end{chunk} \pagehead{ModMonic}{MODMON} \pagepic{ps/v103modmonic.ps}{MODMON}{1.00} @@ -78727,7 +78727,7 @@ o )show ModMonic \cross{MODMON}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain MODMON ModMonic} )abbrev domain MODMON ModMonic ++ Author: Mark Botch ++ Description: @@ -78896,17 +78896,17 @@ ModMonic(R,Rep): C == T -- setelt(ans,i,j, elt(ans,i-1,j-1) + elt(ans,d,j-1) * An(MM).i) -- ans -@ -<>= +\end{chunk} +\begin{chunk}{MODMON.dotabb} "MODMON" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MODMON"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MODMON" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MODFIELD ModularField} -<>= +\begin{chunk}{ModularField.input} )set break resume )sys rm -f ModularField.output )spool ModularField.output @@ -78966,8 +78966,8 @@ ModMonic(R,Rep): C == T )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ModularField.help} ==================================================================== ModularField examples ==================================================================== @@ -78975,7 +78975,7 @@ ModularField examples See Also: o )show ModularField -@ +\end{chunk} \pagehead{ModularField}{MODFIELD} \pagepic{ps/v103modularfield.ps}{MODFIELD}{1.00} @@ -79032,7 +79032,7 @@ o )show ModularField \cross{MODFIELD}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain MODFIELD ModularField} )abbrev domain MODFIELD ModularField ++ Author: Mark Botch ++ Description: @@ -79060,17 +79060,17 @@ ModularField(R,Mod,reduction:(R,Mod) -> R, T == ModularRing(R,Mod,reduction,merge,exactQuo) -@ -<>= +\end{chunk} +\begin{chunk}{MODFIELD.dotabb} "MODFIELD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MODFIELD"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "MODFIELD" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MODRING ModularRing} -<>= +\begin{chunk}{ModularRing.input} )set break resume )sys rm -f ModularRing.output )spool ModularRing.output @@ -79109,8 +79109,8 @@ ModularField(R,Mod,reduction:(R,Mod) -> R, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ModularRing.help} ==================================================================== ModularRing examples ==================================================================== @@ -79118,7 +79118,7 @@ ModularRing examples See Also: o )show ModularRing -@ +\end{chunk} \pagehead{ModularRing}{MODRING} \pagepic{ps/v103modularring.ps}{MODRING}{1.00} @@ -79153,7 +79153,7 @@ o )show ModularRing \cross{MODRING}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain MODRING ModularRing} )abbrev domain MODRING ModularRing ++ Author: P.Gianni, B.Trager ++ Date Created: @@ -79243,17 +79243,17 @@ ModularRing(R,Mod,reduction:(R,Mod) -> R, if (u:=recip x) case "failed" then error("not invertible") else u::% -@ -<>= +\end{chunk} +\begin{chunk}{MODRING.dotabb} "MODRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MODRING"] "BMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BMODULE"] "MODRING" -> "BMODULE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MODMONOM ModuleMonomial} -<>= +\begin{chunk}{ModuleMonomial.input} )set break resume )sys rm -f ModuleMonomial.output )spool ModuleMonomial.output @@ -79283,8 +79283,8 @@ ModularRing(R,Mod,reduction:(R,Mod) -> R, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ModuleMonomial.help} ==================================================================== ModuleMonomial examples ==================================================================== @@ -79292,7 +79292,7 @@ ModuleMonomial examples See Also: o )show ModuleMonomial -@ +\end{chunk} \pagehead{ModuleMonomial}{MODMONOM} \pagepic{ps/v103modulemonomial.ps}{MODMONOM}{1.00} @@ -79317,7 +79317,7 @@ o )show ModuleMonomial \cross{MODMONOM}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain MODMONOM ModuleMonomial} )abbrev domain MODMONOM ModuleMonomial ++ Author: Mark Botch ++ Description: @@ -79349,17 +79349,17 @@ ModuleMonomial(IS: OrderedSet, coerce(x:MM):$ == x::Rep::$ construct(i:IS, e:E):$ == [i, e]$MM::Rep::$ -@ -<>= +\end{chunk} +\begin{chunk}{MODMONOM.dotabb} "MODMONOM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MODMONOM"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "MODMONOM" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MODOP ModuleOperator} -<>= +\begin{chunk}{ModuleOperator.input} )set break resume )sys rm -f ModuleOperator.output )spool ModuleOperator.output @@ -79410,8 +79410,8 @@ ModuleMonomial(IS: OrderedSet, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ModuleOperator.help} ==================================================================== ModuleOperator examples ==================================================================== @@ -79419,7 +79419,7 @@ ModuleOperator examples See Also: o )show ModuleOperator -@ +\end{chunk} \pagehead{ModuleOperator}{MODOP} \pagepic{ps/v103moduleoperator.ps}{MODOP}{1.00} @@ -79459,7 +79459,7 @@ o )show ModuleOperator \cross{MODOP}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain MODOP ModuleOperator} )abbrev domain MODOP ModuleOperator ++ Author: Manuel Bronstein ++ Date Created: 15 May 1990 @@ -79686,19 +79686,19 @@ ModuleOperator(R: Ring, M:LeftModule(R)): Exports == Implementation where if R has conjugate:R -> R then conjug r == conjugate r else conjug r == r -@ -<>= +\end{chunk} +\begin{chunk}{MODOP.dotabb} "MODOP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MODOP"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "MODOP" -> "FLAGG" "MODOP" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MOEBIUS MoebiusTransform} -<>= +\begin{chunk}{MoebiusTransform.input} )set break resume )sys rm -f MoebiusTransform.output )spool MoebiusTransform.output @@ -79735,8 +79735,8 @@ ModuleOperator(R: Ring, M:LeftModule(R)): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MoebiusTransform.help} ==================================================================== MoebiusTransform examples ==================================================================== @@ -79744,7 +79744,7 @@ MoebiusTransform examples See Also: o )show MoebiusTransform -@ +\end{chunk} \pagehead{MoebiusTransform}{MOEBIUS} \pagepic{ps/v103moebiustransform.ps}{MOEBIUS}{1.00} @@ -79774,7 +79774,7 @@ o )show MoebiusTransform \cross{MOEBIUS}{?\^{}?} &&&& \end{tabular} -<>= +\begin{chunk}{domain MOEBIUS MoebiusTransform} )abbrev domain MOEBIUS MoebiusTransform ++ Author: Stephen "Say" Watt ++ Date Created: January 1987 @@ -79873,19 +79873,19 @@ MoebiusTransform(F): Exports == Implementation where list2 : List F := [a(s),b(s),c(s),d(s)] proportional?(list1,list2) -@ -<>= +\end{chunk} +\begin{chunk}{MOEBIUS.dotabb} "MOEBIUS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MOEBIUS"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "MOEBIUS" -> "FIELD" "MOEBIUS" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MRING MonoidRing} -<>= +\begin{chunk}{MonoidRing.input} )set break resume )sys rm -f MonoidRing.output )spool MonoidRing.output @@ -79941,8 +79941,8 @@ MoebiusTransform(F): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MonoidRing.help} ==================================================================== MonoidRing examples ==================================================================== @@ -79950,7 +79950,7 @@ MonoidRing examples See Also: o )show MonoidRing -@ +\end{chunk} \pagehead{MonoidRing}{MRING} \pagepic{ps/v103monoidring.ps}{MRING}{1.00} @@ -79996,7 +79996,7 @@ o )show MonoidRing \cross{MRING}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain MRING MonoidRing} )abbrev domain MRING MonoidRing ++ Authors: Stephan M. Watt; revised by Johannes Grabmeier ++ Date Created: January 1986 @@ -80313,19 +80313,19 @@ MonoidRing(R: Ring, M: Monoid): MRcategory == MRdefinition where addterm(Tabl, ta.Cf*tb.Cf, ta.Mn*tb.Mn) [[Tabl.m, m]$Term for m in keys Tabl] -@ -<>= +\end{chunk} +\begin{chunk}{MRING.dotabb} "MRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MRING"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "MRING" -> "FLAGG" "MRING" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MSET Multiset} -<>= +\begin{chunk}{Multiset.input} )set break resume )sys rm -f Multiset.output )spool Multiset.output @@ -80445,8 +80445,8 @@ t1 := multiset [1,2,2,3]; [t1 < t, t1 < s, t < s, t1 <= s] --E 14 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Multiset.help} ==================================================================== Multiset examples ==================================================================== @@ -80539,7 +80539,7 @@ Check some inclusion relations. See Also: o )show Multiset -@ +\end{chunk} \pagehead{Multiset}{MSET} \pagepic{ps/v103multiset.ps}{MSET}{1.00} @@ -80594,7 +80594,7 @@ o )show Multiset \cross{MSET}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain MSET Multiset} )abbrev domain MSET Multiset ++ Author:Stephen M. Watt, William H. Burge, Richard D. Jenks, Frederic Lehobey ++ Date Created:NK @@ -80879,17 +80879,17 @@ Multiset(S: SetCategory): MultisetAggregate S with for e in keys t1 repeat t1.e > t2.e => return false true -@ -<>= +\end{chunk} +\begin{chunk}{MSET.dotabb} "MSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MSET"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "MSET" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MPOLY MultivariatePolynomial} -<>= +\begin{chunk}{MultivariatePolynomial.input} )set break resume )sys rm -f MultivariatePolynomial.output )spool MultivariatePolynomial.output @@ -80980,8 +80980,8 @@ q :: MPOLY([x,z], FRAC UP(y,INT)) --E 9 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MultivariatePolynomial.help} ==================================================================== MultivariatePolynomial examples ==================================================================== @@ -81087,7 +81087,7 @@ o )help UnivariatePolynomial o )help Polynomial o )show MultivariatePolynomial -@ +\end{chunk} \pagehead{MultivariatePolynomial}{MPOLY} \pagepic{ps/v103multivariatepolynomial.ps}{MPOLY}{1.00} {\bf See}\\ @@ -81182,7 +81182,7 @@ o )show MultivariatePolynomial \cross{MPOLY}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain MPOLY MultivariatePolynomial} )abbrev domain MPOLY MultivariatePolynomial ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -81205,17 +81205,17 @@ MultivariatePolynomial(vl:List Symbol, R:Ring) == SparseMultivariatePolynomial(--SparseUnivariatePolynomial, R, OrderedVariableList vl) -@ -<>= +\end{chunk} +\begin{chunk}{MPOLY.dotabb} "MPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MPOLY"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MPOLY" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MYEXPR MyExpression} -<>= +\begin{chunk}{MyExpression.input} )set break resume )sys rm -f MyExpression.output )spool MyExpression.output @@ -81397,8 +81397,8 @@ MultivariatePolynomial(vl:List Symbol, R:Ring) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MyExpression.help} ==================================================================== MyExpression examples ==================================================================== @@ -81406,7 +81406,7 @@ MyExpression examples See Also: o )show MyExpression -@ +\end{chunk} \pagehead{MyExpression}{MYEXPR} \pagepic{ps/v103myexpression.ps}{MYEXPR}{1.00} @@ -81517,7 +81517,7 @@ o )show MyExpression \cross{MYEXPR}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain MYEXPR MyExpression} )abbrev domain MYEXPR MyExpression ++ Author: Mark Botch ++ Description: @@ -81571,17 +81571,17 @@ MyExpression(q: Symbol, R): Exports == Implementation where quot::(Expression R) -@ -<>= +\end{chunk} +\begin{chunk}{MYEXPR.dotabb} "MYEXPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MYEXPR"] "MYUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MYUP"] "MYEXPR" -> "MYUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain MYUP MyUnivariatePolynomial} -<>= +\begin{chunk}{MyUnivariatePolynomial.input} )set break resume )sys rm -f MyUnivariatePolynomial.output )spool MyUnivariatePolynomial.output @@ -81775,8 +81775,8 @@ MyExpression(q: Symbol, R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MyUnivariatePolynomial.help} ==================================================================== MyUnivariatePolynomial examples ==================================================================== @@ -81784,7 +81784,7 @@ MyUnivariatePolynomial examples See Also: o )show MyUnivariatePolynomial -@ +\end{chunk} \pagehead{MyUnivariatePolynomial}{MYUP} \pagepic{ps/v103myunivariatepolynomial.ps}{MYUP}{1.00} @@ -81909,7 +81909,7 @@ o )show MyUnivariatePolynomial \cross{MYUP}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain MYUP MyUnivariatePolynomial} )abbrev domain MYUP MyUnivariatePolynomial ++ Author: Mark Botch ++ Description: @@ -81943,19 +81943,19 @@ MyUnivariatePolynomial(x:Symbol, R:Ring): $UnivariatePolynomialCategoryFunctions2(Polynomial R, SparseUnivariatePolynomial Polynomial R, R, %) -@ -<>= +\end{chunk} +\begin{chunk}{MYUP.dotabb} "MYUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MYUP"] "MYEXPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=MYEXPR"] "MYUP" -> "MYEXPR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter N} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NSDPS NeitherSparseOrDensePowerSeries} -<>= +\begin{chunk}{NeitherSparseOrDensePowerSeries.input} )set break resume )sys rm -f NeitherSparseOrDensePowerSeries.output )spool NeitherSparseOrDensePowerSeries.output @@ -82148,8 +82148,8 @@ MyUnivariatePolynomial(x:Symbol, R:Ring): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NeitherSparseOrDensePowerSeries.help} ==================================================================== NeitherSparseOrDensePowerSeries examples ==================================================================== @@ -82157,7 +82157,7 @@ NeitherSparseOrDensePowerSeries examples See Also: o )show NeitherSparseOrDensePowerSeries -@ +\end{chunk} \pagehead{NeitherSparseOrDensePowerSeries}{NSDPS} \pagepic{ps/v103neithersparseordensepowerseries.ps}{NSDPS}{1.00} @@ -82322,7 +82322,7 @@ o )show NeitherSparseOrDensePowerSeries \cross{NSDPS}{zero?} && \end{tabular} -<>= +\begin{chunk}{domain NSDPS NeitherSparseOrDensePowerSeries} )abbrev domain NSDPS NeitherSparseOrDensePowerSeries ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -82553,13 +82553,13 @@ NeitherSparseOrDensePowerSeries(K):Exports == Implementation where concat([e1+e2,c1*c2]$TERM,_ multC(c1,e1,rest(s2))+multC(c2,e2,rest(s1))+rest(s1)*rest(s2)) -@ -<>= +\end{chunk} +\begin{chunk}{NSDPS.dotabb} "NSDPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NSDPS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NSDPS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NSMP NewSparseMultivariatePolynomial} @@ -82569,7 +82569,7 @@ the constructor {\bf SparseMultivariatePolynomial}. It also provides some additional operations related to polynomial system solving by means of triangular sets. -<>= +\begin{chunk}{NewSparseMultivariatePolynomial.input} )set break resume )sys rm -f NewSparseMultivariatePolynomial.output )spool NewSparseMultivariatePolynomial.output @@ -82770,8 +82770,8 @@ by means of triangular sets. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NewSparseMultivariatePolynomial.help} ==================================================================== NewSparseMultivariatePolynomial examples ==================================================================== @@ -82779,7 +82779,7 @@ NewSparseMultivariatePolynomial examples See Also: o )show NewSparseMultivariatePolynomial -@ +\end{chunk} \pagehead{NewSparseMultivariatePolynomial}{NSMP} \pagepic{ps/v103newsparsemultivariatepolynomial.ps}{NSMP}{1.00} @@ -82923,7 +82923,7 @@ o )show NewSparseMultivariatePolynomial \cross{NSMP}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain NSMP NewSparseMultivariatePolynomial} )abbrev domain NSMP NewSparseMultivariatePolynomial ++ Author: Marc Moreno Maza ++ Date Created: 22/04/94 @@ -83326,13 +83326,13 @@ NewSparseMultivariatePolynomial(R,VarSet) : Exports == Implementation where unitCanonical(map((a1:%):% +-> exactQuotient!(a1,cp),p.ts)$SUP2)$D p -@ -<>= +\end{chunk} +\begin{chunk}{NSMP.dotabb} "NSMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NSMP"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "NSMP" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NSUP NewSparseUnivariatePolynomial} @@ -83340,7 +83340,7 @@ Based on the {\bf PseudoRemainderSequence} package, the domain constructor {\bf NewSparseUnivariatePolynomial} extends the constructur {\bf SparseUnivariatePolynomial}. -<>= +\begin{chunk}{NewSparseUnivariatePolynomial.input} )set break resume )sys rm -f NewSparseUnivariatePolynomial.output )spool NewSparseUnivariatePolynomial.output @@ -83547,8 +83547,8 @@ constructur {\bf SparseUnivariatePolynomial}. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NewSparseUnivariatePolynomial.help} ==================================================================== NewSparseUnivariatePolynomial examples ==================================================================== @@ -83556,7 +83556,7 @@ NewSparseUnivariatePolynomial examples See Also: o )show NewSparseUnivariatePolynomial -@ +\end{chunk} \pagehead{NewSparseUnivariatePolynomial}{NSUP} \pagepic{ps/v103newsparseunivariatepolynomial.ps}{NSUP}{1.00} @@ -83694,7 +83694,7 @@ o )show NewSparseUnivariatePolynomial \cross{NSUP}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain NSUP NewSparseUnivariatePolynomial} )abbrev domain NSUP NewSparseUnivariatePolynomial ++ Author: Marc Moreno Maza ++ Date Created: 23/07/98 @@ -83955,17 +83955,17 @@ NewSparseUnivariatePolynomial(R): Exports == Implementation where zero? pow => per reverse qq (co ** pow) * (per reverse qq) -@ -<>= +\end{chunk} +\begin{chunk}{NSUP.dotabb} "NSUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NSUP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "NSUP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NONE None} -<>= +\begin{chunk}{None.input} )set break resume )sys rm -f None.output )spool None.output @@ -83997,8 +83997,8 @@ NewSparseUnivariatePolynomial(R): Exports == Implementation where --E 3 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{None.help} ==================================================================== None examples ==================================================================== @@ -84030,7 +84030,7 @@ such as List NonNegativeInteger, do it this way. See Also: o )show None -@ +\end{chunk} \pagehead{None}{NONE} \pagepic{ps/v103none.ps}{NONE}{1.00} {\bf See}\\ @@ -84045,7 +84045,7 @@ o )show None \cross{NONE}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain NONE None} )abbrev domain NONE None ++ Author: Mark Botch ++ Date Created: @@ -84064,19 +84064,19 @@ None():SetCategory == add coerce(none:%):OutputForm == "NONE" :: OutputForm x:% = y:% == EQ(x,y)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{NONE.dotabb} "NONE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NONE"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "NONE" -> "BASTYPE" "NONE" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NNI NonNegativeInteger} -<>= +\begin{chunk}{NonNegativeInteger.input} )set break resume )sys rm -f NonNegativeInteger.output )spool NonNegativeInteger.output @@ -84117,8 +84117,8 @@ None():SetCategory == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NonNegativeInteger.help} ==================================================================== NonNegativeInteger examples ==================================================================== @@ -84126,7 +84126,7 @@ NonNegativeInteger examples See Also: o )show NonNegativeInteger -@ +\end{chunk} \pagehead{NonNegativeInteger}{NNI} \pagepic{ps/v103nonnegativeinteger.ps}{NNI}{1.00} @@ -84169,7 +84169,7 @@ o )show NonNegativeInteger \cross{NNI}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain NNI NonNegativeInteger} )abbrev domain NNI NonNegativeInteger ++ Author: Mark Botch ++ Date Created: @@ -84212,17 +84212,17 @@ NonNegativeInteger: Join(OrderedAbelianMonoidSup,Monoid) with c < 0 => "failed" c pretend % -@ -<>= +\end{chunk} +\begin{chunk}{NNI.dotabb} "NNI" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NNI",shape=ellipse] "OAMONS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMONS"] "NNI" -> "OAMONS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NOTTING NottinghamGroup} -<>= +\begin{chunk}{NottinghamGroup.input} )set break resume )sys rm -f NottinghamGroup.output )spool NottinghamGroup.output @@ -84317,8 +84317,8 @@ sample()$NOTTING(PF(1783)) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NottinghamGroup.help} ==================================================================== NottinghamGroup examples ==================================================================== @@ -84361,7 +84361,7 @@ See Also: o )show NottinghamGroup o )show UnivariateFormalPowerSeries -@ +\end{chunk} \pagehead{NottinghamGroup}{NOTTING} \pagepic{ps/v103nottinghamgroup.ps}{NOTTING}{1.00} @@ -84386,7 +84386,7 @@ o )show UnivariateFormalPowerSeries \cross{NOTTING}{\^{}} &&& \end{tabular} -<>= +\begin{chunk}{domain NOTTING NottinghamGroup} )abbrev domain NOTTING NottinghamGroup ++ Author: Mark Botch ++ Description: @@ -84410,17 +84410,17 @@ NottinghamGroup(F:FiniteFieldCategory): Group with inv f == revert f -@ -<>= +\end{chunk} +\begin{chunk}{NOTTING.dotabb} "NOTTING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NOTTING"] "UFPS" [color="#4488FF",href="bookvol10.3.pdf#nameddest=UFPS"] "NOTTING" -> "UFPS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain NIPROB NumericalIntegrationProblem} -<>= +\begin{chunk}{NumericalIntegrationProblem.input} )set break resume )sys rm -f NumericalIntegrationProblem.output )spool NumericalIntegrationProblem.output @@ -84448,8 +84448,8 @@ NottinghamGroup(F:FiniteFieldCategory): Group with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalIntegrationProblem.help} ==================================================================== NumericalIntegrationProblem examples ==================================================================== @@ -84457,7 +84457,7 @@ NumericalIntegrationProblem examples See Also: o )show NumericalIntegrationProblem -@ +\end{chunk} \pagehead{NumericalIntegrationProblem}{NIPROB} \pagepic{ps/v103numericalintegrationproblem.ps}{NIPROB}{1.00} @@ -84472,7 +84472,7 @@ o )show NumericalIntegrationProblem \cross{NIPROB}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain NIPROB NumericalIntegrationProblem} )abbrev domain NIPROB NumericalIntegrationProblem ++ Author: Brian Dupee ++ Date Created: December 1997 @@ -84534,19 +84534,19 @@ NumericalIntegrationProblem(): EE == II where (x) case nia => [x.nia] [x.mdnia] -@ -<>= +\end{chunk} +\begin{chunk}{NIPROB.dotabb} "NIPROB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NIPROB"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "NIPROB" -> "BASTYPE" "NIPROB" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODEPROB NumericalODEProblem} -<>= +\begin{chunk}{NumericalODEProblem.input} )set break resume )sys rm -f NumericalODEProblem.output )spool NumericalODEProblem.output @@ -84572,8 +84572,8 @@ NumericalIntegrationProblem(): EE == II where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalODEProblem.help} ==================================================================== NumericalODEProblem examples ==================================================================== @@ -84581,7 +84581,7 @@ NumericalODEProblem examples See Also: o )show NumericalODEProblem -@ +\end{chunk} \pagehead{NumericalODEProblem}{ODEPROB} \pagepic{ps/v103numericalodeproblem.ps}{ODEPROB}{1.00} @@ -84596,7 +84596,7 @@ o )show NumericalODEProblem \cross{ODEPROB}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain ODEPROB NumericalODEProblem} )abbrev domain ODEPROB NumericalODEProblem ++ Author: Brian Dupee ++ Date Created: December 1997 @@ -84642,19 +84642,19 @@ NumericalODEProblem(): EE == II where (retract(x))::OutputForm retract(x:%):ODEAB == x :: Rep -@ -<>= +\end{chunk} +\begin{chunk}{ODEPROB.dotabb} "ODEPROB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODEPROB"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "ODEPROB" -> "BASTYPE" "ODEPROB" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OPTPROB NumericalOptimizationProblem} -<>= +\begin{chunk}{NumericalOptimizationProblem.input} )set break resume )sys rm -f NumericalOptimizationProblem.output )spool NumericalOptimizationProblem.output @@ -84682,8 +84682,8 @@ NumericalODEProblem(): EE == II where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalOptimizationProblem.help} ==================================================================== NumericalOptimizationProblem examples ==================================================================== @@ -84691,7 +84691,7 @@ NumericalOptimizationProblem examples See Also: o )show NumericalOptimizationProblem -@ +\end{chunk} \pagehead{NumericalOptimizationProblem}{OPTPROB} \pagepic{ps/v103numericaloptimizationproblem.ps}{OPTPROB}{1.00} @@ -84706,7 +84706,7 @@ o )show NumericalOptimizationProblem \cross{OPTPROB}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain OPTPROB NumericalOptimizationProblem} )abbrev domain OPTPROB NumericalOptimizationProblem ++ Author: Brian Dupee ++ Date Created: December 1997 @@ -84769,19 +84769,19 @@ NumericalOptimizationProblem(): EE == II where (x) case noa => [x.noa] [x.lsa] -@ -<>= +\end{chunk} +\begin{chunk}{OPTPROB.dotabb} "OPTPROB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OPTPROB"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "OPTPROB" -> "BASTYPE" "OPTPROB" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PDEPROB NumericalPDEProblem} -<>= +\begin{chunk}{NumericalPDEProblem.input} )set break resume )sys rm -f NumericalPDEProblem.output )spool NumericalPDEProblem.output @@ -84807,8 +84807,8 @@ NumericalOptimizationProblem(): EE == II where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NumericalPDEProblem.help} ==================================================================== NumericalPDEProblem examples ==================================================================== @@ -84816,7 +84816,7 @@ NumericalPDEProblem examples See Also: o )show NumericalPDEProblem -@ +\end{chunk} \pagehead{NumericalPDEProblem}{PDEPROB} \pagepic{ps/v103numericalpdeproblem.ps}{PDEPROB}{1.00} @@ -84831,7 +84831,7 @@ o )show NumericalPDEProblem \cross{PDEPROB}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain PDEPROB NumericalPDEProblem} )abbrev domain PDEPROB NumericalPDEProblem ++ Author: Brian Dupee ++ Date Created: December 1997 @@ -84888,15 +84888,15 @@ NumericalPDEProblem(): EE == II where (retract(x))::OutputForm retract(x:%):PDEBC == x :: Rep -@ -<>= +\end{chunk} +\begin{chunk}{PDEPROB.dotabb} "PDEPROB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PDEPROB"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "PDEPROB" -> "BASTYPE" "PDEPROB" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter O} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -84944,7 +84944,7 @@ The Octonions are power-associative and alternative but not associative, since $I*(J*K) \ne (I*J)*K$. \includegraphics{ps/v103octoniongraph.eps} -<>= +\begin{chunk}{Octonion.input} )set break resume )sys rm -f Octonion.output )spool Octonion.output @@ -85074,8 +85074,8 @@ norm(o*p)-norm(p)*norm(o) --E 15 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Octonion.help} ==================================================================== Octonion examples ==================================================================== @@ -85180,7 +85180,7 @@ See Also: o )help Quaternion o )show Octonion -@ +\end{chunk} \pagehead{Octonion}{OCT} \pagepic{ps/v103octonion.ps}{OCT}{1.00} @@ -85240,7 +85240,7 @@ o )show Octonion \cross{OCT}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain OCT Octonion} )abbrev domain OCT Octonion ++ Author: R. Wisbauer, J. Grabmeier ++ Date Created: 05 September 1990 @@ -85304,19 +85304,19 @@ Octonion(R:CommutativeRing): export == impl where quatern(real x, imagi x,imagj x, imagk x)$QR x * y == [x.e*y.e-(conjugate y.E)*x.E, y.E*x.e + x.E*(conjugate y.e)] -@ -<>= +\end{chunk} +\begin{chunk}{OCT.dotabb} "OCT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OCT"] "OC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OC"] "QUATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=QUATCAT"] "OCT" -> "OC" "OCT" -> "QUATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODEIFTBL ODEIntensityFunctionsTable} -<>= +\begin{chunk}{ODEIntensityFunctionsTable.input} )set break resume )sys rm -f ODEIntensityFunctionsTable.output )spool ODEIntensityFunctionsTable.output @@ -85342,8 +85342,8 @@ Octonion(R:CommutativeRing): export == impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ODEIntensityFunctionsTable.help} ==================================================================== ODEIntensityFunctionsTable examples ==================================================================== @@ -85351,7 +85351,7 @@ ODEIntensityFunctionsTable examples See Also: o )show ODEIntensityFunctionsTable -@ +\end{chunk} \pagehead{ODEIntensityFunctionsTable}{ODEIFTBL} \pagepic{ps/v103odeintensityfunctionstable.ps}{ODEIFTBL}{1.00} @@ -85366,7 +85366,7 @@ o )show ODEIntensityFunctionsTable \cross{ODEIFTBL}{showTheIFTable} \end{tabular} -<>= +\begin{chunk}{domain ODEIFTBL ODEIntensityFunctionsTable} )abbrev domain ODEIFTBL ODEIntensityFunctionsTable ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -85443,17 +85443,17 @@ ODEIntensityFunctionsTable(): E == I where showIntensityFunctions(k:ODEA):Union(ATT,"failed") == search(k,theIFTable)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{ODEIFTBL.dotabb} "ODEIFTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODEIFTBL"] "Domain" [color="#88FF44"] "ODEIFTBL" -> "Domain" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ARRAY1 OneDimensionalArray} -<>= +\begin{chunk}{OneDimensionalArray.input} )set break resume )sys rm -f OneDimensionalArray.output )spool OneDimensionalArray.output @@ -85533,8 +85533,8 @@ copyInto!(a,b,1) --E 9 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OneDimensionalArray.help} ==================================================================== OneDimensionalArray examples ==================================================================== @@ -85608,7 +85608,7 @@ o )help Vector o )help FlexibleArray o )show OneDimensionalArray -@ +\end{chunk} \pagehead{OneDimensionalArray}{ARRAY1} \pagepic{ps/v103onedimensionalarray.ps}{ARRAY1}{1.00} {\bf See}\\ @@ -85685,7 +85685,7 @@ o )show OneDimensionalArray \cross{ARRAY1}{?.?} && \end{tabular} -<>= +\begin{chunk}{domain ARRAY1 OneDimensionalArray} )abbrev domain ARRAY1 OneDimensionalArray ++ Author: Mark Botch ++ Description: @@ -85713,17 +85713,17 @@ OneDimensionalArray(S:Type): Exports == Implementation where a oneDimensionalArray(n,s) == new(n,s) -@ -<>= +\end{chunk} +\begin{chunk}{ARRAY1.dotabb} "ARRAY1" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ARRAY1"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "ARRAY1" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ONECOMP OnePointCompletion} -<>= +\begin{chunk}{OnePointCompletion.input} )set break resume )sys rm -f OnePointCompletion.output )spool OnePointCompletion.output @@ -85787,8 +85787,8 @@ OneDimensionalArray(S:Type): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OnePointCompletion.help} ==================================================================== OnePointCompletion examples ==================================================================== @@ -85796,7 +85796,7 @@ OnePointCompletion examples See Also: o )show OnePointCompletion -@ +\end{chunk} \pagehead{OnePointCompletion}{ONECOMP} \pagepic{ps/v103onepointcompletion.ps}{ONECOMP}{1.00} @@ -85845,7 +85845,7 @@ o )show OnePointCompletion \cross{ONECOMP}{?\^{}?} && \end{tabular} -<>= +\begin{chunk}{domain ONECOMP OnePointCompletion} )abbrev domain ONECOMP OnePointCompletion ++ Author: Manuel Bronstein ++ Date Created: 4 Oct 1989 @@ -85949,17 +85949,17 @@ OnePointCompletion(R:SetCategory): Exports == Implementation where (r:= retractIfCan(x)@Union(R,"failed")) case "failed" =>"failed" rational(r::R) -@ -<>= +\end{chunk} +\begin{chunk}{ONECOMP.dotabb} "ONECOMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ONECOMP"] "FRETRCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRETRCT"] "ONECOMP" -> "FRETRCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMCONN OpenMathConnection} -<>= +\begin{chunk}{OpenMathConnection.input} )set break resume )sys rm -f OpenMathConnection.output )spool OpenMathConnection.output @@ -85985,8 +85985,8 @@ OnePointCompletion(R:SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMathConnection.help} ==================================================================== OpenMathConnection examples ==================================================================== @@ -85994,7 +85994,7 @@ OpenMathConnection examples See Also: o )show OpenMathConnection -@ +\end{chunk} \pagehead{OpenMathConnection}{OMCONN} \pagepic{ps/v103openmathconnection.ps}{OMCONN}{1.00} @@ -86012,7 +86012,7 @@ o )show OpenMathConnection \cross{OMCONN}{OMmakeConn} && \end{tabular} -<>= +\begin{chunk}{domain OMCONN OpenMathConnection} )abbrev domain OMCONN OpenMathConnection ++ Author: Vilya Harvey ++ Date Created: @@ -86048,17 +86048,17 @@ OpenMathConnection(): with OMbindTCP(conn: %, port: SingleInteger): Boolean == OM_-BINDTCP(conn, port)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{OMCONN.dotabb} "OMCONN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMCONN"] "Domain" [color="#88FF44"] "OMCONN" -> "Domain" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMDEV OpenMathDevice} -<>= +\begin{chunk}{OpenMathDevice.input} )set break resume )sys rm -f OpenMathDevice.output )spool OpenMathDevice.output @@ -86105,8 +86105,8 @@ OpenMathConnection(): with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMathDevice.help} ==================================================================== OpenMathDevice examples ==================================================================== @@ -86114,7 +86114,7 @@ OpenMathDevice examples See Also: o )show OpenMathDevice -@ +\end{chunk} \pagehead{OpenMathDevice}{OMDEV} \pagepic{ps/v103openmathdevice.ps}{OMDEV}{1.00} @@ -86169,7 +86169,7 @@ o )show OpenMathDevice \cross{OMDEV}{OMsetEncoding} & \end{tabular} -<>= +\begin{chunk}{domain OMDEV OpenMathDevice} )abbrev domain OMDEV OpenMathDevice ++ Author: Vilya Harvey ++ Date Created: @@ -86334,17 +86334,17 @@ OpenMathDevice(): with OMgetType(dev: %): Symbol == OM_-GETTYPE(dev)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{OMDEV.dotabb} "OMDEV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMDEV"] "Domain" [color="#88FF44"] "OMDEV" -> "Domain" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMENC OpenMathEncoding} -<>= +\begin{chunk}{OpenMathEncoding.input} )set break resume )sys rm -f OpenMathEncoding.output )spool OpenMathEncoding.output @@ -86370,8 +86370,8 @@ OpenMathDevice(): with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMathEncoding.help} ==================================================================== OpenMathEncoding examples ==================================================================== @@ -86379,7 +86379,7 @@ OpenMathEncoding examples See Also: o )show OpenMathEncoding -@ +\end{chunk} \pagehead{OpenMathEncoding}{OMENC} \pagepic{ps/v103openmathencoding.ps}{OMENC}{1.00} @@ -86400,7 +86400,7 @@ o )show OpenMathEncoding \cross{OMENC}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain OMENC OpenMathEncoding} )abbrev domain OMENC OpenMathEncoding ++ Author: Vilya Harvey ++ Date Created: @@ -86444,19 +86444,19 @@ OpenMathEncoding(): SetCategory with OMencodingXML(): % == 2::Rep OMencodingSGML(): % == 3::Rep -@ -<>= +\end{chunk} +\begin{chunk}{OMENC.dotabb} "OMENC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMENC"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "OMENC" -> "BASTYPE" "OMENC" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMERR OpenMathError} -<>= +\begin{chunk}{OpenMathError.input} )set break resume )sys rm -f OpenMathError.output )spool OpenMathError.output @@ -86482,8 +86482,8 @@ OpenMathEncoding(): SetCategory with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMathError.help} ==================================================================== OpenMathError examples ==================================================================== @@ -86491,7 +86491,7 @@ OpenMathError examples See Also: o )show OpenMathError -@ +\end{chunk} \pagehead{OpenMathError}{OMERR} \pagepic{ps/v103openmatherror.ps}{OMERR}{1.00} @@ -86510,7 +86510,7 @@ o )show OpenMathError \cross{OMERR}{?~=?} \end{tabular} -<>= +\begin{chunk}{domain OMERR OpenMathError} )abbrev domain OMERR OpenMathError ++ Author: Vilya Harvey ++ Date Created: @@ -86556,17 +86556,17 @@ OpenMathError() : SetCategory with errorKind(e:%):OpenMathErrorKind == e.err errorInfo(e:%):List Symbol == e.info -@ -<>= +\end{chunk} +\begin{chunk}{OMERR.dotabb} "OMERR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMERR"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "OMERR" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMERRK OpenMathErrorKind} -<>= +\begin{chunk}{OpenMathErrorKind.input} )set break resume )sys rm -f OpenMathErrorKind.output )spool OpenMathErrorKind.output @@ -86592,8 +86592,8 @@ OpenMathError() : SetCategory with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OpenMathErrorKind.help} ==================================================================== OpenMathErrorKind examples ==================================================================== @@ -86601,7 +86601,7 @@ OpenMathErrorKind examples See Also: o )show OpenMathErrorKind -@ +\end{chunk} \pagehead{OpenMathErrorKind}{OMERRK} \pagepic{ps/v103openmatherrorkind.ps}{OMERRK}{1.00} @@ -86621,7 +86621,7 @@ o )show OpenMathErrorKind \cross{OMERRK}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain OMERRK OpenMathErrorKind} )abbrev domain OMERRK OpenMathErrorKind ++ Author: Vilya Harvey ++ Date Created: @@ -86671,17 +86671,17 @@ OpenMathErrorKind() : SetCategory with coerce(e:%):OutputForm == coerce(e)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{OMERRK.dotabb} "OMERRK" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMERRK"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "OMERRK" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OP Operator} -<>= +\begin{chunk}{Operator.input} )set break resume )sys rm -f Operator.output )spool Operator.output @@ -86887,8 +86887,8 @@ E 15 --E 21 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Operator.help} ==================================================================== Operator examples ==================================================================== @@ -87066,7 +87066,7 @@ Here is the evaluation. See Also: o )show Operator -@ +\end{chunk} \pagehead{Operator}{OP} \pagepic{ps/v103operator.ps}{OP}{1.00} {\bf See}\\ @@ -87105,7 +87105,7 @@ o )show Operator \cross{MODOP}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain OP Operator} )abbrev domain OP Operator ++ Author: Manuel Bronstein ++ Date Created: 15 May 1990 @@ -87115,17 +87115,17 @@ o )show Operator Operator(R: Ring) == ModuleOperator(R,R) -@ -<>= +\end{chunk} +\begin{chunk}{OP.dotabb} "OP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OP"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "OP" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OMLO OppositeMonogenicLinearOperator} -<>= +\begin{chunk}{OppositeMonogenicLinearOperator.input} )set break resume )sys rm -f OppositeMonogenicLinearOperator.output )spool OppositeMonogenicLinearOperator.output @@ -87172,8 +87172,8 @@ Operator(R: Ring) == ModuleOperator(R,R) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OppositeMonogenicLinearOperator.help} ==================================================================== OppositeMonogenicLinearOperator examples ==================================================================== @@ -87181,7 +87181,7 @@ OppositeMonogenicLinearOperator examples See Also: o )show OppositeMonogenicLinearOperator -@ +\end{chunk} \pagehead{OppositeMonogenicLinearOperator}{OMLO} \pagepic{ps/v103oppositemonogeniclinearoperator.ps}{OMLO}{1.00} @@ -87223,7 +87223,7 @@ o )show OppositeMonogenicLinearOperator \cross{OMLO}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain OMLO OppositeMonogenicLinearOperator} )abbrev domain OMLO OppositeMonogenicLinearOperator ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -87259,17 +87259,17 @@ OppositeMonogenicLinearOperator(P, R): OPRcat == OPRdef where x*y == (y:P) *$P (x:P) coerce(x): OutputForm == prefix(op::OutputForm, [coerce(x:P)$P]) -@ -<>= +\end{chunk} +\begin{chunk}{OMLO.dotabb} "OMLO" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OMLO"] "MLO" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MLO"] "OMLO" -> "MLO" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ORDCOMP OrderedCompletion} -<>= +\begin{chunk}{OrderedCompletion.input} )set break resume )sys rm -f OrderedCompletion.output )spool OrderedCompletion.output @@ -87334,8 +87334,8 @@ OppositeMonogenicLinearOperator(P, R): OPRcat == OPRdef where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedCompletion.help} ==================================================================== OrderedCompletion examples ==================================================================== @@ -87343,7 +87343,7 @@ OrderedCompletion examples See Also: o )show OrderedCompletion -@ +\end{chunk} \pagehead{OrderedCompletion}{ORDCOMP} \pagepic{ps/v103orderedcompletion.ps}{ORDCOMP}{1.00} @@ -87393,7 +87393,7 @@ o )show OrderedCompletion \cross{ORDCOMP}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain ORDCOMP OrderedCompletion} )abbrev domain ORDCOMP OrderedCompletion ++ Author: Manuel Bronstein ++ Date Created: 4 Oct 1989 @@ -87523,17 +87523,17 @@ OrderedCompletion(R:SetCategory): Exports == Implementation where (r:= retractIfCan(x)@Union(R,"failed")) case "failed" =>"failed" rational(r::R) -@ -<>= +\end{chunk} +\begin{chunk}{ORDCOMP.dotabb} "ORDCOMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ORDCOMP"] "FRETRCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRETRCT"] "ORDCOMP" -> "FRETRCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODP OrderedDirectProduct} -<>= +\begin{chunk}{OrderedDirectProduct.input} )set break resume )sys rm -f OrderedDirectProduct.output )spool OrderedDirectProduct.output @@ -87657,8 +87657,8 @@ OrderedCompletion(R:SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedDirectProduct.help} ==================================================================== OrderedDirectProduct examples ==================================================================== @@ -87666,7 +87666,7 @@ OrderedDirectProduct examples See Also: o )show OrderedDirectProduct -@ +\end{chunk} \pagehead{OrderedDirectProduct}{ODP} \pagepic{ps/v103ordereddirectproduct.ps}{ODP}{1.00} @@ -87753,7 +87753,7 @@ o )show OrderedDirectProduct \cross{ODP}{?.?} \end{tabular} -<>= +\begin{chunk}{domain ODP OrderedDirectProduct} )abbrev domain ODP OrderedDirectProduct -- all direct product category domains must be compiled -- without subsumption, set SourceLevelSubset to EQUAL @@ -87784,17 +87784,17 @@ OrderedDirectProduct(dim:NonNegativeInteger, Rep:=Vector(S) x:% < y:% == f(x::Rep,y::Rep) -@ -<>= +\end{chunk} +\begin{chunk}{ODP.dotabb} "ODP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "ODP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OFMONOID OrderedFreeMonoid} -<>= +\begin{chunk}{OrderedFreeMonoid.input} )set break resume )sys rm -f OrderedFreeMonoid.output )spool OrderedFreeMonoid.output @@ -88195,8 +88195,8 @@ reduce(p2) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedFreeMonoid.help} ==================================================================== OrderedFreeMonoid examples ==================================================================== @@ -88318,7 +88318,7 @@ And we can see it work See Also: o )show OrderedFreeMonoid -@ +\end{chunk} \pagehead{OrderedFreeMonoid}{OFMONOID} \pagepic{ps/v103orderedfreemonoid.ps}{OFMONOID}{1.00} @@ -88362,7 +88362,7 @@ o )show OrderedFreeMonoid \cross{OFMONOID}{?div?} &&&& \end{tabular} -<>= +\begin{chunk}{domain OFMONOID OrderedFreeMonoid} )abbrev domain OFMONOID OrderedFreeMonoid ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -88592,19 +88592,19 @@ OrderedFreeMonoid(S: OrderedSet): OFMcategory == OFMdefinition where mirror x == reverse(x)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{OFMONOID.dotabb} "OFMONOID" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OFMONOID"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "OFMONOID" -> "FLAGG" "OFMONOID" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OVAR OrderedVariableList} -<>= +\begin{chunk}{OrderedVariableList.input} )set break resume )sys rm -f OrderedVariableList.output )spool OrderedVariableList.output @@ -88654,8 +88654,8 @@ sorted?(>,lv) --E 5 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderedVariableList.help} ==================================================================== OrderedVariableList examples ==================================================================== @@ -88698,7 +88698,7 @@ Check that the ordering is right See Also: o )show OrderedVariableList -@ +\end{chunk} \pagehead{OrderedVariableList}{OVAR} \pagepic{ps/v103orderedvariablelist.ps}{OVAR}{1.00} @@ -88723,7 +88723,7 @@ o )show OrderedVariableList \cross{OVAR}{?$>=$?} &&& \end{tabular} -<>= +\begin{chunk}{domain OVAR OrderedVariableList} )abbrev domain OVAR OrderedVariableList ++ Author: Mark Botch ++ Description: @@ -88754,17 +88754,17 @@ OrderedVariableList(VariableList:List Symbol): s1 = s2 == s1 =$Rep s2 latex(x:%):String == latex(convert(x)@Symbol) -@ -<>= +\end{chunk} +\begin{chunk}{OVAR.dotabb} "OVAR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OVAR"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "OVAR" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODPOL OrderlyDifferentialPolynomial} -<>= +\begin{chunk}{OrderlyDifferentialPolynomial.input} )set break resume )sys rm -f OrderlyDifferentialPolynomial.output )spool OrderlyDifferentialPolynomial.output @@ -89109,8 +89109,8 @@ ig * prf - lcf * g * lg --E 36 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderlyDifferentialPolynomial.help} ==================================================================== OrderlyDifferentialPolynomial examples ==================================================================== @@ -89415,7 +89415,7 @@ obtain the (pseudo) remainder of f modulo g and its derivatives. See Also: o )show OrderlyDifferentialPolynomial -@ +\end{chunk} \pagehead{OrderlyDifferentialPolynomial}{ODPOL} \pagepic{ps/v103orderlydifferentialpolynomial.ps}{ODPOL}{1.00} @@ -89522,7 +89522,7 @@ o )show OrderlyDifferentialPolynomial \cross{ODPOL}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain ODPOL OrderlyDifferentialPolynomial} )abbrev domain ODPOL OrderlyDifferentialPolynomial ++ Author: William Sit ++ Date Created: 24 September, 1991 @@ -89554,17 +89554,17 @@ OrderlyDifferentialPolynomial(R): Implementation ==> DifferentialSparseMultivariatePolynomial(R,S,V) -@ -<>= +\end{chunk} +\begin{chunk}{ODPOL.dotabb} "ODPOL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODPOL"] "DPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DPOLCAT"] "ODPOL" -> "DPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODVAR OrderlyDifferentialVariable} -<>= +\begin{chunk}{OrderlyDifferentialVariable.input} )set break resume )sys rm -f OrderlyDifferentialVariable.output )spool OrderlyDifferentialVariable.output @@ -89597,8 +89597,8 @@ OrderlyDifferentialPolynomial(R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrderlyDifferentialVariable.help} ==================================================================== OrderlyDifferentialVariable examples ==================================================================== @@ -89606,7 +89606,7 @@ OrderlyDifferentialVariable examples See Also: o )show OrderlyDifferentialVariable -@ +\end{chunk} \pagehead{OrderlyDifferentialVariable}{ODVAR} \pagepic{ps/v103orderlydifferentialvariable.ps}{ODVAR}{1.00} @@ -89638,7 +89638,7 @@ o )show OrderlyDifferentialVariable \cross{ODVAR}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain ODVAR OrderlyDifferentialVariable} )abbrev domain ODVAR OrderlyDifferentialVariable ++ Author: William Sit ++ Date Created: 19 July 1990 @@ -89670,19 +89670,19 @@ OrderlyDifferentialVariable(S:OrderedSet):DifferentialVariableCategory(S) variable v == v.var order v == v.ord -@ -<>= +\end{chunk} +\begin{chunk}{ODVAR.dotabb} "ODVAR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODVAR"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "RETRACT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RETRACT"] "ODVAR" -> "ORDSET" "ODVAR" -> "RETRACT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ODR OrdinaryDifferentialRing} -<>= +\begin{chunk}{OrdinaryDifferentialRing.input} )set break resume )sys rm -f OrdinaryDifferentialRing.output )spool OrdinaryDifferentialRing.output @@ -89754,8 +89754,8 @@ OrderlyDifferentialVariable(S:OrderedSet):DifferentialVariableCategory(S) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrdinaryDifferentialRing.help} ==================================================================== OrdinaryDifferentialRing examples ==================================================================== @@ -89763,7 +89763,7 @@ OrdinaryDifferentialRing examples See Also: o )show OrdinaryDifferentialRing -@ +\end{chunk} \pagehead{OrdinaryDifferentialRing}{ODR} \pagepic{ps/v103ordinarydifferentialring.ps}{ODR}{1.00} @@ -89820,7 +89820,7 @@ o )show OrdinaryDifferentialRing \cross{ODR}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain ODR OrdinaryDifferentialRing} )abbrev domain ODR OrdinaryDifferentialRing ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -89858,17 +89858,17 @@ OrdinaryDifferentialRing(Kernels,R,var): DRcategory == DRcapsule where p ** n == ((p::R) **$R n)::$ inv(p) == (inv(p::R)$R)::$ -@ -<>= +\end{chunk} +\begin{chunk}{ODR.dotabb} "ODR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ODR"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "ODR" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OWP OrdinaryWeightedPolynomials} -<>= +\begin{chunk}{OrdinaryWeightedPolynomials.input} )set break resume )sys rm -f OrdinaryWeightedPolynomials.output )spool OrdinaryWeightedPolynomials.output @@ -89910,8 +89910,8 @@ OrdinaryDifferentialRing(Kernels,R,var): DRcategory == DRcapsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrdinaryWeightedPolynomials.help} ==================================================================== OrdinaryWeightedPolynomials examples ==================================================================== @@ -89919,7 +89919,7 @@ OrdinaryWeightedPolynomials examples See Also: o )show OrdinaryWeightedPolynomials -@ +\end{chunk} \pagehead{OrdinaryWeightedPolynomials}{OWP} \pagepic{ps/v103ordinaryweightedpolynomials.ps}{OWP}{1.00} @@ -89949,7 +89949,7 @@ o )show OrdinaryWeightedPolynomials \cross{OWP}{?/?} &&&& \end{tabular} -<>= +\begin{chunk}{domain OWP OrdinaryWeightedPolynomials} )abbrev domain OWP OrdinaryWeightedPolynomials ++ Author: James Davenport ++ Date Created: 17 April 1992 @@ -89988,17 +89988,17 @@ OrdinaryWeightedPolynomials(R:Ring, Polynomial(R), vl,wl,wtlevel) -@ -<>= +\end{chunk} +\begin{chunk}{OWP.dotabb} "OWP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OWP"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "OWP" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OSI OrdSetInts} -<>= +\begin{chunk}{OrdSetInts.input} )set break resume )sys rm -f OrdSetInts.output )spool OrdSetInts.output @@ -90026,8 +90026,8 @@ OrdinaryWeightedPolynomials(R:Ring, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OrdSetInts.help} ==================================================================== OrdSetInts examples ==================================================================== @@ -90035,7 +90035,7 @@ OrdSetInts examples See Also: o )show OrdSetInts -@ +\end{chunk} \pagehead{OrdSetInts}{OSI} \pagepic{ps/v103ordsetints.ps}{OSI}{1.00} @@ -90059,7 +90059,7 @@ o )show OrdSetInts \cross{OSI}{?$>=$?} &&& \end{tabular} -<>= +\begin{chunk}{domain OSI OrdSetInts} )abbrev domain OSI OrdSetInts ++ Author: Larry Lambe ++ Date created: 14 August 1988 @@ -90094,17 +90094,17 @@ OrdSetInts: Export == Implement where coerce(x):O == sub(e::Symbol::O, coerce(x)$Rep)$O -@ -<>= +\end{chunk} +\begin{chunk}{OSI.dotabb} "OSI" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OSI"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "OSI" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OUTFORM OutputForm} -<>= +\begin{chunk}{OutputForm.input} )set break resume )sys rm -f OutputForm.output )spool OutputForm.output @@ -90179,8 +90179,8 @@ OrdSetInts: Export == Implement where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{OutputForm.help} ==================================================================== OutputForm examples ==================================================================== @@ -90188,7 +90188,7 @@ OutputForm examples See Also: o )show OutputForm -@ +\end{chunk} \pagehead{OutputForm}{OUTFORM} \pagepic{ps/v103outputform.ps}{OUTFORM}{1.00} @@ -90277,7 +90277,7 @@ o )show OutputForm \cross{OUTFORM}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain OUTFORM OutputForm} )abbrev domain OUTFORM OutputForm ++ Keywords: output, I/O, expression ++ SMW March/88 @@ -90729,21 +90729,21 @@ OutputForm(): SetCategory with int(a,b) == [eform INTSIGN,b, empty(), a] int(a,b,c) == [eform INTSIGN,b, c, a] -@ -<>= +\end{chunk} +\begin{chunk}{OUTFORM.dotabb} "OUTFORM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OUTFORM", shape=ellipse] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "OUTFORM" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter P} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PADIC PAdicInteger} -<>= +\begin{chunk}{PAdicInteger.input} )set break resume )sys rm -f PAdicInteger.output )spool PAdicInteger.output @@ -90801,8 +90801,8 @@ OutputForm(): SetCategory with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PAdicInteger.help} ==================================================================== PAdicInteger examples ==================================================================== @@ -90810,7 +90810,7 @@ PAdicInteger examples See Also: o )show PAdicInteger -@ +\end{chunk} \pagehead{PAdicInteger}{PADIC} \pagepic{ps/v103padicinteger.ps}{PADIC}{1.00} @@ -90872,7 +90872,7 @@ o )show PAdicInteger \cross{PADIC}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain PADIC PAdicInteger} )abbrev domain PADIC PAdicInteger ++ Author: Clifton J. Williamson ++ Date Created: 20 August 1989 @@ -90891,17 +90891,17 @@ o )show PAdicInteger PAdicInteger(p:Integer) == InnerPAdicInteger(p,true$Boolean) -@ -<>= +\end{chunk} +\begin{chunk}{PADIC.dotabb} "PADIC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PADIC"] "PADICCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PADICCT"] "PADIC" -> "PADICCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PADICRAT PAdicRational} -<>= +\begin{chunk}{PAdicRational.input} )set break resume )sys rm -f PAdicRational.output )spool PAdicRational.output @@ -91032,8 +91032,8 @@ PAdicInteger(p:Integer) == InnerPAdicInteger(p,true$Boolean) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PAdicRational.help} ==================================================================== PAdicRational examples ==================================================================== @@ -91041,7 +91041,7 @@ PAdicRational examples See Also: o )show PAdicRational -@ +\end{chunk} \pagehead{PAdicRational}{PADICRAT} \pagepic{ps/v103padicrational.ps}{PADICRAT}{1.00} @@ -91138,7 +91138,7 @@ o )show PAdicRational \cross{PADICRAT}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain PADICRAT PAdicRational} )abbrev domain PADICRAT PAdicRational ++ Author: Clifton J. Williamson ++ Date Created: 15 May 1990 @@ -91157,17 +91157,17 @@ o )show PAdicRational PAdicRational(p:Integer) == PAdicRationalConstructor(p,PAdicInteger p) -@ -<>= +\end{chunk} +\begin{chunk}{PADICRAT.dotabb} "PADICRAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PADICRAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PADICRAT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PADICRC PAdicRationalConstructor} -<>= +\begin{chunk}{PAdicRationalConstructor.input} )set break resume )sys rm -f PAdicRationalConstructor.output )spool PAdicRationalConstructor.output @@ -91297,8 +91297,8 @@ PAdicRational(p:Integer) == PAdicRationalConstructor(p,PAdicInteger p) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PAdicRationalConstructor.help} ==================================================================== PAdicRationalConstructor examples ==================================================================== @@ -91306,7 +91306,7 @@ PAdicRationalConstructor examples See Also: o )show PAdicRationalConstructor -@ +\end{chunk} \pagehead{PAdicRationalConstructor}{PADICRC} \pagepic{ps/v103padicrationalconstructor.ps}{PADICRC}{1.00} @@ -91404,7 +91404,7 @@ o )show PAdicRationalConstructor \cross{PADICRC}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain PADICRC PAdicRationalConstructor} )abbrev domain PADICRC PAdicRationalConstructor ++ Author: Clifton J. Williamson ++ Date Created: 10 May 1990 @@ -91587,17 +91587,17 @@ PAdicRationalConstructor(p,PADIC): Exports == Implementation where empty? l => 0 :: OUT reduce("+",reverse_! l) -@ -<>= +\end{chunk} +\begin{chunk}{PADICRC.dotabb} "PADICRC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PADICRC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PADICRC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PALETTE Palette} -<>= +\begin{chunk}{Palette.input} )set break resume )sys rm -f Palette.output )spool Palette.output @@ -91625,8 +91625,8 @@ PAdicRationalConstructor(p,PADIC): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Palette.help} ==================================================================== Palette examples ==================================================================== @@ -91634,7 +91634,7 @@ Palette examples See Also: o )show Palette -@ +\end{chunk} \pagehead{Palette}{PALETTE} \pagepic{ps/v103palette.ps}{PALETTE}{1.00} @@ -91657,7 +91657,7 @@ o )show Palette \cross{PALETTE}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain PALETTE Palette} )abbrev domain PALETTE Palette ++ Author: Jim Wen ++ Date Created: May 10th 1989 @@ -91711,19 +91711,19 @@ Palette(): Exports == Implementation where hconcat ["[",coerce(p.hueField),"] from the ",_ SHADE.(p.shadeField)," palette"] -@ -<>= +\end{chunk} +\begin{chunk}{PALETTE.dotabb} "PALETTE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PALETTE"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "PALETTE" -> "BASTYPE" "PALETTE" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PARPCURV ParametricPlaneCurve} -<>= +\begin{chunk}{ParametricPlaneCurve.input} )set break resume )sys rm -f ParametricPlaneCurve.output )spool ParametricPlaneCurve.output @@ -91746,8 +91746,8 @@ Palette(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ParametricPlaneCurve.help} ==================================================================== ParametricPlaneCurve examples ==================================================================== @@ -91755,7 +91755,7 @@ ParametricPlaneCurve examples See Also: o )show ParametricPlaneCurve -@ +\end{chunk} \pagehead{ParametricPlaneCurve}{PARPCURV} \pagepic{ps/v103parametricplanecurve.ps}{PARPCURV}{1.00} @@ -91769,7 +91769,7 @@ o )show ParametricPlaneCurve \cross{PARPCURV}{curve} \end{tabular} -<>= +\begin{chunk}{domain PARPCURV ParametricPlaneCurve} )abbrev domain PARPCURV ParametricPlaneCurve ++ Author: Clifton J. Williamson ++ Date Created: 24 May 1990 @@ -91807,17 +91807,17 @@ ParametricPlaneCurve(ComponentFunction): Exports == Implementation where n = 2 => c.yCoord error "coordinate: index out of bounds" -@ -<>= +\end{chunk} +\begin{chunk}{PARPCURV.dotabb} "PARPCURV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PARPCURV"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARPCURV" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PARSCURV ParametricSpaceCurve} -<>= +\begin{chunk}{ParametricSpaceCurve.input} )set break resume )sys rm -f ParametricSpaceCurve.output )spool ParametricSpaceCurve.output @@ -91840,8 +91840,8 @@ ParametricPlaneCurve(ComponentFunction): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ParametricSpaceCurve.help} ==================================================================== ParametricSpaceCurve examples ==================================================================== @@ -91849,7 +91849,7 @@ ParametricSpaceCurve examples See Also: o )show ParametricSpaceCurve -@ +\end{chunk} \pagehead{ParametricSpaceCurve}{PARSCURV} \pagepic{ps/v103parametricspacecurve.ps}{PARSCURV}{1.00} @@ -91863,7 +91863,7 @@ o )show ParametricSpaceCurve \cross{PARSCURV}{curve} \end{tabular} -<>= +\begin{chunk}{domain PARSCURV ParametricSpaceCurve} )abbrev domain PARSCURV ParametricSpaceCurve ++ Author: Clifton J. Williamson ++ Date Created: 24 May 1990 @@ -91904,17 +91904,17 @@ ParametricSpaceCurve(ComponentFunction): Exports == Implementation where n = 3 => c.zCoord error "coordinate: index out of bounds" -@ -<>= +\end{chunk} +\begin{chunk}{PARSCURV.dotabb} "PARSCURV" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PARSCURV"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARSCURV" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PARSURF ParametricSurface} -<>= +\begin{chunk}{ParametricSurface.input} )set break resume )sys rm -f ParametricSurface.output )spool ParametricSurface.output @@ -91937,8 +91937,8 @@ ParametricSpaceCurve(ComponentFunction): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ParametricSurface.help} ==================================================================== ParametricSurface examples ==================================================================== @@ -91946,7 +91946,7 @@ ParametricSurface examples See Also: o )show ParametricSurface -@ +\end{chunk} \pagehead{ParametricSurface}{PARSURF} \pagepic{ps/v103parametricsurface.ps}{PARSURF}{1.00} @@ -91960,7 +91960,7 @@ o )show ParametricSurface \cross{PARSURF}{surface} \end{tabular} -<>= +\begin{chunk}{domain PARSURF ParametricSurface} )abbrev domain PARSURF ParametricSurface ++ Author: Clifton J. Williamson ++ Date Created: 24 May 1990 @@ -92001,17 +92001,17 @@ ParametricSurface(ComponentFunction): Exports == Implementation where n = 3 => c.zCoord error "coordinate: index out of bounds" -@ -<>= +\end{chunk} +\begin{chunk}{PARSURF.dotabb} "PARSURF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PARSURF"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARSURF" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PFR PartialFraction} -<>= +\begin{chunk}{PartialFraction.input} )set break resume )sys rm -f PartialFraction.output )spool PartialFraction.output @@ -92247,8 +92247,8 @@ sin(cw)*cos(ccx)+sin(ccx)*cos(cw) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PartialFraction.help} ==================================================================== PartialFraction examples ==================================================================== @@ -92395,7 +92395,7 @@ o )help Complex o )help FullPartialFractionExpansionXmpPage o )show PartialFraction -@ +\end{chunk} \pagehead{PartialFraction}{PFR} \pagepic{ps/v103partialfraction.ps}{PFR}{1.00} @@ -92455,7 +92455,7 @@ o )show PartialFraction \cross{PFR}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain PFR PartialFraction} )abbrev domain PFR PartialFraction ++ Author: Robert S. Sutor ++ Date Created: 1986 @@ -92814,8 +92814,8 @@ PartialFraction(R: EuclideanDomain): Cat == Capsule where # l = 1 => first l reduce("+", reverse l) -@ -<>= +\end{chunk} +\begin{chunk}{PFR.dotabb} "PFR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PFR"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] @@ -92824,11 +92824,11 @@ PartialFraction(R: EuclideanDomain): Cat == Capsule where "PFR" -> "FLAGG-" "PFR" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PRTITION Partition} -<>= +\begin{chunk}{Partition.input} )set break resume )sys rm -f Partition.output )spool Partition.output @@ -92863,8 +92863,8 @@ PartialFraction(R: EuclideanDomain): Cat == Capsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Partition.help} ==================================================================== Partition examples ==================================================================== @@ -92872,7 +92872,7 @@ Partition examples See Also: o )show Partition -@ +\end{chunk} \pagehead{Partition}{PRTITION} \pagepic{ps/v103partition.ps}{PRTITION}{1.00} @@ -92905,7 +92905,7 @@ o )show Partition \cross{PRTITION}{?$>=$?} &&& \end{tabular} -<>= +\begin{chunk}{domain PRTITION Partition} )abbrev domain PRTITION Partition ++ Author: William H. Burge ++ Date Created: 29 October 1987 @@ -93033,19 +93033,19 @@ Partition: Exports == Implementation where */[factorial(second a) * (first(a) ** (second(a) pretend NNI)) for a in powers(x pretend Rep)] -@ -<>= +\end{chunk} +\begin{chunk}{PRTITION.dotabb} "PRTITION" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PRTITION"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "PRTITION" -> "FLAGG-" "PRTITION" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PATTERN Pattern} -<>= +\begin{chunk}{Pattern.input} )set break resume )sys rm -f Pattern.output )spool Pattern.output @@ -93100,8 +93100,8 @@ Partition: Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Pattern.help} ==================================================================== Pattern examples ==================================================================== @@ -93109,7 +93109,7 @@ Pattern examples See Also: o )show Pattern -@ +\end{chunk} \pagehead{Pattern}{PATTERN} \pagepic{ps/v103pattern.ps}{PATTERN}{1.00} @@ -93163,7 +93163,7 @@ o )show Pattern \cross{PATTERN}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain PATTERN Pattern} )abbrev domain PATTERN Pattern ++ Author: Manuel Bronstein ++ Date Created: 10 Nov 1988 @@ -93538,17 +93538,17 @@ Pattern(R:SetCategory): Exports == Implementation where rsy := mkrsy(sy, c?, o?, m?) mkPat(zero?(rsy.tag), [rsy], 0) -@ -<>= +\end{chunk} +\begin{chunk}{PATTERN.dotabb} "PATTERN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PATTERN"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PATTERN" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PATLRES PatternMatchListResult} -<>= +\begin{chunk}{PatternMatchListResult.input} )set break resume )sys rm -f PatternMatchListResult.output )spool PatternMatchListResult.output @@ -93576,8 +93576,8 @@ Pattern(R:SetCategory): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PatternMatchListResult.help} ==================================================================== PatternMatchListResult examples ==================================================================== @@ -93585,7 +93585,7 @@ PatternMatchListResult examples See Also: o )show PatternMatchListResult -@ +\end{chunk} \pagehead{PatternMatchListResult}{PATLRES} \pagepic{ps/v103patternmatchlistresult.ps}{PATLRES}{1.00} @@ -93607,7 +93607,7 @@ o )show PatternMatchListResult \cross{PATLRES}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain PATLRES PatternMatchListResult} )abbrev domain PATLRES PatternMatchListResult ++ Author: Manuel Bronstein ++ Date Created: 4 Dec 1989 @@ -93653,17 +93653,17 @@ PatternMatchListResult(R:SetCategory, S:SetCategory, L:ListAggregate S): failed? r => atoms(r)::OutputForm RecordPrint(r, Rep)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{PATLRES.dotabb} "PATLRES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PATLRES"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PATLRES" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PATRES PatternMatchResult} -<>= +\begin{chunk}{PatternMatchResult.input} )set break resume )sys rm -f PatternMatchResult.output )spool PatternMatchResult.output @@ -93695,8 +93695,8 @@ PatternMatchListResult(R:SetCategory, S:SetCategory, L:ListAggregate S): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PatternMatchResult.help} ==================================================================== PatternMatchResult examples ==================================================================== @@ -93704,7 +93704,7 @@ PatternMatchResult examples See Also: o )show PatternMatchResult -@ +\end{chunk} \pagehead{PatternMatchResult}{PATRES} \pagepic{ps/v103patternmatchresult.ps}{PATRES}{1.00} @@ -93731,7 +93731,7 @@ o )show PatternMatchResult \cross{PATRES}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain PATRES PatternMatchResult} )abbrev domain PATRES PatternMatchResult ++ Author: Manuel Bronstein ++ Date Created: 28 Nov 1989 @@ -93832,17 +93832,17 @@ PatternMatchResult(R:SetCategory, S:SetCategory): SetCategory with failed? l => "failed" search(retract(p)@Symbol, l::LR) -@ -<>= +\end{chunk} +\begin{chunk}{PATRES.dotabb} "PATRES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PATRES"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "PATRES" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PENDTREE PendantTree} -<>= +\begin{chunk}{PendantTree.input} )set break resume )sys rm -f PendantTree.output )spool PendantTree.output @@ -93904,8 +93904,8 @@ PatternMatchResult(R:SetCategory, S:SetCategory): SetCategory with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PendantTree.help} ==================================================================== PendantTree examples ==================================================================== @@ -93913,7 +93913,7 @@ PendantTree examples See Also: o )show PendantTree -@ +\end{chunk} A PendantTree(S)is either a leaf? and is an S or has a left and a right both PendantTree(S)'s @@ -93973,7 +93973,7 @@ a left and a right both PendantTree(S)'s \cross{PENDTREE}{?.value} && \end{tabular} -<>= +\begin{chunk}{domain PENDTREE PendantTree} )abbrev domain PENDTREE PendantTree ++ Author: Mark Botch ++ Description: @@ -94020,17 +94020,17 @@ PendantTree(S: SetCategory): T == C where leaf? b => value(b)$Rep :: OutputForm paren blankSeparate [left b::OutputForm,right b ::OutputForm] -@ -<>= +\end{chunk} +\begin{chunk}{PENDTREE.dotabb} "PENDTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PENDTREE"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "PENDTREE" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PERM Permutation} -<>= +\begin{chunk}{Permutation.input} )set break resume )sys rm -f Permutation.output )spool Permutation.output @@ -94102,8 +94102,8 @@ even?(p*q) -- should return false --E 8 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Permutation.help} ==================================================================== Permutation Examples ==================================================================== @@ -94147,7 +94147,7 @@ points easily. See Also: o )show Permutation -@ +\end{chunk} \pagehead{Permutation}{PERM} \pagepic{ps/v103permutation.ps}{PERM}{1.00} @@ -94196,7 +94196,7 @@ o )show Permutation \cross{PERM}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain PERM Permutation} )abbrev domain PERM Permutation ++ Authors: Johannes Grabmeier, Holger Gollan, Martin Rubey ++ Date Created: 19 May 1989 @@ -94591,17 +94591,17 @@ Permutation(S:SetCategory): public == private where pt := partition([#c for c in coerceToCycle(p, false)])$Partition pt +$PT conjugate(partition([#fixedPoints(p)])$PT)$PT -@ -<>= +\end{chunk} +\begin{chunk}{PERM.dotabb} "PERM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PERM"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "PERM" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PERMGRP PermutationGroup} -<>= +\begin{chunk}{PermutationGroup.input} )set break resume )sys rm -f PermutationGroup.output )spool PermutationGroup.output @@ -94642,8 +94642,8 @@ Permutation(S:SetCategory): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PermutationGroup.help} ==================================================================== PermutationGroup examples ==================================================================== @@ -94651,7 +94651,7 @@ PermutationGroup examples See Also: o )show PermutationGroup -@ +\end{chunk} \pagehead{PermutationGroup}{PERMGRP} \pagepic{ps/v103permutationgroup.ps}{PERMGRP}{1.00} @@ -94684,7 +94684,7 @@ o )show PermutationGroup \cross{PERMGRP}{?=?} \end{tabular} -<>= +\begin{chunk}{domain PERMGRP PermutationGroup} )abbrev domain PERMGRP PermutationGroup ++ Authors: G. Schneider, H. Gollan, J. Grabmeier ++ Date Created: 13 February 1987 @@ -95441,17 +95441,17 @@ PermutationGroup(S:SetCategory): public == private where initializeGroupForWordProblem ( gp ) == initializeGroupForWordProblem ( gp , 0 , 1 ) -@ -<>= +\end{chunk} +\begin{chunk}{PERMGRP.dotabb} "PERMGRP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PERMGRP"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "PERMGRP" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain HACKPI Pi} -<>= +\begin{chunk}{Pi.input} )set break resume )sys rm -f Pi.output )spool Pi.output @@ -95515,8 +95515,8 @@ PermutationGroup(S:SetCategory): public == private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Pi.help} ==================================================================== Pi examples ==================================================================== @@ -95524,7 +95524,7 @@ Pi examples See Also: o )show Pi -@ +\end{chunk} \pagehead{Pi}{HACKPI} \pagepic{ps/v103pi.ps}{HACKPI}{1.00} @@ -95583,7 +95583,7 @@ o )show Pi \cross{HACKPI}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain HACKPI Pi} )abbrev domain HACKPI Pi ++ Author: Manuel Bronstein ++ Date Created: 21 Feb 1990 @@ -95648,17 +95648,17 @@ Pi(): Exports == Implementation where $SparseUnivariatePolynomialFunctions2(Integer, Float) (pi()$Float) -@ -<>= +\end{chunk} +\begin{chunk}{HACKPI.dotabb} "HACKPI" [color="#88FF44",href="bookvol10.3.pdf#nameddest=HACKPI"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "HACKPI" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ACPLOT PlaneAlgebraicCurvePlot} -<>= +\begin{chunk}{PlaneAlgebraicCurvePlot.input} )set break resume )sys rm -f PlaneAlgebraicCurvePlot.output )spool PlaneAlgebraicCurvePlot.output @@ -96221,8 +96221,8 @@ listBranches(refined) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PlaneAlgebraicCurvePlot.help} ==================================================================== PlaneAlgebraicCurvePlot examples ==================================================================== @@ -96272,7 +96272,7 @@ listBranches(refined) [- 0.48799999999999999,0.48799999999999999], [- 0.49199999999999999,0.49199999999999999], [- 0.496,0.496], -@ +\end{chunk} \pagehead{PlaneAlgebraicCurvePlot}{ACPLOT} \pagepic{ps/v103planealgebraiccurveplot.ps}{ACPLOT}{1.00} @@ -96286,7 +96286,7 @@ listBranches(refined) \cross{ACPLOT}{yRange} \end{tabular} -<>= +\begin{chunk}{domain ACPLOT PlaneAlgebraicCurvePlot} )abbrev domain ACPLOT PlaneAlgebraicCurvePlot ++ Author: Clifton J. Williamson and Timothy Daly ++ Date Created: Fall 1988 @@ -97504,17 +97504,17 @@ PlaneAlgebraicCurvePlot(): PlottablePlaneCurveCategory _ ff := vconcat(hconcat l,vconcat f) vconcat(message "ACPLOT",ff) -@ -<>= +\end{chunk} +\begin{chunk}{ACPLOT.dotabb} "ACPLOT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ACPLOT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ACPLOT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLACES Places} -<>= +\begin{chunk}{Places.input} )set break resume )sys rm -f Places.output )spool Places.output @@ -97552,8 +97552,8 @@ PlaneAlgebraicCurvePlot(): PlottablePlaneCurveCategory _ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Places.help} ==================================================================== Places examples ==================================================================== @@ -97561,7 +97561,7 @@ Places examples See Also: o )show Places -@ +\end{chunk} \pagehead{Places}{PLACES} \pagepic{ps/v103places.eps}{PLACES}{1.00} @@ -97589,7 +97589,7 @@ o )show Places \cross{PLACES}{setParam!} \end{tabular} -<>= +\begin{chunk}{domain PLACES Places} )abbrev domain PLACES Places ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -97604,19 +97604,19 @@ Places(K):Exports == Implementation where Implementation ==> Plcs(K,PCS) -@ -<>= +\end{chunk} +\begin{chunk}{PLACES.dotabb} "PLACES" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLACES"]; "NSDPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=NSDPS"]; "PLCS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLCS"] "PLACES" -> "NSDPS" "PLACES" -> "PLCS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLACESPS PlacesOverPseudoAlgebraicClosureOfFiniteField} -<>= +\begin{chunk}{PlacesOverPseudoAlgebraicClosureOfFiniteField.input} )set break resume )sys rm -f PlacesOverPseudoAlgebraicClosureOfFiniteField.output )spool PlacesOverPseudoAlgebraicClosureOfFiniteField.output @@ -97655,8 +97655,8 @@ Places(K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PlacesOverPseudoAlgebraicClosureOfFiniteField.help} ==================================================================== PlacesOverPseudoAlgebraicClosureOfFiniteField examples ==================================================================== @@ -97664,7 +97664,7 @@ PlacesOverPseudoAlgebraicClosureOfFiniteField examples See Also: o )show PlacesOverPseudoAlgebraicClosureOfFiniteField -@ +\end{chunk} \pagehead{PlacesOverPseudoAlgebraicClosureOfFiniteField}{PLACESPS} \pagepic{ps/v103placesoverpseudoalgebraicclosureoffinitefield.eps}% {PLACESPS}{1.00} @@ -97693,7 +97693,7 @@ o )show PlacesOverPseudoAlgebraicClosureOfFiniteField \cross{PLACESPS}{setParam!} \end{tabular} -<>= +\begin{chunk}{domain PLACESPS PlacesOverPseudoAlgebraicClosureOfFiniteField} )abbrev domain PLACESPS PlacesOverPseudoAlgebraicClosureOfFiniteField ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -97710,17 +97710,17 @@ PlacesOverPseudoAlgebraicClosureOfFiniteField(K):Exports Exports ==> PlacesCategory(KK,PCS) Implementation ==> Plcs(KK,PCS) -@ -<>= +\end{chunk} +\begin{chunk}{PLACESPS.dotabb} "PLACESPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLACESPS"]; "PACOFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PACOFF"] "PLACESPS" -> "PACOFF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLCS Plcs} -<>= +\begin{chunk}{Plcs.input} )set break resume )sys rm -f Plcs.output )spool Plcs.output @@ -97757,8 +97757,8 @@ PlacesOverPseudoAlgebraicClosureOfFiniteField(K):Exports )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Plcs.help} ==================================================================== Plcs examples ==================================================================== @@ -97766,7 +97766,7 @@ Plcs examples See Also: o )show Plcs -@ +\end{chunk} \pagehead{Plcs}{PLCS} \pagepic{ps/v103plcs.eps}{PLCS}{1.00} @@ -97774,7 +97774,7 @@ o )show Plcs \begin{tabular}{lllll} \end{tabular} -<>= +\begin{chunk}{domain PLCS Plcs} )abbrev domain PLCS Plcs ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -97906,17 +97906,17 @@ Plcs(K:Field,PCS:LocalPowerSeriesCategory(K)):Exports == Implementation where degree(pl)==pl.deg -@ -<>= +\end{chunk} +\begin{chunk}{PLCS.dotabb} "PLCS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLCS"]; "LOCPOWC" [color=lightblue,href="bookvol10.2.pdf#nameddest=LOCPOWC"]; "PLCS" -> "LOCPOWC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLOT Plot} -<>= +\begin{chunk}{Plot.input} )set break resume )sys rm -f Plot.output )spool Plot.output @@ -97988,8 +97988,8 @@ plot(fp,-1.0..1.0)$PLOT --E 2 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Plot.help} ========================================================================= Plot examples ========================================================================= @@ -98010,7 +98010,7 @@ and then feed it to the plot function with a Segment DoubleFloat See Also: o )show Plot -@ +\end{chunk} \pagehead{Plot}{PLOT} \pagepic{ps/v103plot.ps}{PLOT}{1.00} @@ -98039,7 +98039,7 @@ o )show Plot \cross{PLOT}{zoom} &&&& \end{tabular} -<>= +\begin{chunk}{domain PLOT Plot} )abbrev domain PLOT Plot ++ Author: Michael Monagan (revised by Clifton J. Williamson) ++ Date Created: Jan 1988 @@ -98607,17 +98607,17 @@ Plot(): Exports == Implementation where f := concat(vconcat concat(h,l),f) prefix("PLOT" :: OUT, reverse_! f) -@ -<>= +\end{chunk} +\begin{chunk}{PLOT.dotabb} "PLOT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLOT"] "FRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRAC"] "PLOT" -> "FRAC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PLOT3D Plot3D} -<>= +\begin{chunk}{Plot3D.input} )set break resume )sys rm -f Plot3D.output )spool Plot3D.output @@ -98657,8 +98657,8 @@ Plot(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Plot3D.help} ==================================================================== Plot3D examples ==================================================================== @@ -98666,7 +98666,7 @@ Plot3D examples See Also: o )show Plot3D -@ +\end{chunk} \pagehead{Plot3D}{PLOT3D} \pagepic{ps/v103plot3d.ps}{PLOT3D}{1.00} @@ -98696,7 +98696,7 @@ o )show Plot3D \cross{PLOT3D}{zoom} &&&& \end{tabular} -<>= +\begin{chunk}{domain PLOT3D Plot3D} )abbrev domain PLOT3D Plot3D ++ Author: Clifton J. Williamson based on code by Michael Monagan ++ Date Created: Jan 1989 @@ -99184,17 +99184,17 @@ Plot3D(): Exports == Implementation where outList := concat(curve.points,outList) outList -@ -<>= +\end{chunk} +\begin{chunk}{PLOT3D.dotabb} "PLOT3D" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PLOT3D"] "TRANFUN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TRANFUN"] "PLOT3D" -> "TRANFUN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PBWLB PoincareBirkhoffWittLyndonBasis} -<>= +\begin{chunk}{PoincareBirkhoffWittLyndonBasis.input} )set break resume )sys rm -f PoincareBirkhoffWittLyndonBasis.output )spool PoincareBirkhoffWittLyndonBasis.output @@ -99228,8 +99228,8 @@ Plot3D(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PoincareBirkhoffWittLyndonBasis.help} ==================================================================== PoincareBirkhoffWittLyndonBasis examples ==================================================================== @@ -99237,7 +99237,7 @@ PoincareBirkhoffWittLyndonBasis examples See Also: o )show PoincareBirkhoffWittLyndonBasis -@ +\end{chunk} \pagehead{PoincareBirkhoffWittLyndonBasis}{PBWLB} \pagepic{ps/v103poincarebirkhoffwittlyndonbasis.ps}{PBWLB}{1.00} @@ -99266,7 +99266,7 @@ o )show PoincareBirkhoffWittLyndonBasis \cross{PBWLB}{?$>=$?} \end{tabular} -<>= +\begin{chunk}{domain PBWLB PoincareBirkhoffWittLyndonBasis} )abbrev domain PBWLB PoincareBirkhoffWittLyndonBasis ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -99375,17 +99375,17 @@ PoincareBirkhoffWittLyndonBasis(VarSet: OrderedSet): Public == Private where lx = ly => recursif(x,y) lx < ly -@ -<>= +\end{chunk} +\begin{chunk}{PBWLB.dotabb} "PBWLB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PBWLB"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PBWLB" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain POINT Point} -<>= +\begin{chunk}{Point.input} )set break resume )sys rm -f Point.output )spool Point.output @@ -99491,8 +99491,8 @@ PoincareBirkhoffWittLyndonBasis(VarSet: OrderedSet): Public == Private where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Point.help} ==================================================================== Point examples ==================================================================== @@ -99500,7 +99500,7 @@ Point examples See Also: o )show Point -@ +\end{chunk} \pagehead{Point}{POINT} \pagepic{ps/v103point.ps}{POINT}{1.00} @@ -99591,7 +99591,7 @@ o )show Point \cross{POINT}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain POINT Point} )abbrev domain POINT Point ++ Author: Mark Botch ++ Description: @@ -99620,17 +99620,17 @@ Point(R:Ring) : Exports == Implementation where p0.1 * p1.2 - p1.1 * p0.2] extend(p,l) == concat(p,point l) -@ -<>= +\end{chunk} +\begin{chunk}{POINT.dotabb} "POINT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=POINT"] "PTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PTCAT"] "POINT" -> "PTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain POLY Polynomial} -<>= +\begin{chunk}{Polynomial.input} )set break resume )sys rm -f Polynomial.output )spool Polynomial.output @@ -100038,8 +100038,8 @@ map(numeric,%) --E 46 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Polynomial.help} ==================================================================== Polynomial examples ==================================================================== @@ -100421,7 +100421,7 @@ o )help DistributedMultivariatePolynomial o )help NewDistributedMultivariatePolynomial o )show Polynomial -@ +\end{chunk} \pagehead{Polynomial}{POLY} \pagepic{ps/v103polynomial.ps}{POLY}{1.00} {\bf See}\\ @@ -100518,7 +100518,7 @@ o )show Polynomial \cross{POLY}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain POLY Polynomial} )abbrev domain POLY Polynomial ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -100557,17 +100557,17 @@ Polynomial(R:Ring): if R has Algebra Fraction Integer then integrate(p, x) == (integrate univariate(p, x)) (x::%) -@ -<>= +\end{chunk} +\begin{chunk}{POLY.dotabb} "POLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=POLY"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "POLY" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain IDEAL PolynomialIdeals} -<>= +\begin{chunk}{PolynomialIdeals.input} )set break resume )sys rm -f PolynomialIdeals.output )spool PolynomialIdeals.output @@ -100608,8 +100608,8 @@ Polynomial(R:Ring): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialIdeals.help} ==================================================================== PolynomialIdeals examples ==================================================================== @@ -100617,7 +100617,7 @@ PolynomialIdeals examples See Also: o )show PolynomialIdeals -@ +\end{chunk} \pagehead{PolynomialIdeals}{IDEAL} \pagepic{ps/v103polynomialideals.ps}{IDEAL}{1.00} @@ -100653,7 +100653,7 @@ o )show PolynomialIdeals \cross{IDEAL}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain IDEAL PolynomialIdeals} )abbrev domain IDEAL PolynomialIdeals ++ Author: P. Gianni ++ Date Created: summer 1986 @@ -101077,17 +101077,17 @@ PolynomialIdeals(F,Expon,VarSet,DPoly) : C == T zero?(I:Ideal) : Boolean == empty? (groebner I).idl -@ -<>= +\end{chunk} +\begin{chunk}{IDEAL.dotabb} "IDEAL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IDEAL"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "IDEAL" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PR PolynomialRing} -<>= +\begin{chunk}{PolynomialRing.input} )set break resume )sys rm -f PolynomialRing.output )spool PolynomialRing.output @@ -101154,8 +101154,8 @@ PolynomialIdeals(F,Expon,VarSet,DPoly) : C == T )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialRing.help} ==================================================================== PolynomialRing examples ==================================================================== @@ -101163,7 +101163,7 @@ PolynomialRing examples See Also: o )show PolynomialRing -@ +\end{chunk} \pagehead{PolynomialRing}{PR} \pagepic{ps/v103polynomialring.ps}{PR}{1.00} @@ -101224,7 +101224,7 @@ o )show PolynomialRing \cross{PR}{?/?} && \end{tabular} -<>= +\begin{chunk}{domain PR PolynomialRing} )abbrev domain PR PolynomialRing ++ Author: Dave Barton, James Davenport, Barry Trager ++ Date Created: @@ -101529,17 +101529,17 @@ PolynomialRing(R:Ring,E:OrderedAbelianMonoid): T == C if R has Field then x/r == inv(r)*x -@ -<>= +\end{chunk} +\begin{chunk}{PR.dotabb} "PR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PR"] "FAMR" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAMR"] "PR" -> "FAMR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PI PositiveInteger} -<>= +\begin{chunk}{PositiveInteger.input} )set break resume )sys rm -f PositiveInteger.output )spool PositiveInteger.output @@ -101573,8 +101573,8 @@ PolynomialRing(R:Ring,E:OrderedAbelianMonoid): T == C )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PositiveInteger.help} ==================================================================== PositiveInteger examples ==================================================================== @@ -101582,7 +101582,7 @@ PositiveInteger examples See Also: o )show PositiveInteger -@ +\end{chunk} \pagehead{PositiveInteger}{PI} \pagepic{ps/v103positiveinteger.ps}{PI}{1.00} @@ -101615,7 +101615,7 @@ o )show PositiveInteger \cross{PI}{?$>=$?} \end{tabular} -<>= +\begin{chunk}{domain PI PositiveInteger} )abbrev domain PI PositiveInteger ++ Author: Mark Botch ++ Date Created: @@ -101637,19 +101637,19 @@ PositiveInteger: Join(AbelianSemiGroup,OrderedSet,Monoid) with x:% y:% -@ -<>= +\end{chunk} +\begin{chunk}{PI.dotabb} "PI" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PI",shape=ellipse] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "PI" -> "ORDSET" "PI" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PF PrimeField} -<>= +\begin{chunk}{PrimeField.input} )set break resume )sys rm -f PrimeField.output )spool PrimeField.output @@ -101752,8 +101752,8 @@ PositiveInteger: Join(AbelianSemiGroup,OrderedSet,Monoid) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PrimeField.help} ==================================================================== PrimeField examples ==================================================================== @@ -101761,7 +101761,7 @@ PrimeField examples See Also: o )show PrimeField -@ +\end{chunk} \pagehead{PrimeField}{PF} \pagepic{ps/v103primefield.ps}{PF}{1.00} @@ -101860,7 +101860,7 @@ o )show PrimeField \cross{PF}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain PF PrimeField} )abbrev domain PF PrimeField ++ Authors: N.N., ++ Date Created: November 1990, 26.03.1991 @@ -101885,17 +101885,17 @@ PrimeField(p:PositiveInteger): Exp == Impl where if not prime?(p)$IntegerPrimesPackage(Integer) then error "Argument to prime field must be a prime" -@ -<>= +\end{chunk} +\begin{chunk}{PF.dotabb} "PF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PF"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "PF" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PRIMARR PrimitiveArray} -<>= +\begin{chunk}{PrimitiveArray.input} )set break resume )sys rm -f PrimitiveArray.output )spool PrimitiveArray.output @@ -101988,8 +101988,8 @@ PrimeField(p:PositiveInteger): Exp == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PrimitiveArray.help} ==================================================================== PrimitiveArray examples ==================================================================== @@ -101997,7 +101997,7 @@ PrimitiveArray examples See Also: o )show PrimitiveArray -@ +\end{chunk} \pagehead{PrimitiveArray}{PRIMARR} \pagepic{ps/v103primitivearray.ps}{PRIMARR}{1.00} @@ -102075,7 +102075,7 @@ o )show PrimitiveArray \cross{PRIMARR}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain PRIMARR PrimitiveArray} )abbrev domain PRIMARR PrimitiveArray ++ Author: Mark Botch ++ Description: @@ -102101,18 +102101,18 @@ PrimitiveArray(S:Type): OneDimensionalArrayAggregate S == add setelt(x:%, i:Integer, s:S) == Qsetelt(x, i, s) fill_!(x, s) == (for i in 0..Qmax x repeat Qsetelt(x, i, s); x) -@ -<>= +\end{chunk} +\begin{chunk}{PRIMARR.dotabb} "PRIMARR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PRIMARR", shape=ellipse] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "PRIMARR" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PRODUCT Product} -<>= +\begin{chunk}{Product.input} )set break resume )sys rm -f Product.output )spool Product.output @@ -102171,8 +102171,8 @@ h(3) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Product.help} ==================================================================== Product examples ==================================================================== @@ -102200,7 +102200,7 @@ so See Also: o )show Product -@ +\end{chunk} \pagehead{Product}{PRODUCT} \pagepic{ps/v103product.ps}{PRODUCT}{1.00} @@ -102244,7 +102244,7 @@ o )show Product \cross{PRODUCT}{?\^{}?} &&& \end{tabular} -<>= +\begin{chunk}{domain PRODUCT Product} )abbrev domain PRODUCT Product ++ Author: Mark Botch ++ Description: @@ -102346,17 +102346,17 @@ Product (A:SetCategory,B:SetCategory) : C == T -- PrintableForm() -- formList([x.acomp::Expression,x.bcomp::Expression])$PrintableForm -@ -<>= +\end{chunk} +\begin{chunk}{PRODUCT.dotabb} "PRODUCT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PRODUCT"] "OAMONS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMONS"] "PRODUCT" -> "OAMONS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PROJPL ProjectivePlane} -<>= +\begin{chunk}{ProjectivePlane.input} )set break resume )sys rm -f ProjectivePlane.output )spool ProjectivePlane.output @@ -102393,8 +102393,8 @@ Product (A:SetCategory,B:SetCategory) : C == T )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ProjectivePlane.help} ==================================================================== ProjectivePlane examples ==================================================================== @@ -102402,7 +102402,7 @@ ProjectivePlane examples See Also: o )show ProjectivePlane -@ +\end{chunk} \pagehead{ProjectivePlane}{PROJPL} \pagepic{ps/v103projectiveplane.ps}{PROJPL}{1.00} @@ -102430,7 +102430,7 @@ o )show ProjectivePlane \end{tabular} -<>= +\begin{chunk}{domain PROJPL ProjectivePlane} )abbrev domain PROJPL ProjectivePlane ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -102444,17 +102444,17 @@ ProjectivePlane(K):Exports == Implementation where Implementation ==> ProjectiveSpace(3,K) -@ -<>= +\end{chunk} +\begin{chunk}{PROJPL.dotabb} "PROJPL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PROJPL"]; "PROJSP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PROJSP"]; "PROJPL" -> "PROJSP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PROJPLPS ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField} -<>= +\begin{chunk}{ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField.input} )set break resume )sys rm -f ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField.output )spool ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField.output @@ -102495,8 +102495,8 @@ ProjectivePlane(K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField.help} ==================================================================== ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField examples ==================================================================== @@ -102504,7 +102504,7 @@ ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField examples See Also: o )show ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField -@ +\end{chunk} \pagehead{ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField}{PROJPLPS} \pagepic{ps/v103projectiveplaneoverpseudoalgebraicclosureoffinitefield.ps}{PROJPLPS}{1.00} @@ -102532,7 +102532,7 @@ o )show ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField \cross{PROJPLPS}{setelt} \end{tabular} -<>= +\begin{chunk}{domain PROJPLPS ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField} )abbrev domain PROJPLPS ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -102548,17 +102548,17 @@ ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField(K):Exp == Impl where Impl ==> ProjectivePlane(KK) -@ -<>= +\end{chunk} +\begin{chunk}{PROJPLPS.dotabb} "PROJPLPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PROJPLPS"]; "PACOFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PACOFF"]; "PROJPLPS" -> "PACOFF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PROJSP ProjectiveSpace} -<>= +\begin{chunk}{ProjectiveSpace.input} )set break resume )sys rm -f ProjectiveSpace.output )spool ProjectiveSpace.output @@ -102595,8 +102595,8 @@ ProjectivePlaneOverPseudoAlgebraicClosureOfFiniteField(K):Exp == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ProjectiveSpace.help} ==================================================================== ProjectiveSpace examples ==================================================================== @@ -102604,7 +102604,7 @@ ProjectiveSpace examples See Also: o )show ProjectiveSpace -@ +\end{chunk} \pagehead{ProjectiveSpace}{PROJSP} \pagepic{ps/v103projectivespace.ps}{PROJSP}{1.00} @@ -102632,7 +102632,7 @@ o )show ProjectiveSpace \cross{PROJSP}{setelt} \\ \end{tabular} -<>= +\begin{chunk}{domain PROJSP ProjectiveSpace} )abbrev domain PROJSP ProjectiveSpace ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -102758,19 +102758,19 @@ ProjectiveSpace(dim,K):Exports == Implementation where lastNonNul(pt)==lastNonNull(pt) -@ -<>= +\end{chunk} +\begin{chunk}{PROJSP.dotabb} "PROJSP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PROJSP"]; "PACPERC" [color=lightblue,href="bookvol10.2.pdf#nameddest=PACPERC"]; "FPC" [color=lightblue,href="bookvol10.2.pdf#nameddest=FPC"]; "PROJSP" -> "PACPERC" "PROJSP" -> "FPC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PACEXT PseudoAlgebraicClosureOfAlgExtOfRationalNumber} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfAlgExtOfRationalNumber.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfAlgExtOfRationalNumber.output )spool PseudoAlgebraicClosureOfAlgExtOfRationalNumber.output @@ -102784,8 +102784,8 @@ ProjectiveSpace(dim,K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfAlgExtOfRationalNumber.help} ==================================================================== PseudoAlgebraicClosureOfAlgExtOfRationalNumber examples ==================================================================== @@ -102793,13 +102793,13 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumber examples See Also: o )show PseudoAlgebraicClosureOfAlgExtOfRationalNumber -@ +\end{chunk} \pagehead{PseudoAlgebraicClosureOfAlgExtOfRationalNumber}{PACEXT} \pagepic{ps/v103pseudoalgebraicclosureofalgextofrationalnumber.eps}{PACEXT}{1.00} {\bf Exports:}\\ -<>= +\begin{chunk}{domain PACEXT PseudoAlgebraicClosureOfAlgExtOfRationalNumber} )abbrev domain PACEXT PseudoAlgebraicClosureOfAlgExtOfRationalNumber -- PseudoAlgebraicClosureOfAlgExtOfRationalNumber ++ Authors: Gaetan Hache @@ -103100,17 +103100,17 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumber(downLevel:K):Exp == Impl where characteristic == characteristic()$K -@ -<>= +\end{chunk} +\begin{chunk}{PACEXT.dotabb} "PACEXT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PACEXT"]; "FACTEXT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FACTEXT"] "PACEXT" -> "FACTEXT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PACOFF PseudoAlgebraicClosureOfFiniteField} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfFiniteField.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfFiniteField.output )spool PseudoAlgebraicClosureOfFiniteField.output @@ -103209,8 +103209,8 @@ PseudoAlgebraicClosureOfAlgExtOfRationalNumber(downLevel:K):Exp == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfFiniteField.help} ==================================================================== PseudoAlgebraicClosureOfFiniteField examples ==================================================================== @@ -103218,7 +103218,7 @@ PseudoAlgebraicClosureOfFiniteField examples See Also: o )show PseudoAlgebraicClosureOfFiniteField -@ +\end{chunk} \pagehead{PseudoAlgebraicClosureOfFiniteField}{PACOFF} \pagepic{ps/v103pseudoalgebraicclosureoffinitefield.ps}{PACOFF}{1.00} @@ -103310,7 +103310,7 @@ o )show PseudoAlgebraicClosureOfFiniteField \cross{PACOFF}{zero?} \end{tabular} -<>= +\begin{chunk}{domain PACOFF PseudoAlgebraicClosureOfFiniteField} )abbrev domain PACOFF PseudoAlgebraicClosureOfFiniteField ++ Authors: Gaetan Hache ++ Date Created: june 1996 @@ -103638,18 +103638,18 @@ PseudoAlgebraicClosureOfFiniteField(K):Exports == Implementation where gel:%:=ground(elel) down(gel) -@ +\end{chunk} -<>= +\begin{chunk}{PACOFF.dotabb} "PACOFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PACOFF"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PACOFF" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain PACRAT PseudoAlgebraicClosureOfRationalNumber} -<>= +\begin{chunk}{PseudoAlgebraicClosureOfRationalNumber.input} )set break resume )sys rm -f PseudoAlgebraicClosureOfRationalNumber.output )spool PseudoAlgebraicClosureOfRationalNumber.output @@ -103740,8 +103740,8 @@ PseudoAlgebraicClosureOfFiniteField(K):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PseudoAlgebraicClosureOfRationalNumber.help} ==================================================================== PseudoAlgebraicClosureOfRationalNumber examples ==================================================================== @@ -103749,7 +103749,7 @@ PseudoAlgebraicClosureOfRationalNumber examples See Also: o )show PseudoAlgebraicClosureOfRationalNumber -@ +\end{chunk} \pagehead{PseudoAlgebraicClosureOfRationalNumber}{PACRAT} \pagepic{ps/v103pseudoalgebraicclosureofrationalnumber.ps}{PACRAT}{1.00} @@ -103827,7 +103827,7 @@ o )show PseudoAlgebraicClosureOfRationalNumber \cross{PACRAT}{zero?} &&& \end{tabular} -<>= +\begin{chunk}{domain PACRAT PseudoAlgebraicClosureOfRationalNumber} )abbrev domain PACRAT PseudoAlgebraicClosureOfRationalNumber ++ Authors: Gaetan Hache ++ Date Created: feb 1997 @@ -104111,20 +104111,20 @@ PseudoAlgebraicClosureOfRationalNumber:Exports == Implementation where characteristic == characteristic()$K -@ +\end{chunk} -<>= +\begin{chunk}{PACRAT.dotabb} "PACRAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=PRODUCT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PACRAT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter Q} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QFORM QuadraticForm} -<>= +\begin{chunk}{QuadraticForm.input} )set break resume )sys rm -f QuadraticForm.output )spool QuadraticForm.output @@ -104156,8 +104156,8 @@ PseudoAlgebraicClosureOfRationalNumber:Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QuadraticForm.help} ==================================================================== QuadraticForm examples ==================================================================== @@ -104165,7 +104165,7 @@ QuadraticForm examples See Also: o )show QuadraticForm -@ +\end{chunk} \pagehead{QuadraticForm}{QFORM} \pagepic{ps/v103quadraticform.ps}{QFORM}{1.00} @@ -104192,7 +104192,7 @@ o )show QuadraticForm \cross{QFORM}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain QFORM QuadraticForm} )abbrev domain QFORM QuadraticForm ++ Author: Stephen M. Watt ++ Date Created: August 1988 @@ -104234,17 +104234,17 @@ QuadraticForm(n, K): T == Impl where matrix q == q pretend SM(n,K) elt(q,v) == dot(v, (matrix q * v)) -@ -<>= +\end{chunk} +\begin{chunk}{QFORM.dotabb} "QFORM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=QFORM"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "QFORM" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QALGSET QuasiAlgebraicSet} -<>= +\begin{chunk}{QuasiAlgebraicSet.input} )set break resume )sys rm -f QuasiAlgebraicSet.output )spool QuasiAlgebraicSet.output @@ -104275,8 +104275,8 @@ QuadraticForm(n, K): T == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QuasiAlgebraicSet.help} ==================================================================== QuasiAlgebraicSet examples ==================================================================== @@ -104284,7 +104284,7 @@ QuasiAlgebraicSet examples See Also: o )show QuasiAlgebraicSet -@ +\end{chunk} \pagehead{QuasiAlgebraicSet}{QALGSET} \pagepic{ps/v103quasialgebraicset.ps}{QALGSET}{1.00} @@ -104307,7 +104307,7 @@ o )show QuasiAlgebraicSet \cross{QALGSET}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain QALGSET QuasiAlgebraicSet} )abbrev domain QALGSET QuasiAlgebraicSet ++ Author: William Sit ++ Date Created: March 13, 1992 @@ -104492,17 +104492,17 @@ QuasiAlgebraicSet(R, Var,Expon,Dpoly) : C == T empty? qlist => false or/[(brace$(Set Dpoly) q) <$(Set Dpoly) (brace$(Set Dpoly) p) for q in qlist] -@ -<>= +\end{chunk} +\begin{chunk}{QALGSET.dotabb} "QALGSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=QALGSET"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "QALGSET" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QUAT Quaternion} -<>= +\begin{chunk}{Quaternion.input} )set break resume )sys rm -f Quaternion.output )spool Quaternion.output @@ -104634,8 +104634,8 @@ q * % --E 13 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Quaternion.help} ==================================================================== Quaternion examples ==================================================================== @@ -104740,7 +104740,7 @@ o )help Complex o )help CliffordAlgebra o )show Quaternion -@ +\end{chunk} \pagehead{Quaternion}{QUAT} \pagepic{ps/v103quaternion.ps}{QUAT}{1.00} @@ -104795,7 +104795,7 @@ o )show Quaternion \cross{QUAT}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain QUAT Quaternion} )abbrev domain QUAT Quaternion ++ Author: Robert S. Sutor ++ Date Created: 23 May 1990 @@ -104835,17 +104835,17 @@ Quaternion(R:CommutativeRing): QuaternionCategory(R) == add x.r*y.j+x.j*y.r+x.k*y.i-x.i*y.k, x.r*y.k+x.k*y.r+x.i*y.j-x.j*y.i] -@ -<>= +\end{chunk} +\begin{chunk}{QUAT.dotabb} "QUAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=QUAT"] "QUATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=QUATCAT"] "QUAT" -> "QUATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QEQUAT QueryEquation} -<>= +\begin{chunk}{QueryEquation.input} )set break resume )sys rm -f QueryEquation.output )spool QueryEquation.output @@ -104868,8 +104868,8 @@ Quaternion(R:CommutativeRing): QuaternionCategory(R) == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QueryEquation.help} ==================================================================== QueryEquation examples ==================================================================== @@ -104877,7 +104877,7 @@ QueryEquation examples See Also: o )show QueryEquation -@ +\end{chunk} \pagehead{QueryEquation}{QEQUAT} \pagepic{ps/v103queryequation.ps}{QEQUAT}{1.00} @@ -104894,7 +104894,7 @@ o )show QueryEquation \cross{QEQUAT}{variable} \end{tabular} -<>= +\begin{chunk}{domain QEQUAT QueryEquation} )abbrev domain QEQUAT QueryEquation ++ Author: Mark Botch ++ Description: @@ -104915,17 +104915,17 @@ QueryEquation(): Exports == Implementation where variable q == q.var value q == q.val -@ -<>= +\end{chunk} +\begin{chunk}{QEQUAT.dotabb} "QEQUAT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=QEQUAT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "QEQUAT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain QUEUE Queue} -<>= +\begin{chunk}{Queue.input} )set break resume )sys rm -f Queue.output )spool Queue.output @@ -105339,8 +105339,8 @@ latex a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Queue.help} ==================================================================== Queue examples ==================================================================== @@ -105579,7 +105579,7 @@ o )show Dequeue o )show Heap o )show BagAggregate -@ +\end{chunk} \pagehead{Queue}{QUEUE} \pagepic{ps/v103queue.ps}{QUEUE}{1.00} {\bf See}\\ @@ -105626,7 +105626,7 @@ o )show BagAggregate \cross{QUEUE}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain QUEUE Queue} )abbrev domain QUEUE Queue ++ Author: Michael Monagan and Stephen Watt ++ Date Created:June 86 and July 87 @@ -105815,21 +105815,21 @@ Queue(S:SetCategory): QueueAggregate S with back q == if empty? q then error "empty queue" else last deref q queue q == ref copy q -@ -<>= +\end{chunk} +\begin{chunk}{QUEUE.dotabb} "QUEUE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=QUEUE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "QUEUE" -> "FLAGG" "QUEUE" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter R} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RADFF RadicalFunctionField} -<>= +\begin{chunk}{RadicalFunctionField.input} )set break resume )sys rm -f RadicalFunctionField.output )spool RadicalFunctionField.output @@ -105998,8 +105998,8 @@ Queue(S:SetCategory): QueueAggregate S with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RadicalFunctionField.help} ==================================================================== RadicalFunctionField examples ==================================================================== @@ -106007,7 +106007,7 @@ RadicalFunctionField examples See Also: o )show RadicalFunctionField -@ +\end{chunk} \pagehead{RadicalFunctionField}{RADFF} \pagepic{ps/v103radicalfunctionfield.ps}{RADFF}{1.00} @@ -106132,7 +106132,7 @@ o )show RadicalFunctionField \cross{RADFF}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain RADFF RadicalFunctionField} )abbrev domain RADFF RadicalFunctionField ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -106332,17 +106332,17 @@ RadicalFunctionField(F, UP, UPUP, radicnd, n): Exports == Impl where zero?(radcand() point) and not zero?(((radcand() exquo (monomial(1,1)$UP-point::UP))::UP) point) -@ -<>= +\end{chunk} +\begin{chunk}{RADFF.dotabb} "RADFF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RADFF"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "RADFF" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RADIX RadixExpansion} -<>= +\begin{chunk}{RadixExpansion.input} )set break resume )sys rm -f RadixExpansion.output )spool RadixExpansion.output @@ -106498,8 +106498,8 @@ a :: Fraction(Integer) --E 17 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RadixExpansion.help} ==================================================================== RadixExpansion examples ==================================================================== @@ -106621,7 +106621,7 @@ o )help BinaryExpansion o )help HexadecimalExpansion o )show RadixExpansion -@ +\end{chunk} \pagehead{RadixExpansion}{RADIX} \pagepic{ps/v103radixexpansion.ps}{RADIX}{1.00} {\bf See}\\ @@ -106718,7 +106718,7 @@ o )show RadixExpansion \cross{RADIX}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain RADIX RadixExpansion} )abbrev domain RADIX RadixExpansion ++ Author: Stephen M. Watt ++ Date Created: October 1986 @@ -106961,15 +106961,15 @@ RadixExpansion(bb): Exports == Implementation where rits := rest rits [reverse_! ritspfx, reverse_! ritscyc] -@ -<>= +\end{chunk} +\begin{chunk}{RADIX.dotabb} "RADIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RADIX"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "RADIX" -> "PFECAT" "RADIX" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RECLOS RealClosure} The domain constructore {\bf RealClosure} by Renaud Rioboo (University @@ -107013,7 +107013,7 @@ Be aware that approximations behave as post-processing and that all computations are done excatly. They can thus be quite time consuming when depending on several "real roots". -<>= +\begin{chunk}{RealClosure.input} )set break resume )sys rm -f RealClosure.output )spool RealClosure.output @@ -107680,8 +107680,8 @@ dst5::Boolean --E 67 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RealClosure.help} ==================================================================== RealClosure examples ==================================================================== @@ -108198,7 +108198,7 @@ o )help Field o )help RealPolynomialUtilitiesPackage o )show RealClosure -@ +\end{chunk} \pagehead{RealClosure}{RECLOS} \pagepic{ps/v103realclosure.ps}{RECLOS}{1.00} {\bf See}\\ @@ -108275,7 +108275,7 @@ o )show RealClosure \cross{RECLOS}{?rem?} & \end{tabular} -<>= +\begin{chunk}{domain RECLOS RealClosure} )abbrev domain RECLOS RealClosure ++ Author: Renaud Rioboo ++ Date Created: summer 1988 @@ -108578,17 +108578,17 @@ RealClosure(TheField): PUB == PRIV where coerce(rn:TheField):$ == rn :: $ -@ -<>= +\end{chunk} +\begin{chunk}{RECLOS.dotabb} "RECLOS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RECLOS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "RECLOS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RMATRIX RectangularMatrix} -<>= +\begin{chunk}{RectangularMatrix.input} )set break resume )sys rm -f RectangularMatrix.output )spool RectangularMatrix.output @@ -108656,8 +108656,8 @@ RealClosure(TheField): PUB == PRIV where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RectangularMatrix.help} ==================================================================== RectangularMatrix examples ==================================================================== @@ -108665,7 +108665,7 @@ RectangularMatrix examples See Also: o )show RectangularMatrix -@ +\end{chunk} \pagehead{RectangularMatrix}{RMATRIX} \pagepic{ps/v103rectangularmatrix.ps}{RMATRIX}{1.00} @@ -108733,7 +108733,7 @@ o )show RectangularMatrix \cross{RMATRIX}{?=?} \end{tabular} -<>= +\begin{chunk}{domain RMATRIX RectangularMatrix} )abbrev domain RMATRIX RectangularMatrix ++ Author: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -108822,17 +108822,17 @@ RectangularMatrix(m,n,R): Exports == Implementation where convert [convert("rectangularMatrix"::Symbol)@InputForm, convert(x::Matrix(R))]$List(InputForm) -@ -<>= +\end{chunk} +\begin{chunk}{RMATRIX.dotabb} "RMATRIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RMATRIX"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "RMATRIX" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain REF Reference} -<>= +\begin{chunk}{Reference.input} )set break resume )sys rm -f Reference.output )spool Reference.output @@ -108860,8 +108860,8 @@ RectangularMatrix(m,n,R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Reference.help} ==================================================================== Reference examples ==================================================================== @@ -108869,7 +108869,7 @@ Reference examples See Also: o )show Reference -@ +\end{chunk} \pagehead{Reference}{REF} \pagepic{ps/v103reference.ps}{REF}{1.00} @@ -108892,7 +108892,7 @@ o )show Reference \cross{REF}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain REF Reference} )abbrev domain REF Reference ++ Author: Stephen M. Watt ++ Date Created: @@ -108934,8 +108934,8 @@ Reference(S:Type): Type with coerce p == prefix(message("ref"@String), [p.value::OutputForm]) -@ -<>= +\end{chunk} +\begin{chunk}{REF.dotabb} "REF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=REF",shape=ellipse] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] @@ -108944,11 +108944,11 @@ Reference(S:Type): Type with "REF" -> "BASTYPE" "REF" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RGCHAIN RegularChain} -<>= +\begin{chunk}{RegularChain.input} )set break resume )sys rm -f RegularChain.output )spool RegularChain.output @@ -109080,8 +109080,8 @@ Reference(S:Type): Type with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RegularChain.help} ==================================================================== RegularChain examples ==================================================================== @@ -109089,7 +109089,7 @@ RegularChain examples See Also: o )show RegularChain -@ +\end{chunk} \pagehead{RegularChain}{RGCHAIN} \pagepic{ps/v103regularchain.ps}{RGCHAIN}{1.00} @@ -109189,7 +109189,7 @@ o )show RegularChain \cross{RGCHAIN}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain RGCHAIN RegularChain} )abbrev domain RGCHAIN RegularChain ++ Author: Marc Moreno Maza ++ Date Created: 01/1999 @@ -109222,13 +109222,13 @@ RegularChain(R,ls): Exports == Implementation where Implementation == RegularTriangularSet(R,E,V,P) -@ -<>= +\end{chunk} +\begin{chunk}{RGCHAIN.dotabb} "RGCHAIN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RGCHAIN"] "RSETCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RSETCAT"] "RGCHAIN" -> "RSETCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain REGSET RegularTriangularSet} Several domain constructors implement regular triangular sets (or regular @@ -109238,7 +109238,7 @@ by Marc Moreno Maza for computing triangular decompositions of polynomial systems. This method is refined in the package {\bf LazardSetSolvingPackage} in order to produce decompositions by means of Lazard triangular sets. -<>= +\begin{chunk}{RegularTriangularSet.input} )set break resume )sys rm -f RegularTriangularSet.output )spool RegularTriangularSet.output @@ -109778,8 +109778,8 @@ zeroSetSplit(lq,true,true)$T --E 34 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RegularTriangularSet.help} ==================================================================== RegularTriangularSet examples ==================================================================== @@ -110607,7 +110607,7 @@ o )help LazardSetSolvingPackage o )help SquareFreeRegularTriangularSet o )show RegularTriangularSet -@ +\end{chunk} \pagehead{RegularTriangularSet}{REGSET} \pagepic{ps/v103regulartriangularset.ps}{REGSET}{1.00} @@ -110708,7 +110708,7 @@ o )show RegularTriangularSet \cross{REGSET}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain REGSET RegularTriangularSet} )abbrev domain REGSET RegularTriangularSet ++ Author: Marc Moreno Maza ++ Date Created: 08/25/1998 @@ -111093,17 +111093,17 @@ RegularTriangularSet(R,E,V,P) : Exports == Implementation where lp2 := [] return [lp2,lts] -@ -<>= +\end{chunk} +\begin{chunk}{REGSET.dotabb} "REGSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=REGSET"] "RSETCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RSETCAT"] "REGSET" -> "RSETCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RESRING ResidueRing} -<>= +\begin{chunk}{ResidueRing.input} )set break resume )sys rm -f ResidueRing.output )spool ResidueRing.output @@ -111142,8 +111142,8 @@ RegularTriangularSet(R,E,V,P) : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ResidueRing.help} ==================================================================== ResidueRing examples ==================================================================== @@ -111151,7 +111151,7 @@ ResidueRing examples See Also: o )show ResidueRing -@ +\end{chunk} \pagehead{ResidueRing}{RESRING} \pagepic{ps/v103residuering.ps}{RESRING}{1.00} @@ -111181,7 +111181,7 @@ o )show ResidueRing \cross{RESRING}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain RESRING ResidueRing} )abbrev domain RESRING ResidueRing ++ Author: P.Gianni ++ Date Created: December 1992 @@ -111235,17 +111235,17 @@ ResidueRing(F,Expon,VarSet,FPol,LFPol) : Dom == Body characteristic() == characteristic()$F coerce(x) : OutputForm == coerce(x)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{RESRING.dotabb} "RESRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RESRING"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RESRING" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RESULT Result} -<>= +\begin{chunk}{Result.input} )set break resume )sys rm -f Result.output )spool Result.output @@ -111340,8 +111340,8 @@ ResidueRing(F,Expon,VarSet,FPol,LFPol) : Dom == Body )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Result.help} ==================================================================== Result examples ==================================================================== @@ -111349,7 +111349,7 @@ Result examples See Also: o )show Result -@ +\end{chunk} \pagehead{Result}{RESULT} \pagepic{ps/v103result.ps}{RESULT}{1.00} @@ -111423,7 +111423,7 @@ o )show Result \cross{RESULT}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain RESULT Result} )abbrev domain RESULT Result ++ Author: Didier Pinchon and Mike Dewar ++ Date Created: 8 April 1994 @@ -111492,17 +111492,17 @@ Result():Exports==Implementation where showArrayValues(b:Boolean):Boolean == showArrayValuesFlag := b showScalarValues(b:Boolean):Boolean == showScalarValuesFlag := b -@ -<>= +\end{chunk} +\begin{chunk}{RESULT.dotabb} "RESULT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RESULT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "RESULT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RULE RewriteRule} -<>= +\begin{chunk}{RewriteRule.input} )set break resume )sys rm -f RewriteRule.output )spool RewriteRule.output @@ -111554,8 +111554,8 @@ logrule f )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RewriteRule.help} ==================================================================== RewriteRule examples ==================================================================== @@ -111582,13 +111582,9 @@ again. See Also: o )show ApplyRules - -@ - -See Also: o )show RewriteRule -@ +\end{chunk} \pagehead{RewriteRule}{RULE} \pagepic{ps/v103rewriterule.ps}{RULE}{1.00} @@ -111614,7 +111610,7 @@ o )show RewriteRule \cross{RULE}{?=?} \end{tabular} -<>= +\begin{chunk}{domain RULE RewriteRule} )abbrev domain RULE RewriteRule ++ Author: Manuel Bronstein ++ Date Created: 24 Oct 1988 @@ -111751,13 +111747,13 @@ RewriteRule(Base, R, F): Exports == Implementation where infix(" == "::Symbol::OutputForm, lhs(x)::OutputForm, rhs(x)::OutputForm) -@ -<>= +\end{chunk} +\begin{chunk}{RULE.dotabb} "RULE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RULE"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "RULE" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ROIRC RightOpenIntervalRootCharacterization} The domain RightOpenIntervalRootCharacterization is the main code that @@ -111794,7 +111790,7 @@ Be aware that approximations behave as post-processing and that all computations are done exactly. They can thus be quite time consuming when depending on several "real roots". -<>= +\begin{chunk}{RightOpenIntervalRootCharacterization.input} )set break resume )sys rm -f RightOpenIntervalRootCharacterization.output )spool RightOpenIntervalRootCharacterization.output @@ -111830,8 +111826,8 @@ depending on several "real roots". )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RightOpenIntervalRootCharacterization.help} ==================================================================== RightOpenIntervalRootCharacterization examples ==================================================================== @@ -111839,7 +111835,7 @@ RightOpenIntervalRootCharacterization examples See Also: o )show RightOpenIntervalRootCharacterization -@ +\end{chunk} \pagehead{RightOpenIntervalRootCharacterization}{ROIRC} \pagepic{ps/v103rightopenintervalrootcharacterization.ps}{ROIRC}{1.00} @@ -111871,7 +111867,7 @@ o )show RightOpenIntervalRootCharacterization \cross{ROIRC}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain ROIRC RightOpenIntervalRootCharacterization} )abbrev domain ROIRC RightOpenIntervalRootCharacterization ++ Author: Renaud Rioboo ++ Date Created: summer 1992 @@ -112333,17 +112329,17 @@ RightOpenIntervalRootCharacterization(TheField,ThePolDom) : PUB == PRIV where -- if (sg ^= lsg) then res := res + 1 -- lsg := sg -- res -@ -<>= +\end{chunk} +\begin{chunk}{ROIRC.dotabb} "ROIRC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ROIRC"] "RRCC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RRCC"] "ROIRC" -> "RRCC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ROMAN RomanNumeral} -<>= +\begin{chunk}{RomanNumeral.input} )set break resume )sys rm -f RomanNumeral.output )spool RomanNumeral.output @@ -112492,8 +112488,8 @@ b rem a --E 15 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RomanNumeral.help} ==================================================================== RomanNumeral Examples ==================================================================== @@ -112624,7 +112620,7 @@ o )help DecimalExpansion o )help IntegerNumberTheoryFunctions o )show RomanNumeral -@ +\end{chunk} \pagehead{RomanNumeral}{ROMAN} \pagepic{ps/v103romannumeral.ps}{ROMAN}{1.00} {\bf See}\\ @@ -112721,7 +112717,7 @@ o )show RomanNumeral \cross{ROMAN}{?rem?} &&& \end{tabular} -<>= +\begin{chunk}{domain ROMAN RomanNumeral} )abbrev domain ROMAN RomanNumeral ++ Author: Mark Botch ++ Date Created: @@ -112760,17 +112756,17 @@ RomanNumeral(): IntegerNumberSystem with negative? n => - ((-r)::OutputForm) FormatRoman(n::PositiveInteger)::Symbol::OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{ROMAN.dotabb} "ROMAN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ROMAN"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ROMAN" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ROUTINE RoutinesTable} -<>= +\begin{chunk}{RoutinesTable.input} )set break resume )sys rm -f RoutinesTable.output )spool RoutinesTable.output @@ -112875,8 +112871,8 @@ RomanNumeral(): IntegerNumberSystem with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RoutinesTable.help} ==================================================================== RoutinesTable examples ==================================================================== @@ -112884,7 +112880,7 @@ RoutinesTable examples See Also: o )show RoutinesTable -@ +\end{chunk} \pagehead{RoutinesTable}{ROUTINE} \pagepic{ps/v103routinestable.ps}{ROUTINE}{1.00} @@ -112965,7 +112961,7 @@ o )show RoutinesTable \cross{ROUTINE}{?.?} \end{tabular} -<>= +\begin{chunk}{domain ROUTINE RoutinesTable} )abbrev domain ROUTINE RoutinesTable ++ Author: Brian Dupee ++ Date Created: August 1994 @@ -113344,17 +113340,17 @@ RoutinesTable(): E == I where e.explList empty()$LST -@ -<>= +\end{chunk} +\begin{chunk}{ROUTINE.dotabb} "ROUTINE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ROUTINE"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ROUTINE" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RULECOLD RuleCalled} -<>= +\begin{chunk}{RuleCalled.input} )set break resume )sys rm -f RuleCalled.output )spool RuleCalled.output @@ -113378,8 +113374,8 @@ RoutinesTable(): E == I where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RuleCalled.help} ==================================================================== RuleCalled examples ==================================================================== @@ -113387,7 +113383,7 @@ RuleCalled examples See Also: o )show RuleCalled -@ +\end{chunk} \pagehead{RuleCalled}{RULECOLD} \pagepic{ps/v103rulecalled.ps}{RULECOLD}{1.00} @@ -113402,7 +113398,7 @@ o )show RuleCalled \cross{RULECOLD}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain RULECOLD RuleCalled} )abbrev domain RULECOLD RuleCalled ++ Author: Mark Botch ++ Description: @@ -113417,17 +113413,17 @@ RuleCalled(f:Symbol): SetCategory with x = y == true latex(x:%):String == latex f -@ -<>= +\end{chunk} +\begin{chunk}{RULECOLD.dotabb} "RULECOLD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RULECOLD"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "RULECOLD" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain RULESET Ruleset} -<>= +\begin{chunk}{Ruleset.input} )set break resume )sys rm -f Ruleset.output )spool Ruleset.output @@ -113454,8 +113450,8 @@ RuleCalled(f:Symbol): SetCategory with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Ruleset.help} ==================================================================== Ruleset examples ==================================================================== @@ -113463,7 +113459,7 @@ Ruleset examples See Also: o )show Ruleset -@ +\end{chunk} \pagehead{Ruleset}{RULESET} \pagepic{ps/v103ruleset.ps}{RULESET}{1.00} @@ -113483,7 +113479,7 @@ o )show Ruleset \cross{RULESET}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain RULESET Ruleset} )abbrev domain RULESET Ruleset ++ Author: Manuel Bronstein ++ Date Created: 20 Mar 1990 @@ -113522,19 +113518,19 @@ Ruleset(Base, R, F): Exports == Implementation where elt(r:$, s:F, n:PositiveInteger) == applyRules(rules r, s, n) rules x == parts(x)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{RULESET.dotabb} "RULESET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=RULESET"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "RULESET" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter S} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain FORMULA ScriptFormulaFormat} -<>= +\begin{chunk}{ScriptFormulaFormat.input} )set break resume )sys rm -f ScriptFormulaFormat.output )spool ScriptFormulaFormat.output @@ -113565,8 +113561,8 @@ Ruleset(Base, R, F): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ScriptFormulaFormat.help} ==================================================================== ScriptFormulaFormat examples ==================================================================== @@ -113574,7 +113570,7 @@ ScriptFormulaFormat examples See Also: o )show ScriptFormulaFormat -@ +\end{chunk} \pagehead{ScriptFormulaFormat}{FORMULA} \pagepic{ps/v103scriptformulaformat.ps}{FORMULA}{1.00} @@ -113597,7 +113593,7 @@ o )show ScriptFormulaFormat \cross{FORMULA}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain FORMULA ScriptFormulaFormat} )abbrev domain FORMULA ScriptFormulaFormat ++ Author: Robert S. Sutor ++ Date Created: 1987 through 1990 @@ -114024,17 +114020,17 @@ ScriptFormulaFormat(): public == private where op := formatFormula(first l,minPrec) formatFunction(op,args,prec) -@ -<>= +\end{chunk} +\begin{chunk}{FORMULA.dotabb} "FORMULA" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FORMULA"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FORMULA" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEG Segment} -<>= +\begin{chunk}{Segment.input} )set break resume )sys rm -f Segment.output )spool Segment.output @@ -114122,8 +114118,8 @@ expand l --E 10 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Segment.help} ==================================================================== Segment examples ==================================================================== @@ -114203,7 +114199,7 @@ o )help UniversalSegment o )help SegmentBinding o )show Segment -@ +\end{chunk} \pagehead{Segment}{SEG} \pagepic{ps/v103segment.ps}{SEG}{1.00} {\bf See}\\ @@ -114230,7 +114226,7 @@ o )show Segment \cross{SEG}{?..?} &&&& \end{tabular} -<>= +\begin{chunk}{domain SEG Segment} )abbrev domain SEG Segment ++ Author: Stephen M. Watt ++ Date Created: December 1986 @@ -114306,17 +114302,17 @@ Segment(S:Type): SegmentCategory(S) with l := l + inc reverse_! lr -@ -<>= +\end{chunk} +\begin{chunk}{SEG.dotabb} "SEG" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SEG"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "SEG" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEGBIND SegmentBinding} -<>= +\begin{chunk}{SegmentBinding.input} )set break resume )sys rm -f SegmentBinding.output )spool SegmentBinding.output @@ -114371,8 +114367,8 @@ segment(sb) --E 5 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SegmentBinding.help} ==================================================================== SegmentBinding examples ==================================================================== @@ -114427,7 +114423,7 @@ o )help Segment o )help UniversalSegment o )show SegmentBinding -@ +\end{chunk} \pagehead{SegmentBinding}{SEGBIND} \pagepic{ps/v103segmentbinding.ps}{SEGBIND}{1.00} {\bf See}\\ @@ -114446,7 +114442,7 @@ o )show SegmentBinding \cross{SEGBIND}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain SEGBIND SegmentBinding} )abbrev domain SEGBIND SegmentBinding ++ Author: Mark Botch ++ Date Created: @@ -114490,17 +114486,17 @@ SegmentBinding(S:Type): Type with coerce(b:%):OutputForm == variable(b)::OutputForm = segment(b)::OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{SEGBIND.dotabb} "SEGBIND" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SEGBIND"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SEGBIND" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SET Set} -<>= +\begin{chunk}{Set.input} )set break resume )sys rm -f Set.output )spool Set.output @@ -114674,8 +114670,8 @@ b0 --E 20 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Set.help} ==================================================================== Set examples ==================================================================== @@ -114807,7 +114803,7 @@ See Also: o )help List o )show Set -@ +\end{chunk} \pagehead{Set}{SET} \pagepic{ps/v103set.ps}{SET}{1.00} @@ -114869,7 +114865,7 @@ o )show Set \cross{SET}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain SET Set} )abbrev domain SET Set ++ Author: Michael Monagan; revised by Richard Jenks ++ Date Created: August 87 through August 88 @@ -115048,17 +115044,17 @@ Set(S:SetCategory): FiniteSetAggregate S == add k := inc k s -@ -<>= +\end{chunk} +\begin{chunk}{SET.dotabb} "SET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SET"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SET" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SETMN SetOfMIntegersInOneToN} -<>= +\begin{chunk}{SetOfMIntegersInOneToN.input} )set break resume )sys rm -f SetOfMIntegersInOneToN.output )spool SetOfMIntegersInOneToN.output @@ -115090,8 +115086,8 @@ Set(S:SetCategory): FiniteSetAggregate S == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SetOfMIntegersInOneToN.help} ==================================================================== SetOfMIntegersInOneToN examples ==================================================================== @@ -115099,7 +115095,7 @@ SetOfMIntegersInOneToN examples See Also: o )show SetOfMIntegersInOneToN -@ +\end{chunk} \pagehead{SetOfMIntegersInOneToN}{SETMN} \pagepic{ps/v103setofmintegersinoneton.ps}{SETMN}{1.00} @@ -115124,7 +115120,7 @@ o )show SetOfMIntegersInOneToN \cross{SETMN}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain SETMN SetOfMIntegersInOneToN} )abbrev domain SETMN SetOfMIntegersInOneToN ++ Author: Manuel Bronstein ++ Date Created: 10 January 1994 @@ -115270,17 +115266,17 @@ SetOfMIntegersInOneToN(m, n): Exports == Implementation where newb.i := false [newb, (i = p => s.pos; 0)] -@ -<>= +\end{chunk} +\begin{chunk}{SETMN.dotabb} "SETMN" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SETMN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "SETMN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SDPOL SequentialDifferentialPolynomial} -<>= +\begin{chunk}{SequentialDifferentialPolynomial.input} )set break resume )sys rm -f SequentialDifferentialPolynomial.output )spool SequentialDifferentialPolynomial.output @@ -115456,8 +115452,8 @@ SetOfMIntegersInOneToN(m, n): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SequentialDifferentialPolynomial.help} ==================================================================== SequentialDifferentialPolynomial examples ==================================================================== @@ -115465,7 +115461,7 @@ SequentialDifferentialPolynomial examples See Also: o )show SequentialDifferentialPolynomial -@ +\end{chunk} \pagehead{SequentialDifferentialPolynomial}{SDPOL} \pagepic{ps/v103sequentialdifferentialpolynomial.ps}{SDPOL}{1.00} @@ -115571,7 +115567,7 @@ o )show SequentialDifferentialPolynomial \cross{SDPOL}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain SDPOL SequentialDifferentialPolynomial} )abbrev domain SDPOL SequentialDifferentialPolynomial ++ Author: William Sit ++ Date Created: 24 September, 1991 @@ -115602,17 +115598,17 @@ SequentialDifferentialPolynomial(R): Implementation ==> DifferentialSparseMultivariatePolynomial(R,S,V) -@ -<>= +\end{chunk} +\begin{chunk}{SDPOL.dotabb} "SDPOL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SDPOL"] "DPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DPOLCAT"] "SDPOL" -> "DPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SDVAR SequentialDifferentialVariable} -<>= +\begin{chunk}{SequentialDifferentialVariable.input} )set break resume )sys rm -f SequentialDifferentialVariable.output )spool SequentialDifferentialVariable.output @@ -115645,8 +115641,8 @@ SequentialDifferentialPolynomial(R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SequentialDifferentialVariable.help} ==================================================================== SequentialDifferentialVariable examples ==================================================================== @@ -115654,7 +115650,7 @@ SequentialDifferentialVariable examples See Also: o )show SequentialDifferentialVariable -@ +\end{chunk} \pagehead{SequentialDifferentialVariable}{SDVAR} \pagepic{ps/v103sequentialdifferentialvariable.ps}{SDVAR}{1.00} @@ -115686,7 +115682,7 @@ o )show SequentialDifferentialVariable \cross{SDVAR}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain SDVAR SequentialDifferentialVariable} )abbrev domain SDVAR SequentialDifferentialVariable ++ Author: William Sit ++ Date Created: 19 July 1990 @@ -115721,19 +115717,19 @@ SequentialDifferentialVariable(S:OrderedSet):DifferentialVariableCategory(S) variable v = variable u => order v < order u variable v < variable u -@ -<>= +\end{chunk} +\begin{chunk}{SDVAR.dotabb} "SDVAR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SDVAR"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "RETRACT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RETRACT"] "SDVAR" -> "ORDSET" "SDVAR" -> "RETRACT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEX SExpression} -<>= +\begin{chunk}{SExpression.input} )set break resume )sys rm -f SExpression.output )spool SExpression.output @@ -115770,8 +115766,8 @@ SequentialDifferentialVariable(S:OrderedSet):DifferentialVariableCategory(S) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SExpression.help} ==================================================================== SExpression examples ==================================================================== @@ -115779,7 +115775,7 @@ SExpression examples See Also: o )show SExpression -@ +\end{chunk} \pagehead{SExpression}{SEX} \pagepic{ps/v103sexpression.ps}{SEX}{1.00} @@ -115815,7 +115811,7 @@ o )show SExpression \cross{SEX}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain SEX SExpression} )abbrev domain SEX SExpression ++ Author: S.M.Watt ++ Date Created: July 1987 @@ -115826,17 +115822,17 @@ o )show SExpression SExpression() == SExpressionOf(String, Symbol, Integer, DoubleFloat, OutputForm) -@ -<>= +\end{chunk} +\begin{chunk}{SEX.dotabb} "SEX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SEX"] "STRICAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=STRICAT"] "SEX" -> "STRICAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SEXOF SExpressionOf} -<>= +\begin{chunk}{SExpressionOf.input} )set break resume )sys rm -f SExpressionOf.output )spool SExpressionOf.output @@ -115873,8 +115869,8 @@ SExpression() )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SExpressionOf.help} ==================================================================== SExpressionOf examples ==================================================================== @@ -115882,7 +115878,7 @@ SExpressionOf examples See Also: o )show SExpressionOf -@ +\end{chunk} \pagehead{SExpressionOf}{SEXOF} \pagepic{ps/v103sexpressionof.ps}{SEXOF}{1.00} @@ -115918,7 +115914,7 @@ o )show SExpressionOf \cross{SEXOF}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain SEXOF SExpressionOf} )abbrev domain SEXOF SExpressionOf ++ Author: S.M.Watt ++ Date Created: July 1987 @@ -115986,19 +115982,19 @@ SExpressionOf(Str, Sym, Int, Flt, Expr): Decl == Body where for i in li repeat b := destruct(b).i b -@ -<>= +\end{chunk} +\begin{chunk}{SEXOF.dotabb} "SEXOF" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SEXOF"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "SEXOF" -> "FLAGG" "SEXOF" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SAE SimpleAlgebraicExtension} -<>= +\begin{chunk}{SimpleAlgebraicExtension.input} )set break resume )sys rm -f SimpleAlgebraicExtension.output )spool SimpleAlgebraicExtension.output @@ -116133,8 +116129,8 @@ SExpressionOf(Str, Sym, Int, Flt, Expr): Decl == Body where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SimpleAlgebraicExtension.help} ==================================================================== SimpleAlgebraicExtension examples ==================================================================== @@ -116142,7 +116138,7 @@ SimpleAlgebraicExtension examples See Also: o )show SimpleAlgebraicExtension -@ +\end{chunk} \pagehead{SimpleAlgebraicExtension}{SAE} \pagepic{ps/v103simplealgebraicextension.ps}{SAE}{1.00} @@ -116232,7 +116228,7 @@ o )show SimpleAlgebraicExtension \cross{SAE}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain SAE SimpleAlgebraicExtension} )abbrev domain SAE SimpleAlgebraicExtension ++ Author: Barry Trager, Manuel Bronstein, Clifton Williamson ++ Date Created: 1986 @@ -116411,17 +116407,17 @@ SimpleAlgebraicExtension(R:CommutativeRing, -- for j in 0..i)).a -- ffe.f -@ -<>= +\end{chunk} +\begin{chunk}{SAE.dotabb} "SAE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SAE"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "SAE" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SFORT SimpleFortranProgram} -<>= +\begin{chunk}{SimpleFortranProgram.input} )set break resume )sys rm -f SimpleFortranProgram.output )spool SimpleFortranProgram.output @@ -116444,8 +116440,8 @@ SimpleAlgebraicExtension(R:CommutativeRing, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SimpleFortranProgram.help} ==================================================================== SimpleFortranProgram examples ==================================================================== @@ -116453,7 +116449,7 @@ SimpleFortranProgram examples See Also: o )show SimpleFortranProgram -@ +\end{chunk} \pagehead{SimpleFortranProgram}{SFORT} \pagepic{ps/v103simplefortranprogram.ps}{SFORT}{1.00} @@ -116473,7 +116469,7 @@ o )show SimpleFortranProgram \cross{SFORT}{outputAsFortran} \end{tabular} -<>= +\begin{chunk}{domain SFORT SimpleFortranProgram} )abbrev domain SFORT SimpleFortranProgram -- Because of a bug in the compiler: )bo $noSubsumption:=true @@ -116536,20 +116532,20 @@ SimpleFortranProgram(R,FS): Exports == Implementation where dispfortexp1$Lisp "END"::OutputForm void()$Void -@ -<>= +\end{chunk} +\begin{chunk}{SFORT.dotabb} "SFORT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SFORT"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "SFORT" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SINT SingleInteger} The definition of {\bf one?} has been rewritten as it relies on calling {\bf ONEP} which is a function specific to Codemist Common Lisp but is not defined in Common Lisp. -<>= +\begin{chunk}{SingleInteger.input} )set break resume )sys rm -f SingleInteger.output )spool SingleInteger.output @@ -116645,8 +116641,8 @@ shift(31,-1)$SingleInteger --E 11 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SingleInteger.help} ==================================================================== SingleInteger examples ==================================================================== @@ -116734,7 +116730,7 @@ See Also: o )help Integer o )show SingleInteger -@ +\end{chunk} \pagehead{SingleInteger}{SINT} \pagepic{ps/v103singleinteger.ps}{SINT}{1.00} @@ -116834,7 +116830,7 @@ o )show SingleInteger \cross{SINT}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain SINT SingleInteger} )abbrev domain SINT SingleInteger -- following patch needed to deal with *:(I,%) -> % @@ -117031,19 +117027,19 @@ SingleInteger(): Join(IntegerNumberSystem,Logic,OpenMath) with )bo $noSubsets := false -@ -<>= +\end{chunk} +\begin{chunk}{SINT.dotabb} "SINT" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SINT",shape=ellipse] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "SINT" -> "PID" "SINT" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SAOS SingletonAsOrderedSet} -<>= +\begin{chunk}{SingletonAsOrderedSet.input} )set break resume )sys rm -f SingletonAsOrderedSet.output )spool SingletonAsOrderedSet.output @@ -117071,8 +117067,8 @@ SingleInteger(): Join(IntegerNumberSystem,Logic,OpenMath) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SingletonAsOrderedSet.help} ==================================================================== SingletonAsOrderedSet examples ==================================================================== @@ -117080,7 +117076,7 @@ SingletonAsOrderedSet examples See Also: o )show SingletonAsOrderedSet -@ +\end{chunk} \pagehead{SingletonAsOrderedSet}{SAOS} \pagepic{ps/v103singletonasorderedset.ps}{SAOS}{1.00} @@ -117102,7 +117098,7 @@ o )show SingletonAsOrderedSet \cross{SAOS}{?$>=$?} && \end{tabular} -<>= +\begin{chunk}{domain SAOS SingletonAsOrderedSet} )abbrev domain SAOS SingletonAsOrderedSet ++ Author: Mark Botch ++ Description: @@ -117121,17 +117117,17 @@ SingletonAsOrderedSet(): OrderedSet with max(a,b) == a -- only one element convert a == coerce("?") -@ -<>= +\end{chunk} +\begin{chunk}{SAOS.dotabb} "SAOS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SAOS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SAOS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SMP SparseMultivariatePolynomial} -<>= +\begin{chunk}{SparseMultivariatePolynomial.input} )set break resume )sys rm -f SparseMultivariatePolynomial.output )spool SparseMultivariatePolynomial.output @@ -117267,8 +117263,8 @@ SingletonAsOrderedSet(): OrderedSet with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseMultivariatePolynomial.help} ==================================================================== SparseMultivariatePolynomial examples ==================================================================== @@ -117276,7 +117272,7 @@ SparseMultivariatePolynomial examples See Also: o )show SparseMultivariatePolynomial -@ +\end{chunk} \pagehead{SparseMultivariatePolynomial}{SMP} \pagepic{ps/v103sparsemultivariatepolynomial.ps}{SMP}{1.00} @@ -117372,7 +117368,7 @@ o )show SparseMultivariatePolynomial \cross{SMP}{?$>=$?} & \end{tabular} -<>= +\begin{chunk}{domain SMP SparseMultivariatePolynomial} )abbrev domain SMP SparseMultivariatePolynomial ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -117950,17 +117946,17 @@ SparseMultivariatePolynomial(R: Ring,VarSet: OrderedSet): C == T where -- p1.v > p2.v => gcd(content(p1.ts), p2) -- PSimp(p1.v, gcd(p1.ts, p2.ts)) -@ -<>= +\end{chunk} +\begin{chunk}{SMP.dotabb} "SMP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SMTS SparseMultivariateTaylorSeries} -<>= +\begin{chunk}{SparseMultivariateTaylorSeries.input} )set break resume )sys rm -f SparseMultivariateTaylorSeries.output )spool SparseMultivariateTaylorSeries.output @@ -118094,8 +118090,8 @@ polynomial(t2,5) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseMultivariateTaylorSeries.help} ==================================================================== SparseMultivariateTaylorSeries examples ==================================================================== @@ -118200,7 +118196,7 @@ See Also: o )show SparseMultivariateTaylorSeries o )display op coefficient -@ +\end{chunk} \pagehead{SparseMultivariateTaylorSeries}{SMTS} \pagepic{ps/v103sparsemultivariatetaylorseries.ps}{SMTS}{1.00} {\bf See}\\ @@ -118284,7 +118280,7 @@ o )display op coefficient \cross{SMTS}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain SMTS SparseMultivariateTaylorSeries} )abbrev domain SMTS SparseMultivariateTaylorSeries ++ Authors: William Burge, Stephen Watt, Clifton Williamson ++ Date Created: 15 August 1988 @@ -118566,17 +118562,17 @@ SparseMultivariateTaylorSeries(Coef,Var,SMP):_ p:% / r:Coef == (map((z1:SMP):SMP +-> z1/$SMP r,stream p)$SF2(SMP,SMP)) pretend % -@ -<>= +\end{chunk} +\begin{chunk}{SMTS.dotabb} "SMTS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SMTS"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SMTS" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STBL SparseTable} -<>= +\begin{chunk}{SparseTable.input} )set break resume )sys rm -f SparseTable.output )spool SparseTable.output @@ -118640,8 +118636,8 @@ entries t --E 7 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseTable.help} ==================================================================== SparseTable examples ==================================================================== @@ -118697,7 +118693,7 @@ o )help Table o )help GeneralSparseTable o )show SparseTable -@ +\end{chunk} \pagehead{SparseTable}{STBL} \pagepic{ps/v103sparsetable.ps}{STBL}{1.00} {\bf See}\\ @@ -118767,7 +118763,7 @@ o )show SparseTable \cross{STBL}{?.?} \end{tabular} -<>= +\begin{chunk}{domain STBL SparseTable} )abbrev domain STBL SparseTable ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -118786,17 +118782,17 @@ o )show SparseTable SparseTable(Key:SetCategory, Ent:SetCategory, dent:Ent) == GeneralSparseTable(Key, Ent, Table(Key, Ent), dent) -@ -<>= +\end{chunk} +\begin{chunk}{STBL.dotabb} "STBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "STBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SULS SparseUnivariateLaurentSeries} -<>= +\begin{chunk}{SparseUnivariateLaurentSeries.input} )set break resume )sys rm -f SparseUnivariateLaurentSeries.output )spool SparseUnivariateLaurentSeries.output @@ -119004,8 +119000,8 @@ SparseTable(Key:SetCategory, Ent:SetCategory, dent:Ent) == )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariateLaurentSeries.help} ==================================================================== SparseUnivariateLaurentSeries examples ==================================================================== @@ -119013,7 +119009,7 @@ SparseUnivariateLaurentSeries examples See Also: o )show SparseUnivariateLaurentSeries -@ +\end{chunk} \pagehead{SparseUnivariateLaurentSeries}{SULS} \pagepic{ps/v103sparseunivariatelaurentseries.ps}{SULS}{1.00} @@ -119158,7 +119154,7 @@ o )show SparseUnivariateLaurentSeries \cross{SULS}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain SULS SparseUnivariateLaurentSeries} )abbrev domain SULS SparseUnivariateLaurentSeries ++ Author: Clifton J. Williamson ++ Date Created: 11 November 1994 @@ -119354,17 +119350,17 @@ SparseUnivariateLaurentSeries(Coef,var,cen): Exports == Implementation where extend(uls,degr) seriesToOutputForm(st,getRef uls,variable uls,center uls,1) -@ -<>= +\end{chunk} +\begin{chunk}{SULS.dotabb} "SULS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SULS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "SULS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUP SparseUnivariatePolynomial} -<>= +\begin{chunk}{SparseUnivariatePolynomial.input} )set break resume )sys rm -f SparseUnivariatePolynomial.output )spool SparseUnivariatePolynomial.output @@ -119556,8 +119552,8 @@ SparseUnivariateLaurentSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariatePolynomial.help} ==================================================================== SparseUnivariatePolynomial examples ==================================================================== @@ -119565,7 +119561,7 @@ SparseUnivariatePolynomial examples See Also: o )show SparseUnivariatePolynomial -@ +\end{chunk} \pagehead{SparseUnivariatePolynomial}{SUP} \pagepic{ps/v103sparseunivariatepolynomial.ps}{SUP}{1.00} @@ -119694,7 +119690,7 @@ o )show SparseUnivariatePolynomial \cross{SUP}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain SUP SparseUnivariatePolynomial} )abbrev domain SUP SparseUnivariatePolynomial ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -120042,13 +120038,13 @@ SparseUnivariatePolynomial(R:Ring): UnivariatePolynomialCategory(R) with p / co == inv(co) * p -@ -<>= +\end{chunk} +\begin{chunk}{SUP.dotabb} "SUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SUP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUPEXPR SparseUnivariatePolynomialExpressions} @@ -120058,7 +120054,7 @@ domain, as long as the polynomials can be retracted to that domain, i.e., as long as they are just constants. I don't see another way to do this, unfortunately. -<>= +\begin{chunk}{SparseUnivariatePolynomialExpressions.input} )set break resume )sys rm -f SparseUnivariatePolynomialExpressions.output )spool SparseUnivariatePolynomialExpressions.output @@ -120275,8 +120271,8 @@ unfortunately. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariatePolynomialExpressions.help} ==================================================================== SparseUnivariatePolynomialExpressions examples ==================================================================== @@ -120284,7 +120280,7 @@ SparseUnivariatePolynomialExpressions examples See Also: o )show SparseUnivariatePolynomialExpressions -@ +\end{chunk} \pagehead{SparseUnivariatePolynomialExpressions}{SUPEXPR} @@ -120433,7 +120429,7 @@ o )show SparseUnivariatePolynomialExpressions \cross{SUPEXPR}{?rem?} && \end{tabular} -<>= +\begin{chunk}{domain SUPEXPR SparseUnivariatePolynomialExpressions} )abbrev domain SUPEXPR SparseUnivariatePolynomialExpressions ++ Author: Mark Botch ++ Description: @@ -120474,17 +120470,17 @@ SparseUnivariatePolynomialExpressions(R: Ring): Exports == Implementation where ground? p => coerce acos ground p output(hconcat("acos p for p= ", p::OutputForm))$OutputPackage error "SUPTRAFUN: acos only defined for elements of the coefficient ring" -@ -<>= +\end{chunk} +\begin{chunk}{SUPEXPR.dotabb} "SUPEXPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUPEXPR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SUPEXPR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUPXS SparseUnivariatePuiseuxSeries} -<>= +\begin{chunk}{SparseUnivariatePuiseuxSeries.input} )set break resume )sys rm -f SparseUnivariatePuiseuxSeries.output )spool SparseUnivariatePuiseuxSeries.output @@ -120637,8 +120633,8 @@ SparseUnivariatePolynomialExpressions(R: Ring): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariatePuiseuxSeries.help} ==================================================================== SparseUnivariatePuiseuxSeries examples ==================================================================== @@ -120646,7 +120642,7 @@ SparseUnivariatePuiseuxSeries examples See Also: o )show SparseUnivariatePuiseuxSeries -@ +\end{chunk} \pagehead{SparseUnivariatePuiseuxSeries}{SUPXS} \pagepic{ps/v103sparseunivariatepuiseuxseries.ps}{SUPXS}{1.00} @@ -120759,7 +120755,7 @@ o )show SparseUnivariatePuiseuxSeries \cross{SUPXS}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain SUPXS SparseUnivariatePuiseuxSeries} )abbrev domain SUPXS SparseUnivariatePuiseuxSeries ++ Author: Clifton J. Williamson ++ Date Created: 11 November 1994 @@ -120847,17 +120843,17 @@ SparseUnivariatePuiseuxSeries(Coef,var,cen): Exports == Implementation where extend(sups,degr) seriesToOutputForm(st,refer,variable x,center x,rationalPower x) -@ -<>= +\end{chunk} +\begin{chunk}{SUPXS.dotabb} "SUPXS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUPXS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "SUPXS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ORESUP SparseUnivariateSkewPolynomial} -<>= +\begin{chunk}{SparseUnivariateSkewPolynomial.input} )set break resume )sys rm -f SparseUnivariateSkewPolynomial.output )spool SparseUnivariateSkewPolynomial.output @@ -120927,8 +120923,8 @@ SparseUnivariatePuiseuxSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariateSkewPolynomial.help} ==================================================================== SparseUnivariateSkewPolynomial examples ==================================================================== @@ -120936,7 +120932,7 @@ SparseUnivariateSkewPolynomial examples See Also: o )show SparseUnivariateSkewPolynomial -@ +\end{chunk} \pagehead{SparseUnivariateSkewPolynomial}{ORESUP} \pagepic{ps/v103sparseunivariateskewpolynomial.ps}{ORESUP}{1.00} @@ -120997,7 +120993,7 @@ o )show SparseUnivariateSkewPolynomial \cross{ORESUP}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain ORESUP SparseUnivariateSkewPolynomial} )abbrev domain ORESUP SparseUnivariateSkewPolynomial ++ Author: Manuel Bronstein ++ Date Created: 19 October 1993 @@ -121026,17 +121022,17 @@ SparseUnivariateSkewPolynomial(R:Ring, sigma:Automorphism R, delta: R -> R): leftDivide(a, b) == leftDivide(a, b, sigma) rightDivide(a, b) == rightDivide(a, b, sigma) -@ -<>= +\end{chunk} +\begin{chunk}{ORESUP.dotabb} "ORESUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ORESUP"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "ORESUP" -> "OREPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUTS SparseUnivariateTaylorSeries} -<>= +\begin{chunk}{SparseUnivariateTaylorSeries.input} )set break resume )sys rm -f SparseUnivariateTaylorSeries.output )spool SparseUnivariateTaylorSeries.output @@ -121162,8 +121158,8 @@ SparseUnivariateSkewPolynomial(R:Ring, sigma:Automorphism R, delta: R -> R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SparseUnivariateTaylorSeries.help} ==================================================================== SparseUnivariateTaylorSeries examples ==================================================================== @@ -121171,7 +121167,7 @@ SparseUnivariateTaylorSeries examples See Also: o )show SparseUnivariateTaylorSeries -@ +\end{chunk} \pagehead{SparseUnivariateTaylorSeries}{SUTS} \pagepic{ps/v103sparseunivariatetaylorseries.ps}{SUTS}{1.00} @@ -121267,7 +121263,7 @@ o )show SparseUnivariateTaylorSeries \cross{SUTS}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain SUTS SparseUnivariateTaylorSeries} )abbrev domain SUTS SparseUnivariateTaylorSeries ++ Author: Clifton J. Williamson ++ Date Created: 16 February 1990 @@ -121652,17 +121648,17 @@ SparseUnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where extend(x,count) seriesToOutputForm(getStream x,getRef x,variable x,center x,1) -@ -<>= +\end{chunk} +\begin{chunk}{SUTS.dotabb} "SUTS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUTS"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "SUTS" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SHDP SplitHomogeneousDirectProduct} -<>= +\begin{chunk}{SplitHomogeneousDirectProduct.input} )set break resume )sys rm -f SplitHomogeneousDirectProduct.output )spool SplitHomogeneousDirectProduct.output @@ -121786,8 +121782,8 @@ SparseUnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SplitHomogeneousDirectProduct.help} ==================================================================== SplitHomogeneousDirectProduct examples ==================================================================== @@ -121795,7 +121791,7 @@ SplitHomogeneousDirectProduct examples See Also: o )show SplitHomogeneousDirectProduct -@ +\end{chunk} \pagehead{SplitHomogeneousDirectProduct}{SHDP} \pagepic{ps/v103splithomogeneousdirectproduct.ps}{SHDP}{1.00} @@ -121882,7 +121878,7 @@ o )show SplitHomogeneousDirectProduct \cross{SHDP}{?.?} \end{tabular} -<>= +\begin{chunk}{domain SHDP SplitHomogeneousDirectProduct} )abbrev domain SHDP SplitHomogeneousDirectProduct ++ Author: Mark Botch ++ Date Created: @@ -121930,17 +121926,17 @@ SplitHomogeneousDirectProduct(dimtot,dim1,S) : T == C where if qelt(v1,i) ^= qelt(v2,i) then return false lessThanRlex(v1,v2,dim1+1,dimtot) -@ -<>= +\end{chunk} +\begin{chunk}{SHDP.dotabb} "SHDP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SHDP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "SHDP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SPLNODE SplittingNode} -<>= +\begin{chunk}{SplittingNode.input} )set break resume )sys rm -f SplittingNode.output )spool SplittingNode.output @@ -121974,8 +121970,8 @@ SplitHomogeneousDirectProduct(dimtot,dim1,S) : T == C where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SplittingNode.help} ==================================================================== SplittingNode examples ==================================================================== @@ -121983,7 +121979,7 @@ SplittingNode examples See Also: o )show SplittingNode -@ +\end{chunk} \pagehead{SplittingNode}{SPLNODE} \pagepic{ps/v103splittingnode.ps}{SPLNODE}{1.00} @@ -122012,7 +122008,7 @@ o )show SplittingNode \cross{SPLNODE}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain SPLNODE SplittingNode} )abbrev domain SPLNODE SplittingNode ++ Author: Marc Moereno Maza ++ Date Created: 07/05/1996 @@ -122162,8 +122158,8 @@ SplittingNode(V,C) : Exports == Implementation where l := [o1,o2,o3] bracket commaSeparate l -@ -<>= +\end{chunk} +\begin{chunk}{SPLNODE.dotabb} "SPLNODE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SPLNODE"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] @@ -122172,11 +122168,11 @@ SplittingNode(V,C) : Exports == Implementation where "SPLNODE" -> "KOERCE" "SPLNODE" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SPLTREE SplittingTree} -<>= +\begin{chunk}{SplittingTree.input} )set break resume )sys rm -f SplittingTree.output )spool SplittingTree.output @@ -122244,8 +122240,8 @@ SplittingNode(V,C) : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SplittingTree.help} ==================================================================== SplittingTree examples ==================================================================== @@ -122253,7 +122249,7 @@ SplittingTree examples See Also: o )show SplittingTree -@ +\end{chunk} \pagehead{SplittingTree}{SPLTREE} \pagepic{ps/v103splittingtree.ps}{SPLTREE}{1.00} @@ -122311,7 +122307,7 @@ o )show SplittingTree \cross{SPLTREE}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain SPLTREE SplittingTree} )abbrev domain SPLTREE SplittingTree ++ Author: Marc Moereno Maza ++ Date Created: 07/05/1996 @@ -122617,17 +122613,17 @@ SplittingTree(V,C) : Exports == Implementation where if empty? la then (rep l).root := [empty()$V,empty()$C,true]$S updateStatus!(a) -@ -<>= +\end{chunk} +\begin{chunk}{SPLTREE.dotabb} "SPLTREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SPLTREE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "SPLTREE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SREGSET SquareFreeRegularTriangularSet} -<>= +\begin{chunk}{SquareFreeRegularTriangularSet.input} )set break resume )sys rm -f SquareFreeRegularTriangularSet.output )spool SquareFreeRegularTriangularSet.output @@ -122847,8 +122843,8 @@ toseSquareFreePart(pol,tower)$pack --E 23 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SquareFreeRegularTriangularSet.help} ==================================================================== SquareFreeRegularTriangularSet examples ==================================================================== @@ -123097,7 +123093,7 @@ o )help LazardSetSolvingPackage o )help RegularTriangularSet o )show SquareFreeRegularTriangularSet -@ +\end{chunk} \pagehead{SquareFreeRegularTriangularSet}{SREGSET} \pagepic{ps/v103squarefreeregulartriangularset.ps}{SREGSET}{1.00} @@ -123198,7 +123194,7 @@ o )show SquareFreeRegularTriangularSet \cross{SREGSET}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain SREGSET SquareFreeRegularTriangularSet} )abbrev domain SREGSET SquareFreeRegularTriangularSet ++ Author: Marc Moreno Maza ++ Date Created: 08/25/1998 @@ -123593,17 +123589,17 @@ SquareFreeRegularTriangularSet(R,E,V,P) : Exports == Implementation where lp2 := [] return [lp2,lts] -@ -<>= +\end{chunk} +\begin{chunk}{SREGSET.dotabb} "SREGSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SREGSET"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "SREGSET" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SQMATRIX SquareMatrix} -<>= +\begin{chunk}{SquareMatrix.input} )set break resume )sys rm -f SquareMatrix.output )spool SquareMatrix.output @@ -123673,8 +123669,8 @@ p::SquareMatrix(2, ?) --E 6 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SquareMatrix.help} ==================================================================== SquareMatrix examples ==================================================================== @@ -123746,7 +123742,7 @@ See Also: o )help Matrix o )show SquareMatrix -@ +\end{chunk} \pagehead{SquareMatrix}{SQMATRIX} \pagepic{ps/v103squarematrix.ps}{SQMATRIX}{1.00} {\bf See}\\ @@ -123832,7 +123828,7 @@ o )show SquareMatrix \cross{SQMATRIX}{?/?} & \end{tabular} -<>= +\begin{chunk}{domain SQMATRIX SquareMatrix} )abbrev domain SQMATRIX SquareMatrix ++ Author: Grabmeier, Gschnitzer, Williamson ++ Date Created: 1987 @@ -123970,17 +123966,17 @@ SquareMatrix(ndim,R): Exports == Implementation where convert(x::Matrix(R))]$List(InputForm) -@ -<>= +\end{chunk} +\begin{chunk}{SQMATRIX.dotabb} "SQMATRIX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SQMATRIX"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SQMATRIX" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STACK Stack} -<>= +\begin{chunk}{Stack.input} )set break resume )sys rm -f Stack.output )spool Stack.output @@ -124334,8 +124330,8 @@ latex a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Stack.help} ==================================================================== Stack examples ==================================================================== @@ -124563,7 +124559,7 @@ o )show Dequeue o )show Heap o )show BagAggregate -@ +\end{chunk} \pagehead{Stack}{STACK} \pagepic{ps/v103stack.ps}{STACK}{1.00} {\bf See}\\ @@ -124608,7 +124604,7 @@ o )show BagAggregate \cross{STACK}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain STACK Stack} )abbrev domain STACK Stack ++ Author: Michael Monagan, Stephen Watt, Timothy Daly ++ Date Created:June 86 and July 87 @@ -124794,17 +124790,17 @@ Stack(S:SetCategory): StackAggregate S with map(f,s) == ref map(f,deref s) map!(f,s) == ref map!(f,deref s) -@ -<>= +\end{chunk} +\begin{chunk}{STACK.dotabb} "STACK" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STACK"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "STACK" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SD StochasticDifferential} -<>= +\begin{chunk}{StochasticDifferential.input} )set break resume )sys rm -f StochasticDifferential.output )spool StochasticDifferential.output @@ -124938,8 +124934,8 @@ statusIto() )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StochasticDifferential.help} ==================================================================== StochasticDifferential examples ==================================================================== @@ -125020,7 +125016,7 @@ See Also: o )help BasicStochasticDifferential o )show StochasticDifferential -@ +\end{chunk} \pagehead{StochasticDifferential}{SD} \pagepic{ps/v103stochasticdifferential.ps}{SD}{1.00} {\bf See}\\ @@ -125060,7 +125056,7 @@ o )show StochasticDifferential \cross{SD}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain SD StochasticDifferential} )abbrev domain SD StochasticDifferential ++ Author: Wilfrid S. Kendall ++ Last Last Updated: July 26, 1999 @@ -125283,17 +125279,17 @@ StochasticDifferential(R:Join(OrderedSet, IntegralDomain)): (0$Integer = # ll) => true (1 = # ll) => true uncorrelated1?(first ll,rest ll) and uncorrelated?(rest ll) -@ -<>= +\end{chunk} +\begin{chunk}{SD.dotabb} "SD" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SD"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "SD" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STREAM Stream} -<>= +\begin{chunk}{Stream.input} )set break resume )sys rm -f Stream.output )spool Stream.output @@ -125394,8 +125390,8 @@ fibs 20 --E 12 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Stream.help} ==================================================================== Stream examples ==================================================================== @@ -125474,7 +125470,7 @@ o )help StreamFunctions2 o )help StreamFunctions3 o )show Stream -@ +\end{chunk} \pagehead{Stream}{STREAM} \pagepic{ps/v103stream.ps}{STREAM}{1.00} @@ -125585,7 +125581,7 @@ o )show Stream \cross{STREAM}{?.value} && \end{tabular} -<>= +\begin{chunk}{domain STREAM Stream} )abbrev domain STREAM Stream ++ Implementation of streams via lazy evaluation ++ Authors: Burge, Watt; updated by Clifton J. Williamson @@ -126232,17 +126228,17 @@ Stream(S): Exports == Implementation where -- p(f(#1,frst y),x) -- mapp(f,x,y,a) -@ -<>= +\end{chunk} +\begin{chunk}{STREAM.dotabb} "STREAM" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STREAM"] "LZSTAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LZSTAGG"] "STREAM" -> "LZSTAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STRING String} -<>= +\begin{chunk}{String.input} )set break resume )sys rm -f String.output )spool String.output @@ -126528,8 +126524,8 @@ position(hexDigit(), "underground", 1) --E 35 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{String.help} ==================================================================== String examples ==================================================================== @@ -126745,7 +126741,7 @@ o )help Character o )help CharacterClass o )show String -@ +\end{chunk} \pagehead{String}{STRING} \pagepic{ps/v103string.ps}{STRING}{1.00} {\bf See}\\ @@ -126834,7 +126830,7 @@ o )show String \cross{STRING}{?$>=$?} &&& \end{tabular} -<>= +\begin{chunk}{domain STRING String} )abbrev domain STRING String ++ Author: Mark Botch ++ Description: @@ -126879,17 +126875,17 @@ String(): StringCategory == IndexedString(1) add if wholeObj then OMputEndObject(dev) -@ -<>= +\end{chunk} +\begin{chunk}{STRING.dotabb} "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "STRICAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=STRICAT"] "STRING" -> "STRICAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain STRTBL StringTable} -<>= +\begin{chunk}{StringTable.input} )set break resume )sys rm -f StringTable.output )spool StringTable.output @@ -126924,8 +126920,8 @@ for key in keys t repeat output [key, t.key] --E 3 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StringTable.help} ==================================================================== StringTable examples ==================================================================== @@ -126960,7 +126956,7 @@ See Also: o )help Table o )show StringTable -@ +\end{chunk} \pagehead{StringTable}{STRTBL} \pagepic{ps/v103stringtable.ps}{STRTBL}{1.00} {\bf See}\\ @@ -127030,7 +127026,7 @@ o )show StringTable \cross{STRTBL}{?.?} \end{tabular} -<>= +\begin{chunk}{domain STRTBL StringTable} )abbrev domain STRTBL StringTable ++ Author: Stephen M. Watt ++ Date Created: @@ -127049,13 +127045,13 @@ o )show StringTable StringTable(Entry: SetCategory) == HashTable(String, Entry, "CVEC") -@ -<>= +\end{chunk} +\begin{chunk}{STRTBL.dotabb} "STRTBL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRTBL"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "STRTBL" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUBSPACE SubSpace} @@ -127106,7 +127102,7 @@ The subspace s would now have a new component which has one child which, in turn, has one child (the leaf). The new component is then a point. -<>= +\begin{chunk}{SubSpace.input} )set break resume )sys rm -f SubSpace.output )spool SubSpace.output @@ -127153,8 +127149,8 @@ point. )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SubSpace.help} ==================================================================== SubSpace examples ==================================================================== @@ -127162,7 +127158,7 @@ SubSpace examples See Also: o )show SubSpace -@ +\end{chunk} \pagehead{SubSpace}{SUBSPACE} \pagepic{ps/v103subspace.ps}{SUBSPACE}{1.00} @@ -127207,7 +127203,7 @@ o )show SubSpace \cross{SUBSPACE}{?=?} && \end{tabular} -<>= +\begin{chunk}{domain SUBSPACE SubSpace} )abbrev domain SUBSPACE SubSpace ++ Author: Mark Botch ++ Description: @@ -127627,17 +127623,17 @@ SubSpace(n:PI,R:Ring) : Exports == Implementation where (n - space.levelField)::O," and "::O,(s:=(#space.childrenField))::O, _ (s=1 => " component"::O;" components"::O)]) -@ -<>= +\end{chunk} +\begin{chunk}{SUBSPACE.dotabb} "SUBSPACE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUBSPACE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "SUBSPACE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain COMPPROP SubSpaceComponentProperty} -<>= +\begin{chunk}{SubSpaceComponentProperty.input} )set break resume )sys rm -f SubSpaceComponentProperty.output )spool SubSpaceComponentProperty.output @@ -127664,8 +127660,8 @@ SubSpace(n:PI,R:Ring) : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SubSpaceComponentProperty.help} ==================================================================== SubSpaceComponentProperty examples ==================================================================== @@ -127673,7 +127669,7 @@ SubSpaceComponentProperty examples See Also: o )show SubSpaceComponentProperty -@ +\end{chunk} \pagehead{SubSpaceComponentProperty}{COMPPROP} \pagepic{ps/v103subspacecomponentproperty.ps}{COMPPROP}{1.00} @@ -127696,7 +127692,7 @@ o )show SubSpaceComponentProperty \cross{COMPPROP}{?=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain COMPPROP SubSpaceComponentProperty} )abbrev domain COMPPROP SubSpaceComponentProperty ++ Author: Mark Botch ++ Description: @@ -127742,19 +127738,19 @@ SubSpaceComponentProperty() : Exports == Implementation where (closed? p => ""::O; "not "::O),"closed, "::O, _ (solid? p => ""::O; "not "::O),"solid"::O ]) -@ -<>= +\end{chunk} +\begin{chunk}{COMPPROP.dotabb} "COMPPROP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=COMPPROP"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "COMPPROP" -> "BASTYPE" "COMPPROP" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SUCH SuchThat} -<>= +\begin{chunk}{SuchThat.input} )set break resume )sys rm -f SuchThat.output )spool SuchThat.output @@ -127779,8 +127775,8 @@ SubSpaceComponentProperty() : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SuchThat.help} ==================================================================== SuchThat examples ==================================================================== @@ -127788,7 +127784,7 @@ SuchThat examples See Also: o )show SuchThat -@ +\end{chunk} \pagehead{SuchThat}{SUCH} \pagepic{ps/v103suchthat.ps}{SUCH}{1.00} @@ -127805,7 +127801,7 @@ o )show SuchThat \cross{SUCH}{?\~{}=?} && \end{tabular} -<>= +\begin{chunk}{domain SUCH SuchThat} )abbrev domain SUCH SuchThat ++ Author: Mark Botch ++ Description: @@ -127830,19 +127826,19 @@ SuchThat(S1, S2): Cat == Capsule where rhs st == st.cond coerce(w):E == infix("|"::E, w.obj::E, w.cond::E) -@ -<>= +\end{chunk} +\begin{chunk}{SUCH.dotabb} "SUCH" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SUCH"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "SUCH" -> "BASTYPE" "SUCH" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SWITCH Switch} -<>= +\begin{chunk}{Switch.input} )set break resume )sys rm -f Switch.output )spool Switch.output @@ -127873,8 +127869,8 @@ SuchThat(S1, S2): Cat == Capsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Switch.help} ==================================================================== Switch examples ==================================================================== @@ -127882,7 +127878,7 @@ Switch examples See Also: o )show Switch -@ +\end{chunk} \pagehead{Switch}{SWITCH} \pagepic{ps/v103switch.ps}{SWITCH}{1.00} @@ -127908,7 +127904,7 @@ o )show Switch \cross{SWITCH}{OR} \end{tabular} -<>= +\begin{chunk}{domain SWITCH Switch} )abbrev domain SWITCH Switch -- Because of a bug in the compiler: )bo $noSubsumption:=false @@ -127996,17 +127992,17 @@ Switch():public == private where EQ(r1:EXPR,r2:EXPR):% == [operator("EQ"::Symbol),[r1,r2]$List(EXPR)]$Rep -@ -<>= +\end{chunk} +\begin{chunk}{SWITCH.dotabb} "SWITCH" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SWITCH"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SWITCH" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SYMBOL Symbol} -<>= +\begin{chunk}{Symbol.input} )set break resume )sys rm -f Symbol.output )spool Symbol.output @@ -128214,8 +128210,8 @@ scripts N --E 24 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Symbol.help} ==================================================================== Symbol examples ==================================================================== @@ -128386,7 +128382,7 @@ If trailing lists of scripts are omitted, they are assumed to be empty. See Also: o )show Symbol -@ +\end{chunk} \pagehead{Symbol}{SYMBOL} \pagepic{ps/v103symbol.ps}{SYMBOL}{1.00} @@ -128421,7 +128417,7 @@ o )show Symbol \cross{SYMBOL}{?$>=$?} &&& \end{tabular} -<>= +\begin{chunk}{domain SYMBOL Symbol} )abbrev domain SYMBOL Symbol ++ Author: Stephen Watt ++ Date Created: 1986 @@ -128730,18 +128726,18 @@ Symbol(): Exports == Implementation where sample() == "aSymbol"::% -@ -<>= +\end{chunk} +\begin{chunk}{SYMBOL.dotabb} "SYMBOL" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SYMBOL", shape=ellipse] "STRICAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=STRICAT"] "SYMBOL" -> "STRICAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SYMTAB SymbolTable} -<>= +\begin{chunk}{SymbolTable.input} )set break resume )sys rm -f SymbolTable.output )spool SymbolTable.output @@ -128772,8 +128768,8 @@ Symbol(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SymbolTable.help} ==================================================================== SymbolTable examples ==================================================================== @@ -128781,7 +128777,7 @@ SymbolTable examples See Also: o )show SymbolTable -@ +\end{chunk} \pagehead{SymbolTable}{SYMTAB} \pagepic{ps/v103symboltable.ps}{SYMTAB}{1.00} @@ -128805,7 +128801,7 @@ o )show SymbolTable \cross{SYMTAB}{typeLists} &&&& \end{tabular} -<>= +\begin{chunk}{domain SYMTAB SymbolTable} )abbrev domain SYMTAB SymbolTable ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -128987,17 +128983,17 @@ SymbolTable() : exports == implementation where fortFormatTypes("EXTERNAL"::OFORM,el)$Lisp void()$Void -@ -<>= +\end{chunk} +\begin{chunk}{SYMTAB.dotabb} "SYMTAB" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SYMTAB"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SYMTAB" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SYMPOLY SymmetricPolynomial} -<>= +\begin{chunk}{SymmetricPolynomial.input} )set break resume )sys rm -f SymmetricPolynomial.output )spool SymmetricPolynomial.output @@ -129065,8 +129061,8 @@ SymbolTable() : exports == implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{SymmetricPolynomial.help} ==================================================================== SymmetricPolynomial examples ==================================================================== @@ -129074,7 +129070,7 @@ SymmetricPolynomial examples See Also: o )show SymmetricPolynomial -@ +\end{chunk} \pagehead{SymmetricPolynomial}{SYMPOLY} \pagepic{ps/v103symmetricpolynomial.ps}{SYMPOLY}{1.00} @@ -129133,7 +129129,7 @@ o )show SymmetricPolynomial \cross{SYMPOLY}{?=?} &&& \end{tabular} -<>= +\begin{chunk}{domain SYMPOLY SymmetricPolynomial} )abbrev domain SYMPOLY SymmetricPolynomial ++ Author: Mark Botch ++ Description: @@ -129168,19 +129164,19 @@ SymmetricPolynomial(R:Ring) == PolynomialRing(R,Partition) add -- This 'reverse' is an efficiency improvement: -- reduces both time and space [Abbott/Bradford/Davenport] -@ -<>= +\end{chunk} +\begin{chunk}{SYMPOLY.dotabb} "SYMPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SYMPOLY"] "FAMR" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAMR"] "SYMPOLY" -> "FAMR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter T} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TABLE Table} -<>= +\begin{chunk}{Table.input} )set break resume )sys rm -f Table.output )spool Table.output @@ -129333,8 +129329,8 @@ count(s: String +-> prefix?("Hard", s), t) --E 18 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Table.help} ==================================================================== Table examples ==================================================================== @@ -129480,7 +129476,7 @@ o )help GeneralSparseTable o )help KeyedAccessFile o )show Table -@ +\end{chunk} \pagehead{Table}{TABLE} \pagepic{ps/v103table.ps}{TABLE}{1.00} {\bf See}\\ @@ -129552,7 +129548,7 @@ o )show Table \cross{TABLE}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain TABLE Table} )abbrev domain TABLE Table ++ Author: Stephen M. Watt, Barry Trager ++ Date Created: 1985 @@ -129579,17 +129575,17 @@ Table(Key: SetCategory, Entry: SetCategory):Exports == Implementation where if hashable(Key)$Lisp then HashTable(Key, Entry, "UEQUAL") else AssociationList(Key, Entry)) -@ -<>= +\end{chunk} +\begin{chunk}{TABLE.dotabb} "TABLE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TABLE"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "TABLE" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TABLEAU Tableau} -<>= +\begin{chunk}{Tableau.input} )set break resume )sys rm -f Tableau.output )spool Tableau.output @@ -129612,8 +129608,8 @@ Table(Key: SetCategory, Entry: SetCategory):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Tableau.help} ==================================================================== Tableau examples ==================================================================== @@ -129621,7 +129617,7 @@ Tableau examples See Also: o )show Tableau -@ +\end{chunk} \pagehead{Tableau}{TABLEAU} \pagepic{ps/v103tableau.ps}{TABLEAU}{1.00} @@ -129633,7 +129629,7 @@ o )show Tableau \cross{TABLEAU}{tableau} \end{tabular} -<>= +\begin{chunk}{domain TABLEAU Tableau} )abbrev domain TABLEAU Tableau ++ Author: William H. Burge ++ Date Created: 1987 @@ -129683,17 +129679,17 @@ Tableau(S:SetCategory):Exports == Implementation where coerce(x:%):OUT == maketab listOfLists x -@ -<>= +\end{chunk} +\begin{chunk}{TABLEAU.dotabb} "TABLEAU" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TABLEAU"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "TABLEAU" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TS TaylorSeries} -<>= +\begin{chunk}{TaylorSeries.input} )set break resume )sys rm -f TaylorSeries.output )spool TaylorSeries.output @@ -129806,8 +129802,8 @@ Tableau(S:SetCategory):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TaylorSeries.help} ==================================================================== TaylorSeries examples ==================================================================== @@ -129815,7 +129811,7 @@ TaylorSeries examples See Also: o )show TaylorSeries -@ +\end{chunk} \pagehead{TaylorSeries}{TS} \pagepic{ps/v103taylorseries.ps}{TS}{1.00} @@ -129900,7 +129896,7 @@ o )show TaylorSeries \cross{TS}{?/?} & \end{tabular} -<>= +\begin{chunk}{domain TS TaylorSeries} )abbrev domain TS TaylorSeries ++ Authors: Burge, Watt, Williamson ++ Date Created: 15 August 1988 @@ -129951,15 +129947,15 @@ TaylorSeries(Coef): Exports == Implementation where s:= rst s sum -@ -<>= +\end{chunk} +\begin{chunk}{TS.dotabb} "TS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TS"] "TRANFUN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TRANFUN"] "PSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PSCAT"] "TS" -> "PSCAT" "TS" -> "TRANFUN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TEX TexFormat} \subsection{product(product(i*j,i=a..b),j=c..d) fix} @@ -129988,15 +129984,15 @@ The code used to read plexPrecs : L I := [ 700, 800, 700, 700]$(L I) \end{verbatim} it now reads: -<>= +\begin{chunk}{product(product(i*j,i=a..b),j=c..d) fix} plexOps : L S := ["SIGMA","SIGMA2","PI","PI2","INTSIGN","INDEFINTEGRAL"]$(L S) plexPrecs : L I := [ 700, 800, 700, 800 , 700, 700]$(L I) -@ +\end{chunk} in addition we need to add a line defining [[PI2]] in [[formatPlex]]: -<>= +\begin{chunk}{define PI2} op = "PI2" => "\prod" -@ -<>= +\end{chunk} +\begin{chunk}{TexFormat.input} )set break resume )sys rm -f TexFormat.output )spool TexFormat.output @@ -130116,8 +130112,8 @@ in addition we need to add a line defining [[PI2]] in [[formatPlex]]: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TexFormat.help} ==================================================================== TexFormat examples ==================================================================== @@ -130158,7 +130154,7 @@ We can change the fraction display so it is horizontal: See Also: o )show TexFormat -@ +\end{chunk} \pagehead{TexFormat}{TEX} \pagepic{ps/v103texformat.ps}{TEX}{1.00} @@ -130181,7 +130177,7 @@ o )show TexFormat \cross{TEX}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain TEX TexFormat} )abbrev domain TEX TexFormat ++ Author: Robert S. Sutor ++ Date Created: 1987 through 1992 @@ -130299,7 +130295,7 @@ TexFormat(): public == private where 0, 0, 0]$(L I) naryNGOps : L S := ["ROW","&"]$(L S) -<> +\getchunk{product(product(i*j,i=a..b),j=c..d) fix} specialOps : L S := ["MATRIX","BRACKET","BRACE","CONCATB","VCONCAT", _ "AGGLST","CONCAT","OVERBAR","ROOT","SUB","TAG", _ @@ -130612,7 +130608,7 @@ TexFormat(): public == private where op = "SIGMA" => "\sum" op = "SIGMA2" => "\sum" op = "PI" => "\prod" -<> +\getchunk{define PI2} op = "INTSIGN" => "\int" op = "INDEFINTEGRAL" => "\int" "????" @@ -130772,17 +130768,17 @@ TexFormat(): public == private where op := formatTex(first l,minPrec) formatFunction(op,args,prec) -@ -<>= +\end{chunk} +\begin{chunk}{TEX.dotabb} "TEX" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TEX"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "TEX" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TEXTFILE TextFile} -<>= +\begin{chunk}{TextFile.input} )set break resume )sys rm -f TextFile.output )spool TextFile.output @@ -130871,8 +130867,8 @@ close! f2 )system rm -f MOTD )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TextFile.help} ==================================================================== TextFile examples ==================================================================== @@ -130948,7 +130944,7 @@ o )help KeyedAccessFile o )help Library o )show TextFile -@ +\end{chunk} \pagehead{TextFile}{TEXTFILE} \pagepic{ps/v103textfile.ps}{TEXTFILE}{1.00} {\bf See}\\ @@ -130978,7 +130974,7 @@ o )show TextFile \cross{TEXTFILE}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain TEXTFILE TextFile} )abbrev domain TEXTFILE TextFile ++ Author: Stephen M. Watt ++ Date Created: 1985 @@ -131064,17 +131060,17 @@ TextFile: Cat == Def where (EOFP(f.fileState)$Lisp pretend Boolean) => true false -@ -<>= +\end{chunk} +\begin{chunk}{TEXTFILE.dotabb} "TEXTFILE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TEXTFILE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "TEXTFILE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SYMS TheSymbolTable} -<>= +\begin{chunk}{TheSymbolTable.input} )set break resume )sys rm -f TheSymbolTable.output )spool TheSymbolTable.output @@ -131115,8 +131111,8 @@ TextFile: Cat == Def where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TheSymbolTable.help} ==================================================================== TheSymbolTable examples ==================================================================== @@ -131124,7 +131120,7 @@ TheSymbolTable examples See Also: o )show TheSymbolTable -@ +\end{chunk} \pagehead{TheSymbolTable}{SYMS} \pagepic{ps/v103thesymboltable.ps}{SYMS}{1.00} @@ -131152,7 +131148,7 @@ o )show TheSymbolTable \cross{SYMS}{symbolTableOf} \end{tabular} -<>= +\begin{chunk}{domain SYMS TheSymbolTable} )abbrev domain SYMS TheSymbolTable ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -131355,17 +131351,17 @@ TheSymbolTable() : Exports == Implementation where printTypes(u:Symbol):Void == printTypes(elt(elt(theSymbolTable,u)$Rep,symtab)$Entry)$SymbolTable -@ -<>= +\end{chunk} +\begin{chunk}{SYMS.dotabb} "SYMS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SYMS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SYMS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain M3D ThreeDimensionalMatrix} -<>= +\begin{chunk}{ThreeDimensionalMatrix.input} )set break resume )sys rm -f ThreeDimensionalMatrix.output )spool ThreeDimensionalMatrix.output @@ -131420,8 +131416,8 @@ TheSymbolTable() : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ThreeDimensionalMatrix.help} ==================================================================== ThreeDimensionalMatrix examples ==================================================================== @@ -131429,7 +131425,7 @@ ThreeDimensionalMatrix examples See Also: o )show ThreeDimensionalMatrix -@ +\end{chunk} \pagehead{ThreeDimensionalMatrix}{M3D} \pagepic{ps/v103threedimensionalmatrix.ps}{M3D}{1.00} @@ -131477,7 +131473,7 @@ o )show ThreeDimensionalMatrix \cross{M3D}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain M3D ThreeDimensionalMatrix} )abbrev domain M3D ThreeDimensionalMatrix ++ Author: William Naylor ++ Date Created: 20 October 1993 @@ -131725,17 +131721,17 @@ ThreeDimensionalMatrix(R) : Exports == Implementation where resultMatrix -@ -<>= +\end{chunk} +\begin{chunk}{M3D.dotabb} "M3D" [color="#88FF44",href="bookvol10.3.pdf#nameddest=M3D"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "M3D" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VIEW3D ThreeDimensionalViewport} -<>= +\begin{chunk}{ThreeDimensionalViewport.input} )set break resume )sys rm -f ThreeDimensionalViewport.output )spool ThreeDimensionalViewport.output @@ -131798,8 +131794,8 @@ ThreeDimensionalMatrix(R) : Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ThreeDimensionalViewport.help} ==================================================================== ThreeDimensionalViewport examples ==================================================================== @@ -131807,7 +131803,7 @@ ThreeDimensionalViewport examples See Also: o )show ThreeDimensionalViewport -@ +\end{chunk} \pagehead{ThreeDimensionalViewport}{VIEW3D} \pagepic{ps/v103threedimensionalviewport.ps}{VIEW3D}{1.00} @@ -131857,7 +131853,7 @@ o )show ThreeDimensionalViewport \cross{VIEW3D}{?\~{}=?} &&&& \end{tabular} -<>= +\begin{chunk}{domain VIEW3D ThreeDimensionalViewport} )abbrev domain VIEW3D ThreeDimensionalViewport ++ Author: Jim Wen ++ Date Created: 28 April 1989 @@ -132805,17 +132801,17 @@ ThreeDimensionalViewport(): Exports == Implementation where -- checkViewport viewport => -- getI(VIEW)$Lisp -- acknowledge -@ -<>= +\end{chunk} +\begin{chunk}{VIEW3D.dotabb} "VIEW3D" [color="#88FF44",href="bookvol10.3.pdf#nameddest=VIEW3D"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "VIEW3D" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain SPACE3 ThreeSpace} -<>= +\begin{chunk}{ThreeSpace.input} )set break resume )sys rm -f ThreeSpace.output )spool ThreeSpace.output @@ -132872,8 +132868,8 @@ ThreeDimensionalViewport(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ThreeSpace.help} ==================================================================== ThreeSpace examples ==================================================================== @@ -132881,7 +132877,7 @@ ThreeSpace examples See Also: o )show ThreeSpace -@ +\end{chunk} \pagehead{ThreeSpace}{SPACE3} \pagepic{ps/v103threespace.ps}{SPACE3}{1.00} @@ -132922,7 +132918,7 @@ o )show ThreeSpace \cross{SPACE3}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain SPACE3 ThreeSpace} )abbrev domain SPACE3 ThreeSpace ++ Author: Mark Botch ++ Date Created: @@ -133266,17 +133262,17 @@ ThreeSpace(R:Ring):Exports == Implementation where (sizo:=#(s.rep3DField.llliPt))::O, _ (sizo=1=>" component"::O;" components"::O)]) -@ -<>= +\end{chunk} +\begin{chunk}{SPACE3.dotabb} "SPACE3" [color="#88FF44",href="bookvol10.3.pdf#nameddest=SPACE3"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "SPACE3" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TREE Tree} -<>= +\begin{chunk}{Tree.input} )set break resume )sys rm -f Tree.output )spool Tree.output @@ -133334,8 +133330,8 @@ ThreeSpace(R:Ring):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Tree.help} ==================================================================== Tree examples ==================================================================== @@ -133343,7 +133339,7 @@ Tree examples See Also: o )show Tree -@ +\end{chunk} \pagehead{Tree}{TREE} \pagepic{ps/v103tree.ps}{TREE}{1.00} @@ -133399,7 +133395,7 @@ o )show Tree \cross{TREE}{?.value} &&&& \end{tabular} -<>= +\begin{chunk}{domain TREE Tree} )abbrev domain TREE Tree ++ Author:W. H. Burge ++ Date Created:17 Feb 1992 @@ -133735,17 +133731,17 @@ Tree(S: SetCategory): T==C where cons(x, v) eqUnion(rest u, newV) -@ -<>= +\end{chunk} +\begin{chunk}{TREE.dotabb} "TREE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TREE"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "TREE" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TUBE TubePlot} -<>= +\begin{chunk}{TubePlot.input} )set break resume )sys rm -f TubePlot.output )spool TubePlot.output @@ -133771,8 +133767,8 @@ Tree(S: SetCategory): T==C where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TubePlot.help} ==================================================================== TubePlot examples ==================================================================== @@ -133780,7 +133776,7 @@ TubePlot examples See Also: o )show TubePlot -@ +\end{chunk} \pagehead{TubePlot}{TUBE} \pagepic{ps/v103tubeplot.ps}{TUBE}{1.00} @@ -133795,7 +133791,7 @@ o )show TubePlot \cross{TUBE}{tube} \end{tabular} -<>= +\begin{chunk}{domain TUBE TubePlot} )abbrev domain TUBE TubePlot ++ Author: Clifton J. Williamson ++ Date Created: Bastille Day 1989 @@ -133849,19 +133845,19 @@ TubePlot(Curve): Exports == Implementation where tube(curve,ll,b) == [curve,ll,b] -@ -<>= +\end{chunk} +\begin{chunk}{TUBE.dotabb} "TUBE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TUBE"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "TUBE" -> "FIELD" "TUBE" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain TUPLE Tuple} -<>= +\begin{chunk}{Tuple.input} )set break resume )sys rm -f Tuple.output )spool Tuple.output @@ -133890,8 +133886,8 @@ TubePlot(Curve): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Tuple.help} ==================================================================== Tuple examples ==================================================================== @@ -133899,7 +133895,7 @@ Tuple examples See Also: o )show Tuple -@ +\end{chunk} \pagehead{Tuple}{TUPLE} \pagepic{ps/v103tuple.ps}{TUPLE}{1.00} @@ -133921,7 +133917,7 @@ o )show Tuple \cross{TUPLE}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain TUPLE Tuple} )abbrev domain TUPLE Tuple ++ Author: Mark Botch ++ Description: @@ -133968,19 +133964,19 @@ Tuple(S:Type): CoercibleTo(PrimitiveArray S) with paren [(x.elts.i)::OutputForm for i in minIndex x.elts .. maxIndex x.elts]$List(OutputForm) -@ -<>= +\end{chunk} +\begin{chunk}{TUPLE.dotabb} "TUPLE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=TUPLE"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "A1AGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=A1AGG"] "TUPLE" -> "A1AGG" "TUPLE" -> "A1AGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ARRAY2 TwoDimensionalArray} -<>= +\begin{chunk}{TwoDimensionalArray.input} )set break resume )sys rm -f TwoDimensionalArray.output )spool TwoDimensionalArray.output @@ -134212,8 +134208,8 @@ count(0,arr) --E 20 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{TwoDimensionalArray.help} ==================================================================== TwoDimensionalArray examples ==================================================================== @@ -134425,7 +134421,7 @@ o )help Matrix o )help OneDimensionalArray o )show TwoDimensionalArray -@ +\end{chunk} \pagehead{TwoDimensionalArray}{ARRAY2} \pagepic{ps/v103twodimensionalarray.ps}{ARRAY2}{1.00} {\bf See}\\ @@ -134475,7 +134471,7 @@ o )show TwoDimensionalArray \cross{ARRAY2}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain ARRAY2 TwoDimensionalArray} )abbrev domain ARRAY2 TwoDimensionalArray ++ Author: Mark Botch ++ Description: @@ -134493,19 +134489,19 @@ TwoDimensionalArray(R):Exports == Implementation where Implementation ==> InnerIndexedTwoDimensionalArray(R,1,1,Row,Col) -@ -<>= +\end{chunk} +\begin{chunk}{ARRAY2.dotabb} "ARRAY2" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ARRAY2"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "ARR2CAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ARR2CAT"] "ARRAY2" -> "ARR2CAT" "ARRAY2" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VIEW2D TwoDimensionalViewport} -<>= +\begin{chunk}{TwoDimensionalViewport.help} ==================================================================== TwoDimensionalViewport examples ==================================================================== @@ -134744,7 +134740,7 @@ Finally we show the combined result See Also: o )show TwoDimensionalViewport -@ +\end{chunk} \pagehead{TwoDimensionalViewport}{VIEW2D} \pagepic{ps/v103twodimensionalviewport.ps}{VIEW2D}{1.00} @@ -134784,7 +134780,7 @@ o )show TwoDimensionalViewport \cross{VIEW2d}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain VIEW2D TwoDimensionalViewport} )abbrev domain VIEW2D TwoDimensionalViewport ++ Author: Jim Wen ++ Date Created: 28 April 1989 @@ -135429,19 +135425,19 @@ TwoDimensionalViewport ():Exports == Implementation where getI(VIEW)$Lisp -- acknowledge Filename -@ -<>= +\end{chunk} +\begin{chunk}{VIEW2D.dotabb} "VIEW2D" [color="#88FF44",href="bookvol10.3.pdf#nameddest=VIEW2D"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "VIEW2D" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter U} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UFPS UnivariateFormalPowerSeries} -<>= +\begin{chunk}{UnivariateFormalPowerSeries.input} )set break resume )sys rm -f UnivariateFormalPowerSeries.output )spool UnivariateFormalPowerSeries.output @@ -135572,8 +135568,8 @@ TwoDimensionalViewport ():Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateFormalPowerSeries.help} ==================================================================== UnivariateFormalPowerSeries examples ==================================================================== @@ -135581,7 +135577,7 @@ UnivariateFormalPowerSeries examples See Also: o )show UnivariateFormalPowerSeries -@ +\end{chunk} \pagehead{UnivariateFormalPowerSeries}{UFPS} \pagepic{ps/v103univariateformalpowerseries.ps}{UFPS}{1.00} @@ -135683,7 +135679,7 @@ o )show UnivariateFormalPowerSeries \cross{UFPS}{?.?} &&& \end{tabular} -<>= +\begin{chunk}{domain UFPS UnivariateFormalPowerSeries} )abbrev domain UFPS UnivariateFormalPowerSeries ++ Author: Mark Botch ++ Description: @@ -135692,17 +135688,17 @@ o )show UnivariateFormalPowerSeries UnivariateFormalPowerSeries(Coef: Ring) == UnivariateTaylorSeries(Coef, 'x, 0$Coef) -@ -<>= +\end{chunk} +\begin{chunk}{UFPS.dotabb} "UFPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UFPS"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "UFPS" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ULS UnivariateLaurentSeries} -<>= +\begin{chunk}{UnivariateLaurentSeries.input} )set break resume )sys rm -f UnivariateLaurentSeries.output )spool UnivariateLaurentSeries.output @@ -135910,8 +135906,8 @@ UnivariateFormalPowerSeries(Coef: Ring) == )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateLaurentSeries.help} ==================================================================== UnivariateLaurentSeries examples ==================================================================== @@ -135919,7 +135915,7 @@ UnivariateLaurentSeries examples See Also: o )show UnivariateLaurentSeries -@ +\end{chunk} \pagehead{UnivariateLaurentSeries}{ULS} \pagepic{ps/v103univariatelaurentseries.ps}{ULS}{1.00} @@ -136068,7 +136064,7 @@ o )show UnivariateLaurentSeries \cross{ULS}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain ULS UnivariateLaurentSeries} )abbrev domain ULS UnivariateLaurentSeries ++ Author: Clifton J. Williamson ++ Date Created: 18 January 1990 @@ -136124,17 +136120,17 @@ UnivariateLaurentSeries(Coef,var,cen): Exports == Implementation where if Coef has Algebra Fraction Integer then integrate(x:%,v:Variable(var)) == integrate x -@ -<>= +\end{chunk} +\begin{chunk}{ULS.dotabb} "ULS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ULS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "ULS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain ULSCONS UnivariateLaurentSeriesConstructor} -<>= +\begin{chunk}{UnivariateLaurentSeriesConstructor.input} )set break resume )sys rm -f UnivariateLaurentSeriesConstructor.output )spool UnivariateLaurentSeriesConstructor.output @@ -136337,8 +136333,8 @@ UnivariateLaurentSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateLaurentSeriesConstructor.help} ==================================================================== UnivariateLaurentSeriesConstructor examples ==================================================================== @@ -136346,7 +136342,7 @@ UnivariateLaurentSeriesConstructor examples See Also: o )show UnivariateLaurentSeriesConstructor -@ +\end{chunk} \pagehead{UnivariateLaurentSeriesConstructor}{ULSCONS} \pagepic{ps/v103univariatelaurentseriesconstructor.ps}{ULSCONS}{1.00} @@ -136492,7 +136488,7 @@ o )show UnivariateLaurentSeriesConstructor \cross{ULSCONS}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain ULSCONS UnivariateLaurentSeriesConstructor} )abbrev domain ULSCONS UnivariateLaurentSeriesConstructor ++ Authors: Bill Burge, Clifton J. Williamson ++ Date Created: August 1988 @@ -136944,19 +136940,19 @@ UnivariateLaurentSeriesConstructor(Coef,UTS):_ paren(var :: OUT - cen :: OUT) termsToOutputForm(m,p,xxx) -@ -<>= +\end{chunk} +\begin{chunk}{ULSCONS.dotabb} "ULSCONS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ULSCONS"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "ULSCONS" -> "ULSCCAT" "ULSCONS" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UP UnivariatePolynomial} -<>= +\begin{chunk}{UnivariatePolynomial.input} )set break resume )sys rm -f UnivariatePolynomial.output )spool UnivariatePolynomial.output @@ -137283,8 +137279,8 @@ u :: UP(b1,?) --E 35 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePolynomial.help} ==================================================================== UnivariatePolynomial examples ==================================================================== @@ -137582,7 +137578,7 @@ o )help MultivariatePolynomial o )help DistributedMultivariatePolynomial o )show UnivariatePolynomial -@ +\end{chunk} \pagehead{UnivariatePolynomial}{UP} \pagepic{ps/v103univariatepolynomial.ps}{UP}{1.00} {\bf See}\\ @@ -137708,7 +137704,7 @@ o )show UnivariatePolynomial \cross{UP}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain UP UnivariatePolynomial} )abbrev domain UP UnivariatePolynomial ++ Author: Mark Botch ++ Date Created: @@ -137739,17 +137735,17 @@ UnivariatePolynomial(x:Symbol, R:Ring): coerce(p:%):OutputForm == outputForm(p, outputForm x) coerce(v:Variable(x)):% == monomial(1, 1) -@ -<>= +\end{chunk} +\begin{chunk}{UP.dotabb} "UP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UPXS UnivariatePuiseuxSeries} -<>= +\begin{chunk}{UnivariatePuiseuxSeries.input} )set break resume )sys rm -f UnivariatePuiseuxSeries.output )spool UnivariatePuiseuxSeries.output @@ -137902,8 +137898,8 @@ UnivariatePolynomial(x:Symbol, R:Ring): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePuiseuxSeries.help} ==================================================================== UnivariatePuiseuxSeries examples ==================================================================== @@ -137911,7 +137907,7 @@ UnivariatePuiseuxSeries examples See Also: o )show UnivariatePuiseuxSeries -@ +\end{chunk} \pagehead{UnivariatePuiseuxSeries}{UPXS} \pagepic{ps/v103univariatepuiseuxseries.ps}{UPXS}{1.00} @@ -138026,7 +138022,7 @@ o )show UnivariatePuiseuxSeries \cross{UPXS}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain UPXS UnivariatePuiseuxSeries} )abbrev domain UPXS UnivariatePuiseuxSeries ++ Author: Clifton J. Williamson ++ Date Created: 28 January 1990 @@ -138186,17 +138182,17 @@ UnivariatePuiseuxSeries(Coef,var,cen): Exports == Implementation where paren(var :: OUT - cen :: OUT) termsToOutputForm(m,rat,p,xxx) -@ -<>= +\end{chunk} +\begin{chunk}{UPXS.dotabb} "UPXS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UPXS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "UPXS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UPXSCONS UnivariatePuiseuxSeriesConstructor} -<>= +\begin{chunk}{UnivariatePuiseuxSeriesConstructor.input} )set break resume )sys rm -f UnivariatePuiseuxSeriesConstructor.output )spool UnivariatePuiseuxSeriesConstructor.output @@ -138342,8 +138338,8 @@ UnivariatePuiseuxSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePuiseuxSeriesConstructor.help} ==================================================================== UnivariatePuiseuxSeriesConstructor examples ==================================================================== @@ -138351,7 +138347,7 @@ UnivariatePuiseuxSeriesConstructor examples See Also: o )show UnivariatePuiseuxSeriesConstructor -@ +\end{chunk} \pagehead{UnivariatePuiseuxSeriesConstructor}{UPXSCONS} \pagepic{ps/v103univariatepuiseuxseriesconstructor.ps}{UPXSCONS}{1.00} @@ -138466,7 +138462,7 @@ o )show UnivariatePuiseuxSeriesConstructor \cross{UPXSCONS}{?rem?} \end{tabular} -<>= +\begin{chunk}{domain UPXSCONS UnivariatePuiseuxSeriesConstructor} )abbrev domain UPXSCONS UnivariatePuiseuxSeriesConstructor ++ Author: Clifton J. Williamson ++ Date Created: 9 May 1989 @@ -138815,17 +138811,17 @@ UnivariatePuiseuxSeriesConstructor(Coef,ULS):_ asech upxs == applyUnary(asech,upxs) acsch upxs == applyUnary(acsch,upxs) -@ -<>= +\end{chunk} +\begin{chunk}{UPXSCONS.dotabb} "UPXSCONS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UPXSCONS"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "UPXSCONS" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UPXSSING UnivariatePuiseuxSeriesWithExponentialSingularity} -<>= +\begin{chunk}{UnivariatePuiseuxSeriesWithExponentialSingularity.input} )set break resume )sys rm -f UnivariatePuiseuxSeriesWithExponentialSingularity.output )spool UnivariatePuiseuxSeriesWithExponentialSingularity.output @@ -138898,8 +138894,8 @@ UnivariatePuiseuxSeriesConstructor(Coef,ULS):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariatePuiseuxSeriesWithExponentialSingularity.help} ==================================================================== UnivariatePuiseuxSeriesWithExponentialSingularity examples ==================================================================== @@ -138907,7 +138903,7 @@ UnivariatePuiseuxSeriesWithExponentialSingularity examples See Also: o )show UnivariatePuiseuxSeriesWithExponentialSingularity -@ +\end{chunk} \pagehead{UnivariatePuiseuxSeriesWithExponentialSingularity}{UPXSSING} \pagepic{ps/v103univariatepuiseuxserieswithexponentialsingularity.ps}{UPXSSING}{1.00} @@ -138967,7 +138963,7 @@ o )show UnivariatePuiseuxSeriesWithExponentialSingularity \cross{UPXSSING}{?/?} && \end{tabular} -<>= +\begin{chunk}{domain UPXSSING UnivariatePuiseuxSeriesWithExponentialSingularity} )abbrev domain UPXSSING UnivariatePuiseuxSeriesWithExponentialSingularity ++ Author: Clifton J. Williamson ++ Date Created: 4 August 1992 @@ -139246,19 +139242,19 @@ UnivariatePuiseuxSeriesWithExponentialSingularity(R,FE,var,cen):_ (signum :: Integer) = 1 => plusInfinity() minusInfinity() -@ -<>= +\end{chunk} +\begin{chunk}{UPXSSING.dotabb} "UPXSSING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UPXSSING"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "UPXSSING" -> "ACF" "UPXSSING" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain OREUP UnivariateSkewPolynomial} -<>= +\begin{chunk}{UnivariateSkewPolynomial.input} )set break resume )sys rm -f UnivariateSkewPolynomial.output )spool UnivariateSkewPolynomial.output @@ -139647,8 +139643,8 @@ x^2*a )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateSkewPolynomial.help} ==================================================================== UnivariateSkewPolynomial examples ==================================================================== @@ -139935,7 +139931,7 @@ o )show UnivariateSkewPolynomial o )show UnivariateSkewPolynomialCategory o )show SquareMatrix -@ +\end{chunk} \pagehead{UnivariateSkewPolynomial}{OREUP} \pagepic{ps/v103univariateskewpolynomial.ps}{OREUP}{1.00} {\bf See}\\ @@ -139994,7 +139990,7 @@ o )show SquareMatrix \cross{OREUP}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain OREUP UnivariateSkewPolynomial} )abbrev domain OREUP UnivariateSkewPolynomial ++ Author: Manuel Bronstein ++ Date Created: 19 October 1993 @@ -140013,17 +140009,17 @@ UnivariateSkewPolynomial(x:Symbol,R:Ring,sigma:Automorphism R,delta: R -> R): coerce(v:Variable(x)):% == monomial(1, 1) coerce(p:%):OutputForm == outputForm(p, outputForm x)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{OREUP.dotabb} "OREUP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=OREUP"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "OREUP" -> "OREPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UTS UnivariateTaylorSeries} -<>= +\begin{chunk}{UnivariateTaylorSeries.input} )set break resume )sys rm -f UnivariateTaylorSeries.output )spool UnivariateTaylorSeries.output @@ -140154,8 +140150,8 @@ UnivariateSkewPolynomial(x:Symbol,R:Ring,sigma:Automorphism R,delta: R -> R): )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateTaylorSeries.help} ==================================================================== UnivariateTaylorSeries examples ==================================================================== @@ -140163,7 +140159,7 @@ UnivariateTaylorSeries examples See Also: o )show UnivariateTaylorSeries -@ +\end{chunk} \pagehead{UnivariateTaylorSeries}{UTS} \pagepic{ps/v103univariatetaylorseries.ps}{UTS}{1.00} @@ -140266,7 +140262,7 @@ o )show UnivariateTaylorSeries \cross{UTS}{?.?} \end{tabular} -<>= +\begin{chunk}{domain UTS UnivariateTaylorSeries} )abbrev domain UTS UnivariateTaylorSeries ++ Author: Clifton J. Williamson ++ Date Created: 21 December 1989 @@ -140531,17 +140527,17 @@ UnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where --% OutputForms -- We use the default coerce: % -> OutputForm in UTSCAT& -@ -<>= +\end{chunk} +\begin{chunk}{UTS.dotabb} "UTS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UTS"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "UTS" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UTSZ UnivariateTaylorSeriesCZero} -<>= +\begin{chunk}{UnivariateTaylorSeriesCZero.input} )set break resume )sys rm -f UnivariateTaylorSeriesCZero.output )spool UnivariateTaylorSeriesCZero.output @@ -140672,8 +140668,8 @@ UnivariateTaylorSeries(Coef,var,cen): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UnivariateTaylorSeriesCZero.help} ==================================================================== UnivariateTaylorSeriesCZero examples ==================================================================== @@ -140681,7 +140677,7 @@ UnivariateTaylorSeriesCZero examples See Also: o )show UnivariateTaylorSeriesCZero -@ +\end{chunk} \pagehead{UnivariateTaylorSeriesCZero}{UTSZ} \pagepic{ps/v103univariatetaylorseriesczero.ps}{UTSZ}{1.00} {\bf See}\\ @@ -140784,7 +140780,7 @@ o )show UnivariateTaylorSeriesCZero \cross{UTSZ}{?\^{}?} \end{tabular} -<>= +\begin{chunk}{domain UTSZ UnivariateTaylorSeriesCZero} )abbrev domain UTSZ UnivariateTaylorSeriesCZero ++ Author: Gaetan Hache ++ Date Created: September 1996 @@ -141022,17 +141018,17 @@ UnivariateTaylorSeriesCZero(Coef,var): Exports == Implementation where (s = variable(x)) => integrate x map(integrateWithOneAnswer(#1,s),x) -@ -<>= +\end{chunk} +\begin{chunk}{UTSZ.dotabb} "UTSZ" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UTSZ"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "UTSZ" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain UNISEG UniversalSegment} -<>= +\begin{chunk}{UniversalSegment.input} )set break resume )sys rm -f UniversalSegment.output )spool UniversalSegment.output @@ -141112,8 +141108,8 @@ expand [1, 3, 10..15, 100..] --E 9 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{UniversalSegment.help} ==================================================================== UniversalSegment examples ==================================================================== @@ -141173,7 +141169,7 @@ o )help List o )help Stream o )show UniversalSegment -@ +\end{chunk} \pagehead{UniversalSegment}{UNISEG} \pagepic{ps/v103universalsegment.ps}{UNISEG}{1.00} {\bf See}\\ @@ -141203,7 +141199,7 @@ o )show UniversalSegment \cross{UNISEG}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain UNISEG UniversalSegment} )abbrev domain UNISEG UniversalSegment ++ Author: Robert S. Sutor ++ Date Created: 1987 @@ -141328,17 +141324,17 @@ UniversalSegment(S: Type): SegmentCategory(S) with st: Stream S := empty() concat(construct expand(lb), st) -@ -<>= +\end{chunk} +\begin{chunk}{UNISEG.dotabb} "UNISEG" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UNISEG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "UNISEG" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain U32VEC U32Vector} -<>= +\begin{chunk}{U32Vector.input} )set break resume )sys rm -f U32Vector.output )spool U32Vector.output @@ -141433,8 +141429,8 @@ UniversalSegment(S: Type): SegmentCategory(S) with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{U32Vector.help} ==================================================================== U32Vector examples ==================================================================== @@ -141442,7 +141438,7 @@ U32Vector examples See Also: o )show U32Vector -@ +\end{chunk} \pagehead{U32Vector}{U32VEC} \pagepic{ps/v103u32vector.eps}{U32VEC}{1.00} {\bf See}\\ @@ -141516,7 +141512,7 @@ o )show U32Vector \cross{U32VEC}{swap!} && \end{tabular} -<>= +\begin{chunk}{domain U32VEC U32Vector} )abbrev domain U32VEC U32Vector ++ Author: Waldek Hebisch ++ Description: This is a low-level domain which implements vectors @@ -141539,19 +141535,19 @@ U32Vector() : OneDimensionalArrayAggregate Integer == add setelt(x:%, i:Integer, s:Integer) == Qsetelt(x, i, s) fill_!(x, s) == (for i in 0..((Qsize x) - 1) repeat Qsetelt(x, i, s); x) -@ -<>= +\end{chunk} +\begin{chunk}{U32VEC.dotabb} "U32VEC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=U32VEC"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "U32VEC" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter V} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VARIABLE Variable} -<>= +\begin{chunk}{Variable.input} )set break resume )sys rm -f Variable.output )spool Variable.output @@ -141576,8 +141572,8 @@ U32Vector() : OneDimensionalArrayAggregate Integer == add )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Variable.help} ==================================================================== Variable examples ==================================================================== @@ -141585,7 +141581,7 @@ Variable examples See Also: o )show Variable -@ +\end{chunk} \pagehead{Variable}{VARIABLE} \pagepic{ps/v103variable.ps}{VARIABLE}{1.00} @@ -141600,7 +141596,7 @@ o )show Variable \cross{VARIABLE}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain VARIABLE Variable} )abbrev domain VARIABLE Variable ++ Author: Mark Botch ++ Description: @@ -141618,17 +141614,17 @@ Variable(sym:Symbol): Join(SetCategory, CoercibleTo Symbol) with x = y == true latex(x:%):String == latex sym -@ -<>= +\end{chunk} +\begin{chunk}{VARIABLE.dotabb} "VARIABLE" [color="#88FF44",href="bookvol10.3.pdf#nameddest=VARIABLE"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "VARIABLE" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VECTOR Vector} -<>= +\begin{chunk}{Vector.input} )set break resume )sys rm -f Vector.output )spool Vector.output @@ -141724,8 +141720,8 @@ v - w --E 11 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Vector.help} ==================================================================== Vector examples ==================================================================== @@ -141821,7 +141817,7 @@ o )help Table o )help TwoDimensionalArray o )show Vector -@ +\end{chunk} \pagehead{Vector}{VECTOR} \pagepic{ps/v103vector.ps}{VECTOR}{1.00} @@ -141903,7 +141899,7 @@ o )show Vector \cross{VECTOR}{?.?} & \end{tabular} -<>= +\begin{chunk}{domain VECTOR Vector} )abbrev domain VECTOR Vector ++ Author: Mark Botch ++ Date Created: @@ -141932,18 +141928,18 @@ Vector(R:Type): Exports == Implementation where convert [convert("vector"::Symbol)@InputForm, convert(parts x)@InputForm] -@ -<>= +\end{chunk} +\begin{chunk}{VECTOR.dotabb} "VECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=VECTOR", shape=ellipse] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "VECTOR" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain VOID Void} -<>= +\begin{chunk}{Void.input} )set break resume )sys rm -f Void.output )spool Void.output @@ -141994,8 +141990,8 @@ b : Fraction Integer --E 5 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Void.help} ==================================================================== Void examples ==================================================================== @@ -142037,7 +142033,7 @@ Once a value has been converted to Void, it cannot be recovered. See Also: o )show Void -@ +\end{chunk} \pagehead{Void}{VOID} \pagepic{ps/v103void.ps}{VOID}{1.00} @@ -142047,7 +142043,7 @@ o )show Void \cross{VOID}{void} \end{tabular} -<>= +\begin{chunk}{domain VOID Void} )abbrev domain VOID Void -- These types act as the top and bottom of the type lattice -- and are known to the compiler and interpreter for type resolution. @@ -142077,19 +142073,19 @@ Void: with void() == voidValue()$Lisp coerce(v:%) == coerce(v)$Rep -@ -<>= +\end{chunk} +\begin{chunk}{VOID.dotabb} "VOID" [color="#88FF44",href="bookvol10.3.pdf#nameddest=VOID"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "VOID" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter W} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain WP WeightedPolynomials} -<>= +\begin{chunk}{WeightedPolynomials.input} )set break resume )sys rm -f WeightedPolynomials.output )spool WeightedPolynomials.output @@ -142131,8 +142127,8 @@ Void: with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{WeightedPolynomials.help} ==================================================================== WeightedPolynomials examples ==================================================================== @@ -142140,7 +142136,7 @@ WeightedPolynomials examples See Also: o )show WeightedPolynomials -@ +\end{chunk} \pagehead{WeightedPolynomials}{WP} \pagepic{ps/v103weightedpolynomials.ps}{WP}{1.00} @@ -142172,7 +142168,7 @@ o )show WeightedPolynomials \cross{WP}{?=?} & \end{tabular} -<>= +\begin{chunk}{domain WP WeightedPolynomials} )abbrev domain WP WeightedPolynomials ++ Author: James Davenport ++ Date Created: 17 April 1992 @@ -142276,17 +142272,17 @@ WeightedPolynomials(R:Ring,VarSet: OrderedSet, E:OrderedAbelianMonoidSup, w:=reductum w w -@ -<>= +\end{chunk} +\begin{chunk}{WP.dotabb} "WP" [color="#88FF44",href="bookvol10.3.pdf#nameddest=WP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "WP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain WUTSET WuWenTsunTriangularSet} -<>= +\begin{chunk}{WuWenTsunTriangularSet.input} )set break resume )sys rm -f WuWenTsunTriangularSet.output )spool WuWenTsunTriangularSet.output @@ -142435,8 +142431,8 @@ zeroSetSplit(lp)$T --E 16 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{WuWenTsunTriangularSet.help} ==================================================================== WuWenTsunTriangularSet examples ==================================================================== @@ -142595,7 +142591,7 @@ o )help LazardSetSolvingPackage o )help ZeroDimensionalSolvePackage o )show WuWenTsunTriangularSet -@ +\end{chunk} \pagehead{WuWenTsunTriangularSet}{WUTSET} \pagepic{ps/v103wuwentsuntriangularset.ps}{WUTSET}{1.00} {\bf See}\\ @@ -142687,7 +142683,7 @@ o )show WuWenTsunTriangularSet \cross{WUTSET}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain WUTSET WuWenTsunTriangularSet} )abbrev domain WUTSET WuWenTsunTriangularSet ++ Author: Marc Moreno Maza (marc@nag.co.uk) ++ Date Created: 11/18/1995 @@ -142929,13 +142925,13 @@ WuWenTsunTriangularSet(R,E,V,P) : Exports == Implementation where lts : List $ := characteristicSerie(lp,initiallyReduced?,initiallyReduce) sort(infRittWu?, removeDuplicates lts) -@ -<>= +\end{chunk} +\begin{chunk}{WUTSET.dotabb} "WUTSET" [color="#88FF44",href="bookvol10.3.pdf#nameddest=WUTSET"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "WUTSET" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter X} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -142949,7 +142945,7 @@ representation for these polynomials. It is the non-commutative equivalent for the {\bf DistributedMultivariatePolynomial} constructor. -<>= +\begin{chunk}{XDistributedPolynomial.input} )set break resume )sys rm -f XDistributedPolynomial.output )spool XDistributedPolynomial.output @@ -143016,8 +143012,8 @@ equivalent for the )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XDistributedPolynomial.help} ==================================================================== XDistributedPolynomial examples ==================================================================== @@ -143025,7 +143021,7 @@ XDistributedPolynomial examples See Also: o )show XDistributedPolynomial -@ +\end{chunk} \pagehead{XDistributedPolynomial}{XDPOLY} \pagepic{ps/v103xdistributedpolynomial.ps}{XDPOLY}{1.00} @@ -143082,7 +143078,7 @@ o )show XDistributedPolynomial \cross{XDPOLY}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain XDPOLY XDistributedPolynomial} )abbrev domain XDPOLY XDistributedPolynomial ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -143187,17 +143183,17 @@ XDistributedPolynomial(vl:OrderedSet,R:Ring): XDPcat == XDPdef where p.first.k < q.first.k => coef(p,q.rest) return p.first.c * q.first.c + coef(p.rest,q.rest) -@ -<>= +\end{chunk} +\begin{chunk}{XDPOLY.dotabb} "XDPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=XDPOLY"] "XPOLYC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=XPOLYC"] "XDPOLY" -> "XPOLYC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPBWPOLY XPBWPolynomial} -<>= +\begin{chunk}{XPBWPolynomial.input} )set break resume )sys rm -f XPBWPolynomial.output )spool XPBWPolynomial.output @@ -143689,8 +143685,8 @@ pq :: rpoly - pr*qr --E 39 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XPBWPolynomial.help} ==================================================================== XPBWPolynomial examples ==================================================================== @@ -144034,7 +144030,7 @@ Calculations with verification in XRecursivePolynomial. See Also: o )show XPBWPolynomial -@ +\end{chunk} \pagehead{XPBWPolynomial}{XPBWPOLY} \pagepic{ps/v103xpbwpolynomial.ps}{XPBWPOLY}{1.00} @@ -144094,7 +144090,7 @@ o )show XPBWPolynomial \cross{XPBWPOLYL}{?\~{}=?} \end{tabular} -<>= +\begin{chunk}{domain XPBWPOLY XPBWPolynomial} )abbrev domain XPBWPOLY XPBWPolynomial ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -144325,17 +144321,17 @@ XPBWPolynomial(VarSet:OrderedSet,R:CommutativeRing): XDPcat == XDPdef where mirror p == +/ [t.c * mirror1(t.k) for t in p] -@ -<>= +\end{chunk} +\begin{chunk}{XPBWPOLY.dotabb} "XPBWPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=XPBWPOLY"] "XPOLYC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=XPOLYC"] "XPBWPOLY" -> "XPOLYC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPOLY XPolynomial} -<>= +\begin{chunk}{XPolynomial.input} )set break resume )sys rm -f XPolynomial.output )spool XPolynomial.output @@ -144466,8 +144462,8 @@ sh(pr,w::poly) --E 14 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XPolynomial.help} ==================================================================== XPolynomial examples ==================================================================== @@ -144586,7 +144582,7 @@ o )help XRecursivePolynomial o )help XPolynomialRing o )show XPolynomial -@ +\end{chunk} \pagehead{XPolynomial}{XPOLY} \pagepic{ps/v103xpolynomial.ps}{XPOLY}{1.00} @@ -144636,7 +144632,7 @@ o )show XPolynomial \cross{XPOLY}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain XPOLY XPolynomial} )abbrev domain XPOLY XPolynomial ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -144657,17 +144653,17 @@ o )show XPolynomial XPolynomial(R:Ring) == XRecursivePolynomial(Symbol, R) -@ -<>= +\end{chunk} +\begin{chunk}{XPOLY.dotabb} "XPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=XPOLY"] "XPOLYC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=XPOLYC"] "XPOLY" -> "XPOLYC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XPR XPolynomialRing} -<>= +\begin{chunk}{XPolynomialRing.input} )set break resume )sys rm -f XPolynomialRing.output )spool XPolynomialRing.output @@ -144862,8 +144858,8 @@ qm**3 --E 15 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XPolynomialRing.help} ==================================================================== XPolynomialRing examples ==================================================================== @@ -145049,7 +145045,7 @@ o )help XRecursivePolynomial o )help XPolynomial o )show XPolynomialRing -@ +\end{chunk} \pagehead{XPolynomialRing}{XPR} \pagepic{ps/v103xpolynomialring.ps}{XPR}{1.00} @@ -145098,7 +145094,7 @@ o )show XPolynomialRing \cross{XPR}{?\~{}=?} & \end{tabular} -<>= +\begin{chunk}{domain XPR XPolynomialRing} )abbrev domain XPR XPolynomialRing ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -145254,8 +145250,8 @@ XPolynomialRing(R:Ring,E:OrderedMonoid): T == C where if R has Field then x/r == inv(r)*x -@ -<>= +\end{chunk} +\begin{chunk}{XPR.dotabb} "XPR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=XPR"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] @@ -145264,11 +145260,11 @@ XPolynomialRing(R:Ring,E:OrderedMonoid): T == C where "XPR" -> "FLAGG-" "XPR" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{domain XRPOLY XRecursivePolynomial} -<>= +\begin{chunk}{XRecursivePolynomial.input} )set break resume )sys rm -f XRecursivePolynomial.output )spool XRecursivePolynomial.output @@ -145330,8 +145326,8 @@ XPolynomialRing(R:Ring,E:OrderedMonoid): T == C where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{XRecursivePolynomial.help} ==================================================================== XRecursivePolynomial examples ==================================================================== @@ -145339,7 +145335,7 @@ XRecursivePolynomial examples See Also: o )show XRecursivePolynomial -@ +\end{chunk} Polynomial arithmetic with non-commutative variables has been improved by a contribution of Michel Petitot (University of Lille I, France). @@ -145395,7 +145391,7 @@ equivalents for the {\bf SparseMultivariatePolynomial} constructor. \cross{XRPOLY}{?\~{}=?} &&& \end{tabular} -<>= +\begin{chunk}{domain XRPOLY XRecursivePolynomial} )abbrev domain XRPOLY XRecursivePolynomial ++ Author: Michel Petitot petitot@lifl.fr ++ Date Created: 91 @@ -145678,13 +145674,13 @@ XRecursivePolynomial(VarSet:OrderedSet,R:Ring): Xcat == Xdef where lv:= setUnion(lv,[t.k for t in listOfTerms p.reg]) sort_!(lv) -@ -<>= +\end{chunk} +\begin{chunk}{XRPOLY.dotabb} "XRPOLY" [color="#88FF44",href="bookvol10.3.pdf#nameddest=XRPOLY"] "XPOLYC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=XPOLYC"] "XRPOLY" -> "XPOLYC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter Y} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -145704,7 +145700,7 @@ So we keep a cached copy of the translated BOOLEAN domain which we can write into the {\bf MID} directory. We compile the lisp code and copy the {\bf BOOLEAN.o} file to the {\bf OUT} directory. This is eventually forcibly replaced by a recompiled version. -<>= +\begin{chunk}{BOOLEAN.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -145947,7 +145943,7 @@ This is eventually forcibly replaced by a recompiled version. (MAKEPROP (QUOTE |Boolean|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{CHAR.lsp BOOTSTRAP} {\bf CHAR} depends on a chain of @@ -145959,7 +145955,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{CHAR.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -146133,7 +146129,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |lookupComplete|))) (MAKEPROP (QUOTE |Character|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{DFLOAT.lsp BOOTSTRAP} {\bf DFLOAT} depends on itself. @@ -146145,7 +146141,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{DFLOAT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -146932,7 +146928,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |lookupComplete|))) (MAKEPROP (QUOTE |DoubleFloat|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ILIST.lsp BOOTSTRAP} {\bf ILIST} depends on a chain of @@ -146944,7 +146940,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ILIST.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -147550,7 +147546,7 @@ Note that this code is not included in the generated catdef.spad file. 0 0 1 2 3 11 0 0 1 1 0 8 0 9)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{INT.lsp BOOTSTRAP} {\bf INT} depends on {\bf OINTDOM} which depends on {\bf ORDRING} @@ -147563,7 +147559,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{INT.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -148063,7 +148059,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |lookupComplete|))) (MAKEPROP (QUOTE |Integer|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ISTRING.lsp BOOTSTRAP} {\bf ISTRING} depends on a chain of @@ -148075,7 +148071,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{ISTRING.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -148978,7 +148974,7 @@ Note that this code is not included in the generated catdef.spad file. 0 15 1 0 7 0 13))))) '|lookupComplete|)) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{LIST.lsp BOOTSTRAP} {\bf LIST} depends on a chain of @@ -148990,7 +148986,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{LIST.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -149289,7 +149285,7 @@ Note that this code is not included in the generated catdef.spad file. 32 2 0 6 0 34 35 1 2 39 0 44 2 0 0 6 0 10 2 0 0 0 0 29 2 0 0 0 0 11 3 5 12 13 0 8 28 2 5 12 13 0 27 1 5 15 0 25 2 5 15 0 8 26)))))) (QUOTE |lookupIncomplete|))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{NNI.lsp BOOTSTRAP} {\bf NNI} depends on itself. We need to break this cycle to build @@ -149300,7 +149296,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{NNI.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -149435,7 +149431,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |NonNegativeInteger|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{OUTFORM.lsp BOOTSTRAP} {\bf OUTFORM} depends on itself. @@ -149447,7 +149443,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{OUTFORM.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -150115,7 +150111,7 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE |lookupComplete|))) (MAKEPROP (QUOTE |OutputForm|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{PI.lsp BOOTSTRAP} {\bf PI} depends on itself. We need to break this cycle to build @@ -150126,7 +150122,7 @@ This is eventually forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{PI.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -150215,7 +150211,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |PositiveInteger|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{PRIMARR.lsp BOOTSTRAP} {\bf PRIMARR} depends on itself. @@ -150227,7 +150223,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{PRIMARR.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -150395,7 +150391,7 @@ Note that this code is not included in the generated catdef.spad file. 1 2 0 19 23 0 1 2 3 19 0 0 1 2 3 19 0 0 1 2 1 19 0 0 1 2 3 19 0 0 1 2 3 19 0 0 1 1 0 7 0 8)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{REF.lsp BOOTSTRAP} {\bf REF} depends on a chain of @@ -150407,7 +150403,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{REF.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -150506,10 +150502,10 @@ Note that this code is not included in the generated catdef.spad file. 0 1 1 0 6 0 11 1 0 6 0 13 1 1 16 0 21 2 0 8 0 0 9)))))) (QUOTE |lookupComplete|))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{SINT.lsp BOOTSTRAP} -<>= +\begin{chunk}{SINT.lsp BOOTSTRAP} (/VERSIONCHECK 2) @@ -151158,7 +151154,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP (QUOTE |SingleInteger|) (QUOTE NILADIC) T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{SYMBOL.lsp BOOTSTRAP} {\bf SYMBOL} depends on a chain of @@ -151170,7 +151166,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{SYMBOL.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -151953,7 +151949,7 @@ Note that this code is not included in the generated catdef.spad file. (MAKEPROP '|Symbol| 'NILADIC T) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{VECTOR.lsp BOOTSTRAP} {\bf VECTOR} depends on itself. @@ -151965,7 +151961,7 @@ forcibly replaced by a recompiled version. Note that this code is not included in the generated catdef.spad file. -<>= +\begin{chunk}{VECTOR.lsp BOOTSTRAP} (|/VERSIONCHECK| 2) @@ -152084,433 +152080,433 @@ Note that this code is not included in the generated catdef.spad file. (QUOTE (1 0 0 7 8 1 11 0 10 12 1 13 0 11 14 1 0 7 0 15 1 7 13 0 16 1 13 0 17 18 1 0 13 0 19 1 0 0 7 9 1 0 7 0 15 1 2 13 0 19 1 0 0 7 8)))))) (QUOTE |lookupIncomplete|))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chunk collections} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -<>= - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> - -<> -<> - -<> -<> -<> -<> -<> -@ +\begin{chunk}{algebra} + +\getchunk{domain AFFPL AffinePlane} +\getchunk{domain AFFPLPS AffinePlaneOverPseudoAlgebraicClosureOfFiniteField} +\getchunk{domain AFFSP AffineSpace} +\getchunk{domain ALGSC AlgebraGivenByStructuralConstants} +\getchunk{domain ALGFF AlgebraicFunctionField} +\getchunk{domain AN AlgebraicNumber} +\getchunk{domain ANON AnonymousFunction} +\getchunk{domain ANTISYM AntiSymm} +\getchunk{domain ANY Any} +\getchunk{domain ASTACK ArrayStack} +\getchunk{domain ASP1 Asp1} +\getchunk{domain ASP10 Asp10} +\getchunk{domain ASP12 Asp12} +\getchunk{domain ASP19 Asp19} +\getchunk{domain ASP20 Asp20} +\getchunk{domain ASP24 Asp24} +\getchunk{domain ASP27 Asp27} +\getchunk{domain ASP28 Asp28} +\getchunk{domain ASP29 Asp29} +\getchunk{domain ASP30 Asp30} +\getchunk{domain ASP31 Asp31} +\getchunk{domain ASP33 Asp33} +\getchunk{domain ASP34 Asp34} +\getchunk{domain ASP35 Asp35} +\getchunk{domain ASP4 Asp4} +\getchunk{domain ASP41 Asp41} +\getchunk{domain ASP42 Asp42} +\getchunk{domain ASP49 Asp49} +\getchunk{domain ASP50 Asp50} +\getchunk{domain ASP55 Asp55} +\getchunk{domain ASP6 Asp6} +\getchunk{domain ASP7 Asp7} +\getchunk{domain ASP73 Asp73} +\getchunk{domain ASP74 Asp74} +\getchunk{domain ASP77 Asp77} +\getchunk{domain ASP78 Asp78} +\getchunk{domain ASP8 Asp8} +\getchunk{domain ASP80 Asp80} +\getchunk{domain ASP9 Asp9} +\getchunk{domain JORDAN AssociatedJordanAlgebra} +\getchunk{domain LIE AssociatedLieAlgebra} +\getchunk{domain ALIST AssociationList} +\getchunk{domain ATTRBUT AttributeButtons} +\getchunk{domain AUTOMOR Automorphism} + +\getchunk{domain BBTREE BalancedBinaryTree} +\getchunk{domain BPADIC BalancedPAdicInteger} +\getchunk{domain BPADICRT BalancedPAdicRational} +\getchunk{domain BFUNCT BasicFunctions} +\getchunk{domain BOP BasicOperator} +\getchunk{domain BINARY BinaryExpansion} +\getchunk{domain BINFILE BinaryFile} +\getchunk{domain BSTREE BinarySearchTree} +\getchunk{domain BTOURN BinaryTournament} +\getchunk{domain BTREE BinaryTree} +\getchunk{domain BITS Bits} +\getchunk{domain BLHN BlowUpWithHamburgerNoether} +\getchunk{domain BLQT BlowUpWithQuadTrans} +\getchunk{domain BOOLEAN Boolean} + +\getchunk{domain CARD CardinalNumber} +\getchunk{domain CARTEN CartesianTensor} +\getchunk{domain CHAR Character} +\getchunk{domain CCLASS CharacterClass} +\getchunk{domain CLIF CliffordAlgebra} +\getchunk{domain COLOR Color} +\getchunk{domain COMM Commutator} +\getchunk{domain COMPLEX Complex} +\getchunk{domain CDFMAT ComplexDoubleFloatMatrix} +\getchunk{domain CDFVEC ComplexDoubleFloatVector} +\getchunk{domain CONTFRAC ContinuedFraction} + +\getchunk{domain DHMATRIX DenavitHartenbergMatrix} +\getchunk{domain DBASE Database} +\getchunk{domain DLIST DataList} +\getchunk{domain DECIMAL DecimalExpansion} +\getchunk{domain DEQUEUE Dequeue} +\getchunk{domain DERHAM DeRhamComplex} +\getchunk{domain DSMP DifferentialSparseMultivariatePolynomial} +\getchunk{domain DIRPROD DirectProduct} +\getchunk{domain DPMM DirectProductMatrixModule} +\getchunk{domain DPMO DirectProductModule} +\getchunk{domain DIRRING DirichletRing} +\getchunk{domain DMP DistributedMultivariatePolynomial} +\getchunk{domain DIV Divisor} +\getchunk{domain DFLOAT DoubleFloat} +\getchunk{domain DFMAT DoubleFloatMatrix} +\getchunk{domain DFVEC DoubleFloatVector} +\getchunk{domain DROPT DrawOption} +\getchunk{domain D01AJFA d01ajfAnnaType} +\getchunk{domain D01AKFA d01akfAnnaType} +\getchunk{domain D01ALFA d01alfAnnaType} +\getchunk{domain D01AMFA d01amfAnnaType} +\getchunk{domain D01ANFA d01anfAnnaType} +\getchunk{domain D01APFA d01apfAnnaType} +\getchunk{domain D01AQFA d01aqfAnnaType} +\getchunk{domain D01ASFA d01asfAnnaType} +\getchunk{domain D01FCFA d01fcfAnnaType} +\getchunk{domain D01GBFA d01gbfAnnaType} +\getchunk{domain D01TRNS d01TransformFunctionType} +\getchunk{domain D02BBFA d02bbfAnnaType} +\getchunk{domain D02BHFA d02bhfAnnaType} +\getchunk{domain D02CJFA d02cjfAnnaType} +\getchunk{domain D02EJFA d02ejfAnnaType} +\getchunk{domain D03EEFA d03eefAnnaType} +\getchunk{domain D03FAFA d03fafAnnaType} + +\getchunk{domain EQTBL EqTable} +\getchunk{domain EQ Equation} +\getchunk{domain EXPEXPAN ExponentialExpansion} +\getchunk{domain EXPUPXS ExponentialOfUnivariatePuiseuxSeries} +\getchunk{domain EMR EuclideanModularRing} +\getchunk{domain EXIT Exit} +\getchunk{domain EXPR Expression} +\getchunk{domain EAB ExtAlgBasis} +\getchunk{domain E04DGFA e04dgfAnnaType} +\getchunk{domain E04FDFA e04fdfAnnaType} +\getchunk{domain E04GCFA e04gcfAnnaType} +\getchunk{domain E04JAFA e04jafAnnaType} +\getchunk{domain E04MBFA e04mbfAnnaType} +\getchunk{domain E04NAFA e04nafAnnaType} +\getchunk{domain E04UCFA e04ucfAnnaType} + +\getchunk{domain FR Factored} +\getchunk{domain FILE File} +\getchunk{domain FNAME FileName} +\getchunk{domain FARRAY FlexibleArray} +\getchunk{domain FDIV FiniteDivisor} +\getchunk{domain FF FiniteField} +\getchunk{domain FFCG FiniteFieldCyclicGroup} +\getchunk{domain FFCGX FiniteFieldCyclicGroupExtension} +\getchunk{domain FFCGP FiniteFieldCyclicGroupExtensionByPolynomial} +\getchunk{domain FFX FiniteFieldExtension} +\getchunk{domain FFP FiniteFieldExtensionByPolynomial} +\getchunk{domain FFNB FiniteFieldNormalBasis} +\getchunk{domain FFNBX FiniteFieldNormalBasisExtension} +\getchunk{domain FFNBP FiniteFieldNormalBasisExtensionByPolynomial} +\getchunk{domain FLOAT Float} +\getchunk{domain FC FortranCode} +\getchunk{domain FEXPR FortranExpression} +\getchunk{domain FORTRAN FortranProgram} +\getchunk{domain FST FortranScalarType} +\getchunk{domain FTEM FortranTemplate} +\getchunk{domain FT FortranType} +\getchunk{domain FCOMP FourierComponent} +\getchunk{domain FSERIES FourierSeries} +\getchunk{domain FRAC Fraction} +\getchunk{domain FRIDEAL FractionalIdeal} +\getchunk{domain FRMOD FramedModule} +\getchunk{domain FAGROUP FreeAbelianGroup} +\getchunk{domain FAMONOID FreeAbelianMonoid} +\getchunk{domain FGROUP FreeGroup} +\getchunk{domain FM FreeModule} +\getchunk{domain FM1 FreeModule1} +\getchunk{domain FMONOID FreeMonoid} +\getchunk{domain FNLA FreeNilpotentLie} +\getchunk{domain FPARFRAC FullPartialFractionExpansion} +\getchunk{domain FUNCTION FunctionCalled} + +\getchunk{domain GDMP GeneralDistributedMultivariatePolynomial} +\getchunk{domain GMODPOL GeneralModulePolynomial} +\getchunk{domain GCNAALG GenericNonAssociativeAlgebra} +\getchunk{domain GPOLSET GeneralPolynomialSet} +\getchunk{domain GSTBL GeneralSparseTable} +\getchunk{domain GTSET GeneralTriangularSet} +\getchunk{domain GSERIES GeneralUnivariatePowerSeries} +\getchunk{domain GRIMAGE GraphImage} +\getchunk{domain GOPT GuessOption} +\getchunk{domain GOPT0 GuessOptionFunctions0} + +\getchunk{domain HASHTBL HashTable} +\getchunk{domain HEAP Heap} +\getchunk{domain HEXADEC HexadecimalExpansion} +\getchunk{domain HTMLFORM HTMLFormat} +\getchunk{domain HDP HomogeneousDirectProduct} +\getchunk{domain HDMP HomogeneousDistributedMultivariatePolynomial} +\getchunk{domain HELLFDIV HyperellipticFiniteDivisor} + +\getchunk{domain ICP InfClsPt} +\getchunk{domain ICARD IndexCard} +\getchunk{domain IBITS IndexedBits} +\getchunk{domain IDPAG IndexedDirectProductAbelianGroup} +\getchunk{domain IDPAM IndexedDirectProductAbelianMonoid} +\getchunk{domain IDPO IndexedDirectProductObject} +\getchunk{domain IDPOAM IndexedDirectProductOrderedAbelianMonoid} +\getchunk{domain IDPOAMS IndexedDirectProductOrderedAbelianMonoidSup} +\getchunk{domain INDE IndexedExponents} +\getchunk{domain IFARRAY IndexedFlexibleArray} +\getchunk{domain ILIST IndexedList} +\getchunk{domain IMATRIX IndexedMatrix} +\getchunk{domain IARRAY1 IndexedOneDimensionalArray} +\getchunk{domain ISTRING IndexedString} +\getchunk{domain IARRAY2 IndexedTwoDimensionalArray} +\getchunk{domain IVECTOR IndexedVector} +\getchunk{domain ITUPLE InfiniteTuple} +\getchunk{domain INFCLSPT InfinitlyClosePoint} +\getchunk{domain INFCLSPS InfinitlyClosePointOverPseudoAlgebraicClosureOfFiniteField} +\getchunk{domain IAN InnerAlgebraicNumber} +\getchunk{domain IFF InnerFiniteField} +\getchunk{domain IFAMON InnerFreeAbelianMonoid} +\getchunk{domain IIARRAY2 InnerIndexedTwoDimensionalArray} +\getchunk{domain IPADIC InnerPAdicInteger} +\getchunk{domain IPF InnerPrimeField} +\getchunk{domain ISUPS InnerSparseUnivariatePowerSeries} +\getchunk{domain INTABL InnerTable} +\getchunk{domain ITAYLOR InnerTaylorSeries} +\getchunk{domain INFORM InputForm} +\getchunk{domain INT Integer} +\getchunk{domain ZMOD IntegerMod} +\getchunk{domain INTFTBL IntegrationFunctionsTable} +\getchunk{domain IR IntegrationResult} +\getchunk{domain INTRVL Interval} + +\getchunk{domain KERNEL Kernel} +\getchunk{domain KAFILE KeyedAccessFile} + +\getchunk{domain LAUPOL LaurentPolynomial} +\getchunk{domain LIB Library} +\getchunk{domain LEXP LieExponentials} +\getchunk{domain LPOLY LiePolynomial} +\getchunk{domain LSQM LieSquareMatrix} +\getchunk{domain LODO LinearOrdinaryDifferentialOperator} +\getchunk{domain LODO1 LinearOrdinaryDifferentialOperator1} +\getchunk{domain LODO2 LinearOrdinaryDifferentialOperator2} +\getchunk{domain LIST List} +\getchunk{domain LMOPS ListMonoidOps} +\getchunk{domain LMDICT ListMultiDictionary} +\getchunk{domain LA LocalAlgebra} +\getchunk{domain LO Localize} +\getchunk{domain LWORD LyndonWord} + +\getchunk{domain MCMPLX MachineComplex} +\getchunk{domain MFLOAT MachineFloat} +\getchunk{domain MINT MachineInteger} +\getchunk{domain MAGMA Magma} +\getchunk{domain MKCHSET MakeCachableSet} +\getchunk{domain MMLFORM MathMLFormat} +\getchunk{domain MATRIX Matrix} +\getchunk{domain MODMON ModMonic} +\getchunk{domain MODMONOM ModuleMonomial} +\getchunk{domain MODFIELD ModularField} +\getchunk{domain MODRING ModularRing} +\getchunk{domain MODOP ModuleOperator} +\getchunk{domain MOEBIUS MoebiusTransform} +\getchunk{domain MRING MonoidRing} +\getchunk{domain MSET Multiset} +\getchunk{domain MPOLY MultivariatePolynomial} +\getchunk{domain MYEXPR MyExpression} +\getchunk{domain MYUP MyUnivariatePolynomial} + +\getchunk{domain NSDPS NeitherSparseOrDensePowerSeries} +\getchunk{domain NSMP NewSparseMultivariatePolynomial} +\getchunk{domain NSUP NewSparseUnivariatePolynomial} +\getchunk{domain NONE None} +\getchunk{domain NNI NonNegativeInteger} +\getchunk{domain NOTTING NottinghamGroup} +\getchunk{domain NIPROB NumericalIntegrationProblem} +\getchunk{domain ODEPROB NumericalODEProblem} +\getchunk{domain OPTPROB NumericalOptimizationProblem} +\getchunk{domain PDEPROB NumericalPDEProblem} + +\getchunk{domain OCT Octonion} +\getchunk{domain ODEIFTBL ODEIntensityFunctionsTable} +\getchunk{domain ARRAY1 OneDimensionalArray} +\getchunk{domain ONECOMP OnePointCompletion} +\getchunk{domain OMCONN OpenMathConnection} +\getchunk{domain OMDEV OpenMathDevice} +\getchunk{domain OMENC OpenMathEncoding} +\getchunk{domain OMERR OpenMathError} +\getchunk{domain OMERRK OpenMathErrorKind} +\getchunk{domain OP Operator} +\getchunk{domain OMLO OppositeMonogenicLinearOperator} +\getchunk{domain ORDCOMP OrderedCompletion} +\getchunk{domain ODP OrderedDirectProduct} +\getchunk{domain OFMONOID OrderedFreeMonoid} +\getchunk{domain OVAR OrderedVariableList} +\getchunk{domain ODPOL OrderlyDifferentialPolynomial} +\getchunk{domain ODVAR OrderlyDifferentialVariable} +\getchunk{domain ODR OrdinaryDifferentialRing} +\getchunk{domain OWP OrdinaryWeightedPolynomials} +\getchunk{domain OSI OrdSetInts} +\getchunk{domain OUTFORM OutputForm} + +\getchunk{domain PADIC PAdicInteger} +\getchunk{domain PADICRC PAdicRationalConstructor} +\getchunk{domain PADICRAT PAdicRational} +\getchunk{domain PALETTE Palette} +\getchunk{domain PARPCURV ParametricPlaneCurve} +\getchunk{domain PARSCURV ParametricSpaceCurve} +\getchunk{domain PARSURF ParametricSurface} +\getchunk{domain PFR PartialFraction} +\getchunk{domain PLACES Places} +\getchunk{domain PLACESPS PlacesOverPseudoAlgebraicClosureOfFiniteField} +\getchunk{domain PRTITION Partition} +\getchunk{domain PATTERN Pattern} +\getchunk{domain PATLRES PatternMatchListResult} +\getchunk{domain PATRES PatternMatchResult} +\getchunk{domain PENDTREE PendantTree} +\getchunk{domain PERM Permutation} +\getchunk{domain PERMGRP PermutationGroup} +\getchunk{domain HACKPI Pi} +\getchunk{domain ACPLOT PlaneAlgebraicCurvePlot} +\getchunk{domain PLCS Plcs} +\getchunk{domain PLOT Plot} +\getchunk{domain PLOT3D Plot3D} +\getchunk{domain PBWLB PoincareBirkhoffWittLyndonBasis} +\getchunk{domain POINT Point} +\getchunk{domain POLY Polynomial} +\getchunk{domain IDEAL PolynomialIdeals} +\getchunk{domain PR PolynomialRing} +\getchunk{domain PI PositiveInteger} +\getchunk{domain PF PrimeField} +\getchunk{domain PRIMARR PrimitiveArray} +\getchunk{domain PRODUCT Product} +\getchunk{domain PROJPL ProjectivePlane} +\getchunk{domain PROJSP ProjectiveSpace} +\getchunk{domain PACEXT PseudoAlgebraicClosureOfAlgExtOfRationalNumber} +\getchunk{domain PACOFF PseudoAlgebraicClosureOfFiniteField} +\getchunk{domain PACRAT PseudoAlgebraicClosureOfRationalNumber} + +\getchunk{domain QFORM QuadraticForm} +\getchunk{domain QALGSET QuasiAlgebraicSet} +\getchunk{domain QUAT Quaternion} +\getchunk{domain QEQUAT QueryEquation} +\getchunk{domain QUEUE Queue} + +\getchunk{domain RADFF RadicalFunctionField} +\getchunk{domain RADIX RadixExpansion} +\getchunk{domain RECLOS RealClosure} +\getchunk{domain RMATRIX RectangularMatrix} +\getchunk{domain REF Reference} +\getchunk{domain RGCHAIN RegularChain} +\getchunk{domain REGSET RegularTriangularSet} +\getchunk{domain RESRING ResidueRing} +\getchunk{domain RESULT Result} +\getchunk{domain RULE RewriteRule} +\getchunk{domain ROIRC RightOpenIntervalRootCharacterization} +\getchunk{domain ROMAN RomanNumeral} +\getchunk{domain ROUTINE RoutinesTable} +\getchunk{domain RULECOLD RuleCalled} +\getchunk{domain RULESET Ruleset} + +\getchunk{domain FORMULA ScriptFormulaFormat} +\getchunk{domain SEG Segment} +\getchunk{domain SEGBIND SegmentBinding} +\getchunk{domain SET Set} +\getchunk{domain SEX SExpression} +\getchunk{domain SEXOF SExpressionOf} +\getchunk{domain SAE SimpleAlgebraicExtension} +\getchunk{domain SFORT SimpleFortranProgram} +\getchunk{domain SINT SingleInteger} +\getchunk{domain SAOS SingletonAsOrderedSet} +\getchunk{domain SDPOL SequentialDifferentialPolynomial} +\getchunk{domain SDVAR SequentialDifferentialVariable} +\getchunk{domain SETMN SetOfMIntegersInOneToN} +\getchunk{domain SMP SparseMultivariatePolynomial} +\getchunk{domain SMTS SparseMultivariateTaylorSeries} +\getchunk{domain STBL SparseTable} +\getchunk{domain SULS SparseUnivariateLaurentSeries} +\getchunk{domain SUP SparseUnivariatePolynomial} +\getchunk{domain SUPEXPR SparseUnivariatePolynomialExpressions} +\getchunk{domain SUPXS SparseUnivariatePuiseuxSeries} +\getchunk{domain ORESUP SparseUnivariateSkewPolynomial} +\getchunk{domain SUTS SparseUnivariateTaylorSeries} +\getchunk{domain SHDP SplitHomogeneousDirectProduct} +\getchunk{domain SPLNODE SplittingNode} +\getchunk{domain SPLTREE SplittingTree} +\getchunk{domain SREGSET SquareFreeRegularTriangularSet} +\getchunk{domain SQMATRIX SquareMatrix} +\getchunk{domain STACK Stack} +\getchunk{domain STREAM Stream} +\getchunk{domain STRING String} +\getchunk{domain STRTBL StringTable} +\getchunk{domain SUBSPACE SubSpace} +\getchunk{domain COMPPROP SubSpaceComponentProperty} +\getchunk{domain SUCH SuchThat} +\getchunk{domain SWITCH Switch} +\getchunk{domain SYMBOL Symbol} +\getchunk{domain SYMTAB SymbolTable} +\getchunk{domain SYMPOLY SymmetricPolynomial} + +\getchunk{domain TABLE Table} +\getchunk{domain TABLEAU Tableau} +\getchunk{domain TS TaylorSeries} +\getchunk{domain TEX TexFormat} +\getchunk{domain TEXTFILE TextFile} +\getchunk{domain SYMS TheSymbolTable} +\getchunk{domain M3D ThreeDimensionalMatrix} +\getchunk{domain VIEW3D ThreeDimensionalViewport} +\getchunk{domain SPACE3 ThreeSpace} +\getchunk{domain TREE Tree} +\getchunk{domain TUBE TubePlot} +\getchunk{domain TUPLE Tuple} +\getchunk{domain ARRAY2 TwoDimensionalArray} +\getchunk{domain VIEW2D TwoDimensionalViewport} + +\getchunk{domain UFPS UnivariateFormalPowerSeries} +\getchunk{domain ULS UnivariateLaurentSeries} +\getchunk{domain ULSCONS UnivariateLaurentSeriesConstructor} +\getchunk{domain UP UnivariatePolynomial} +\getchunk{domain UPXS UnivariatePuiseuxSeries} +\getchunk{domain UPXSCONS UnivariatePuiseuxSeriesConstructor} +\getchunk{domain UPXSSING UnivariatePuiseuxSeriesWithExponentialSingularity} +\getchunk{domain OREUP UnivariateSkewPolynomial} +\getchunk{domain UTS UnivariateTaylorSeries} +\getchunk{domain UTSZ UnivariateTaylorSeriesCZero} +\getchunk{domain UNISEG UniversalSegment} + +\getchunk{domain VARIABLE Variable} +\getchunk{domain VECTOR Vector} +\getchunk{domain VOID Void} + +\getchunk{domain WP WeightedPolynomials} +\getchunk{domain WUTSET WuWenTsunTriangularSet} + +\getchunk{domain XDPOLY XDistributedPolynomial} +\getchunk{domain XPBWPOLY XPBWPolynomial} +\getchunk{domain XPOLY XPolynomial} +\getchunk{domain XPR XPolynomialRing} +\getchunk{domain XRPOLY XRecursivePolynomial} +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Index} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% diff --git a/books/bookvol10.4.pamphlet b/books/bookvol10.4.pamphlet index ee37fde..1d0185d 100644 --- a/books/bookvol10.4.pamphlet +++ b/books/bookvol10.4.pamphlet @@ -235,7 +235,7 @@ in the bootstrap set. Thus, \chapter{Chapter A} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package AFALGGRO AffineAlgebraicSetComputeWithGroebnerBasis} -<>= +\begin{chunk}{AffineAlgebraicSetComputeWithGroebnerBasis.input} )set break resume )sys rm -f AffineAlgebraicSetComputeWithGroebnerBasis.output )spool AffineAlgebraicSetComputeWithGroebnerBasis.output @@ -259,8 +259,8 @@ in the bootstrap set. Thus, )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffineAlgebraicSetComputeWithGroebnerBasis.help} ==================================================================== AffineAlgebraicSetComputeWithGroebnerBasis examples ==================================================================== @@ -268,7 +268,7 @@ AffineAlgebraicSetComputeWithGroebnerBasis examples See Also: o )show AffineAlgebraicSetComputeWithGroebnerBasis -@ +\end{chunk} \pagehead{AffineAlgebraicSetComputeWithGroebnerBasis}{AFALGGRO} \pagepic{ps/v104affinealgebraicsetcomputewithgroebnerbasis.eps}{AFALGGRO}{1.00} @@ -279,7 +279,7 @@ o )show AffineAlgebraicSetComputeWithGroebnerBasis \cross{AFALGGRO}{affineSingularPoints} \end{tabular} -<>= +\begin{chunk}{package AFALGGRO AffineAlgebraicSetComputeWithGroebnerBasis} )abbreviation package AFALGGRO AffineAlgebraicSetComputeWithGroebnerBasis ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -449,18 +449,18 @@ AffineAlgebraicSetComputeWithGroebnerBasis(K,symb,PolyRing,E,ProjPt):Exports_ e1:= pp.1 monomial(lc,e1)$SUP(K) + polyToX10 reductum pol -@ -<>= +\end{chunk} +\begin{chunk}{AFALGGRO.dotabb} "AFALGGRO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=AFALGGRO"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "AFALGGRO" -> "DIRPCAT" "AFALGGRO" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package AFALGRES AffineAlgebraicSetComputeWithResultant} -<>= +\begin{chunk}{AffineAlgebraicSetComputeWithResultant.input} )set break resume )sys rm -f AffineAlgebraicSetComputeWithResultant.output )spool AffineAlgebraicSetComputeWithResultant.output @@ -488,8 +488,8 @@ AffineAlgebraicSetComputeWithGroebnerBasis(K,symb,PolyRing,E,ProjPt):Exports_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{AffineAlgebraicSetComputeWithResultant.help} ==================================================================== AffineAlgebraicSetComputeWithResultant examples ==================================================================== @@ -497,7 +497,7 @@ AffineAlgebraicSetComputeWithResultant examples See Also: o )show AffineAlgebraicSetComputeWithResultant -@ +\end{chunk} \pagehead{AffineAlgebraicSetComputeWithResultant}{AFALGRES} \pagepic{ps/v104affinealgebraicsetcomputewithresultant.eps}{AFALGRES}{1.00} @@ -511,7 +511,7 @@ o )show AffineAlgebraicSetComputeWithResultant \cross{AFALGRES}{polyRing2UPUP} \end{tabular} -<>= +\begin{chunk}{package AFALGRES AffineAlgebraicSetComputeWithResultant} )abbrev package AFALGRES AffineAlgebraicSetComputeWithResultant ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -655,13 +655,13 @@ AffineAlgebraicSetComputeWithResultant(K,symb,PolyRing,E,ProjPt):Ex==Impl where degExt listPtsIdl -@ -<>= +\end{chunk} +\begin{chunk}{AFALGRES.dotabb} "AFALGRES" [color="#FF4488",href="bookvol10.4.pdf#nameddest=AFALGRES"] "RFP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFP"] "AFALGRES" -> "RFP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package AF AlgebraicFunction} \pagehead{AlgebraicFunction}{AF} @@ -680,7 +680,7 @@ AffineAlgebraicSetComputeWithResultant(K,symb,PolyRing,E,ProjPt):Ex==Impl where \cross{AF}{?**?} & \end{tabular} -<>= +\begin{chunk}{package AF AlgebraicFunction} )abbrev package AF AlgebraicFunction ++ Author: Manuel Bronstein ++ Date Created: 21 March 1988 @@ -926,15 +926,15 @@ AlgebraicFunction(R, F): Exports == Implementation where setProperty(oproot, SPECIALDISP, droot@(List F -> OutputForm) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{AF.dotabb} "AF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=AF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "AF" -> "FS" "AF" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTHERAL AlgebraicHermiteIntegration} \pagehead{AlgebraicHermiteIntegration}{INTHERAL} @@ -943,7 +943,7 @@ AlgebraicFunction(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{INTHERAL}{HermiteIntegrate} -<>= +\begin{chunk}{package INTHERAL AlgebraicHermiteIntegration} )abbrev package INTHERAL AlgebraicHermiteIntegration ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -1018,13 +1018,13 @@ AlgebraicHermiteIntegration(F,UP,UPUP,R):Exports == Implementation where qsetelt_!(ans, i, (numer qelt(sol, i) * bc.coef1) rem modulus) ans -@ -<>= +\end{chunk} +\begin{chunk}{INTHERAL.dotabb} "INTHERAL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTHERAL"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "INTHERAL" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTALG AlgebraicIntegrate} \pagehead{AlgebraicIntegrate}{INTALG} @@ -1037,7 +1037,7 @@ AlgebraicHermiteIntegration(F,UP,UPUP,R):Exports == Implementation where \cross{INTALG}{palgintegrate} \end{tabular} -<>= +\begin{chunk}{package INTALG AlgebraicIntegrate} )abbrev package INTALG AlgebraicIntegrate ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -1336,8 +1336,8 @@ AlgebraicIntegrate(R0, F, UP, UPUP, R): Exports == Implementation where x1+->retract(derivation(x1::UP))@F) => "failed" FAIL0 -@ -<>= +\end{chunk} +\begin{chunk}{INTALG.dotabb} "INTALG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTALG"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] @@ -1346,7 +1346,7 @@ AlgebraicIntegrate(R0, F, UP, UPUP, R): Exports == Implementation where "INTALG" -> "FS" "INTALG" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTAF AlgebraicIntegration} \pagehead{AlgebraicIntegration}{INTAF} @@ -1355,7 +1355,7 @@ AlgebraicIntegrate(R0, F, UP, UPUP, R): Exports == Implementation where {\bf Exports:}\\ \cross{INTAF}{algint} -<>= +\begin{chunk}{package INTAF AlgebraicIntegration} )abbrev package INTAF AlgebraicIntegration ++ Author: Manuel Bronstein ++ Date Created: 12 October 1988 @@ -1429,15 +1429,15 @@ AlgebraicIntegration(R, F): Exports == Implementation where is?(y, "rootOf"::SY) => algintegrate(f, t, y, derivation) FAIL -@ -<>= +\end{chunk} +\begin{chunk}{INTAF.dotabb} "INTAF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTAF"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "INTAF" -> "ACF" "INTAF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ALGMANIP AlgebraicManipulations} \pagehead{AlgebraicManipulations}{ALGMANIP} @@ -1454,7 +1454,7 @@ AlgebraicIntegration(R, F): Exports == Implementation where \cross{ALGMANIP}{rootSplit} & \end{tabular} -<>= +\begin{chunk}{package ALGMANIP AlgebraicManipulations} )abbrev package ALGMANIP AlgebraicManipulations ++ Author: Manuel Bronstein ++ Date Created: 28 Mar 1988 @@ -1659,13 +1659,13 @@ AlgebraicManipulations(R, F): Exports == Implementation where lk := rootkernels tower x eval(x, lk, [sroot k for k in lk]) -@ -<>= +\end{chunk} +\begin{chunk}{ALGMANIP.dotabb} "ALGMANIP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ALGMANIP"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ALGMANIP" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ALGMFACT AlgebraicMultFact} \pagehead{AlgebraicMultFact}{ALGMFACT} @@ -1674,7 +1674,7 @@ AlgebraicManipulations(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{ALGMFACT}{factor} -<>= +\begin{chunk}{package ALGMFACT AlgebraicMultFact} )abbrev package ALGMFACT AlgebraicMultFact ++ Author: P. Gianni ++ Date Created: 1990 @@ -1730,13 +1730,13 @@ AlgebraicMultFact(OV,E,P) : C == T factor(up:USP,lalg:L AN) : Factored USP == factor(up,(z1:BP):Factored(BP) +-> factor(z1,lalg)$AF)$INNER -@ -<>= +\end{chunk} +\begin{chunk}{ALGMFACT.dotabb} "ALGMFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ALGMFACT"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "ALGMFACT" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ALGPKG AlgebraPackage} \pagehead{AlgebraPackage}{ALGPKG} @@ -1764,7 +1764,7 @@ AlgebraicMultFact(OV,E,P) : C == T \cross{ALGPKG}{weakBiRank} && \end{tabular} -<>= +\begin{chunk}{package ALGPKG AlgebraPackage} )abbrev package ALGPKG AlgebraPackage ++ Authors: J. Grabmeier, R. Wisbauer ++ Date Created: 04 March 1991 @@ -2226,13 +2226,13 @@ AlgebraPackage(R:IntegralDomain, A: FramedNonAssociativeAlgebra(R)): _ finished? := true [v.j for j in reverse lj] -@ -<>= +\end{chunk} +\begin{chunk}{ALGPKG.dotabb} "ALGPKG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ALGPKG"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "ALGPKG" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ALGFACT AlgFactor} \pagehead{AlgFactor}{ALGFACT} @@ -2245,7 +2245,7 @@ AlgebraPackage(R:IntegralDomain, A: FramedNonAssociativeAlgebra(R)): _ \cross{ALGFACT}{split} \end{tabular} -<>= +\begin{chunk}{package ALGFACT AlgFactor} )abbrev package ALGFACT AlgFactor ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -2347,13 +2347,13 @@ AlgFactor(UP): Exports == Implementation where $UPCF2(sae, ups, AN, UP), fc.exponent) for fc in factors fr] -@ -<>= +\end{chunk} +\begin{chunk}{ALGFACT.dotabb} "ALGFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ALGFACT"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "ALGFACT" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTPACK AnnaNumericalIntegrationPackage} \pagehead{AnnaNumericalIntegrationPackage}{INTPACK} @@ -2365,7 +2365,7 @@ AlgFactor(UP): Exports == Implementation where \cross{INTPACK}{measure} \end{tabular} -<>= +\begin{chunk}{package INTPACK AnnaNumericalIntegrationPackage} )abbrev package INTPACK AnnaNumericalIntegrationPackage ++ Author: Brian Dupee ++ Date Created: August 1994 @@ -2869,13 +2869,13 @@ AnnaNumericalIntegrationPackage(): EE == II where integrate(exp:EF,ra:LSOCF):Result == integrate(exp,ra,1.0e-4) -@ -<>= +\end{chunk} +\begin{chunk}{INTPACK.dotabb} "INTPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTPACK"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "INTPACK" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OPTPACK AnnaNumericalOptimizationPackage} \pagehead{AnnaNumericalOptimizationPackage}{OPTPACK} @@ -2888,7 +2888,7 @@ AnnaNumericalIntegrationPackage(): EE == II where \cross{OPTPACK}{optimize} \end{tabular} -<>= +\begin{chunk}{package OPTPACK AnnaNumericalOptimizationPackage} )abbrev package OPTPACK AnnaNumericalOptimizationPackage ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -3283,13 +3283,13 @@ AnnaNumericalOptimizationPackage(): EE == II where args:LSA := [[ef2edf i for i in lf],[f2df j for j in start]] goodnessOfFit(args::NumericalOptimizationProblem) -@ -<>= +\end{chunk} +\begin{chunk}{OPTPACK.dotabb} "OPTPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OPTPACK"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "OPTPACK" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEPACK AnnaOrdinaryDifferentialEquationPackage} \pagehead{AnnaOrdinaryDifferentialEquationPackage}{ODEPACK} @@ -3301,7 +3301,7 @@ AnnaNumericalOptimizationPackage(): EE == II where \cross{ODEPACK}{solve} \end{tabular} -<>= +\begin{chunk}{package ODEPACK AnnaOrdinaryDifferentialEquationPackage} )abbrev package ODEPACK AnnaOrdinaryDifferentialEquationPackage ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -3706,13 +3706,13 @@ AnnaOrdinaryDifferentialEquationPackage(): EE == II where solve(f:VEF,xStart:F,xEnd:F,yInitial:LF):Result == solve(f,xStart,xEnd,yInitial,1.0e-4) -@ -<>= +\end{chunk} +\begin{chunk}{ODEPACK.dotabb} "ODEPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEPACK"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ODEPACK" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PDEPACK AnnaPartialDifferentialEquationPackage} \pagehead{AnnaPartialDifferentialEquationPackage}{PDEPACK} @@ -3724,7 +3724,7 @@ AnnaOrdinaryDifferentialEquationPackage(): EE == II where \cross{PDEPACK}{solve} \end{tabular} -<>= +\begin{chunk}{package PDEPACK AnnaPartialDifferentialEquationPackage} )abbrev package PDEPACK AnnaPartialDifferentialEquationPackage ++ Author: Brian Dupee ++ Date Created: June 1996 @@ -3977,13 +3977,13 @@ AnnaPartialDifferentialEquationPackage(): EE == II where LEF,s:ST):Result == solve(xmi,xma,ymi,yma,nx,ny,pe,bo,s,0.0001::DF) -@ -<>= +\end{chunk} +\begin{chunk}{PDEPACK.dotabb} "PDEPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PDEPACK"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "PDEPACK" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ANY1 AnyFunctions1} \pagehead{AnyFunctions1}{ANY1} @@ -3997,7 +3997,7 @@ AnnaPartialDifferentialEquationPackage(): EE == II where \cross{ANY1}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{package ANY1 AnyFunctions1} )abbrev package ANY1 AnyFunctions1 ++ Author: ++ Date Created: @@ -4045,16 +4045,16 @@ AnyFunctions1(S:Type): with retractable? a => obj(a) pretend S error "Cannot retract value." -@ -<>= +\end{chunk} +\begin{chunk}{ANY1.dotabb} "ANY1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ANY1"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "ANY1" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package API ApplicationProgramInterface} -<>= +\begin{chunk}{ApplicationProgramInterface.input} )set break resume )sys rm -f ApplicationProgramInterface.output )spool ApplicationProgramInterface.output @@ -4175,10 +4175,10 @@ credits() --R Type: Void --E 3 -@ +\end{chunk} The summary command simply types out the contents of the file \$AXIOM/lib/summary so no output is captured in the spool file. -<>= +\begin{chunk}{ApplicationProgramInterface.input} --S 4 of 5 summary() --R @@ -4200,8 +4200,8 @@ summary() )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ApplicationProgramInterface.help} ==================================================================== ApplicationProgramInterface examples ==================================================================== @@ -4239,7 +4239,7 @@ to the development of Axiom. This is equivalent to the )credits command. The summary function prints a short list of useful console commands. -@ +\end{chunk} \pagehead{ApplicationProgramInterface}{API} \pagepic{ps/v104applicationprograminterface.ps}{API}{1.00} @@ -4247,7 +4247,7 @@ The summary function prints a short list of useful console commands. \begin{tabular}{ll} \end{tabular} -<>= +\begin{chunk}{package API ApplicationProgramInterface} )abbrev package API ApplicationProgramInterface ++ Author: Timothy Daly, Martin Rubey ++ Date Created: 3 March 2009 @@ -4279,13 +4279,13 @@ ApplicationProgramInterface(): Exports == Implementation where summary() == ( summary()$Lisp ; void() ) -@ -<>= +\end{chunk} +\begin{chunk}{API.dotabb} "API" [color="#FF4488",href="bookvol10.4.pdf#nameddest=APPRULE"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "API" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package APPRULE ApplyRules} \pagehead{ApplyRules}{APPRULE} @@ -4297,7 +4297,7 @@ ApplicationProgramInterface(): Exports == Implementation where \cross{APPRULE}{localUnquote} \end{tabular} -<>= +\begin{chunk}{package APPRULE ApplyRules} )abbrev package APPRULE ApplyRules ++ Applications of rules to expressions ++ Author: Manuel Bronstein @@ -4416,13 +4416,13 @@ ApplyRules(Base, R, F): Exports == Implementation where recip(f)::F ** (- ee.exponent)::NonNegativeInteger subject -@ -<>= +\end{chunk} +\begin{chunk}{APPRULE.dotabb} "APPRULE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=APPRULE"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "APPRULE" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package APPLYORE ApplyUnivariateSkewPolynomial} \pagehead{ApplyUnivariateSkewPolynomial}{APPLYORE} @@ -4431,7 +4431,7 @@ ApplyRules(Base, R, F): Exports == Implementation where {\bf Exports:}\\ \cross{APPLYORE}{apply} -<>= +\begin{chunk}{package APPLYORE ApplyUnivariateSkewPolynomial} )abbrev package APPLYORE ApplyUnivariateSkewPolynomial ++ Author: Manuel Bronstein ++ Date Created: 7 December 1993 @@ -4455,13 +4455,13 @@ ApplyUnivariateSkewPolynomial(R:Ring, M: LeftModule R, mn := f mn w -@ -<>= +\end{chunk} +\begin{chunk}{APPLYORE.dotabb} "APPLYORE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=APPLYORE"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "APPLYORE" -> "OREPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ASSOCEQ AssociatedEquations} \pagehead{AssociatedEquations}{ASSOCEQ} @@ -4474,7 +4474,7 @@ ApplyUnivariateSkewPolynomial(R:Ring, M: LeftModule R, \cross{ASSOCEQ}{uncouplingMatrices} \end{tabular} -<>= +\begin{chunk}{package ASSOCEQ AssociatedEquations} )abbrev package ASSOCEQ AssociatedEquations ++ Author: Manuel Bronstein ++ Date Created: 10 January 1994 @@ -4582,13 +4582,13 @@ AssociatedEquations(R, L):Exports == Implementation where for i in 1..#v repeat op := op + monomial(v i, i) op -@ -<>= +\end{chunk} +\begin{chunk}{ASSOCEQ.dotabb} "ASSOCEQ" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ASSOCEQ"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "ASSOCEQ" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMPRED AttachPredicates} \pagehead{AttachPredicates}{PMPRED} @@ -4597,7 +4597,7 @@ AssociatedEquations(R, L):Exports == Implementation where {\bf Exports:}\\ \cross{PMPRED}{suchThat} -<>= +\begin{chunk}{package PMPRED AttachPredicates} )abbrev package PMPRED AttachPredicates ++ Predicates for pattern-matching ++ Author: Manuel Bronstein @@ -4623,15 +4623,15 @@ AttachPredicates(D:Type): Exports == Implementation where suchThat(p:Symbol, f:D -> Boolean) == suchThat(p::FE, f) suchThat(p:Symbol, l:List(D -> Boolean)) == suchThat(p::FE, l) -@ -<>= +\end{chunk} +\begin{chunk}{PMPRED.dotabb} "PMPRED" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMPRED"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "PMPRED" -> "PID" "PMPRED" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package AXSERV AxiomServer} \pagehead{AxiomServer}{AXSERV} @@ -4644,7 +4644,7 @@ AttachPredicates(D:Type): Exports == Implementation where \cross{ASSOCEQ}{getDatabase} \end{tabular} -<>= +\begin{chunk}{package AXSERV AxiomServer} )abbrev package AXSERV AxiomServer ++ Author: Arthur Ralfs, Timothy Daly, Alfredo Portes @@ -4683,11 +4683,11 @@ AxiomServer: public == private where -- WriteLine$Lisp concat ["getDatabase: ",constructor," ",key," ",answer] answer -@ +\end{chunk} The axServer function handles the socket connection on the given port. When it gets a input on the socket it calls the server function on the socket input. -<>= +\begin{chunk}{package AXSERV AxiomServer} axServer(port:Integer,serverfunc:SExpression->Void):Void == WriteLine$Lisp "listening on port 8085" s := SiSock(port,serverfunc)$Lisp @@ -4700,7 +4700,7 @@ function on the socket input. serverfunc(w) -- i := 0 -@ +\end{chunk} The multiServ function parses the socket input. It expects either a GET or POST request. @@ -4712,7 +4712,7 @@ A POST request starts with \item ``lispcall='' which expects lisp interpreter input When this is recognized we call the ``getLisp'' function. \end{itemize} -<>= +\begin{chunk}{package AXSERV AxiomServer} multiServ(s:SExpression):Void == -- WriteLine("multiServ begin")$Lisp @@ -4763,13 +4763,13 @@ A POST request starts with -- WriteLine("multiServ end")$Lisp -- WriteLine("")$Lisp -@ +\end{chunk} \subsubsection{getFile} Given a socket and the URL of the file we create an input stream that contains the file. If the filename contains a question mark then we need to parse the parameters and dynamically construct the file contents. -<>= +\begin{chunk}{package AXSERV AxiomServer} getFile(s:SExpression,pathvar:String):Void == -- WriteLine("")$Lisp WriteLine$Lisp concat ["getFile: ",pathvar] @@ -4790,9 +4790,9 @@ file contents. q:=MAKE_-STRING_-INPUT_-STREAM(makeDBPage(pathvar))$Lisp outputToSocket(s,readTheFile(q),contentType) -@ +\end{chunk} \subsubsection{makeErrorPage} -<>= +\begin{chunk}{package AXSERV AxiomServer} makeErrorPage(msg:String):String == page:String:="Error" msg "" -- WriteLine(page)$Lisp page -@ +\end{chunk} \subsubsection{getDescription} We need to fish around in the data structure to return the piece of documentation for the domain. We have to call the lisp version of @@ -4810,16 +4810,16 @@ string object is missing quotes and cannot be properly read. So we need to get the lisp object and work with it in native form first. The doc string also contains spad markup which we need to replace with html. -<>= +\begin{chunk}{package AXSERV AxiomServer} getDescription(dom:String):String == d:=CADR(CADAR(GETDATABASE(INTERN(dom)$Lisp,'DOCUMENTATION)$Lisp)$Lisp)$Lisp string d -@ +\end{chunk} \subsubsection{getSourceFile} During build we construct a hash table that takes the chunk name as the key and returns the filename. We reconstruct the chunk name here and do a lookup for the source file. -<>= +\begin{chunk}{package AXSERV AxiomServer} getSourceFile(constructorkind:String,_ abbreviation:String,_ dom:String):String == @@ -4828,9 +4828,9 @@ and do a lookup for the source file. sourcefile:=lowerCase last split(getDatabase(dom,"SOURCEFILE"),char "/") sourcefile:=sourcefile ".pamphlet" -@ +\end{chunk} \subsubsection{makeDBPage} -<>= +\begin{chunk}{package AXSERV AxiomServer} makeDBPage(pathvar:String):String == params:List(String):=split(pathvar,char "?") for i in 1..#params repeat WriteLine$Lisp concat ["params: ",params.i] @@ -4964,11 +4964,11 @@ and do a lookup for the source file. -- WriteLine(page)$Lisp page:=page "" page -@ +\end{chunk} \subsubsection{readTheFile} We have q which is a stream which contains the file. We read the file into a string-stream to get it all into one string. We return the string. -<>= +\begin{chunk}{package AXSERV AxiomServer} readTheFile(q:SExpression):String == -- WriteLine("begin reading file")$Lisp r := MAKE_-STRING_-OUTPUT_-STREAM()$Lisp @@ -4979,13 +4979,13 @@ into a string-stream to get it all into one string. We return the string. -- WriteLine("end reading file")$Lisp filestream -@ +\end{chunk} \subsubsection{outputToSocket} We have ``s'' which is the socket, ``filestream'' which is the text of the file to output, and ``contentType'' which is the HTML Content-Type. We construct the HTML header information according to the standard and prepend it to the file. The resulting string is output to the socket. -<>= +\begin{chunk}{package AXSERV AxiomServer} outputToSocket(s:SExpression,filestream:String,contentType:String):Void == filelength:String := string(#filestream) file:String := "" @@ -5001,7 +5001,7 @@ prepend it to the file. The resulting string is output to the socket. CLOSE(f)$Lisp CLOSE(s)$Lisp -@ +\end{chunk} \subsubsection{getCommand} The getCommand function is invoked when the HTTP request is a POST and contains the string "command". Essentially the game here is @@ -5018,7 +5018,7 @@ blocks: The HTML functions in the hyperdoc browser depend on the order of these variables so do not change this without changing the corresponding functions in the browser HTML. -<>= +\begin{chunk}{package AXSERV AxiomServer} getCommand(s:SExpression,command:String):Void == WriteLine$Lisp concat ["getCommand: ",command] SETQ(tmpmathml$Lisp, MAKE_-STRING_-OUTPUT_-STREAM()$Lisp)$Lisp @@ -5060,7 +5060,7 @@ corresponding functions in the browser HTML. CLOSE(q)$Lisp CLOSE(s)$Lisp -@ +\end{chunk} \subsubsection{getInterp} The getInterp function is invoked when the HTTP request is a POST @@ -5078,7 +5078,7 @@ blocks: The HTML functions in the hyperdoc browser depend on the order of these variables so do not change this without changing the corresponding functions in the browser HTML. -<>= +\begin{chunk}{package AXSERV AxiomServer} getInterp(s:SExpression,command:String):Void == WriteLine$Lisp concat ["getInterp: ",command] SETQ(tmpmathml$Lisp, MAKE_-STRING_-OUTPUT_-STREAM()$Lisp)$Lisp @@ -5120,12 +5120,12 @@ corresponding functions in the browser HTML. CLOSE(q)$Lisp CLOSE(s)$Lisp -@ +\end{chunk} \subsubsection{getLisp} The getLisp function is invoked when the HTTP request is a POST and contains the string "lispcall". -<>= +\begin{chunk}{package AXSERV AxiomServer} getLisp(s:SExpression,command:String):Void == WriteLine$Lisp concat ["getLisp: ",command] evalresult:=EVAL(READ_-FROM_-STRING(command)$Lisp)$Lisp @@ -5165,14 +5165,14 @@ and contains the string "lispcall". CLOSE(q)$Lisp CLOSE(s)$Lisp -@ +\end{chunk} \subsubsection{getShow} The getShow function is invoked when the HTTP request is a POST and contains the string "showcall". The )show command generates output to lisp's *standard-output* so we wrap that stream to capture it. The resulting string needs to be transformed into html-friendly form. This is done in the call to replace-entitites (see http.lisp) -<>= +\begin{chunk}{package AXSERV AxiomServer} getShow(s:SExpression,showarg:String):Void == WriteLine$Lisp concat ["getShow: ",showarg] realarg:=SUBSEQ(showarg,6)$Lisp @@ -5219,7 +5219,7 @@ This is done in the call to replace-entitites (see http.lisp) CLOSE(q)$Lisp CLOSE(s)$Lisp -@ +\end{chunk} \subsubsection{lastType} To examine the \$internalHistoryTable use the following line \begin{verbatim} @@ -5246,7 +5246,7 @@ example. We also need to check for input error in which case the \$internalHistoryTable is not changed and the type retrieved would be that for the last correct input. -<>= +\begin{chunk}{package AXSERV AxiomServer} lastType():String == SETQ(first$Lisp,FIRST(_$internalHistoryTable$Lisp)$Lisp)$Lisp count:Integer := 0 @@ -5333,13 +5333,13 @@ input. -- WriteLine("getContentType end")$Lisp contentType -@ -<>= +\end{chunk} +\begin{chunk}{AXSERV.dotabb} "AXSERV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=AXSERV"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "AXSERV" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter B} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -5350,7 +5350,7 @@ input. {\bf Exports:}\\ \cross{BALFACT}{balancedFactorisation} -<>= +\begin{chunk}{package BALFACT BalancedFactorisation} )abbrev package BALFACT BalancedFactorisation ++ Author: Manuel Bronstein ++ Date Created: 1 March 1991 @@ -5395,13 +5395,13 @@ BalancedFactorisation(R, UP): Exports == Implementation where sa := squareFree a unit(sa) * */[balSqfr(f.factor,f.exponent,ll) for f in factors sa]) -@ -<>= +\end{chunk} +\begin{chunk}{BALFACT.dotabb} "BALFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BALFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BALFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BOP1 BasicOperatorFunctions1} \pagehead{BasicOperatorFunctions1}{BOP1} @@ -5415,7 +5415,7 @@ BalancedFactorisation(R, UP): Exports == Implementation where \cross{BOP1}{evaluate} \end{tabular} -<>= +\begin{chunk}{package BOP1 BasicOperatorFunctions1} )abbrev package BOP1 BasicOperatorFunctions1 ++ Author: Manuel Bronstein ++ Date Created: 28 Mar 1988 @@ -5538,16 +5538,16 @@ BasicOperatorFunctions1(A:SetCategory): Exports == Implementation where else constantOperator a == constOp a -@ -<>= +\end{chunk} +\begin{chunk}{BOP1.dotabb} "BOP1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BOP1"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "BOP1" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BEZIER Bezier} -<>= +\begin{chunk}{Bezier.input} )set break resume )sys rm -f Bezier.output )spool Bezier.output @@ -5623,9 +5623,9 @@ graphs:=[[point(((functions.i)(j/100.0))::LIST(DFLOAT)) for j in 0..100] for i i --for i in 2..9 for graph in others repeat putGraph(d1,[graph],i) --vp:=makeViewport2D(d1) -@ +\end{chunk} \includegraphics[scale=1.50]{ps/v104beziermove.eps} -<>= +\begin{chunk}{Bezier.help} ==================================================================== Bezier Curve examples ==================================================================== @@ -5724,7 +5724,7 @@ o )d op point o )d op putGraph o )d op makeViewport2D -@ +\end{chunk} \pagehead{Bezier}{BEZIER} \pagepic{ps/v104bezier.ps}{BEZIER}{1.00} @@ -5735,7 +5735,7 @@ o )d op makeViewport2D \cross{BEZIER}{cubicBezier} \end{tabular} -<>= +\begin{chunk}{package BEZIER Bezier} )abbrev package BEZIER Bezier ++ Author: Timothy Daly ++ Date Created: 14 April 2009 @@ -5787,15 +5787,15 @@ Bezier(R:Ring): with (1-t)**3*(a.2) + 3*t*(1-t)**2*(b.2) + 3*t**2*(1-t)*(c.2) + t**3*(d.2)] -@ -<>= +\end{chunk} +\begin{chunk}{BEZIER.dotabb} "BEZIER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BEZIER"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "BEZIER" -> "LMODULE" "BEZIER" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BEZOUT BezoutMatrix} \pagehead{BezoutMatrix}{BEZOUT} @@ -5809,7 +5809,7 @@ Bezier(R:Ring): with \cross{BEZOUT}{sylvesterMatrix} \end{tabular} -<>= +\begin{chunk}{package BEZOUT BezoutMatrix} )abbrev package BEZOUT BezoutMatrix ++ Author: Clifton J. Williamson ++ Date Created: 2 August 1988 @@ -5959,16 +5959,16 @@ BezoutMatrix(R,UP,M,Row,Col): Exports == Implementation where -bezoutResultant(f,differentiate f) error "bezoutDiscriminant: leading coefficient must be 1" -@ -<>= +\end{chunk} +\begin{chunk}{BEZOUT.dotabb} "BEZOUT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BEZOUT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BEZOUT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BLUPPACK BlowUpPackage} -<>= +\begin{chunk}{BlowUpPackage.input} )set break resume )sys rm -f BlowUpPackage.output )spool BlowUpPackage.output @@ -5995,8 +5995,8 @@ BezoutMatrix(R,UP,M,Row,Col): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BlowUpPackage.help} ==================================================================== BlowUpPackage examples ==================================================================== @@ -6004,7 +6004,7 @@ BlowUpPackage examples See Also: o )show BlowUpPackage -@ +\end{chunk} \pagehead{BlowUpPackage}{BLUPPACK} \pagepic{ps/v104blowuppackage.eps}{BLUPPACK}{1.00} @@ -6018,7 +6018,7 @@ o )show BlowUpPackage \cross{BLUPPACK}{stepBlowUp} \end{tabular} -<>= +\begin{chunk}{package BLUPPACK BlowUpPackage} )abbrev package BLUPPACK BlowUpPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -6264,15 +6264,15 @@ BlowUpPackage(K,symb,PolyRing,E, BLMET):Exports == Implementation where maxOf(a:K,b:K):K == K has PseudoAlgebraicClosureOfPerfectFieldCategory => maxTower([a,b])$K 1$K -@ -<>= +\end{chunk} +\begin{chunk}{BLUPPACK.dotabb} "BLUPPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BLUPPACK"] "RFP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFP"] "NPOLYGON" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NPOLYGON"] "BLUPPACK" -> "RFP" "BLUPPACK" -> "NPOLYGON" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BOUNDZRO BoundIntegerRoots} \pagehead{BoundIntegerRoots}{BOUNDZRO} @@ -6281,7 +6281,7 @@ BlowUpPackage(K,symb,PolyRing,E, BLMET):Exports == Implementation where {\bf Exports:}\\ \cross{BOUNDZRO}{integerBound} -<>= +\begin{chunk}{package BOUNDZRO BoundIntegerRoots} )abbrev package BOUNDZRO BoundIntegerRoots ++ Author: Manuel Bronstein ++ Date Created: 11 March 1991 @@ -6364,13 +6364,13 @@ BoundIntegerRoots(F, UP): Exports == Implementation where and zero? p(r::Q::F) then bound := r bound -@ -<>= +\end{chunk} +\begin{chunk}{BOUNDZRO.dotabb} "BOUNDZRO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BOUNDZRO"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BOUNDZRO" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BRILL BrillhartTests} \pagehead{BrillhartTests}{BRILL} @@ -6383,7 +6383,7 @@ BoundIntegerRoots(F, UP): Exports == Implementation where \cross{BEZOUT}{brillhartTrials} \end{tabular} -<>= +\begin{chunk}{package BRILL BrillhartTests} )abbrev package BRILL BrillhartTests ++ Author: Frederic Lehobey, James H. Davenport ++ Date Created: 28 June 1994 @@ -6490,13 +6490,13 @@ BrillhartTests(UP): Exports == Implementation where noLinearFactor?(p:UP):Boolean == (odd? leadingCoefficient p) and (odd? coefficient(p,0)) and (odd? p(1)) -@ -<>= +\end{chunk} +\begin{chunk}{BRILL.dotabb} "BRILL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=BRILL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "BRILL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter C} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -6510,7 +6510,7 @@ BrillhartTests(UP): Exports == Implementation where \cross{CARTEN2}{reshape} \end{tabular} -<>= +\begin{chunk}{package CARTEN2 CartesianTensorFunctions2} )abbrev package CARTEN2 CartesianTensorFunctions2 ++ Author: Stephen M. Watt ++ Date Created: December 1986 @@ -6544,13 +6544,13 @@ CartesianTensorFunctions2(minix, dim, S, T): CTPcat == CTPdef where reshape(l, s) == unravel l map(f, s) == unravel [f e for e in ravel s] -@ -<>= +\end{chunk} +\begin{chunk}{CARTEN2.dotabb} "CARTEN2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CARTEN2"] "BMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BMODULE"] "CARTEN2" -> "BMODULE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CHVAR ChangeOfVariable} \pagehead{ChangeOfVariable}{CHVAR} @@ -6566,7 +6566,7 @@ CartesianTensorFunctions2(minix, dim, S, T): CTPcat == CTPdef where \cross{CHVAR}{rootPoly} && \end{tabular} -<>= +\begin{chunk}{package CHVAR ChangeOfVariable} )abbrev package CHVAR ChangeOfVariable ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -6695,13 +6695,13 @@ ChangeOfVariable(F, UP, UPUP): Exports == Implementation where m)$FactoredFunctions(UP) [pr.exponent, d / pr.coef, */(pr.radicand)] -@ -<>= +\end{chunk} +\begin{chunk}{CHVAR.dotabb} "CHVAR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CHVAR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CHVAR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CPIMA CharacteristicPolynomialInMonogenicalAlgebra} \pagehead{CharacteristicPolynomialInMonogenicalAlgebra}{CPIMA} @@ -6710,7 +6710,7 @@ ChangeOfVariable(F, UP, UPUP): Exports == Implementation where {\bf Exports:}\\ \cross{CPIMA}{characteristicPolynomial} -<>= +\begin{chunk}{package CPIMA CharacteristicPolynomialInMonogenicalAlgebra} )abbrev package CPIMA CharacteristicPolynomialInMonogenicalAlgebra ++ Author: Claude Quitte ++ Date Created: 10/12/93 @@ -6746,13 +6746,13 @@ CharacteristicPolynomialInMonogenicalAlgebra(R : CommutativeRing, -- on utilise le fait que resultant_Y (P(Y), X - Qx(Y)) return resultant(P, X - XtoY(Qx)) -@ -<>= +\end{chunk} +\begin{chunk}{CPIMA.dotabb} "CPIMA" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CPIMA"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "CPIMA" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CHARPOL CharacteristicPolynomialPackage} \pagehead{CharacteristicPolynomialPackage}{CHARPOL} @@ -6761,7 +6761,7 @@ CharacteristicPolynomialInMonogenicalAlgebra(R : CommutativeRing, {\bf Exports:}\\ \cross{CHARPOL}{characteristicPolynomial} -<>= +\begin{chunk}{package CHARPOL CharacteristicPolynomialPackage} )abbrev package CHARPOL CharacteristicPolynomialPackage ++ Author: Barry Trager ++ Date Created: @@ -6797,13 +6797,13 @@ CharacteristicPolynomialPackage(R:CommutativeRing):C == T where B(i,i) := B(i,i) - v determinant B -@ -<>= +\end{chunk} +\begin{chunk}{CHARPOL.dotabb} "CHARPOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CHARPOL"] "BMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BMODULE"] "CHARPOL" -> "BMODULE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IBACHIN ChineseRemainderToolsForIntegralBases} \pagehead{ChineseRemainderToolsForIntegralBases}{IBACHIN} @@ -6816,7 +6816,7 @@ CharacteristicPolynomialPackage(R:CommutativeRing):C == T where \cross{IBACHIN}{listConjugateBases} \end{tabular} -<>= +\begin{chunk}{package IBACHIN ChineseRemainderToolsForIntegralBases} )abbrev package IBACHIN ChineseRemainderToolsForIntegralBases ++ Author: Clifton Williamson ++ Date Created: 9 August 1993 @@ -6993,13 +6993,13 @@ ChineseRemainderToolsForIntegralBases(K,R,UP): Exports == Implementation where matInv := UpTriBddDenomInv(mat,denLCM) [mat,denLCM,matInv] -@ -<>= +\end{chunk} +\begin{chunk}{IBACHIN.dotabb} "IBACHIN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IBACHIN"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "IBACHIN" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CVMP CoerceVectorMatrixPackage} \pagehead{CoerceVectorMatrixPackage}{CVMP} @@ -7011,7 +7011,7 @@ ChineseRemainderToolsForIntegralBases(K,R,UP): Exports == Implementation where \cross{CVMP}{coerceP} \end{tabular} -<>= +\begin{chunk}{package CVMP CoerceVectorMatrixPackage} )abbrev package CVMP CoerceVectorMatrixPackage ++ Author: J. Grabmeier ++ Date Created: 26 June 1991 @@ -7062,16 +7062,16 @@ CoerceVectorMatrixPackage(R : CommutativeRing): public == private where l := cons(m3,l) vector reverse l -@ -<>= +\end{chunk} +\begin{chunk}{CVMP.dotabb} "CVMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CVMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CVMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMBF CombinatorialFunction} -<>= +\begin{chunk}{CombinatorialFunction.input} )set break resume )sys rm -f CombinatorialFunction.output )spool CombinatorialFunction.output @@ -7136,8 +7136,8 @@ for i in 0..7 repeat displayRow i )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CombinatorialFunction.help} ==================================================================== CombinatorialFunction examples ==================================================================== @@ -7209,7 +7209,7 @@ o )d op binomial o )show OutputForm o )help set -@ +\end{chunk} \pagehead{CombinatorialFunction}{COMBF} \pagepic{ps/v104combinatorialfunction.ps}{COMBF}{1.00} @@ -7246,7 +7246,7 @@ Note that there are at least two different ways to define binomial coefficients for negative integral second argument. One way, particular suitable for combinatorics, is to set the binomial coefficient equal to zero for negative second argument. This is, partially, also the approach taken in -[[combinat.spad]], where we find +combinat.spad, where we find \begin{verbatim} binomial(n, m) == @@ -7292,7 +7292,7 @@ same reasoning holds. Differentiating a sum with respect to its indexing variable correctly gives zero. This is due to the introduction of dummy variables in the internal -representation of a sum: the operator [[%defsum]] takes 5 arguments, namely +representation of a sum: the operator \verb|%defsum| takes 5 arguments, namely \begin{enumerate} \item the summands, where each occurrence of the indexing variable is replaced @@ -7344,7 +7344,7 @@ If $g(y)$ equals zero, this formula is not valid, since the logarithm is not defined there. Although strictly speaking $0^x$ is not differentiable at zero, we return zero for convenience. -<>= +\begin{chunk}{package COMBF CombinatorialFunction} )abbrev package COMBF CombinatorialFunction ++ Author: Manuel Bronstein, Martin Rubey ++ Date Created: 2 Aug 1988 @@ -7793,13 +7793,13 @@ CombinatorialFunction(R, F): Exports == Implementation where setProperty(opprod, SPECIALEQUAL, equalsumprod@((K,K) -> Boolean) pretend None) setProperty(opdprod, SPECIALEQUAL, equaldsumprod@((K,K) -> Boolean) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{COMBF.dotabb} "COMBF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMBF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "COMBF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CDEN CommonDenominator} \pagehead{CommonDenominator}{CDEN} @@ -7812,7 +7812,7 @@ CombinatorialFunction(R, F): Exports == Implementation where \cross{COMBF}{splitDenominator} \end{tabular} -<>= +\begin{chunk}{package CDEN CommonDenominator} )abbrev package CDEN CommonDenominator ++ Author: Manuel Bronstein ++ Date Created: 2 May 1988 @@ -7857,13 +7857,13 @@ CommonDenominator(R, Q, A): Exports == Implementation where else commonDenominator l == numer reduce("*", map(x+->denom(x)::Q, l), 1) -@ -<>= +\end{chunk} +\begin{chunk}{CDEN.dotabb} "CDEN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CDEN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CDEN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMMONOP CommonOperators} \pagehead{CommonOperators}{COMMONOP} @@ -7872,7 +7872,7 @@ CommonDenominator(R, Q, A): Exports == Implementation where {\bf Exports:}\\ \cross{COMMONOP}{operator} -<>= +\begin{chunk}{package COMMONOP CommonOperators} )abbrev package COMMONOP CommonOperators ++ Author: Manuel Bronstein ++ Date Created: 25 Mar 1988 @@ -8073,13 +8073,13 @@ CommonOperators(): Exports == Implementation where assert(oppren, "linear") void -@ -<>= +\end{chunk} +\begin{chunk}{COMMONOP.dotabb} "COMMONOP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMMONOP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "COMMONOP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMMUPC CommuteUnivariatePolynomialCategory} \pagehead{CommuteUnivariatePolynomialCategory}{COMMUPC} @@ -8088,7 +8088,7 @@ CommonOperators(): Exports == Implementation where {\bf Exports:}\\ \cross{COMMUPC}{swap} -<>= +\begin{chunk}{package COMMUPC CommuteUnivariatePolynomialCategory} )abbrev package COMMUPC CommuteUnivariatePolynomialCategory ++ Author: Manuel Bronstein ++ Date Created: @@ -8133,13 +8133,13 @@ CommuteUnivariatePolynomialCategory(R, UP, UPUP): Exports == Impl where poly := reductum poly ans -@ -<>= +\end{chunk} +\begin{chunk}{COMMUPC.dotabb} "COMMUPC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMMUPC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "COMMUPC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMPFACT ComplexFactorization} \pagehead{ComplexFactorization}{COMPFACT} @@ -8148,7 +8148,7 @@ CommuteUnivariatePolynomialCategory(R, UP, UPUP): Exports == Impl where {\bf Exports:}\\ \cross{COMPFACT}{factor} -<>= +\begin{chunk}{package COMPFACT ComplexFactorization} )abbrev package COMPFACT ComplexFactorization ++ Author: ++ Date Created: @@ -8238,13 +8238,13 @@ ComplexFactorization(RR,PR) : C == T where ffr:=factor ratPol backConv ffr -@ -<>= +\end{chunk} +\begin{chunk}{COMPFACT.dotabb} "COMPFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMPFACT"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "COMPFACT" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMPLEX2 ComplexFunctions2} \pagehead{ComplexFunctions2}{COMPLEX2} @@ -8253,7 +8253,7 @@ ComplexFactorization(RR,PR) : C == T where {\bf Exports:}\\ \cross{COMPLEX2}{map} -<>= +\begin{chunk}{package COMPLEX2 ComplexFunctions2} )abbrev package COMPLEX2 ComplexFunctions2 ++ Author: ++ Date Created: @@ -8274,13 +8274,13 @@ ComplexFunctions2(R:CommutativeRing, S:CommutativeRing): with == add map(fn, gr) == complex(fn real gr, fn imag gr) -@ -<>= +\end{chunk} +\begin{chunk}{COMPLEX2.dotabb} "COMPLEX2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMPLEX2"] "BMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BMODULE"] "COMPLEX2" -> "BMODULE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CINTSLPE ComplexIntegerSolveLinearPolynomialEquation} \pagehead{ComplexIntegerSolveLinearPolynomialEquation}{CINTSLPE} @@ -8289,7 +8289,7 @@ ComplexFunctions2(R:CommutativeRing, S:CommutativeRing): with {\bf Exports:}\\ \cross{CINTSLPE}{solveLinearPolynomialEquation} -<>= +\begin{chunk}{package CINTSLPE ComplexIntegerSolveLinearPolynomialEquation} )abbrev package CINTSLPE ComplexIntegerSolveLinearPolynomialEquation ++ Author: James Davenport ++ Date Created: 1990 @@ -8339,13 +8339,13 @@ ComplexIntegerSolveLinearPolynomialEquation(R,CR): C == T answer:=solveid(p,complex(slpePrime,0),oldtable) answer -@ -<>= +\end{chunk} +\begin{chunk}{CINTSLPE.dotabb} "CINTSLPE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CINTSLPE"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "CINTSLPE" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMPLPAT ComplexPattern} \pagehead{ComplexPattern}{COMPLPAT} @@ -8354,7 +8354,7 @@ ComplexIntegerSolveLinearPolynomialEquation(R,CR): C == T {\bf Exports:}\\ \cross{COMPLPAT}{convert} -<>= +\begin{chunk}{package COMPLPAT ComplexPattern} )abbrev package COMPLPAT ComplexPattern ++ Author: Barry Trager ++ Date Created: 30 Nov 1995 @@ -8384,13 +8384,13 @@ ComplexPattern(R, S, CS) : C == T where zero? imag cs => convert real cs convert real cs + ipat * convert imag cs -@ -<>= +\end{chunk} +\begin{chunk}{COMPLPAT.dotabb} "COMPLPAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMPLPAT"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "COMPLPAT" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CPMATCH ComplexPatternMatch} \pagehead{ComplexPatternMatch}{CPMATCH} @@ -8399,7 +8399,7 @@ ComplexPattern(R, S, CS) : C == T where {\bf Exports:}\\ \cross{CPMATCH}{patternMatch} -<>= +\begin{chunk}{package CPMATCH ComplexPatternMatch} )abbrev package CPMATCH ComplexPatternMatch ++ Author: Barry Trager ++ Date Created: 30 Nov 1995 @@ -8450,13 +8450,13 @@ ComplexPatternMatch(R, S, CS) : C == T where map(makeComplex, patternMatch(makePoly cs, pat, map(makePoly, result))) -@ -<>= +\end{chunk} +\begin{chunk}{CPMATCH.dotabb} "CPMATCH" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CPMATCH"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "CPMATCH" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CRFP ComplexRootFindingPackage} \pagehead{ComplexRootFindingPackage}{CRFP} @@ -8477,7 +8477,7 @@ ComplexPatternMatch(R, S, CS) : C == T where \cross{CRFP}{startPolynomial} &&&& \end{tabular} -<>= +\begin{chunk}{package CRFP ComplexRootFindingPackage} )abbrev package CRFP ComplexRootFindingPackage ++ Author: J. Grabmeier ++ Date Created: 31 January 1991 @@ -9063,13 +9063,13 @@ ComplexRootFindingPackage(R, UP): public == private where ++ graeffe2 p determines q such that \spad{q(-z**2) = p(z)*p(-z)}. ++ Note that the roots of q are the squares of the roots of p. -@ -<>= +\end{chunk} +\begin{chunk}{CRFP.dotabb} "CRFP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CRFP"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "CRFP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CMPLXRT ComplexRootPackage} \pagehead{ComplexRootPackage}{CMPLXRT} @@ -9078,7 +9078,7 @@ ComplexRootFindingPackage(R, UP): public == private where {\bf Exports:}\\ \cross{CMPLXRT}{complexZeros} -<>= +\begin{chunk}{package CMPLXRT ComplexRootPackage} )abbrev package CMPLXRT ComplexRootPackage ++ Author: P. Gianni ++ Date Created: @@ -9133,13 +9133,13 @@ ComplexRootPackage(UP,Par) : T == C where ris:=append([complex(first z,second z) for z in lz],ris) ris -@ -<>= +\end{chunk} +\begin{chunk}{CMPLXRT.dotabb} "CMPLXRT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CMPLXRT"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "CMPLXRT" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CTRIGMNP ComplexTrigonometricManipulations} \pagehead{ComplexTrigonometricManipulations}{CTRIGMNP} @@ -9155,7 +9155,7 @@ ComplexRootPackage(UP,Par) : T == C where \cross{CTRIGMNP}{trigs} && \end{tabular} -<>= +\begin{chunk}{package CTRIGMNP ComplexTrigonometricManipulations} )abbrev package CTRIGMNP ComplexTrigonometricManipulations ++ Author: Manuel Bronstein ++ Date Created: 11 June 1993 @@ -9258,8 +9258,8 @@ ComplexTrigonometricManipulations(R, F): Exports == Implementation where for x in l repeat g := rischNormalize(g, x).func g -@ -<>= +\end{chunk} +\begin{chunk}{CTRIGMNP.dotabb} "CTRIGMNP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CTRIGMNP"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] @@ -9268,7 +9268,7 @@ ComplexTrigonometricManipulations(R, F): Exports == Implementation where "CTRIGMNP" -> "FS" "CTRIGMNP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODECONST ConstantLODE} \pagehead{ConstantLODE}{ODECONST} @@ -9277,7 +9277,7 @@ ComplexTrigonometricManipulations(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{ODECONST}{constDsolve} -<>= +\begin{chunk}{package ODECONST ConstantLODE} )abbrev package ODECONST ConstantLODE ++ Author: Manuel Bronstein ++ Date Created: 18 March 1991 @@ -9360,13 +9360,13 @@ ConstantLODE(R, F, L): Exports == Implementation where [exp(r) * cos(i), exp(r) * sin(i)] [exp(a * x) for a in zerosOf p] -@ -<>= +\end{chunk} +\begin{chunk}{ODECONST.dotabb} "ODECONST" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODECONST"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "ODECONST" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COORDSYS CoordinateSystems} \pagehead{CoordinateSystems}{COORDSYS} @@ -9391,7 +9391,7 @@ ConstantLODE(R, F, L): Exports == Implementation where \cross{COORDSYS}{toroidal} \end{tabular} -<>= +\begin{chunk}{package COORDSYS CoordinateSystems} )abbrev package COORDSYS CoordinateSystems ++ Author: Jim Wen ++ Date Created: 12 March 1990 @@ -9581,13 +9581,13 @@ CoordinateSystems(R): Exports == Implementation where pt.3 := lambda/b*sqrt((mu**2-b**2)*(nu**2-b**2)/(b**2-a**2)) pt -@ -<>= +\end{chunk} +\begin{chunk}{COORDSYS.dotabb} "COORDSYS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COORDSYS"] "PTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PTCAT"] "COORDSYS" -> "PTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CRAPACK CRApackage} \pagehead{CRApackage}{CRAPACK} @@ -9600,7 +9600,7 @@ CoordinateSystems(R): Exports == Implementation where \cross{CRAPACK}{multiEuclideanTree} \end{tabular} -<>= +\begin{chunk}{package CRAPACK CRApackage} )abbrev package CRAPACK CRApackage ++ Description: ++ This package has no documentation @@ -9677,16 +9677,16 @@ CRApackage(R:EuclideanDomain): Exports == Implementation where mapUp_!(x,"*") leaves mapDown_!(x, rhs, extEuclidean) -@ -<>= +\end{chunk} +\begin{chunk}{CRAPACK.dotabb} "CRAPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CRAPACK"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "CRAPACK" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CYCLES CycleIndicators} -<>= +\begin{chunk}{CycleIndicators.input} )set break resume )sys rm -f CycleIndicators.output )spool CycleIndicators.output @@ -10151,8 +10151,8 @@ eval(Integers, sf3221) --E 47 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{CycleIndicators.help} ==================================================================== CycleIndicators examples ==================================================================== @@ -10592,7 +10592,7 @@ The smallest is See Also: o )show CycleIndicators -@ +\end{chunk} \pagehead{CycleIndicators}{CYCLES} \pagepic{ps/v104cycleindicators.ps}{CYCLES}{1.00} @@ -10613,7 +10613,7 @@ o )show CycleIndicators \cross{CYCLES}{wreath} && \end{tabular} -<>= +\begin{chunk}{package CYCLES CycleIndicators} )abbrev package CYCLES CycleIndicators ++ Author: William H. Burge ++ Date Created: 1986 @@ -10835,13 +10835,13 @@ CycleIndicators: Exports == Implementation where for k in li1 for j in 1..#li1] for i in 1..#li1] determinant a -@ -<>= +\end{chunk} +\begin{chunk}{CYCLES.dotabb} "CYCLES" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CYCLES"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CYCLES" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CSTTOOLS CyclicStreamTools} \pagehead{CyclicStreamTools}{CSTTOOLS} @@ -10854,7 +10854,7 @@ CycleIndicators: Exports == Implementation where \cross{CSTTOOLS}{cycleElt} \end{tabular} -<>= +\begin{chunk}{package CSTTOOLS CyclicStreamTools} )abbrev package CSTTOOLS CyclicStreamTools ++ Author: Clifton J. Williamson ++ Date Created: 5 December 1989 @@ -10920,13 +10920,13 @@ CyclicStreamTools(S,ST): Exports == Implementation where eq?(x,y) => return x x := rst x ; y := rst y -@ -<>= +\end{chunk} +\begin{chunk}{CSTTOOLS.dotabb} "CSTTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CSTTOOLS"] "LZSTAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LZSTAGG"] "CSTTOOLS" -> "LZSTAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CYCLOTOM CyclotomicPolynomialPackage} \pagehead{CyclotomicPolynomialPackage}{CYCLOTOM} @@ -10939,7 +10939,7 @@ CyclicStreamTools(S,ST): Exports == Implementation where \cross{CYCLOTOM}{cyclotomicFactorization} \end{tabular} -<>= +\begin{chunk}{package CYCLOTOM CyclotomicPolynomialPackage} )abbrev package CYCLOTOM CyclotomicPolynomialPackage ++ Description: ++ This package has no description @@ -10994,13 +10994,13 @@ CyclotomicPolynomialPackage: public == private where fr := fr * primeFactor(f,1$Integer) fr -@ -<>= +\end{chunk} +\begin{chunk}{CYCLOTOM.dotabb} "CYCLOTOM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CYCLOTOM"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "CYCLOTOM" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter D} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -11015,7 +11015,7 @@ CyclotomicPolynomialPackage: public == private where \cross{DFINTTLS}{computeInt} \end{tabular} -<>= +\begin{chunk}{package DFINTTLS DefiniteIntegrationTools} )abbrev package DFINTTLS DefiniteIntegrationTools ++ Author: Manuel Bronstein ++ Date Created: 15 April 1992 @@ -11265,13 +11265,13 @@ DefiniteIntegrationTools(R, F): Exports == Implementation where lastCoef := next i -@ -<>= +\end{chunk} +\begin{chunk}{DFINTTLS.dotabb} "DFINTTLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DFINTTLS"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "DFINTTLS" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DEGRED DegreeReductionPackage} \pagehead{DegreeReductionPackage}{DEGRED} @@ -11283,7 +11283,7 @@ DefiniteIntegrationTools(R, F): Exports == Implementation where \cross{DEGRED}{reduce} \end{tabular} -<>= +\begin{chunk}{package DEGRED DegreeReductionPackage} )abbrev package DEGRED DegreeReductionPackage ++ Description: ++ This package has no description @@ -11328,18 +11328,18 @@ DegreeReductionPackage(R1, R2): Cat == Capsule where g = 1 => [s] [rootOfUnity(i,g)*s**(1/g) for i in 0..g-1] -@ -<>= +\end{chunk} +\begin{chunk}{DEGRED.dotabb} "DEGRED" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DEGRED"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "DEGRED" -> "PID" "DEGRED" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DTP DesingTreePackage} -<>= +\begin{chunk}{DesingTreePackage.input} )set break resume )sys rm -f DesingTreePackage.output )spool DesingTreePackage.output @@ -11374,8 +11374,8 @@ DegreeReductionPackage(R1, R2): Cat == Capsule where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DesingTreePackage.help} ==================================================================== DesingTreePackage examples ==================================================================== @@ -11383,7 +11383,7 @@ DesingTreePackage examples See Also: o )show DesingTreePackage -@ +\end{chunk} \pagehead{DesingTreePackage}{DTP} \pagepic{ps/v104desingtreepackage.eps}{DTP}{1.00} @@ -11405,7 +11405,7 @@ o )show DesingTreePackage \cross{DTP}{initializeParamOfPlaces} & \end{tabular} -<>= +\begin{chunk}{package DTP DesingTreePackage} )abbreviation package DTP DesingTreePackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -11828,13 +11828,13 @@ DesingTreePackage(K, empty?(listArbDes) => ga ga-( reduce("+",[subGenus(arbD) for arbD in listArbDes]) quo$NNI 2)::INT -@ -<>= +\end{chunk} +\begin{chunk}{DTP.dotabb} "DTP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DTP"] "INFCLCT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=INFCLCT"] "DTP" -> "INFCLCT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DIOSP DiophantineSolutionPackage} \pagehead{DiophantineSolutionPackage}{DIOSP} @@ -11843,7 +11843,7 @@ DesingTreePackage(K, {\bf Exports:}\\ \cross{DIOSP}{dioSolve} -<>= +\begin{chunk}{package DIOSP DiophantineSolutionPackage} )abbrev package DIOSP DiophantineSolutionPackage ++ Author: A. Fortenbacher ++ Date Created: 29 March 1991 @@ -12019,13 +12019,13 @@ DiophantineSolutionPackage(): Cat == Capsule where sol.i := x flag -@ -<>= +\end{chunk} +\begin{chunk}{DIOSP.dotabb} "DIOSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DIOSP"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "DIOSP" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DIRPROD2 DirectProductFunctions2} \pagehead{DirectProductFunctions2}{DIRPROD2} @@ -12038,7 +12038,7 @@ DiophantineSolutionPackage(): Cat == Capsule where \cross{DIRPROD2}{scan} \end{tabular} -<>= +\begin{chunk}{package DIRPROD2 DirectProductFunctions2} )abbrev package DIRPROD2 DirectProductFunctions2 ++ Author: ++ Date Created: @@ -12085,13 +12085,13 @@ DirectProductFunctions2(dim, A, B): Exports == Implementation where scan(f, v, b) == directProduct scan(f, v::VA, b) reduce(f, v, b) == reduce(f, v::VA, b) -@ -<>= +\end{chunk} +\begin{chunk}{DIRPROD2.dotabb} "DIRPROD2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DIRPROD2"] "VECTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=VECTCAT"] "DIRPROD2" -> "VECTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DLP DiscreteLogarithmPackage} \pagehead{DiscreteLogarithmPackage}{DLP} @@ -12100,7 +12100,7 @@ DirectProductFunctions2(dim, A, B): Exports == Implementation where {\bf Exports:}\\ \cross{DLP}{shanksDiscLogAlgorithm} -<>= +\begin{chunk}{package DLP DiscreteLogarithmPackage} )abbrev package DLP DiscreteLogarithmPackage ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 12 March 1991 @@ -12180,13 +12180,13 @@ DiscreteLogarithmPackage(M): public == private where "failed" disclog pretend NonNegativeInteger -@ -<>= +\end{chunk} +\begin{chunk}{DLP.dotabb} "DLP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DLP"] "OAMONS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAMONS"] "DLP" -> "OAMONS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DISPLAY DisplayPackage} \pagehead{DisplayPackage}{DISPLAY} @@ -12202,7 +12202,7 @@ DiscreteLogarithmPackage(M): public == private where \cross{DISPLAY}{sayLength} \end{tabular} -<>= +\begin{chunk}{package DISPLAY DisplayPackage} )abbrev package DISPLAY DisplayPackage ++ Author: Robert S. Sutor ++ Date Created: September 1986 @@ -12319,13 +12319,13 @@ DisplayPackage: public == private where sum := sum + sayLength s sum -@ -<>= +\end{chunk} +\begin{chunk}{DISPLAY.dotabb} "DISPLAY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DISPLAY"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "DISPLAY" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DDFACT DistinctDegreeFactorize} \pagehead{DistinctDegreeFactorize}{DDFACT} @@ -12344,7 +12344,7 @@ DisplayPackage: public == private where \cross{DDFACT}{tracePowMod} & \end{tabular} -<>= +\begin{chunk}{package DDFACT DistinctDegreeFactorize} )abbrev package DDFACT DistinctDegreeFactorize ++ Author: P. Gianni, B.Trager ++ Date Created: 1983 @@ -12595,13 +12595,13 @@ DistinctDegreeFactorize(F,FP): C == T makeFR(flist.cont::FP,[["prime",u.irr,u.pow]$FFE for u in flist.factors]) -@ -<>= +\end{chunk} +\begin{chunk}{DDFACT.dotabb} "DDFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DDFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DDFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DFSFUN DoubleFloatSpecialFunctions} The special functions in this section are developed as special cases @@ -12610,7 +12610,7 @@ functions ${}_pF_q$ or its generalization, the Meijer G function. \cite{Luk169,Luk269} The long term plan is to reimplement these functions using the generalized version. -<>= +\begin{chunk}{DoubleFloatSpecialFunctions.input} )set break resume )sys rm -f DoubleFloatSpecialFunctions.output )spool DoubleFloatSpecialFunctions.output @@ -13303,8 +13303,8 @@ pearceyS:=_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{DoubleFloatSpecialFunctions.help} ==================================================================== DoubleFloatSpecialFunctions examples ==================================================================== @@ -13325,7 +13325,7 @@ fresnelS(1.5) See Also: o )show DoubleFloatSpecialFunctions -@ +\end{chunk} \pagehead{DoubleFloatSpecialFunctions}{DFSFUN} \pagepic{ps/v104doublefloatspecialfunctions.ps}{DFSFUN}{1.00} @@ -13356,7 +13356,7 @@ o )show DoubleFloatSpecialFunctions \cross{DFSFUN}{polygamma} && \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} )abbrev package DFSFUN DoubleFloatSpecialFunctions ++ Author: Bruce W. Char, Timothy Daly, Stephen M. Watt ++ Date Created: 1990 @@ -13556,7 +13556,7 @@ DoubleFloatSpecialFunctions(): Exports == Impl where Gamma z == CGAMMA(z)$Lisp Gamma x == RGAMMA(x)$Lisp -@ +\end{chunk} \subsection{The Exponential Integral} \subsubsection{The E1 function} (Quoted from Segletes\cite{2}): @@ -13773,7 +13773,7 @@ The result can be either a double float or, or if the argument is zero, infinity. Thus we need to extend the result to be a one-point completion to include infinity. -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} E1(x:R):OPR == x = 0.0::R => infinity() x > 4.0::R => @@ -13877,7 +13877,7 @@ one-point completion to include infinity. aw:R:=- 1.0::R*log(abs(x)) + av aw::OPR error "E1: no approximation available" -@ +\end{chunk} \subsection{En:(PI,R)$\rightarrow$OPR} The $E_n$ function is computed using the recurrence relation: $$E_{n+1}(z)=\frac{1}{n}\left(e^{-z}-zE_n(z)\right)\ \ \ (n=1,2,3,\ldots)$$ @@ -13885,14 +13885,14 @@ $$E_{n+1}(z)=\frac{1}{n}\left(e^{-z}-zE_n(z)\right)\ \ \ (n=1,2,3,\ldots)$$ The base case of the recursion depends on E1 above. The formula is 5.1.14 in Abramowitz and Stegun, 1965, p229\cite{4}. -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} En(n:PI,x:R):OPR == n=1 => E1(x) v:R:=retract(En((n-1)::PI,x)) w:R:=1/(n-1)*(exp(-x)-x*v) w::OPR -@ +\end{chunk} \subsection{The Ei Function} This function is based on Kin L. Lee's work\cite{8}. See also \cite{21}. \subsubsection{Abstract} @@ -13973,7 +13973,7 @@ Ei6 & $xe^{-x}Ei(x)$ & $32 \le x < \infty$\\ \end{tabular}\\ \hbox{\hskip 2cm}($\gamma$ = 0.5772156649... is Euler's constant.) -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei(y:OPR):OPR == infinite? y => 1 @@ -13997,7 +13997,7 @@ Ei6 & $xe^{-x}Ei(x)$ & $32 \le x < \infty$\\ ei:R:=retract(Ei6(y)) (ei/(x*exp(-x)))::OPR -@ +\end{chunk} Note that the functions $[Ei(x)-log\vert x\vert - \gamma]/x$ and $xe^{-x}Ei(x)$ have the limiting values of unity at the origin and at infinity, respectively, and that the range of the associated function @@ -14630,7 +14630,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ 40 & 0.3662718481 0320025908 1177078922E-30\\ \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei1(y:OPR):OPR == infinite? y => 1 @@ -14679,7 +14679,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t41:=t40+0.366271848103200259081177078922E-30::R*cos(40.0::R*t) t41::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} @@ -14740,7 +14740,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ 43 & -0.7551036906 1261678585 6037026797E-30\\ \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei2(y:OPR):OPR == x:R:=retract(y) @@ -14791,7 +14791,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t44:=t43-0.755103690612616785856037026797E-30::R*cos(43.0::R*t) t44::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} {\bf Table 3: Chebyshev Coefficients - Continued} @@ -14845,7 +14845,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ \noindent ($\gamma$=0.5772156649\ 0153286060\ 6512090082\ E\ 00) -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei3(y:OPR):OPR == x:R:=retract(y) @@ -14887,7 +14887,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t34:=t33+0.190062601281619148526680482237E-29::R*cos(33.0::R*t) t34::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} {\bf Table 3: Chebyshev Coefficients - Continued} @@ -14953,7 +14953,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ 49 & -0.7701650548 1663660609 8827057102E-30\\ \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei4(y:OPR):OPR == x:R:=retract(y) @@ -15010,7 +15010,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t50:=t49-0.770165054816636606098827057102E-30::R*cos(49.0::R*t) t50::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} @@ -15074,7 +15074,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ 47 & -0.4884890469 2437855322 4914645512E-30\\ \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei5(y:OPR):OPR == x:R:=retract(y) @@ -15129,7 +15129,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t48:=t42-0.488489046924378553224914645512E-30::R*cos(47.0::R*t) t48::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} {\bf Table 3: Chebyshev Coefficients - Continued} @@ -15191,7 +15191,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ 46 & -0.6062142653 2093450576 7865286306E-30\\ \end{tabular} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} Ei6(y:OPR):OPR == infinite? y => 1 @@ -15247,7 +15247,7 @@ k & $A_k$\hbox{\hskip 3cm}\\ t47:=t46-0.606214265320934505767865286306E-30::R*cos(46.0::R*t) t47::OPR -@ +\end{chunk} {\vbox{\vskip 1cm}} @@ -15438,7 +15438,7 @@ The first approximation is Axiom uses the power series at the zero point: \[C(z)=\sqrt{\frac{2z}{\pi}}\sum_{k=0}^n{(-1)^k\frac{z^{2k}}{(4k+1)(2k)!}}\] -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} fresnelC(z:F):F == z < 0 => error "fresnelC not defined for negative argument" z = 0 => 0 @@ -15447,7 +15447,7 @@ Axiom uses the power series at the zero point: reduce(_+,[(-1)**k*z**(2*k)/(factorial(2*k)*(4*k+1))_ for k in 0..n])$LF -@ +\end{chunk} \subsubsection{fresnelS} The fresnelS is the complex portion of the Fresnel integral, @@ -15481,7 +15481,7 @@ Axiom uses the power series at the zero point: \[S(z)= \sqrt{\frac{2z}{\pi}}\sum_{k=0}^n{(-1)^k\frac{z^{2k+1}}{(4k+3)(2k+1)!}}\] -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} fresnelS(z:F):F == z < 0 => error "fresnelS not defined for negative argument" z = 0 => 0 @@ -15491,9 +15491,9 @@ Axiom uses the power series at the zero point: [(-1)**k*(z**(2*k+1))/(factorial(2*k+1)*(4*k+3)) _ for k in 0..n])$LF -@ +\end{chunk} -<>= +\begin{chunk}{package DFSFUN DoubleFloatSpecialFunctions} polygamma(k,z) == CPSI(k, z)$Lisp polygamma(k,x) == RPSI(k, x)$Lisp @@ -15568,13 +15568,13 @@ Axiom uses the power series at the zero point: eta := 2 * athird * (-z) ** (3*ahalf) (-z*athird)**ahalf * ( besselJ(-athird,eta) - besselJ(athird,eta) ) -@ -<>= +\end{chunk} +\begin{chunk}{DFSFUN.dotabb} "DFSFUN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DFSFUN"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "DFSFUN" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DBLRESP DoubleResultantPackage} \pagehead{DoubleResultantPackage}{DBLRESP} @@ -15583,7 +15583,7 @@ Axiom uses the power series at the zero point: {\bf Exports:}\\ \cross{DBLRESP}{doubleResultant} -<>= +\begin{chunk}{package DBLRESP DoubleResultantPackage} )abbrev package DBLRESP DoubleResultantPackage ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -15634,13 +15634,13 @@ DoubleResultantPackage(F, UP, UPUP, R): Exports == Implementation where UP23 definingPolynomial()) remove0 resultant(r, UP22 d) -@ -<>= +\end{chunk} +\begin{chunk}{DBLRESP.dotabb} "DBLRESP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DBLRESP"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "DBLRESP" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAWCX DrawComplex} \pagehead{DrawComplex}{DRAWCX} @@ -15655,7 +15655,7 @@ DoubleResultantPackage(F, UP, UPUP, R): Exports == Implementation where \cross{DRAWCX}{setClipValue} \end{tabular} -<>= +\begin{chunk}{package DRAWCX DrawComplex} )abbrev package DRAWCX DrawComplex ++ Description: ++ \axiomType{DrawComplex} provides some facilities @@ -15827,15 +15827,15 @@ DrawComplex(): Exports == Implementation where setClipValue clip == clipValue := clip -@ -<>= +\end{chunk} +\begin{chunk}{DRAWCX.dotabb} "DRAWCX" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAWCX"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "DRAWCX" -> "FIELD" "DRAWCX" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAWHACK DrawNumericHack} \pagehead{DrawNumericHack}{DRAWHACK} @@ -15844,7 +15844,7 @@ DrawComplex(): Exports == Implementation where {\bf Exports:}\\ \cross{DRAWHACK}{coerce} -<>= +\begin{chunk}{package DRAWHACK DrawNumericHack} )abbrev package DRAWHACK DrawNumericHack ++ Author: Manuel Bronstein ++ Date Created: 21 Feb 1990 @@ -15873,13 +15873,13 @@ DrawNumericHack(R:Join(OrderedSet,IntegralDomain,ConvertibleTo Float)): coerce s == map(numeric$Numeric(R),s)$SegmentBindingFunctions2(Expression R, Float) -@ -<>= +\end{chunk} +\begin{chunk}{DRAWHACK.dotabb} "DRAWHACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAWHACK"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "DRAWHACK" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DROPT0 DrawOptionFunctions0} \pagehead{DrawOptionFunctions0}{DROPT0} @@ -15905,7 +15905,7 @@ DrawNumericHack(R:Join(OrderedSet,IntegralDomain,ConvertibleTo Float)): \cross{DROPT0}{viewpoint} & \end{tabular} -<>= +\begin{chunk}{package DROPT0 DrawOptionFunctions0} )abbrev package DROPT0 DrawOptionFunctions0 ++ Description: ++ This package has no description @@ -16073,13 +16073,13 @@ DrawOptionFunctions0(): Exports == Implementation where case "failed" => s u::UNIT -@ -<>= +\end{chunk} +\begin{chunk}{DROPT0.dotabb} "DROPT0" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DROPT0"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "DROPT0" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DROPT1 DrawOptionFunctions1} \pagehead{DrawOptionFunctions1}{DROPT1} @@ -16088,7 +16088,7 @@ DrawOptionFunctions0(): Exports == Implementation where {\bf Exports:}\\ \cross{DROPT1}{option} -<>= +\begin{chunk}{package DROPT1 DrawOptionFunctions1} )abbrev package DROPT1 DrawOptionFunctions1 ++ Description: ++ This package has no description @@ -16113,13 +16113,13 @@ DrawOptionFunctions1(S:Type): Exports == Implementation where (u := option(l, s)@Union(Any, "failed")) case "failed" => "failed" retract(u::Any)$AnyFunctions1(S) -@ -<>= +\end{chunk} +\begin{chunk}{DROPT1.dotabb} "DROPT1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DROPT1"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "DROPT1" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package D01AGNT d01AgentsPackage} \pagehead{d01AgentsPackage}{D01AGNT} @@ -16141,7 +16141,7 @@ DrawOptionFunctions1(S:Type): Exports == Implementation where \cross{D01AGNT}{singularitiesOf} &&& \end{tabular} -<>= +\begin{chunk}{package D01AGNT d01AgentsPackage} )abbrev package D01AGNT d01AgentsPackage ++ Author: Brian Dupee ++ Date Created: March 1994 @@ -16416,13 +16416,13 @@ d01AgentsPackage(): E == I where insert!(r)$IntegrationFunctionsTable e -@ -<>= +\end{chunk} +\begin{chunk}{D01AGNT.dotabb} "D01AGNT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=D01AGNT"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "D01AGNT" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package D01WGTS d01WeightsPackage} \pagehead{d01WeightsPackage}{D01WGTS} @@ -16435,7 +16435,7 @@ d01AgentsPackage(): E == I where \cross{D01WGTS}{exprHasWeightCosWXorSinWX} \end{tabular} -<>= +\begin{chunk}{package D01WGTS d01WeightsPackage} )abbrev package D01WGTS d01WeightsPackage ++ Author: Brian Dupee ++ Date Created: July 1994 @@ -16691,13 +16691,13 @@ d01WeightsPackage(): E == I where bestWeight ans else "failed" -@ -<>= +\end{chunk} +\begin{chunk}{D01WGTS.dotabb} "D01WGTS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=D01WGTS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "D01WGTS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package D02AGNT d02AgentsPackage} \pagehead{d02AgentsPackage}{D02AGNT} @@ -16717,7 +16717,7 @@ d01WeightsPackage(): E == I where \cross{D02AGNT}{systemSizeIF} \end{tabular} -<>= +\begin{chunk}{package D02AGNT d02AgentsPackage} )abbrev package D02AGNT d02AgentsPackage ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -17006,13 +17006,13 @@ d02AgentsPackage(): E == I where insert!(r)$ODEIntensityFunctionsTable ssf -@ -<>= +\end{chunk} +\begin{chunk}{D02AGNT.dotabb} "D02AGNT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=D02AGNT"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "D02AGNT" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package D03AGNT d03AgentsPackage} \pagehead{d03AgentsPackage}{D03AGNT} @@ -17026,7 +17026,7 @@ d02AgentsPackage(): E == I where \cross{D03AGNT}{varList} \end{tabular} -<>= +\begin{chunk}{package D03AGNT d03AgentsPackage} )abbrev package D03AGNT d03AgentsPackage ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -17118,13 +17118,13 @@ d03AgentsPackage(): E == I where obj:DF := retract(ob)$AnyFunctions1(DF) positive?(obj) -@ -<>= +\end{chunk} +\begin{chunk}{D03AGNT.dotabb} "D03AGNT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=D03AGNT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "D03AGNT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter E} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -17142,7 +17142,7 @@ d03AgentsPackage(): E == I where \cross{EP}{generalizedEigenvectors} \end{tabular} -<>= +\begin{chunk}{package EP EigenPackage} )abbrev package EP EigenPackage ++ Author: P. Gianni ++ Date Created: summer 1986 @@ -17388,16 +17388,16 @@ EigenPackage(R) : C == T intAlgEig(alpha,A,1$NNI)]$EigenForm,algSol) append(ratSol,algSol) -@ -<>= +\end{chunk} +\begin{chunk}{EP.dotabb} "EP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "EP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EF ElementaryFunction} -<>= +\begin{chunk}{ElementaryFunction.input} )set break resume )sys rm -f ElementaryFunction.output )spool ElementaryFunction.output @@ -17470,11 +17470,11 @@ D(cos(3*x+6*y),x) --R Type: Expression Integer --E 5 -@ +\end{chunk} Note that both Mathematica and Maxima return this result as $3 sec(3*x+6*y)^2$ but Maple returns the same result as Axiom. They are equivalent results. -<>= +\begin{chunk}{ElementaryFunction.input} --S 6 of 32 D(tan(3*x+6*y),x) @@ -17493,10 +17493,10 @@ simplify ((3*tan(6*y+3*x)^2+3) - (3*sec(3*x+6*y)^2)) --R Type: Expression Integer --E 7 -@ +\end{chunk} Note that Mathematica and Maxima return $-3 csc(3x+6y)^2$ and Maple returns the same form as Axiom. They are equivalent. -<>= +\begin{chunk}{ElementaryFunction.input} --S 8 of 32 D(cot(3*x+6*y),x) @@ -17577,12 +17577,12 @@ D(acot(3*x+6*y),x) --R Type: Expression Integer --E 15 -@ +\end{chunk} Mathematica, Maple, and Maxima give: \[\frac{3}{(3*x+6*y)^2 \sqrt{1 - \frac{1}{(3*x+6*y)^2}}}\] which proceeds directly from the formula for the derivative of asec: \[\frac{d}{dx}arcsec(x) = \frac{1}{x\sqrt{x^2-1}}\] -<>= +\begin{chunk}{ElementaryFunction.input} --S 16 of 32 D(asec(3*x+6*y),x) @@ -17596,10 +17596,10 @@ D(asec(3*x+6*y),x) --R Type: Expression Integer --E 16 -@ +\end{chunk} If we use the same formula for this example: \[\frac{1}{(3*x+6*y)\sqrt{(3*x+6*y)^2-1}} d(3*x+6*y)/dx\] -<>= +\begin{chunk}{ElementaryFunction.input} --S 17 of 32 3/((3*x+6*y)*sqrt((3*x+6*y)^2-1)) @@ -17613,12 +17613,12 @@ If we use the same formula for this example: --R Type: Expression Integer --E 17 -@ +\end{chunk} Mathematica, Maple, and Maxima give \[- \frac{3}{(3*x+6*y)^2 \sqrt{1 - \frac{1}{(3*x+6*y)^2}}}\] which is just the negative of the above result and we can see that the same analysis applies to explain the results. -<>= +\begin{chunk}{ElementaryFunction.input} --S 18 of 32 D(acsc(3*x+6*y),x) @@ -17648,11 +17648,11 @@ D(cosh(3*x+6*y),x) --R Type: Expression Integer --E 20 -@ +\end{chunk} Mathematica and Maxima return \[3 sech(3x+6y)^2\] Maple returns Axiom's answer. Both are equivalent. -<>= +\begin{chunk}{ElementaryFunction.input} --S 21 of 32 D(tanh(3*x+6*y),x) @@ -17671,10 +17671,11 @@ simplify ((-3*tanh(6*y+3*x)^2+3)-(3*sech(3*x+6*y)^2)) --R Type: Expression Integer --E 22 +\end{chunk} Mathematica and Maxima return \[-3 csch(3*x+6*y)^2\] Maple returns Axiom's answer. Both are equivalent. -<>= +\begin{chunk}{ElementaryFunction.input} --S 23 of 32 D(coth(3*x+6*y),x) @@ -17721,11 +17722,11 @@ D(asinh(3*x+6*y),x) --R Type: Expression Integer --E 27 -@ +\end{chunk} Mathematica and Maple show \[\frac{3}{\sqrt{-1+3*x+6*y}\sqrt{1+3*x+6*y}}\] Maxima gives Axiom's answer. Both are equivalent, just factored forms. -<>= +\begin{chunk}{ElementaryFunction.input} --S 28 of 32 D(acosh(3*x+6*y),x) @@ -17761,7 +17762,7 @@ D(acoth(3*x+6*y),x) --R Type: Expression Integer --E 30 -@ +\end{chunk} Mathematica gives \[- \frac{3}{(3x+6y)\sqrt{\frac{1-3x-6y}{1_3x+6y}}(1+3x+6y)}\] Maxima gives @@ -17771,7 +17772,7 @@ Maple gives Axiom cannot simplify these differences to zero but Maxima does which shows they are all equivalent answers. -<>= +\begin{chunk}{ElementaryFunction.input} --S 31 of 32 D(asech(3*x+6*y),x) @@ -17785,13 +17786,13 @@ D(asech(3*x+6*y),x) --R Type: Expression Integer --E 31 -@ +\end{chunk} Mathematica, Maple, and Maxima all generate the answer \[- \frac{3}{(3x+6y)^2 \sqrt{1+\frac{1}{(3x+6y)^2}}} \] Axiom cannot simplify these differences to zero but Maxima does which shows they are all equivalent answers. -<>= +\begin{chunk}{ElementaryFunction.input} --S 32 of 32 D(acsch(3*x+6*y),x) @@ -17807,8 +17808,8 @@ D(acsch(3*x+6*y),x) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ElementaryFunction.help} ==================================================================== ElementaryFunction examples ==================================================================== @@ -17937,7 +17938,7 @@ D(acsch(3*x+6*y),x) See Also: o )show ElementaryFunction -@ +\end{chunk} \pagehead{ElementaryFunction}{EF} \pagepic{ps/v104elementaryfunction.ps}{EF}{1.00} @@ -18004,7 +18005,7 @@ o )show ElementaryFunction \cross{EF}{tanh} & \end{tabular} -<>= +\begin{chunk}{package EF ElementaryFunction} )abbrev package EF ElementaryFunction ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -18862,13 +18863,13 @@ ElementaryFunction(R, F): Exports == Implementation where derivative(opasech,(x:F):F +-> - inv(x * sqrt(1 - x**2))) derivative(opacsch,(x:F):F +-> - inv(x * sqrt(1 + x**2))) -@ -<>= +\end{chunk} +\begin{chunk}{EF.dotabb} "EF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "EF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DEFINTEF ElementaryFunctionDefiniteIntegration} \pagehead{ElementaryFunctionDefiniteIntegration}{DEFINTEF} @@ -18881,7 +18882,7 @@ ElementaryFunction(R, F): Exports == Implementation where \cross{DEFINTEF}{integrate} \end{tabular} -<>= +\begin{chunk}{package DEFINTEF ElementaryFunctionDefiniteIntegration} )abbrev package DEFINTEF ElementaryFunctionDefiniteIntegration ++ Author: Manuel Bronstein ++ Date Created: 14 April 1992 @@ -19092,13 +19093,13 @@ ElementaryFunctionDefiniteIntegration(R, F): Exports == Implementation where ans := concat_!(ans, [v::OFE]) [ans] -@ -<>= +\end{chunk} +\begin{chunk}{DEFINTEF.dotabb} "DEFINTEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DEFINTEF"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "DEFINTEF" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LODEEF ElementaryFunctionLODESolver} \pagehead{ElementaryFunctionLODESolver}{LODEEF} @@ -19107,7 +19108,7 @@ ElementaryFunctionDefiniteIntegration(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{LODEEF}{solve} -<>= +\begin{chunk}{package LODEEF ElementaryFunctionLODESolver} )abbrev package LODEEF ElementaryFunctionLODESolver ++ Author: Manuel Bronstein ++ Date Created: 3 February 1994 @@ -19363,13 +19364,13 @@ ElementaryFunctionLODESolver(R, F, L): Exports == Implementation where doVarParams(op, g, homosolve1(op, rec.basis, k, x), x) [(rec.particular)::F, homosolve1(op, rec.basis, k, x)] -@ -<>= +\end{chunk} +\begin{chunk}{LODEEF.dotabb} "LODEEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LODEEF"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "LODEEF" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEEF ElementaryFunctionODESolver} \pagehead{ElementaryFunctionODESolver}{ODEEF} @@ -19378,7 +19379,7 @@ ElementaryFunctionLODESolver(R, F, L): Exports == Implementation where {\bf Exports:}\\ \cross{ODEEF}{solve} -<>= +\begin{chunk}{package ODEEF ElementaryFunctionODESolver} )abbrev package ODEEF ElementaryFunctionODESolver ++ Author: Manuel Bronstein ++ Date Created: 18 March 1991 @@ -19640,13 +19641,13 @@ ElementaryFunctionODESolver(R, F): Exports == Implementation where case "failed" or degree(p := univariate(numer f, k)) > 1 => "failed" coefficient(p, 1) / (r::P) -@ -<>= +\end{chunk} +\begin{chunk}{ODEEF.dotabb} "ODEEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEEF"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "ODEEF" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SIGNEF ElementaryFunctionSign} \pagehead{ElementaryFunctionSign}{SIGNEF} @@ -19655,7 +19656,7 @@ ElementaryFunctionODESolver(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{SIGNEF}{sign} -<>= +\begin{chunk}{package SIGNEF ElementaryFunctionSign} )abbrev package SIGNEF ElementaryFunctionSign ++ Author: Manuel Bronstein ++ Date Created: 25 Aug 1989 @@ -19847,13 +19848,13 @@ ElementaryFunctionSign(R,F): Exports == Implementation where s "failed" -@ -<>= +\end{chunk} +\begin{chunk}{SIGNEF.dotabb} "SIGNEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SIGNEF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SIGNRF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EFSTRUC ElementaryFunctionStructurePackage} \pagehead{ElementaryFunctionStructurePackage}{EFSTRUC} @@ -19869,7 +19870,7 @@ ElementaryFunctionSign(R,F): Exports == Implementation where \cross{EFSTRUC}{validExponential} \end{tabular} -<>= +\begin{chunk}{package EFSTRUC ElementaryFunctionStructurePackage} )abbrev package EFSTRUC ElementaryFunctionStructurePackage ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -20262,15 +20263,15 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where normalize f == rtNormalize localnorm realElementary f normalize(f, x) == rtNormalize(rischNormalize(realElementary(f,x),x).func) -@ -<>= +\end{chunk} +\begin{chunk}{EFSTRUC.dotabb} "EFSTRUC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EFSTRUC"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "EFSTRUC" -> "ACF" "EFSTRUC" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EFULS ElementaryFunctionsUnivariateLaurentSeries} \pagehead{ElementaryFunctionsUnivariateLaurentSeries}{EFULS} @@ -20334,7 +20335,7 @@ ElementaryFunctionStructurePackage(R,F): Exports == Implementation where \cross{EFULS}{?**?} & \end{tabular} -<>= +\begin{chunk}{package EFULS ElementaryFunctionsUnivariateLaurentSeries} )abbrev package EFULS ElementaryFunctionsUnivariateLaurentSeries ++ Author: Clifton J. Williamson ++ Date Created: 6 February 1990 @@ -20679,13 +20680,13 @@ ElementaryFunctionsUnivariateLaurentSeries(Coef,UTS,ULS):_ error "acot: leading coefficient not invertible" (cc :: ULS) - integrate(differentiate(uls) * (z :: ULS)) -@ -<>= +\end{chunk} +\begin{chunk}{EFULS.dotabb} "EFULS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EFULS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "EFULS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EFUPXS ElementaryFunctionsUnivariatePuiseuxSeries} \pagehead{ElementaryFunctionsUnivariatePuiseuxSeries}{EFUPXS} @@ -20749,7 +20750,7 @@ ElementaryFunctionsUnivariateLaurentSeries(Coef,UTS,ULS):_ \cross{EFUPXS}{?**?} & \end{tabular} -<>= +\begin{chunk}{package EFUPXS ElementaryFunctionsUnivariatePuiseuxSeries} )abbrev package EFUPXS ElementaryFunctionsUnivariatePuiseuxSeries ++ Author: Clifton J. Williamson ++ Date Created: 20 February 1990 @@ -21007,13 +21008,13 @@ ElementaryFunctionsUnivariatePuiseuxSeries(Coef,ULS,UPXS,EFULS):_ asech upxs == applyOrError(asechIfCan,"asech",upxs) acsch upxs == applyOrError(acschIfCan,"acsch",upxs) -@ -<>= +\end{chunk} +\begin{chunk}{EFUPXS.dotabb} "EFUPXS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EFUPXS"] "UPXSCCA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UPXSCCA"] "EFUPXS" -> "UPXSCCA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTEF ElementaryIntegration} \pagehead{ElementaryIntegration}{INTEF} @@ -21028,7 +21029,7 @@ ElementaryFunctionsUnivariatePuiseuxSeries(Coef,ULS,UPXS,EFULS):_ \cross{INTEF}{lflimitedint} \end{tabular} -<>= +\begin{chunk}{package INTEF ElementaryIntegration} )abbrev package INTEF ElementaryIntegration ++ Author: Manuel Bronstein ++ Date Created: 1 February 1988 @@ -21254,7 +21255,7 @@ ElementaryIntegration(R, F): Exports == Implementation where (x2:F):F +-> differentiate(x2, x), differentiate(t::F, x)::UP)) -@ +\end{chunk} Bug \#100 is an infinite loop that eventually kills Axiom from the input \begin{verbatim} @@ -21295,7 +21296,7 @@ Essentially this new patch uses only logarithms of rational functions when integrating rational functions. It is unclear whether this is the correct fix. -<>= +\begin{chunk}{package INTEF ElementaryIntegration} lfextendedint(f, x, g) == empty?(l := varselect(kernels f, x)) => [x::F * f, 0] symbolIfCan(k := kmax(l)) @@ -21312,13 +21313,13 @@ the correct fix. has?(operator k, ALGOP) => alglfextint(f, k, l, x, g) unkextint(f, x, g) -@ +\end{chunk} This is part of the fix for bug 100. Line 2 of this function used to read: \begin{verbatim} symbolIfCan(k := kmax(l := union(l, vark(lu, x)))) case SE => \end{verbatim} See the above discussion for why this causes an infinite loop. -<>= +\begin{chunk}{package INTEF ElementaryIntegration} lflimitedint(f, x, lu) == empty?(l := varselect(kernels f, x)) => [x::F * f, empty()] symbolIfCan(k := kmax(l)) case SE => @@ -21430,15 +21431,15 @@ See the above discussion for why this causes an infinite loop. [multivariate(u1.answer.mainpart, k) + u2.mainpart, concat(u2.limitedlogs, l)] -@ -<>= +\end{chunk} +\begin{chunk}{INTEF.dotabb} "INTEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTEF"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "INTEF" -> "ACF" "INTEF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDEEF ElementaryRischDE} \pagehead{ElementaryRischDE}{RDEEF} @@ -21447,7 +21448,7 @@ See the above discussion for why this causes an infinite loop. {\bf Exports:}\\ \cross{RDEEF}{rischDE} -<>= +\begin{chunk}{package RDEEF ElementaryRischDE} )abbrev package RDEEF ElementaryRischDE ++ Author: Manuel Bronstein ++ Date Created: 1 February 1988 @@ -21821,15 +21822,15 @@ ElementaryRischDE(R, F): Exports == Implementation where RRF2F rrf == rrf.mainpart + +/[v.coeff*log(v.logand) for v in rrf.limitedlogs] -@ -<>= +\end{chunk} +\begin{chunk}{RDEEF.dotabb} "RDEEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDEEF"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "RDEEF" -> "ACF" "RDEEF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDEEFS ElementaryRischDESystem} \pagehead{ElementaryRischDESystem}{RDEEFS} @@ -21838,7 +21839,7 @@ ElementaryRischDE(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{RDEEFS}{rischDEsys} -<>= +\begin{chunk}{package RDEEFS ElementaryRischDESystem} )abbrev package RDEEFS ElementaryRischDESystem ++ Author: Manuel Bronstein ++ Date Created: 12 August 1992 @@ -21931,15 +21932,15 @@ ElementaryRischDESystem(R, F): Exports == Implementation where -- cheat(n, f, g1, g2, x, limint, extint) error "rischDEsys: can only handle rational functions for now" -@ -<>= +\end{chunk} +\begin{chunk}{RDEEFS.dotabb} "RDEEFS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDEEFS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "RDEEFS" -> "ACF" "RDEEFS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ELFUTS EllipticFunctionsUnivariateTaylorSeries} \pagehead{EllipticFunctionsUnivariateTaylorSeries}{ELFUTS} @@ -21953,7 +21954,7 @@ ElementaryRischDESystem(R, F): Exports == Implementation where \cross{ELFUTS}{sncndn} \end{tabular} -<>= +\begin{chunk}{package ELFUTS EllipticFunctionsUnivariateTaylorSeries} )abbrev package ELFUTS EllipticFunctionsUnivariateTaylorSeries ++ Author: Bill Burge, Clifton J. Williamson ++ Date Created: 1986 @@ -22007,13 +22008,13 @@ EllipticFunctionsUnivariateTaylorSeries(Coef,UTS): cn(x,k) == series sncndn.(coefficients x,k).2 dn(x,k) == series sncndn.(coefficients x,k).3 -@ -<>= +\end{chunk} +\begin{chunk}{ELFUTS.dotabb} "ELFUTS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ELFUTS"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "ELFUTS" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EQ2 EquationFunctions2} \pagehead{EquationFunctions2}{EQ2} @@ -22022,7 +22023,7 @@ EllipticFunctionsUnivariateTaylorSeries(Coef,UTS): {\bf Exports:}\\ \cross{EQ2}{map} -<>= +\begin{chunk}{package EQ2 EquationFunctions2} )abbrev package EQ2 EquationFunctions2 ++ Author: ++ Date Created: @@ -22043,13 +22044,13 @@ EquationFunctions2(S: Type, R: Type): with == add map(fn, eqn) == equation(fn lhs eqn, fn rhs eqn) -@ -<>= +\end{chunk} +\begin{chunk}{EQ2.dotabb} "EQ2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EQ2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "EQ2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ERROR ErrorFunctions} \pagehead{ErrorFunctions}{ERROR} @@ -22058,7 +22059,7 @@ EquationFunctions2(S: Type, R: Type): with {\bf Exports:}\\ \cross{ERROR}{error} -<>= +\begin{chunk}{package ERROR ErrorFunctions} )abbrev package ERROR ErrorFunctions ++ Author: Robert S. Sutor ++ Date Created: 29 May 1990 @@ -22141,16 +22142,16 @@ ErrorFunctions() : Exports == Implementation where for x in l repeat s := concat [s," ",x] doit s -@ -<>= +\end{chunk} +\begin{chunk}{ERROR.dotabb} "ERROR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ERROR"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "ERROR" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GBEUCLID EuclideanGroebnerBasisPackage} -<>= +\begin{chunk}{EuclideanGroebnerBasisPackage.input} )set break resume )sys rm -f EuclideanGroebnerBasisPackage.output )spool EuclideanGroebnerBasisPackage.output @@ -23215,8 +23216,8 @@ euclideanGroebner(cn,"info","redcrit") )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{EuclideanGroebnerBasisPackage.help} ==================================================================== euclideanGroebner examples ==================================================================== @@ -23272,7 +23273,7 @@ o )show HomogeneousDistributedMultivariatePolynomial o )show GeneralDistributedMultivariatePolynomial o )show GroebnerPackage -@ +\end{chunk} \pagehead{EuclideanGroebnerBasisPackage}{GBEUCLID} \pagepic{ps/v104euclideangroebnerbasispackage.ps}{GBEUCLID}{1.00} @@ -23282,7 +23283,7 @@ o )show GroebnerPackage \cross{GBEUCLID}{euclideanNormalForm} \end{tabular} -<>= +\begin{chunk}{package GBEUCLID EuclideanGroebnerBasisPackage} )abbrev package GBEUCLID EuclideanGroebnerBasisPackage ++ Authors: Gebauer, Moeller ++ Date Created: 12-1-86 @@ -23822,15 +23823,15 @@ EuclideanGroebnerBasisPackage(Dom, Expon, VarSet, Dpol): T == C where prinb(2) -@ -<>= +\end{chunk} +\begin{chunk}{GBEUCLID.dotabb} "GBEUCLID" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GBEUCLID"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "GBEUCLID" -> "PFECAT" "GBEUCLID" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EVALCYC EvaluateCycleIndicators} \pagehead{EvaluateCycleIndicators}{EVALCYC} @@ -23839,7 +23840,7 @@ EuclideanGroebnerBasisPackage(Dom, Expon, VarSet, Dpol): T == C where {\bf Exports:}\\ \cross{EVALCYC}{eval} -<>= +\begin{chunk}{package EVALCYC EvaluateCycleIndicators} )abbrev package EVALCYC EvaluateCycleIndicators ++ Author: William H. Burge ++ Date Created: 1986 @@ -23883,13 +23884,13 @@ EvaluateCycleIndicators(F):T==C where then 0 else ((lc spol)* evp(fn,degree spol)) + eval(fn,red spol) -@ -<>= +\end{chunk} +\begin{chunk}{EVALCYC.dotabb} "EVALCYC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EVALCYC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "EVALCYC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ESCONT ExpertSystemContinuityPackage} \pagehead{ExpertSystemContinuityPackage}{ESCONT} @@ -23910,7 +23911,7 @@ EvaluateCycleIndicators(F):T==C where \cross{ESCONT}{zerosOf} & \end{tabular} -<>= +\begin{chunk}{package ESCONT ExpertSystemContinuityPackage} )abbrev package ESCONT ExpertSystemContinuityPackage ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -24162,13 +24163,13 @@ ExpertSystemContinuityPackage(): E == I where ls := [singularitiesOf(u,vars,range) for u in entries(v)$VEDF] concat(ls)$SDF -@ -<>= +\end{chunk} +\begin{chunk}{ESCONT.dotabb} "ESCONT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ESCONT"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "ESCONT" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ESCONT1 ExpertSystemContinuityPackage1} \pagehead{ExpertSystemContinuityPackage1}{ESCONT1} @@ -24177,7 +24178,7 @@ ExpertSystemContinuityPackage(): E == I where {\bf Exports:}\\ \cross{ESCONT1}{in?} -<>= +\begin{chunk}{package ESCONT1 ExpertSystemContinuityPackage1} )abbrev package ESCONT1 ExpertSystemContinuityPackage1 ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -24223,13 +24224,13 @@ ExpertSystemContinuityPackage1(A:DF,B:DF): E == I where b:Boolean := (A < p)$DF (a and b)@Boolean -@ -<>= +\end{chunk} +\begin{chunk}{ESCONT1.dotabb} "ESCONT1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ESCONT1"] "Package" [color="#FF4488"] "ESCONT1" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ESTOOLS ExpertSystemToolsPackage} \pagehead{ExpertSystemToolsPackage}{ESTOOLS} @@ -24275,7 +24276,7 @@ ExpertSystemContinuityPackage1(A:DF,B:DF): E == I where \cross{ESTOOLS}{vedf2vef} &&&& \end{tabular} -<>= +\begin{chunk}{package ESTOOLS ExpertSystemToolsPackage} )abbrev package ESTOOLS ExpertSystemToolsPackage ++ Author: Brian Dupee ++ Date Created: May 1994 @@ -24647,13 +24648,13 @@ ExpertSystemToolsPackage():E == I where ifr:Record(key:Symbol,entry:Any) := [intensityFunctions@Symbol,ifa] construct([ifr])$Result -@ -<>= +\end{chunk} +\begin{chunk}{ESTOOLS.dotabb} "ESTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ESTOOLS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ESTOOLS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ESTOOLS1 ExpertSystemToolsPackage1} \pagehead{ExpertSystemToolsPackage1}{ESTOOLS1} @@ -24662,7 +24663,7 @@ ExpertSystemToolsPackage():E == I where {\bf Exports:}\\ \cross{ESTOOLS1}{neglist} -<>= +\begin{chunk}{package ESTOOLS1 ExpertSystemToolsPackage1} )abbrev package ESTOOLS1 ExpertSystemToolsPackage1 ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -24680,13 +24681,13 @@ ExpertSystemToolsPackage1(R1:OR): E == I where I ==> add neglist(l:List R1):List R1 == [u for u in l | negative?(u)$R1] -@ -<>= +\end{chunk} +\begin{chunk}{ESTOOLS1.dotabb} "ESTOOLS1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ESTOOLS1"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "ESTOOLS1" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ESTOOLS2 ExpertSystemToolsPackage2} \pagehead{ExpertSystemToolsPackage2}{ESTOOLS2} @@ -24695,7 +24696,7 @@ ExpertSystemToolsPackage1(R1:OR): E == I where {\bf Exports:}\\ \cross{ESTOOLS2}{map} -<>= +\begin{chunk}{package ESTOOLS2 ExpertSystemToolsPackage2} )abbrev package ESTOOLS2 ExpertSystemToolsPackage2 ++ Author: Brian Dupee ++ Date Created: February 1995 @@ -24716,15 +24717,15 @@ ExpertSystemToolsPackage2(R1:R,R2:R): E == I where map(f:R1->R2,m:Matrix R1):Matrix R2 == matrix([[f u for u in v] for v in listOfLists(m)$(Matrix R1)])$(Matrix R2) -@ -<>= +\end{chunk} +\begin{chunk}{ESTOOLS2.dotabb} "ESTOOLS2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ESTOOLS2"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "ESTOOLS2" -> "LMODULE" "ESTOOLS2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXPR2 ExpressionFunctions2} \pagehead{ExpressionFunctions2}{EXPR2} @@ -24733,7 +24734,7 @@ ExpertSystemToolsPackage2(R1:R,R2:R): E == I where {\bf Exports:}\\ \cross{EXPR2}{map} -<>= +\begin{chunk}{package EXPR2 ExpressionFunctions2} )abbrev package EXPR2 ExpressionFunctions2 ++ Lifting of maps to Expressions ++ Author: Manuel Bronstein @@ -24758,13 +24759,13 @@ ExpressionFunctions2(R:OrderedSet, S:OrderedSet): else map(f, r) == map(x1 +-> map(f, x1), retract r)$E2 -@ -<>= +\end{chunk} +\begin{chunk}{EXPR2.dotabb} "EXPR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPR2"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "EXPR2" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXPRSOL ExpressionSolve} @@ -24788,9 +24789,9 @@ works. This is probably due to missing ``/'' in UFPS. \begin{verbatim} I'd really like to be able to specify a function that works for all domains - in a category. For example, [[x +-> y(x)^2 + sin x + x]] should \lq work\rq\ - for [[EXPR INT]] as well as for [[UTS INT]], both being domains having - [[TranscendentalFunctionCategory]]. + in a category. For example, x +-> y(x)^2 + sin x + x should work + for EXPR INT as well as for UTS INT, both being domains having + TranscendentalFunctionCategory. \end{verbatim} \pagehead{ExpressionSolve}{EXPRSOL} @@ -24802,7 +24803,7 @@ works. This is probably due to missing ``/'' in UFPS. \cross{EXPRSOL}{seriesSolve} \end{tabular} -<>= +\begin{chunk}{package EXPRSOL ExpressionSolve} )abbrev package EXPRSOL ExpressionSolve ++ Description: ++ This package has no description @@ -24824,8 +24825,8 @@ ExpressionSolve(R, F, UTSF, UTSSUPF): Exports == Implementation where replaceDiffs: (F, OP, Symbol) -> F Implementation == add -<> -@ +\getchunk{implementation: EXPRSOL ExpressionSolve} +\end{chunk} The general method is to transform the given expression into a form which can then be compiled. There is currently no other way in Axiom to transform an @@ -24847,7 +24848,8 @@ coefficient ring, since it will complain otherwise. \end{verbatim} -<>= +\begin{chunk}{package EXPRSOL ExpressionSolve} +\getchunk{implementation: EXPRSOL ExpressionSolve} opelt := operator("elt"::Symbol)$OP opdiff := operator("D"::Symbol)$OP opcoerce := operator("coerce"::Symbol)$OP @@ -24882,13 +24884,13 @@ coefficient ring, since it will complain otherwise. f := compiledFunction(ex, name op, sy)$MKF seriesSolve(x+->f(x, monomial(1,1)$UTSSUPF), l)_ $TaylorSolve(F, UTSF, UTSSUPF) -@ -<>= +\end{chunk} +\begin{chunk}{EXPRSOL.dotabb} "EXPRSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPRSOL"] "UTSSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UTSSOL"] "EXPRSOL" -> "UTSSOL" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ES1 ExpressionSpaceFunctions1} \pagehead{ExpressionSpaceFunctions1}{ES1} @@ -24897,7 +24899,7 @@ coefficient ring, since it will complain otherwise. {\bf Exports:}\\ \cross{ES1}{map} -<>= +\begin{chunk}{package ES1 ExpressionSpaceFunctions1} )abbrev package ES1 ExpressionSpaceFunctions1 ++ Author: Manuel Bronstein ++ Date Created: 23 March 1988 @@ -24921,13 +24923,13 @@ ExpressionSpaceFunctions1(F:ExpressionSpace, S:Type): with ((p::None) pretend (List S -> S)) args error "Operator does not have required property" -@ -<>= +\end{chunk} +\begin{chunk}{ES1.dotabb} "ES1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ES1"] "EVALAB" [color="#4488FF",href="bookvol10.2.pdf#nameddest=EVALAB"] "ES1" -> "EVALAB" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ES2 ExpressionSpaceFunctions2} \pagehead{ExpressionSpaceFunctions2}{ES2} @@ -24936,7 +24938,7 @@ ExpressionSpaceFunctions1(F:ExpressionSpace, S:Type): with {\bf Exports:}\\ \cross{ES2}{map} -<>= +\begin{chunk}{package ES2 ExpressionSpaceFunctions2} )abbrev package ES2 ExpressionSpaceFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 23 March 1988 @@ -24955,13 +24957,13 @@ ExpressionSpaceFunctions2(E:ExpressionSpace, F:ExpressionSpace): with map(f, k) == (operator(operator k)$F) [f x for x in argument k]$List(F) -@ -<>= +\end{chunk} +\begin{chunk}{ES2.dotabb} "ES2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ES2"] "EVALAB" [color="#4488FF",href="bookvol10.2.pdf#nameddest=EVALAB"] "ES2" -> "EVALAB" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXPRODE ExpressionSpaceODESolver} \pagehead{ExpressionSpaceODESolver}{EXPRODE} @@ -24970,7 +24972,7 @@ ExpressionSpaceFunctions2(E:ExpressionSpace, F:ExpressionSpace): with {\bf Exports:}\\ \cross{EXPRODE}{seriesSolve} -<>= +\begin{chunk}{package EXPRODE ExpressionSpaceODESolver} )abbrev package EXPRODE ExpressionSpaceODESolver ++ Author: Manuel Bronstein ++ Date Created: 5 Mar 1990 @@ -25171,13 +25173,13 @@ ExpressionSpaceODESolver(R, F): Exports == Implementation where center := rhs eqx coerce(mpsode(l0,[compiledFunction(f,sy)$MKL for f in l])$ODE)$AL1 -@ -<>= +\end{chunk} +\begin{chunk}{EXPRODE.dotabb} "EXPRODE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPRODE"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "EXPRODE" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OMEXPR ExpressionToOpenMath} \pagehead{ExpressionToOpenMath}{OMEXPR} @@ -25186,7 +25188,7 @@ ExpressionSpaceODESolver(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{OMEXPR}{OMwrite} -<>= +\begin{chunk}{package OMEXPR ExpressionToOpenMath} )abbrev package OMEXPR ExpressionToOpenMath ++ Author: Mike Dewar & Vilya Harvey ++ Date Created: @@ -25463,13 +25465,13 @@ ExpressionToOpenMath(R: Join(OpenMath, OrderedSet, Ring)): with if wholeObj then OMputEndObject(dev) -@ -<>= +\end{chunk} +\begin{chunk}{OMEXPR.dotabb} "OMEXPR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OMEXPR"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "OMEXPR" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXPR2UPS ExpressionToUnivariatePowerSeries} \pagehead{ExpressionToUnivariatePowerSeries}{EXPR2UPS} @@ -25483,7 +25485,7 @@ ExpressionToOpenMath(R: Join(OpenMath, OrderedSet, Ring)): with \cross{EXPR2UPS}{taylor} \end{tabular} -<>= +\begin{chunk}{package EXPR2UPS ExpressionToUnivariatePowerSeries} )abbrev package EXPR2UPS ExpressionToUnivariatePowerSeries ++ Author: Clifton J. Williamson ++ Date Created: 9 May 1989 @@ -25811,13 +25813,13 @@ ExpressionToUnivariatePowerSeries(R,FE): Exports == Implementation where series := retract(iSeries(performSubstitution(fcn,x,a),x,a))$any1 coerce(extend(series,n))$any1 -@ -<>= +\end{chunk} +\begin{chunk}{EXPR2UPS.dotabb} "EXPR2UPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPR2UPS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "EXPR2UPS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXPRTUBE ExpressionTubePlot} \pagehead{ExpressionTubePlot}{EXPRTUBE} @@ -25829,7 +25831,7 @@ ExpressionToUnivariatePowerSeries(R,FE): Exports == Implementation where \cross{EXPRTUBE}{tubePlot} \end{tabular} -<>= +\begin{chunk}{package EXPRTUBE ExpressionTubePlot} )abbrev package EXPRTUBE ExpressionTubePlot ++ Author: Clifton J. Williamson ++ Date Created: Bastille Day 1989 @@ -26005,16 +26007,16 @@ ExpressionTubePlot(): Exports == Implementation where tRange:SEG SF,rad:SF,n:I) == tubePlot(x,y,z,colorFcn,tRange,rad,n,"open") -@ -<>= +\end{chunk} +\begin{chunk}{EXPRTUBE.dotabb} "EXPRTUBE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPRTUBE"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "EXPRTUBE" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package EXP3D Export3D} -<>= +\begin{chunk}{Export3D.input} )set break resume )sys rm -f Export3D.output )spool Export3D.output @@ -26036,8 +26038,8 @@ ExpressionTubePlot(): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Export3D.help} ==================================================================== Export3D examples ==================================================================== @@ -26045,14 +26047,14 @@ Export3D examples See Also: o )show Export3D -@ +\end{chunk} \pagehead{Export3D}{EXP3D} \pagepic{ps/v104export3d.ps}{EXP3D}{1.00} {\bf Exports:}\\ \cross{EXP3D}{writeObj} -<>= +\begin{chunk}{package EXP3D Export3D} )abbrev package EXP3D Export3D ++ Author: Martin Baker ++ Date: June, 2010 @@ -26150,13 +26152,13 @@ Export3D(): with if numberOfChildren(curves.1) > 1 then writeMesh(f1,curves) close! f1 -@ -<>= +\end{chunk} +\begin{chunk}{EXP3D.dotabb} "EXP3D" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXP3D"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "EXP3D" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package E04AGNT e04AgentsPackage} \pagehead{e04AgentsPackage}{E04AGNT} @@ -26181,7 +26183,7 @@ Export3D(): with \cross{E04AGNT}{variables} \end{tabular} -<>= +\begin{chunk}{package E04AGNT e04AgentsPackage} )abbrev package E04AGNT e04AgentsPackage ++ Author: Brian Dupee ++ Date Created: February 1996 @@ -26439,13 +26441,13 @@ e04AgentsPackage(): E == I where s := "linear" ["The object functions are " s] -@ -<>= +\end{chunk} +\begin{chunk}{E04AGNT.dotabb} "E04AGNT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=E04AGNT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "E04AGNT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter F} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -26459,7 +26461,7 @@ e04AgentsPackage(): E == I where \cross{FACTFUNC}{nthRoot} \end{tabular} -<>= +\begin{chunk}{package FACTFUNC FactoredFunctions} )abbrev package FACTFUNC FactoredFunctions ++ Author: Manuel Bronstein ++ Date Created: 2 Feb 1988 @@ -26503,16 +26505,16 @@ FactoredFunctions(M:IntegralDomain): Exports == Implementation where concat([1, unit ff], [[term.exponent::N, term.factor] for term in factors ff]) -@ -<>= +\end{chunk} +\begin{chunk}{FACTFUNC.dotabb} "FACTFUNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FACTFUNC"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "FACTFUNC" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FR2 FactoredFunctions2} -<>= +\begin{chunk}{FactoredFunctions2.input} )set break resume )sys rm -f FactoredFunctions2.output )spool FactoredFunctions2.output @@ -26569,9 +26571,9 @@ nthFlag(g,1) --E 6 )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{FactoredFunctions2.help} ==================================================================== FactoredFunctions2 examples ==================================================================== @@ -26623,14 +26625,14 @@ See Also: o )help Factored o )show FactoredFunctions2 -@ +\end{chunk} \pagehead{FactoredFunctions2}{FR2} \pagepic{ps/v104FactoredFunctions2.ps}{FR2}{1.00} {\bf Exports:}\\ \cross{FR2}{map} -<>= +\begin{chunk}{package FR2 FactoredFunctions2} )abbrev package FR2 FactoredFunctions2 ++ Author: Robert S. Sutor ++ Date Created: 1987 @@ -26664,13 +26666,13 @@ FactoredFunctions2(R, S): Exports == Implementation where func(unit f) * _*/[nilFactor(func(g.factor), g.exponent) for g in factors f] -@ -<>= +\end{chunk} +\begin{chunk}{FR2.dotabb} "FR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FR2"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "FR2" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FRUTIL FactoredFunctionUtilities} \pagehead{FactoredFunctionUtilities}{FRUTIL} @@ -26682,7 +26684,7 @@ FactoredFunctions2(R, S): Exports == Implementation where \cross{FRUTIL}{refine} \end{tabular} -<>= +\begin{chunk}{package FRUTIL FactoredFunctionUtilities} )abbrev package FRUTIL FactoredFunctionUtilities ++ Author: ++ Date Created: @@ -26739,13 +26741,13 @@ FactoredFunctionUtilities(R): Exports == Implementation where for v in factorList fitem],l) makeFR(u,l) -@ -<>= +\end{chunk} +\begin{chunk}{FRUTIL.dotabb} "FRUTIL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FRUTIL"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "FRUTIL" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FACUTIL FactoringUtilities} \pagehead{FactoringUtilities}{FACUTIL} @@ -26762,7 +26764,7 @@ FactoredFunctionUtilities(R): Exports == Implementation where \cross{FACUTIL}{variables} &&& \end{tabular} -<>= +\begin{chunk}{package FACUTIL FactoringUtilities} )abbrev package FACUTIL FactoringUtilities ++ Author: Barry Trager ++ Date Created: March 12, 1992 @@ -26857,16 +26859,16 @@ FactoringUtilities(E,OV,R,P) : C == T where n:=degree f ris -@ -<>= +\end{chunk} +\begin{chunk}{FACUTIL.dotabb} "FACUTIL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FACUTIL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FACUTIL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FACTEXT FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber} -<>= +\begin{chunk}{FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber.input} )set break resume )sys rm -f FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber.output )spool FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber.output @@ -26889,8 +26891,8 @@ FactoringUtilities(E,OV,R,P) : C == T where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber.help} ==================================================================== FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber examples ==================================================================== @@ -26898,7 +26900,7 @@ FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber examples See Also: o )show FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber -@ +\end{chunk} \pagehead{FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber}{FACTEXT} \pagepic{ps/v104factorisationoverpseudoalgebraicclosureofalgextofrationalnumber.eps}{FACTEXT}{1.00} @@ -26908,7 +26910,7 @@ o )show FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber \cross{FACTEXT}{factorSqFree} \end{tabular} -<>= +\begin{chunk}{package FACTEXT FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber} )abbrev package FACTEXT FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber ++ Author: Gaetan Hache ++ Date Created: September 1996 @@ -27036,16 +27038,16 @@ FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber(K):Exports == Im liftCoef:= lift(lcoef,a)$K swapCoefWithVar(liftCoef , n) + liftPoly( reductum pol , a ) -@ -<>= +\end{chunk} +\begin{chunk}{FACTEXT.dotabb} "FACTEXT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FACTEXT"] "PACEXTC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PACEXTC"] "FACTEXT" -> "PACEXTC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FACTRN FactorisationOverPseudoAlgebraicClosureOfRationalNumber} -<>= +\begin{chunk}{FactorisationOverPseudoAlgebraicClosureOfRationalNumber.input} )set break resume )sys rm -f FactorisationOverPseudoAlgebraicClosureOfRationalNumber.output )spool FactorisationOverPseudoAlgebraicClosureOfRationalNumber.output @@ -27069,8 +27071,8 @@ FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber(K):Exports == Im )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{FactorisationOverPseudoAlgebraicClosureOfRationalNumber.help} ==================================================================== FactorisationOverPseudoAlgebraicClosureOfRationalNumber examples ==================================================================== @@ -27078,7 +27080,7 @@ FactorisationOverPseudoAlgebraicClosureOfRationalNumber examples See Also: o )show FactorisationOverPseudoAlgebraicClosureOfRationalNumber -@ +\end{chunk} \pagehead{FactorisationOverPseudoAlgebraicClosureOfRationalNumber}{FACTRN} \pagepic{ps/v104factorisationoverpseudoalgebraicclosureofrationalnumber.ps}{FACTRN}{1.00} @@ -27088,7 +27090,7 @@ o )show FactorisationOverPseudoAlgebraicClosureOfRationalNumber \cross{FACTRN}{factorSqFree} \end{tabular} -<>= +\begin{chunk}{package FACTRN FactorisationOverPseudoAlgebraicClosureOfRationalNumber} )abbrev package FACTRN FactorisationOverPseudoAlgebraicClosureOfRationalNumber ++ Author: Gaetan Hache ++ Date Created: September 1996 @@ -27216,13 +27218,13 @@ FactorisationOverPseudoAlgebraicClosureOfRationalNumber(K):Exports == liftCoef:= lift(lcoef,a)$K swapCoefWithVar(liftCoef , n) + liftPoly( reductum pol , a ) -@ -<>= +\end{chunk} +\begin{chunk}{FACTRN.dotabb} "FACTRN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FACTRN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FACTRN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FGLMICPK FGLMIfCanPackage} \pagehead{FGLMIfCanPackage}{FGLMICPK} @@ -27235,7 +27237,7 @@ FactorisationOverPseudoAlgebraicClosureOfRationalNumber(K):Exports == \cross{FGLMICPK}{zeroDimensional?} \end{tabular} -<>= +\begin{chunk}{package FGLMICPK FGLMIfCanPackage} )abbrev package FGLMICPK FGLMIfCanPackage ++ Author: Marc Moreno Maza ++ Date Created: 08/02/1999 @@ -27315,15 +27317,15 @@ FGLMIfCanPackage(R,ls): Exports == Implementation where lq3: List(Q3) := totolex(lq2)$lingrobpack [dmpToP(q3)$poltopol for q3 in lq3] -@ -<>= +\end{chunk} +\begin{chunk}{FGLMICPK.dotabb} "FGLMICPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FGLMICPK"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FGLMICPK" -> "DIRPCAT" "FGLMICPK" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FORDER FindOrderFinite} \pagehead{FindOrderFinite}{FORDER} @@ -27332,7 +27334,7 @@ FGLMIfCanPackage(R,ls): Exports == Implementation where {\bf Exports:}\\ \cross{FORDER}{order} -<>= +\begin{chunk}{package FORDER FindOrderFinite} )abbrev package FORDER FindOrderFinite ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -27356,13 +27358,13 @@ FindOrderFinite(F, UP, UPUP, R): Exports == Implementation where principal? dd => return(i::NonNegativeInteger) dd := reduce(d + dd) -@ -<>= +\end{chunk} +\begin{chunk}{FORDER.dotabb} "FORDER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FORDER"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "FORDER" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FAMR2 FiniteAbelianMonoidRingFunctions2} \pagehead{FiniteAbelianMonoidRingFunctions2}{FAMR2} @@ -27371,7 +27373,7 @@ FindOrderFinite(F, UP, UPUP, R): Exports == Implementation where {\bf Exports:}\\ \cross{FAMR2}{map} -<>= +\begin{chunk}{package FAMR2 FiniteAbelianMonoidRingFunctions2} )abbrev package FAMR2 FiniteAbelianMonoidRingFunctions2 ++ Author: Martin Rubey ++ Description: @@ -27399,13 +27401,13 @@ FiniteAbelianMonoidRingFunctions2(E: OrderedAbelianMonoid, else monomial(f leadingCoefficient a, degree a)$A2 + map(f, reductum a) -@ -<>= +\end{chunk} +\begin{chunk}{FAMR2.dotabb} "FAMR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FAMR2"] "FAMR" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAMR"] "FAMR2" -> "FAMR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FDIV2 FiniteDivisorFunctions2} \pagehead{FiniteDivisorFunctions2}{FDIV2} @@ -27414,7 +27416,7 @@ FiniteAbelianMonoidRingFunctions2(E: OrderedAbelianMonoid, {\bf Exports:}\\ \cross{FDIV2}{map} -<>= +\begin{chunk}{package FDIV2 FiniteDivisorFunctions2} )abbrev package FDIV2 FiniteDivisorFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -27449,17 +27451,17 @@ FiniteDivisorFunctions2(R1, UP1, UPUP1, F1, R2, UP2, UPUP2, F2): divisor map(f, rec.principalPart) + divisor map((s:UP1):UP2 +-> map(f,s), rec.id) -@ -<>= +\end{chunk} +\begin{chunk}{FDIV2.dotabb} "FDIV2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FDIV2"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "FDIV2" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFFACTSE FiniteFieldFactorizationWithSizeParseBySideEffect} -<>= +\begin{chunk}{FiniteFieldFactorizationWithSizeParseBySideEffect.input} )set break resume )sys rm -f FiniteFieldFactorizationWithSizeParseBySideEffect.output )spool FiniteFieldFactorizationWithSizeParseBySideEffect.output @@ -27485,9 +27487,9 @@ FiniteDivisorFunctions2(R1, UP1, UPUP1, F1, R2, UP2, UPUP2, F2): )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{FiniteFieldFactorizationWithSizeParseBySideEffect.help} ==================================================================== FiniteFieldFactorizationWithSizeParseBySideEffect examples ==================================================================== @@ -27495,7 +27497,7 @@ FiniteFieldFactorizationWithSizeParseBySideEffect examples See Also: o )show FiniteFieldFactorizationWithSizeParseBySideEffect -@ +\end{chunk} \pagehead{FiniteFieldFactorizationWithSizeParseBySideEffect}{FFFACTSE} \pagepic{ps/v104finitefieldfactorizationwithsizeparsebysideeffect.ps}{FFFACTSE}{1.00} @@ -27510,7 +27512,7 @@ o )show FiniteFieldFactorizationWithSizeParseBySideEffect \end{tabular} -<>= +\begin{chunk}{package FFFACTSE FiniteFieldFactorizationWithSizeParseBySideEffect} )abbrev package FFFACTSE FiniteFieldFactorizationWithSizeParseBySideEffect ++ Author: Patrice Naudin, Claude Quitte, Kaj Laursen ++ Date Created: September 1996 @@ -27726,15 +27728,15 @@ FiniteFieldFactorizationWithSizeParseBySideEffect(K : FiniteFieldCategory, else irreducible?(P : PolK) : Boolean == oddCharacteristicIrreducible?(P) -@ -<>= +\end{chunk} +\begin{chunk}{FFFACTSE.dotabb} "FFFACTSE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFFACTSE"] "FFSQFR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFSQFR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFFACTSE" -> "FFSQFR" "FFFACTSE" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFF FiniteFieldFunctions} \pagehead{FiniteFieldFunctions}{FFF} @@ -27750,7 +27752,7 @@ FiniteFieldFactorizationWithSizeParseBySideEffect(K : FiniteFieldCategory, \cross{FFF}{sizeMultiplication} \end{tabular} -<>= +\begin{chunk}{package FFF FiniteFieldFunctions} )abbrev package FFF FiniteFieldFunctions ++ Author: J. Grabmeier, A. Scheerhorn ++ Date Created: 21 March 1991 @@ -27990,13 +27992,13 @@ FiniteFieldFunctions(GF): Exports == Implementation where qsetelt_!(mat,i,t.index+2,t.value) mat -@ -<>= +\end{chunk} +\begin{chunk}{FFF.dotabb} "FFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFHOM FiniteFieldHomomorphisms} \pagehead{FiniteFieldHomomorphisms}{FFHOM} @@ -28005,7 +28007,7 @@ FiniteFieldFunctions(GF): Exports == Implementation where {\bf Exports:}\\ \cross{FFHOM}{coerce} -<>= +\begin{chunk}{package FFHOM FiniteFieldHomomorphisms} )abbrev package FFHOM FiniteFieldHomomorphisms ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -28369,13 +28371,13 @@ FiniteFieldHomomorphisms(F1,GF,F2): Exports == Implementation where error "coerce: element doesn't belong to smaller field" represents(conMat2to1 *$(Matrix GF) coordinates(x)$F2)$F1 -@ -<>= +\end{chunk} +\begin{chunk}{FFHOM.dotabb} "FFHOM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFHOM"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "FFHOM" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFPOLY FiniteFieldPolynomialPackage} \pagehead{FiniteFieldPolynomialPackage}{FFPOLY} @@ -28403,7 +28405,7 @@ FiniteFieldHomomorphisms(F1,GF,F2): Exports == Implementation where \cross{FFPOLY}{reducedQPowers} \end{tabular} -<>= +\begin{chunk}{package FFPOLY FiniteFieldPolynomialPackage} )abbrev package FFPOLY FiniteFieldPolynomialPackage ++ Author: A. Bouyer, J. Grabmeier, A. Scheerhorn, R. Sutor, B. Trager ++ Date Created: January 1991 @@ -29378,13 +29380,13 @@ FiniteFieldPolynomialPackage GF : Exports == Implementation where if d > 1 then n := ((random()$I rem (d::PI)) + m) :: PI random(n) -@ -<>= +\end{chunk} +\begin{chunk}{FFPOLY.dotabb} "FFPOLY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFPOLY"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFPOLY" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFPOLY2 FiniteFieldPolynomialPackage2} \pagehead{FiniteFieldPolynomialPackage2}{FFPOLY2} @@ -29393,7 +29395,7 @@ FiniteFieldPolynomialPackage GF : Exports == Implementation where {\bf Exports:}\\ \cross{FFPOLY2}{rootOfIrreduciblePoly} -<>= +\begin{chunk}{package FFPOLY2 FiniteFieldPolynomialPackage2} )abbrev package FFPOLY2 FiniteFieldPolynomialPackage2 ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -29510,13 +29512,13 @@ FiniteFieldPolynomialPackage2(F,GF):Exports == Implementation where stillToFactor := h root -@ -<>= +\end{chunk} +\begin{chunk}{FFPOLY2.dotabb} "FFPOLY2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFPOLY2"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "FFPOLY2" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFSLPE FiniteFieldSolveLinearPolynomialEquation} \pagehead{FiniteFieldSolveLinearPolynomialEquation}{FFSLPE} @@ -29525,7 +29527,7 @@ FiniteFieldPolynomialPackage2(F,GF):Exports == Implementation where {\bf Exports:}\\ \cross{FFSLPE}{solveLinearPolynomialEquation} -<>= +\begin{chunk}{package FFSLPE FiniteFieldSolveLinearPolynomialEquation} )abbrev package FFSLPE FiniteFieldSolveLinearPolynomialEquation ++ Author: Davenport ++ Date Created: 1991 @@ -29573,16 +29575,16 @@ FiniteFieldSolveLinearPolynomialEquation(F:FiniteFieldCategory, answer:=solveid(p,slpePrime,oldtable) answer -@ -<>= +\end{chunk} +\begin{chunk}{FFSLPE.dotabb} "FFSLPE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFSLPE"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFSLPE" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFSQFR FiniteFieldSquareFreeDecomposition} -<>= +\begin{chunk}{FiniteFieldSquareFreeDecomposition.input} )set break resume )sys rm -f FiniteFieldSquareFreeDecomposition.output )spool FiniteFieldSquareFreeDecomposition.output @@ -29604,8 +29606,8 @@ FiniteFieldSolveLinearPolynomialEquation(F:FiniteFieldCategory, )spool -@ -<>= +\end{chunk} +\begin{chunk}{FiniteFieldSquareFreeDecomposition.help} ==================================================================== FiniteFieldSquareFreeDecomposition examples ==================================================================== @@ -29614,7 +29616,7 @@ See also: o )show FiniteFieldSquareFreeDecomposition -@ +\end{chunk} \pagehead{FiniteFieldSquareFreeDecomposition}{FFSQFR} \pagepic{ps/v104finitefieldsquarefreedecomposition.ps}{FFSQFR}{1.00} @@ -29622,7 +29624,7 @@ o )show FiniteFieldSquareFreeDecomposition \cross{FFSQFR}{PolK} \cross{FFSQFR}{Yun} -<>= +\begin{chunk}{package FFSQFR FiniteFieldSquareFreeDecomposition} )abbrev package FFSQFR FiniteFieldSquareFreeDecomposition ++ Author: Patrice Naudin and Claude Quitte ++ Date Created: September 1996 @@ -29722,13 +29724,13 @@ FiniteFieldSquareFreeDecomposition (K : FiniteFieldCategory, PFactored := PFactored * sqfrFactor (U (i), i) return (lcP::PolK) * PFactored -@ -<>= +\end{chunk} +\begin{chunk}{FFSQFR.dotabb} "FFSQFR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFSQFR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFSQFR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FLAGG2 FiniteLinearAggregateFunctions2} \pagehead{FiniteLinearAggregateFunctions2}{FLAGG2} @@ -29741,7 +29743,7 @@ FiniteFieldSquareFreeDecomposition (K : FiniteFieldCategory, \cross{FLAGG2}{scan} \end{tabular} -<>= +\begin{chunk}{package FLAGG2 FiniteLinearAggregateFunctions2} )abbrev package FLAGG2 FiniteLinearAggregateFunctions2 ++ Author: ??? ++ Date Created: ??? @@ -29853,13 +29855,13 @@ FiniteLinearAggregateFunctions2(S, A, R, B): w := concat(w, ident) w -@ -<>= +\end{chunk} +\begin{chunk}{FLAGG2.dotabb} "FLAGG2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FLAGG2"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG2" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FLASORT FiniteLinearAggregateSort} \pagehead{FiniteLinearAggregateSort}{FLASORT} @@ -29872,7 +29874,7 @@ FiniteLinearAggregateFunctions2(S, A, R, B): \cross{FLASORT}{shellSort} \end{tabular} -<>= +\begin{chunk}{package FLASORT FiniteLinearAggregateSort} )abbrev package FLASORT FiniteLinearAggregateSort ++ Author: Michael Monagan Sep/88 ++ RelatedOperations: sort @@ -29970,13 +29972,13 @@ FiniteLinearAggregateSort(S, V): Exports == Implementation where g := g quo 3 r -@ -<>= +\end{chunk} +\begin{chunk}{FLASORT.dotabb} "FLASORT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FLASORT"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLASORT" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSAGG2 FiniteSetAggregateFunctions2} \pagehead{FiniteSetAggregateFunctions2}{FSAGG2} @@ -29989,7 +29991,7 @@ FiniteLinearAggregateSort(S, V): Exports == Implementation where \cross{FSAGG2}{scan} \end{tabular} -<>= +\begin{chunk}{package FSAGG2 FiniteSetAggregateFunctions2} )abbrev package FSAGG2 FiniteSetAggregateFunctions2 ++ Author: Robert S. Sutor ++ Date Created: 15 May 1990 @@ -30035,13 +30037,13 @@ FiniteSetAggregateFunctions2(S, A, R, B): Exports == Implementation where scan(fn, a, ident) == set(scan(fn, parts a, ident)$ListFunctions2(S, R))$B -@ -<>= +\end{chunk} +\begin{chunk}{FSAGG2.dotabb} "FSAGG2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSAGG2"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "FSAGG2" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FLOATCP FloatingComplexPackage} \pagehead{FloatingComplexPackage}{FLOATCP} @@ -30053,7 +30055,7 @@ FiniteSetAggregateFunctions2(S, A, R, B): Exports == Implementation where \cross{FLOATCP}{complexSolve} \end{tabular} -<>= +\begin{chunk}{package FLOATCP FloatingComplexPackage} )abbrev package FLOATCP FloatingComplexPackage ++ Author: P. Gianni ++ Date Created: January 1990 @@ -30172,13 +30174,13 @@ FloatingComplexPackage(Par): Cat == Cap where complexSolve(eq : EQ FPK,eps : Par) : L EQ P C Par == complexSolve(lhs eq - rhs eq,eps) -@ -<>= +\end{chunk} +\begin{chunk}{FLOATCP.dotabb} "FLOATCP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FLOATCP"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "FLOATCP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FLOATRP FloatingRealPackage} \pagehead{FloatingRealPackage}{FLOATRP} @@ -30190,7 +30192,7 @@ FloatingComplexPackage(Par): Cat == Cap where \cross{FLOATRP}{solve} \end{tabular} -<>= +\begin{chunk}{package FLOATRP FloatingRealPackage} )abbrev package FLOATRP FloatingRealPackage ++ Author: P. Gianni ++ Date Created: January 1990 @@ -30307,13 +30309,13 @@ FloatingRealPackage(Par): Cat == Cap where solve(eq : EQ RFI,eps : Par) : L EQ P Par == solve(lhs eq - rhs eq,eps) -@ -<>= +\end{chunk} +\begin{chunk}{FLOATRP.dotabb} "FLOATRP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FLOATRP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FLOATRP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FCPAK1 FortranCodePackage1} \pagehead{FortranCodePackage1}{FCPAK1} @@ -30327,7 +30329,7 @@ FloatingRealPackage(Par): Cat == Cap where \cross{FCPAK1}{zeroVector} \end{tabular} -<>= +\begin{chunk}{package FCPAK1 FortranCodePackage1} )abbrev package FCPAK1 FortranCodePackage1 ++ Author: Grant Keady and Godfrey Nolan ++ Date Created: April 1993 @@ -30467,13 +30469,13 @@ FortranCodePackage1: Exports == Implementation where fa:FC := forLoop(segbp1,block(fl)$FC)$FC fa -@ -<>= +\end{chunk} +\begin{chunk}{FCPAK1.dotabb} "FCPAK1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FCPAK1"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "FCPAK1" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FOP FortranOutputStackPackage} \pagehead{FortranOutputStackPackage}{FOP} @@ -30489,7 +30491,7 @@ FortranCodePackage1: Exports == Implementation where \cross{FOP}{topFortranOutputStack} \end{tabular} -<>= +\begin{chunk}{package FOP FortranOutputStackPackage} )abbrev package FOP FortranOutputStackPackage -- Because of a bug in the compiler: )bo $noSubsumption:=false @@ -30572,13 +30574,13 @@ FortranOutputStackPackage() : specification == implementation where showFortranOutputStack():Stack String == fortranOutputStack -@ -<>= +\end{chunk} +\begin{chunk}{FOP.dotabb} "FOP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FOP"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FOP" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FORT FortranPackage} \pagehead{FortranPackage}{FORT} @@ -30591,7 +30593,7 @@ FortranOutputStackPackage() : specification == implementation where \cross{FORT}{setLegalFortranSourceExtensions} \end{tabular} -<>= +\begin{chunk}{package FORT FortranPackage} )abbrev package FORT FortranPackage -- Because of a bug in the compiler: )bo $noSubsumption:=true @@ -30685,13 +30687,13 @@ FortranPackage(): Exports == Implementation where makeFort1(name,arguments,aArgs,dummies,symbolList,res,(rt.fst)::S,asps)$Lisp makeFort1(name,arguments,aArgs,dummies,symbolList,res,NIL$Lisp,asps)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{FORT.dotabb} "FORT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FORT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "FORT" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FRIDEAL2 FractionalIdealFunctions2} \pagehead{FractionalIdealFunctions2}{FRIDEAL2} @@ -30700,7 +30702,7 @@ FortranPackage(): Exports == Implementation where {\bf Exports:}\\ \cross{FRIDEAL2}{map} -<>= +\begin{chunk}{package FRIDEAL2 FractionalIdealFunctions2} )abbrev package FRIDEAL2 FractionalIdealFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 1 Feb 1989 @@ -30737,13 +30739,13 @@ FractionalIdealFunctions2(R1, F1, U1, A1, R2, F2, U2, A2): ideal [fmap(s +-> f(numer s) / f(denom s), qelt(b, j)) for j in minIndex b .. maxIndex b]$Vector(A2) -@ -<>= +\end{chunk} +\begin{chunk}{FRIDEAL2.dotabb} "FRIDEAL2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FRIDEAL2"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "FRIDEAL2" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFFG FractionFreeFastGaussian} \pagehead{FractionFreeFastGaussian}{FFFG} @@ -30763,7 +30765,7 @@ FractionalIdealFunctions2(R1, F1, U1, A1, R2, F2, U2, A2): \cross{FFFG}{qShiftC} && \end{tabular} -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} )abbrev package FFFG FractionFreeFastGaussian ++ Author: Martin Rubey ++ Description: @@ -30811,22 +30813,22 @@ FractionFreeFastGaussian(D, V): Exports == Implementation where ++ guarantee that all given points are interpolated correctly: ++ unattainable points may make this impossible. -@ +\end{chunk} \begin{verbatim} - The following function could be moved to [[FFFGF]], parallel to - [[generalInterpolation]]. However, the reason for moving - [[generalInterpolation]] for fractions to a separate package was the need of - a generic signature, hence the extra argument [[VF]] to [[FFFGF]]. In the + The following function could be moved to FFFGF, parallel to + generalInterpolation. However, the reason for moving + generalInterpolation for fractions to a separate package was the need of + a generic signature, hence the extra argument VF to FFFGF. In the special case of rational interpolation, this extra argument is not necessary, - since we are always returning a fraction of [[SUP]]s, and ignore [[V]]. In - fact, [[V]] is not needed for [[fffg]] itself, only if we want to specify a - [[CoeffAction]]. + since we are always returning a fraction of SUPs, and ignore V. In + fact, V is not needed for fffg itself, only if we want to specify a + CoeffAction. - Thus, maybe it would be better to move [[fffg]] to a separate package? + Thus, maybe it would be better to move fffg to a separate package? \end{verbatim} -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} interpolate: (List Fraction D, List Fraction D, NonNegativeInteger) -> Fraction SUP D ++ \spad{interpolate(xlist, ylist, deg} returns the rational function with @@ -30978,12 +30980,12 @@ FractionFreeFastGaussian(D, V): Exports == Implementation where -- general - suitable for functions f - trying all possible degree combinations ------------------------------------------------------------------------------- -@ +\end{chunk} The following function returns the lexicographically next vector with -non-negative components smaller than [[p]] with the same sum as [[v]]. +non-negative components smaller than p with the same sum as v. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} nextVector!(p: NonNegativeInteger, v: List NonNegativeInteger) : Union("failed", List NonNegativeInteger) == n := #v @@ -31010,25 +31012,25 @@ non-negative components smaller than [[p]] with the same sum as [[v]]. v.(pos-1) := (v.(pos-1) - 1)::NonNegativeInteger v -@ +\end{chunk} The following function returns the stream of all possible degree vectors, -beginning with [[v]], where the degree vectors are sorted in reverse -lexicographic order. Furthermore, the entries are all less or equal to [[p]] -and their sum equals the sum of the entries of [[v]]. We assume that the -entries of [[v]] are also all less or equal to [[p]]. +beginning with v, where the degree vectors are sorted in reverse +lexicographic order. Furthermore, the entries are all less or equal to p +and their sum equals the sum of the entries of v. We assume that the +entries of v are also all less or equal to p. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} vectorStream(p: NonNegativeInteger, v: List NonNegativeInteger) : Stream List NonNegativeInteger == delay next := nextVector!(p, copy v) (next case "failed") => empty()$Stream(List NonNegativeInteger) cons(next, vectorStream(p, next)) -@ +\end{chunk} -[[vectorStream2]] skips every second entry of [[vectorStream]]. +vectorStream2 skips every second entry of vectorStream. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} vectorStream2(p: NonNegativeInteger, v: List NonNegativeInteger) : Stream List NonNegativeInteger == delay next := nextVector!(p, copy v) @@ -31036,33 +31038,33 @@ entries of [[v]] are also all less or equal to [[p]]. next2 := nextVector!(p, copy next) (next2 case "failed") => cons(next, empty()) cons(next2, vectorStream2(p, next2)) -@ +\end{chunk} -This version of [[generalInterpolation]] returns a stream of solutions, one for +This version of generalInterpolation returns a stream of solutions, one for each possible degree vector. Thus, it only needs to apply the previously -defined [[generalInterpolation]] to each degree vector. These are generated by -[[vectorStream]] and [[vectorStream2]] respectively. +defined generalInterpolation to each degree vector. These are generated by +vectorStream and vectorStream2 respectively. -If [[f]] consists of two elements only, we can skip every second degree vector: -note that [[fffg]], and thus also [[generalInterpolation]], returns a matrix -with [[#f]] columns, each corresponding to a solution of the interpolation +If f consists of two elements only, we can skip every second degree vector: +note that fffg, and thus also generalInterpolation, returns a matrix +with \verb|#f| columns, each corresponding to a solution of the interpolation problem. More precisely, the $i$\textsuperscript{th} column is a solution with -degrees [[eta]]$-(1,1,\dots,1)+e_i$. Thus, in the case of $2\times 2$ matrices, -[[vectorStream]] would produce solutions corresponding to $(d,0), (d-1,1); +degrees $\eta-(1,1,\dots,1)+e_i$. Thus, in the case of $2\times 2$ matrices, +vectorStream would produce solutions corresponding to $(d,0), (d-1,1); (d-1,1), (d-2, 2); (d-2, 2), (d-3,3)\dots$, i.e., every second matrix is redundant. -Although some redundancy exists also for higher dimensional [[f]], the scheme +Although some redundancy exists also for higher dimensional f, the scheme becomes much more complicated, thus we did not implement it. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} generalInterpolation(C: List D, coeffAction: CoeffAction, f: Vector V, sumEta: NonNegativeInteger, maxEta: NonNegativeInteger) : Stream Matrix SUP D == - <> +\getchunk{generate an initial degree vector} if #f = 2 then map(x +-> generalInterpolation(C, coeffAction, f, x), @@ -31074,30 +31076,30 @@ becomes much more complicated, thus we did not implement it. cons(eta, vectorStream(maxEta, eta))) $StreamFunctions2(List NonNegativeInteger, Matrix SUP D) -@ +\end{chunk} We need to generate an initial degree vector, being the minimal element in reverse lexicographic order, i.e., $m, m, \dots, m, k, 0, 0, \dots$, where $m$ -is [[maxEta]] and $k$ is the remainder of [[sumEta]] divided by -[[maxEta]]. This is done by the following code: - -<>= -sum: Integer := sumEta -entry: Integer -eta: List NonNegativeInteger - := [(if sum < maxEta _ - then (entry := sum; sum := 0) _ - else (entry := maxEta; sum := sum - maxEta); _ - entry::NonNegativeInteger) for i in 1..#f] -@ +is maxEta and $k$ is the remainder of sumEta divided by +maxEta. This is done by the following code: + +\begin{chunk}{generate an initial degree vector} + sum: Integer := sumEta + entry: Integer + eta: List NonNegativeInteger + := [(if sum < maxEta _ + then (entry := sum; sum := 0) _ + else (entry := maxEta; sum := sum - maxEta); _ + entry::NonNegativeInteger) for i in 1..#f] +\end{chunk} We want to generate all vectors with sum of entries being at most -[[sumEta]]. Therefore the following is incorrect. -<>= +sumEta. Therefore the following is incorrect. +\begin{chunk}{BUG generate an initial degree vector} -- (sum > 0) => empty()$Stream(Matrix SUP D) -@ +\end{chunk} -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} ------------------------------------------------------------------------------- -- rational interpolation ------------------------------------------------------------------------------- @@ -31127,21 +31129,21 @@ We want to generate all vectors with sum of entries being at most if zero?(M.(2,1)) then M.(1,2)/M.(2,2) else M.(1,1)/M.(2,1) -@ -Because of Lemma~5.3, [[M.1.(2,1)]] and [[M.1.(2,2)]] cannot both vanish, -since [[eta_sigma]] is always $\sigma$-normal by Theorem~7.2 and therefore also -para-normal, see Definition~4.2. +\end{chunk} +Because of Lemma~5.3, M.1.(2,1) and M.1.(2,2) cannot both vanish, +since \verb|eta_sigma| is always $\sigma$-normal by Theorem~7.2 and +therefore also para-normal, see Definition~4.2. -Because of Lemma~5.1 we have that [[M.1.(*,2)]] is a solution of the -interpolation problem, if [[M.1.(2,1)]] vanishes. +Because of Lemma~5.1 we have that M.1.(*,2) is a solution of the +interpolation problem, if M.1.(2,1) vanishes. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} ------------------------------------------------------------------------------- -- fffg ------------------------------------------------------------------------------- -@ +\end{chunk} -[[recurrence]] computes the new matrix $M$, according to the following formulas +recurrence computes the new matrix $M$, according to the following formulas (cf. Table~2 in Beckermann and Labahn): \[ \begin{array}{cc} @@ -31162,10 +31164,10 @@ interpolation problem, if [[M.1.(2,1)]] vanishes. \] Since we do not need the matrix $\mathbf M_{\sigma}$ anymore, we drop the index -and update the matrix destructively. In the following, we write [[Ck]] for +and update the matrix destructively. In the following, we write Ck for $c_{\sigma,\sigma}$. -<>= +\begin{chunk}{package FFFG FractionFreeFastGaussian} -- a major part of the time is spent here recurrence(M: Matrix SUP D, pi: NonNegativeInteger, m: NonNegativeInteger, r: Vector D, d: D, z: SUP D, Ck: D, p: Vector D): Matrix SUP D == @@ -31243,13 +31245,13 @@ $c_{\sigma,\sigma}$. M -@ -<>= +\end{chunk} +\begin{chunk}{FFFG.dotabb} "FFFG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFFG"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFFG" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFFGF FractionFreeFastGaussianFractions} \pagehead{FractionFreeFastGaussianFractions}{FFFGF} @@ -31258,7 +31260,7 @@ $c_{\sigma,\sigma}$. {\bf Exports:}\\ \cross{FFFGF}{generalInterpolation} -<>= +\begin{chunk}{package FFFGF FractionFreeFastGaussianFractions} )abbrev package FFFGF FractionFreeFastGaussianFractions ++ Author: Martin Rubey ++ Description: @@ -31357,13 +31359,13 @@ FractionFreeFastGaussianFractions(D, V, VF): Exports == Implementation where map(x +-> multiplyRows!(den, x), MS)$Stream(Matrix SUP D) -@ -<>= +\end{chunk} +\begin{chunk}{FFFGF.dotabb} "FFFGF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFFGF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FFFGF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FRAC2 FractionFunctions2} \pagehead{FractionFunctions2}{FRAC2} @@ -31372,7 +31374,7 @@ FractionFreeFastGaussianFractions(D, V, VF): Exports == Implementation where {\bf Exports:}\\ \cross{FRAC2}{map} -<>= +\begin{chunk}{package FRAC2 FractionFunctions2} )abbrev package FRAC2 FractionFunctions2 ++ Author: ++ Date Created: @@ -31402,13 +31404,13 @@ FractionFunctions2(A, B): Exports == Impl where Impl ==> add map(f, r) == map(f, r)$QuotientFieldCategoryFunctions2(A, B, R, S) -@ -<>= +\end{chunk} +\begin{chunk}{FRAC2.dotabb} "FRAC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FRAC2"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "FRAC2" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FRNAAF2 FramedNonAssociativeAlgebraFunctions2} \pagehead{FramedNonAssociativeAlgebraFunctions2}{FRNAAF2} @@ -31417,7 +31419,7 @@ FractionFunctions2(A, B): Exports == Impl where {\bf Exports:}\\ \cross{FRNAAF2}{map} -<>= +\begin{chunk}{package FRNAAF2 FramedNonAssociativeAlgebraFunctions2} )abbrev package FRNAAF2 FramedNonAssociativeAlgebraFunctions2 ++ Author: Johannes Grabmeier ++ Date Created: 28 February 1992 @@ -31451,25 +31453,25 @@ FramedNonAssociativeAlgebraFunctions2(AR,R,AS,S) : Exports == rank()$AR > rank()$AS => error("map: ranks of algebras do not fit") vr : V R := coordinates u vs : V S := map(fn,vr)$VectorFunctions2(R,S) -@ +\end{chunk} This line used to read: \begin{verbatim} rank()$AR = rank()$AR => represents(vs)$AS \end{verbatim} but the test is clearly always true and cannot be what was intended. Gregory Vanuxem supplied the fix below. -<>= +\begin{chunk}{package FRNAAF2 FramedNonAssociativeAlgebraFunctions2} rank()$AR = rank()$AS => represents(vs)$AS ba := basis()$AS represents(vs,[ba.i for i in 1..rank()$AR]) -@ -<>= +\end{chunk} +\begin{chunk}{FRNAAF2.dotabb} "FRNAAF2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FRNAAF2"] "FRNAALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRNAALG"] "FRNAAF2" -> "FRNAALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSPECF FunctionalSpecialFunction} \pagehead{FunctionalSpecialFunction}{FSPECF} @@ -31503,7 +31505,7 @@ Gregory Vanuxem supplied the fix below. \cross{FSPECF}{polygamma} & \end{tabular} -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} )abbrev package FSPECF FunctionalSpecialFunction ++ Author: Manuel Bronstein ++ Date Created: 18 Apr 1989 @@ -31553,10 +31555,10 @@ FunctionalSpecialFunction(R, F): Exports == Implementation where airyBi: F -> F ++ airyBi(x) returns the airybi function applied to x -@ +\end{chunk} In case we want to have more special function operators here, do not forget to -add them to the list [[specop]] in [[CommonOperators]]. Otherwise they will +add them to the list specop in CommonOperators. Otherwise they will not have the \lq special\rq\ attribute and will not be recognised here. One effect could be that \begin{verbatim} @@ -31564,7 +31566,7 @@ myNewSpecOp(1::Expression Integer)::Expression DoubleFloat \end{verbatim} might not re-evaluate the operator. -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} iiGamma : F -> F ++ iiGamma(x) should be local but conditional; iiabs : F -> F @@ -31766,7 +31768,7 @@ might not re-evaluate the operator. evaluate(opBesselK ,iiBesselK )$BasicOperatorFunctions1(F) evaluate(opAiryAi ,iiAiryAi )$BasicOperatorFunctions1(F) evaluate(opAiryBi ,iiAiryBi )$BasicOperatorFunctions1(F) -@ +\end{chunk} \subsection{differentiation of special functions} @@ -31774,31 +31776,31 @@ In the following we define the symbolic derivatives of the special functions we provide. The formulas we use for the Bessel functions can be found in Milton Abramowitz and Irene A. Stegun, eds. (1965). Handbook of Mathematical Functions with Formulas, Graphs, and Mathematical Tables. New York: Dover. ISBN -0-486-61272-4, Equations~9.1.27 and 9.6.26. Up to [[patch--50]] the formula +0-486-61272-4, Equations~9.1.27 and 9.6.26. Up to patch--50 the formula for $K$ missed the minus sign. (Issue~\#355) We do not attempt to provide formulas for the derivative with respect to the first argument currently. Instead, we leave such derivatives unevaluated. -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} import Fraction Integer ahalf: F := recip(2::F)::F athird: F := recip(2::F)::F twothirds: F := 2*recip(3::F)::F -@ +\end{chunk} We need to get hold of the differentiation operator as modified by -[[FunctionSpace]]. Otherwise, for example, display will be ugly. We accomplish +FunctionSpace. Otherwise, for example, display will be ugly. We accomplish that by differentiating an operator, which will certainly result in a single kernel only. -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} dummyArg: SE := new()$SE opdiff := operator first kernels D((operator(new()$SE)$BasicOperator) (dummyArg::F), dummyArg) -@ +\end{chunk} -The differentiation operator [[opdiff]] takes three arguments corresponding to +The differentiation operator opdiff takes three arguments corresponding to $$ F_{,i}(a_1,a_2,\dots,a_n): $$ @@ -31810,13 +31812,13 @@ $$ \end{enumerate} In the following, it seems to be safe to use the same dummy variable -throughout. At least, this is done also in [[FunctionSpace]], and did +throughout. At least, this is done also in FunctionSpace, and did not cause problems. -The operation [[symbolicGrad]] returns the first component of the gradient of -[[op l]]. +The operation symbolicGrad returns the first component of the gradient of +op l. -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} dm := new()$SE :: F iBesselJ(l: List F, t: SE): F == @@ -31839,12 +31841,12 @@ The operation [[symbolicGrad]] returns the first component of the gradient of differentiate(n, t)*kernel(opdiff, [opBesselK [dm, x], dm, n]) - differentiate(x, t)* ahalf * (besselK (n-1,x) + besselK (n+1,x)) -@ +\end{chunk} -For the moment we throw an error if we try to differentiate [[polygamma]] with +For the moment we throw an error if we try to differentiate polygamma with respect to the first argument. -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} ipolygamma(l: List F, x: SE): F == member?(x, variables first l) => error "cannot differentiate polygamma with respect to the first argument" @@ -31864,16 +31866,16 @@ respect to the first argument. - differentiate(x, t)* x ** (a - 1) * exp(-x) setProperty(opGamma2, SPECIALDIFF, iGamma2@((List F, SE)->F) pretend None) -@ +\end{chunk} Finally, we tell Axiom to use these functions for differentiation. Note that -up to [[patch--50]], the properties for the Bessel functions were set using -[[derivative(oppolygamma, [lzero, ipolygammaGrad])]], where [[lzero]] returned -zero always. Trying to replace [[lzero]] by a function that returns the first +up to patch--50, the properties for the Bessel functions were set using +derivative(oppolygamma, [lzero, ipolygammaGrad]), where lzero returned +zero always. Trying to replace lzero by a function that returns the first component of the gradient failed, it resulted in an infinite loop for -[[integrate(D(besselJ(a,x),a),a)]]. +integrate(D(besselJ(a,x),a),a). -<>= +\begin{chunk}{package FSPECF FunctionalSpecialFunction} derivative(opabs, (x:F):F +-> abs(x) * inv(x)) derivative(opGamma, (x:F):F +-> digamma x * Gamma x) derivative(opBeta, [iBetaGrad1, iBetaGrad2]) @@ -31889,13 +31891,13 @@ component of the gradient failed, it resulted in an infinite loop for setProperty(opBesselK, SPECIALDIFF, iBesselK@((List F, SE)->F) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{FSPECF.dotabb} "FSPECF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSPECF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FSPECF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFCAT2 FunctionFieldCategoryFunctions2} \pagehead{FunctionFieldCategoryFunctions2}{FFCAT2} @@ -31904,7 +31906,7 @@ component of the gradient failed, it resulted in an infinite loop for {\bf Exports:}\\ \cross{FFCAT2}{map} -<>= +\begin{chunk}{package FFCAT2 FunctionFieldCategoryFunctions2} )abbrev package FFCAT2 FunctionFieldCategoryFunctions2 ++ Author: Manuel Bronstein ++ Date Created: May 1988 @@ -31931,13 +31933,13 @@ FunctionFieldCategoryFunctions2(R1, UP1, UPUP1, F1, R2, UP2, UPUP2, F2): map(f, f1) == reduce(map(f, lift f1)$MultipleMap(R1, UP1, UPUP1, R2, UP2, UPUP2)) -@ -<>= +\end{chunk} +\begin{chunk}{FFCAT2.dotabb} "FFCAT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFCAT2"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "FFCAT2" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FFINTBAS FunctionFieldIntegralBasis} \pagehead{FunctionFieldIntegralBasis}{FFINTBAS} @@ -31949,7 +31951,7 @@ FunctionFieldCategoryFunctions2(R1, UP1, UPUP1, F1, R2, UP2, UPUP2, F2): \cross{FFINTBAS}{localIntegralBasis} \end{tabular} -<>= +\begin{chunk}{package FFINTBAS FunctionFieldIntegralBasis} )abbrev package FFINTBAS FunctionFieldIntegralBasis ++ Author: Victor Miller ++ Date Created: 9 April 1990 @@ -32069,13 +32071,13 @@ FunctionFieldIntegralBasis(R,UP,F): Exports == Implementation where [scalarMatrix(n,1),1,scalarMatrix(n,1)] iIntegralBasis(tfm,disc,prime) -@ -<>= +\end{chunk} +\begin{chunk}{FFINTBAS.dotabb} "FFINTBAS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FFINTBAS"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "FFINTBAS" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMASSFS FunctionSpaceAssertions} \pagehead{FunctionSpaceAssertions}{PMASSFS} @@ -32089,7 +32091,7 @@ FunctionFieldIntegralBasis(R,UP,F): Exports == Implementation where \cross{PMASSFS}{optional} \end{tabular} -<>= +\begin{chunk}{package PMASSFS FunctionSpaceAssertions} )abbrev package PMASSFS FunctionSpaceAssertions ++ Author: Manuel Bronstein ++ Date Created: 21 Mar 1989 @@ -32161,13 +32163,13 @@ FunctionSpaceAssertions(R, F): Exports == Implementation where ass(retract(x)@K, PMMULT) error "multiple must be applied to symbols only" -@ -<>= +\end{chunk} +\begin{chunk}{PMASSFS.dotabb} "PMASSFS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMASSFS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "PMASSFS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMPREDFS FunctionSpaceAttachPredicates} \pagehead{FunctionSpaceAttachPredicates}{PMPREDFS} @@ -32176,7 +32178,7 @@ FunctionSpaceAssertions(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{PMPREDFS}{suchThat} -<>= +\begin{chunk}{package PMPREDFS FunctionSpaceAttachPredicates} )abbrev package PMPREDFS FunctionSpaceAttachPredicates ++ Author: Manuel Bronstein ++ Date Created: 21 Mar 1989 @@ -32225,13 +32227,13 @@ FunctionSpaceAttachPredicates(R, F, D): Exports == Implementation where st(retract(p)@K, [f::Any for f in l]) error "suchThat must be applied to symbols only" -@ -<>= +\end{chunk} +\begin{chunk}{PMPREDFS.dotabb} "PMPREDFS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMPREDFS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "PMPREDFS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSCINT FunctionSpaceComplexIntegration} \pagehead{FunctionSpaceComplexIntegration}{FSCINT} @@ -32244,7 +32246,7 @@ FunctionSpaceAttachPredicates(R, F, D): Exports == Implementation where \cross{FSCINT}{internalIntegrate0} \end{tabular} -<>= +\begin{chunk}{package FSCINT FunctionSpaceComplexIntegration} )abbrev package FSCINT FunctionSpaceComplexIntegration ++ Author: Manuel Bronstein ++ Date Created: 4 February 1988 @@ -32318,13 +32320,13 @@ FunctionSpaceComplexIntegration(R, F): Exports == Implementation where map(FG2F, lfintegrate(h, x)) internalIntegrate0(rootSimp(rischNormalize(g, x).func), x) -@ -<>= +\end{chunk} +\begin{chunk}{FSCINT.dotabb} "FSCINT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSCINT"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "FSCINT" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FS2 FunctionSpaceFunctions2} \pagehead{FunctionSpaceFunctions2}{FS2} @@ -32333,7 +32335,7 @@ FunctionSpaceComplexIntegration(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{FS2}{map} -<>= +\begin{chunk}{package FS2 FunctionSpaceFunctions2} )abbrev package FS2 FunctionSpaceFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 22 March 1988 @@ -32371,13 +32373,13 @@ FunctionSpaceFunctions2(R, A, S, B): Exports == Implementation where else map(f, x) == smpmap(f, numer x) -@ -<>= +\end{chunk} +\begin{chunk}{FS2.dotabb} "FS2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FS2"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FS2" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSINT FunctionSpaceIntegration} \pagehead{FunctionSpaceIntegration}{FSINT} @@ -32386,7 +32388,7 @@ FunctionSpaceFunctions2(R, A, S, B): Exports == Implementation where {\bf Exports:}\\ \cross{FSINT}{integrate} -<>= +\begin{chunk}{package FSINT FunctionSpaceIntegration} )abbrev package FSINT FunctionSpaceIntegration ++ Author: Manuel Bronstein ++ Date Created: 4 February 1988 @@ -32517,13 +32519,13 @@ FunctionSpaceIntegration(R, F): Exports == Implementation where postSubst(u::F, rec.vals, rec.kers, comp, ltg, x) [postSubst(h, rec.vals, rec.kers, comp, ltg, x) for h in u::List(F)] -@ -<>= +\end{chunk} +\begin{chunk}{FSINT.dotabb} "FSINT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSINT"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "FSINT" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSPRMELT FunctionSpacePrimitiveElement} \pagehead{FunctionSpacePrimitiveElement}{FSPRMELT} @@ -32532,7 +32534,7 @@ FunctionSpaceIntegration(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{FSPRMELT}{primitiveElement} -<>= +\begin{chunk}{package FSPRMELT FunctionSpacePrimitiveElement} )abbrev package FSPRMELT FunctionSpacePrimitiveElement ++ Author: Manuel Bronstein ++ Date Created: 6 Jun 1990 @@ -32639,13 +32641,13 @@ FunctionSpacePrimitiveElement(R, F): Exports == Implementation where univariate(-coefficient(r,0)/leadingCoefficient r,k,minPoly k) error "GCD not of degree 1" -@ -<>= +\end{chunk} +\begin{chunk}{FSPRMELT.dotabb} "FSPRMELT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSPRMELT"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FSPRMELT" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSRED FunctionSpaceReduce} \pagehead{FunctionSpaceReduce}{FSRED} @@ -32657,7 +32659,7 @@ FunctionSpacePrimitiveElement(R, F): Exports == Implementation where \cross{FSRED}{newReduc} \end{tabular} -<>= +\begin{chunk}{package FSRED FunctionSpaceReduce} )abbrev package FSRED FunctionSpaceReduce ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -32716,13 +32718,13 @@ FunctionSpaceReduce(R, F): Exports == Implementation where setelt(redmap, k, random()$Z)::F u::Z::F -@ -<>= +\end{chunk} +\begin{chunk}{FSRED.dotabb} "FSRED" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSRED"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FSRED" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SUMFS FunctionSpaceSum} \pagehead{FunctionSpaceSum}{SUMFS} @@ -32731,7 +32733,7 @@ FunctionSpaceReduce(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{SUMFS}{sum} -<>= +\begin{chunk}{package SUMFS FunctionSpaceSum} )abbrev package SUMFS FunctionSpaceSum ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -32787,15 +32789,15 @@ FunctionSpaceSum(R, F): Exports == Implementation where (u := GospersMethod(f, k, newk)) case "failed" => "failed" x1 * eval(u::F, k, k::F - 1) -@ -<>= +\end{chunk} +\begin{chunk}{SUMFS.dotabb} "SUMFS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SUMFS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "SUMFS" -> "FS" "SUMFS" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FS2EXPXP FunctionSpaceToExponentialExpansion} \pagehead{FunctionSpaceToExponentialExpansion}{FS2EXPXP} @@ -32807,7 +32809,7 @@ FunctionSpaceSum(R, F): Exports == Implementation where \cross{FS2EXPXP}{exprToXXP} \end{tabular} -<>= +\begin{chunk}{package FS2EXPXP FunctionSpaceToExponentialExpansion} )abbrev package FS2EXPXP FunctionSpaceToExponentialExpansion ++ Author: Clifton J. Williamson ++ Date Created: 17 August 1992 @@ -33350,13 +33352,13 @@ FunctionSpaceToExponentialExpansion(R,FE,x,cen):_ atan coef [((cc :: UPXS) + integrate(differentiate(ups)/(1 + ups*ups))) :: XXP] -@ -<>= +\end{chunk} +\begin{chunk}{FS2EXPXP.dotabb} "FS2EXPXP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FS2EXPXP"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "FS2EXPXP" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FS2UPS FunctionSpaceToUnivariatePowerSeries} \pagehead{FunctionSpaceToUnivariatePowerSeries}{FS2UPS} @@ -33369,7 +33371,7 @@ FunctionSpaceToExponentialExpansion(R,FE,x,cen):_ \cross{FS2UPS}{exprToUPS} \end{tabular} -<>= +\begin{chunk}{package FS2UPS FunctionSpaceToUnivariatePowerSeries} )abbrev package FS2UPS FunctionSpaceToUnivariatePowerSeries ++ Author: Clifton J. Williamson ++ Date Created: 21 March 1989 @@ -34130,15 +34132,15 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_ expon case %problem => expon expGenUPS((expon.%series) * (logBase.%series),posCheck?,atanFlag) -@ -<>= +\end{chunk} +\begin{chunk}{FS2UPS.dotabb} "FS2UPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FS2UPS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FS2UPS" -> "ACF" "FS2UPS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FSUPFACT FunctionSpaceUnivariatePolynomialFactor} \pagehead{FunctionSpaceUnivariatePolynomialFactor}{FSUPFACT} @@ -34152,7 +34154,7 @@ FunctionSpaceToUnivariatePowerSeries(R,FE,Expon,UPS,TRAN,x):_ \cross{FSUPFACT}{UP2ifCan} \end{tabular} -<>= +\begin{chunk}{package FSUPFACT FunctionSpaceUnivariatePolynomialFactor} )abbrev package FSUPFACT FunctionSpaceUnivariatePolynomialFactor ++ Author: Manuel Bronstein ++ Date Created: 12 May 1988 @@ -34291,15 +34293,15 @@ FunctionSpaceUnivariatePolynomialFactor(R, F, UP): $PolynomialCategoryLifting(IndexedExponents K,K,R,PR,PQ) "failed" -@ -<>= +\end{chunk} +\begin{chunk}{FSUPFACT.dotabb} "FSUPFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FSUPFACT"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FSUPFACT" -> "FS" "FSUPFACT" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter G} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -34320,7 +34322,7 @@ FunctionSpaceUnivariatePolynomialFactor(R, F, UP): \cross{GALFACTU}{singleFactorBound} & \end{tabular} -<>= +\begin{chunk}{package GALFACTU GaloisGroupFactorizationUtilities} )abbrev package GALFACTU GaloisGroupFactorizationUtilities ++ Author: Frederic Lehobey ++ Date Created: 30 June 1994 @@ -34478,13 +34480,13 @@ GaloisGroupFactorizationUtilities(R,UP,F): Exports == Implementation where bombieriNorm(f:UP):F == bombieriNorm(f,2) -- See [1] -@ -<>= +\end{chunk} +\begin{chunk}{GALFACTU.dotabb} "GALFACTU" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GALFACTU"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GALFACTU" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GALFACT GaloisGroupFactorizer} \pagehead{GaloisGroupFactorizer}{GALFACT} @@ -34512,7 +34514,7 @@ GaloisGroupFactorizationUtilities(R,UP,F): Exports == Implementation where \cross{GALFACT}{useSingleFactorBound?} && \end{tabular} -<>= +\begin{chunk}{package GALFACT GaloisGroupFactorizer} )abbrev package GALFACT GaloisGroupFactorizer ++ Author: Frederic Lehobey ++ Date Created: 28 June 1994 @@ -35315,13 +35317,13 @@ GaloisGroupFactorizer(UP): Exports == Implementation where factorOfDegree(d:P,p:UP):Union(UP,"failed") == factorOfDegree(d,p,new(degree p,1)$List(N),2,false) -@ -<>= +\end{chunk} +\begin{chunk}{GALFACT.dotabb} "GALFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GALFACT"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "GALFACT" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GALPOLYU GaloisGroupPolynomialUtilities} \pagehead{GaloisGroupPolynomialUtilities}{GALPOLYU} @@ -35339,7 +35341,7 @@ GaloisGroupFactorizer(UP): Exports == Implementation where \cross{GALPOLYU}{unvectorise} && \end{tabular} -<>= +\begin{chunk}{package GALPOLYU GaloisGroupPolynomialUtilities} )abbrev package GALPOLYU GaloisGroupPolynomialUtilities ++ Author: Frederic Lehobey ++ Date Created: 30 June 1994 @@ -35439,13 +35441,13 @@ GaloisGroupPolynomialUtilities(R,UP): Exports == Implementation where shiftRoots(p:UP,c:R):UP == elt(map(coerce,p),monomial(1,1)$UP-c::UP)::UP -@ -<>= +\end{chunk} +\begin{chunk}{GALPOLYU.dotabb} "GALPOLYU" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GALPOLYU"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GALPOLYU" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GALUTIL GaloisGroupUtilities} \pagehead{GaloisGroupUtilities}{GALUTIL} @@ -35462,7 +35464,7 @@ GaloisGroupPolynomialUtilities(R,UP): Exports == Implementation where \cross{GALUTIL}{sizePascalTriangle} &&& \end{tabular} -<>= +\begin{chunk}{package GALUTIL GaloisGroupUtilities} )abbrev package GALUTIL GaloisGroupUtilities ++ Author: Frederic Lehobey ++ Date Created: 29 June 1994 @@ -35579,13 +35581,13 @@ GaloisGroupUtilities(R): Exports == Implementation where fillPascalTriangle():Void == pascalTriangle(rangepascaltriangle,2) -@ -<>= +\end{chunk} +\begin{chunk}{GALUTIL.dotabb} "GALUTIL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GALUTIL"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "GALUTIL" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GAUSSFAC GaussianFactorizationPackage} \pagehead{GaussianFactorizationPackage}{GAUSSFAC} @@ -35598,7 +35600,7 @@ GaloisGroupUtilities(R): Exports == Implementation where \cross{GAUSSFAC}{sumSquares} \end{tabular} -<>= +\begin{chunk}{package GAUSSFAC GaussianFactorizationPackage} )abbrev package GAUSSFAC GaussianFactorizationPackage ++ Author: Patrizia Gianni ++ Date Created: Summer 1986 @@ -35776,13 +35778,13 @@ GaussianFactorizationPackage() : C == T -- and false, otherwise prime?(p)$IntegerPrimesPackage(Z) -@ -<>= +\end{chunk} +\begin{chunk}{GAUSSFAC.dotabb} "GAUSSFAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GAUSSFAC"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "GAUSSFAC" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GHENSEL GeneralHenselPackage} \pagehead{GeneralHenselPackage}{GHENSEL} @@ -35795,7 +35797,7 @@ GaussianFactorizationPackage() : C == T \cross{GHENSEL}{reduction} \end{tabular} -<>= +\begin{chunk}{package GHENSEL GeneralHenselPackage} )abbrev package GHENSEL GeneralHenselPackage ++ Author : P.Gianni ++ Description: @@ -35943,13 +35945,13 @@ GeneralHenselPackage(RP,TP):C == T where if dfn > 0 then finallist := cons(m,finallist) finallist -@ -<>= +\end{chunk} +\begin{chunk}{GHENSEL.dotabb} "GHENSEL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GHENSEL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GHENSEL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GENMFACT GeneralizedMultivariateFactorize} \pagehead{GeneralizedMultivariateFactorize}{GENMFACT} @@ -35958,7 +35960,7 @@ GeneralHenselPackage(RP,TP):C == T where {\bf Exports:}\\ \cross{GENMFACT}{factor} -<>= +\begin{chunk}{package GENMFACT GeneralizedMultivariateFactorize} )abbrev package GENMFACT GeneralizedMultivariateFactorize ++ Author: P. Gianni ++ Date Created: 1983 @@ -36006,16 +36008,16 @@ GeneralizedMultivariateFactorize(OV,E,S,R,P) : C == T factor(p)$MultivariateFactorize(OV,E,R,P) squareFree p -@ -<>= +\end{chunk} +\begin{chunk}{GENMFACT.dotabb} "GENMFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GENMFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GENMFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GPAFF GeneralPackageForAlgebraicFunctionField} -<>= +\begin{chunk}{GeneralPackageForAlgebraicFunctionField.input} )set break resume )sys rm -f GeneralPackageForAlgebraicFunctionField.output )spool GeneralPackageForAlgebraicFunctionField.output @@ -36067,8 +36069,8 @@ GeneralizedMultivariateFactorize(OV,E,S,R,P) : C == T )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GeneralPackageForAlgebraicFunctionField.help} ==================================================================== GeneralPackageForAlgebraicFunctionField examples ==================================================================== @@ -36076,7 +36078,7 @@ GeneralPackageForAlgebraicFunctionField examples See Also: o )show GeneralPackageForAlgebraicFunctionField -@ +\end{chunk} \pagehead{GeneralPackageForAlgebraicFunctionField}{GPAFF} \pagepic{ps/v104generalpackageforalgebraicfunctionfield.eps}{GPAFF}{1.00} @@ -36115,7 +36117,7 @@ o )show GeneralPackageForAlgebraicFunctionField \cross{GPAFF}{ZetaFunction} && \end{tabular} -<>= +\begin{chunk}{package GPAFF GeneralPackageForAlgebraicFunctionField} )abbrev package GPAFF GeneralPackageForAlgebraicFunctionField ++ Author: Gaetan Hache ++ Date created: June 1995 @@ -36780,15 +36782,15 @@ GeneralPackageForAlgebraicFunctionField( K, classNumber():Integer == LPolynomial()(1) -@ -<>= +\end{chunk} +\begin{chunk}{GPAFF.dotabb} "GPAFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GPAFF"] "DTP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DTP"] "INTDIVP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTDIVP"] "GPAFF" -> "INTDIVP" "GPAFF" -> "DTP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GENPGCD GeneralPolynomialGcdPackage} \pagehead{GeneralPolynomialGcdPackage}{GENPGCD} @@ -36800,7 +36802,7 @@ GeneralPackageForAlgebraicFunctionField( K, \cross{GENPGCD}{randomR} \end{tabular} -<>= +\begin{chunk}{package GENPGCD GeneralPolynomialGcdPackage} )abbrev package GENPGCD GeneralPolynomialGcdPackage ++ Description: ++ This package provides operations for GCD computations on polynomials @@ -37435,13 +37437,13 @@ GeneralPolynomialGcdPackage(E,OV,R,P):C == T where --JHD [[q,(f exquo q)::P]$ContPrim for q in prelim for f in listf] --JHD -@ -<>= +\end{chunk} +\begin{chunk}{GENPGCD.dotabb} "GENPGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GENPGCD"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GENPGCD" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GENUPS GenerateUnivariatePowerSeries} \pagehead{GenerateUnivariatePowerSeries}{GENUPS} @@ -37455,7 +37457,7 @@ GeneralPolynomialGcdPackage(E,OV,R,P):C == T where \cross{GENUPS}{taylor} \end{tabular} -<>= +\begin{chunk}{package GENUPS GenerateUnivariatePowerSeries} )abbrev package GENUPS GenerateUnivariatePowerSeries ++ Author: Clifton J. Williamson ++ Date Created: 29 April 1990 @@ -37651,15 +37653,15 @@ GenerateUnivariatePowerSeries(R,FE): Exports == Implementation where series(f:RN -> FE,eq:EQ FE,seg:SEG RN,r:RN) == puiseux(f,eq,seg,r) series(an:FE,n:SY,eq:EQ FE,seg:SEG RN,r:RN) == puiseux(an,n,eq,seg,r) -@ -<>= +\end{chunk} +\begin{chunk}{GENUPS.dotabb} "GENUPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GENUPS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "GENUPS" -> "ACF" "GENUPS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GENEEZ GenExEuclid} \pagehead{GenExEuclid}{GENEEZ} @@ -37674,7 +37676,7 @@ GenerateUnivariatePowerSeries(R,FE): Exports == Implementation where \cross{GENEEZ}{testModulus} \end{tabular} -<>= +\begin{chunk}{package GENEEZ GenExEuclid} )abbrev package GENEEZ GenExEuclid ++ Author : P.Gianni. ++ Date Created: January 1990 @@ -37870,13 +37872,13 @@ GenExEuclid(R,BP) : C == T a:BP:=((fs-m) exquo pmod)::BP liftSol(soln,a,pmod,pmod,table,m,bound) -@ -<>= +\end{chunk} +\begin{chunk}{GENEEZ.dotabb} "GENEEZ" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GENEEZ"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GENEEZ" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GENUFACT GenUFactorize} \pagehead{GenUFactorize}{GENUFACT} @@ -37885,7 +37887,7 @@ GenExEuclid(R,BP) : C == T {\bf Exports:}\\ \cross{GENUFACT}{factor} -<>= +\begin{chunk}{package GENUFACT GenUFactorize} )abbrev package GENUFACT GenUFactorize ++ Description: ++ This package provides operations for the factorization @@ -37947,15 +37949,15 @@ GenUFactorize(R) : public == private where factorWarning(f::OutputForm) squareFree f -@ -<>= +\end{chunk} +\begin{chunk}{GENUFACT.dotabb} "GENUFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GENUFACT"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "GENUFACT" -> "COMPCAT" "GENUFACT" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTG0 GenusZeroIntegration} \pagehead{GenusZeroIntegration}{INTG0} @@ -37973,7 +37975,7 @@ GenUFactorize(R) : public == private where \cross{INTG0}{univariate} \end{tabular} -<>= +\begin{chunk}{package INTG0 GenusZeroIntegration} )abbrev package INTG0 GenusZeroIntegration ++ Author: Manuel Bronstein ++ Date Created: 11 October 1988 @@ -38233,18 +38235,18 @@ GenusZeroIntegration(R, F, L): Exports == Implementation where rec.particular case "failed" => ["failed", bas] [multivariate((rec.particular)::RF, y), bas] -@ -<>= +\end{chunk} +\begin{chunk}{INTG0.dotabb} "INTG0" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTG0"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "INTG0" -> "FS" "INTG0" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GDRAW GnuDraw} -<>= +\begin{chunk}{GnuDraw.input} )set break resume )sys rm -f GnuDraw.output )spool GnuDraw.output @@ -38268,8 +38270,8 @@ GenusZeroIntegration(R, F, L): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GnuDraw.help} ==================================================================== GnuDraw examples ==================================================================== @@ -38277,14 +38279,14 @@ GnuDraw examples See Also: o )show GnuDraw -@ +\end{chunk} \pagehead{GnuDraw}{GDRAW} \pagepic{ps/v104gnudraw.ps}{GDRAW}{1.00} {\bf Exports:}\\ \cross{GDRAW}{GospersMethod} -<>= +\begin{chunk}{package GDRAW GnuDraw} )abbrev package GDRAW GnuDraw ++ Author: Bill Page and David Cyganski ++ Date: June 25, 2008 @@ -38369,13 +38371,13 @@ GnuDraw(): Exports == Implementation where -- default title is "" gnuDraw(f:EF,segbind1:SBF, segbind2:SBF, filename:STR):Void == gnuDraw(f,segbind1,segbind2,filename,[title("")$DROP]) -@ -<>= +\end{chunk} +\begin{chunk}{GDRAW.dotabb} "GDRAW" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GDRAW"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "GDRAW" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GOSPER GosperSummationMethod} \pagehead{GosperSummationMethod}{GOSPER} @@ -38384,7 +38386,7 @@ GnuDraw(): Exports == Implementation where {\bf Exports:}\\ \cross{GOSPER}{GospersMethod} -<>= +\begin{chunk}{package GOSPER GosperSummationMethod} )abbrev package GOSPER GosperSummationMethod ++ Author: SMW ++ Date Created: ??? @@ -38597,13 +38599,13 @@ GosperSummationMethod(E, V, R, P, Q): Exports == Impl where rt < 0 or denom rt ^= 1 => "failed" numer rt -@ -<>= +\end{chunk} +\begin{chunk}{GOSPER.dotabb} "GOSPER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GOSPER"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GOSPER" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GRDEF GraphicsDefaults} \pagehead{GraphicsDefaults}{GRDEF} @@ -38619,7 +38621,7 @@ GosperSummationMethod(E, V, R, P, Q): Exports == Impl where \cross{GRDEF}{screenResolution} \end{tabular} -<>= +\begin{chunk}{package GRDEF GraphicsDefaults} )abbrev package GRDEF GraphicsDefaults ++ Author: Clifton J. Williamson ++ Date Created: 8 January 1990 @@ -38707,13 +38709,13 @@ GraphicsDefaults(): Exports == Implementation where maxPoints n == setMaxPoints(n)$Plot screenResolution n == setScreenResolution(n)$Plot -@ -<>= +\end{chunk} +\begin{chunk}{GRDEF.dotabb} "GRDEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GRDEF"] "Package" [color="#FF4488"] "GRDEF" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GRAY GrayCode} \pagehead{GrayCode}{GRAY} @@ -38725,7 +38727,7 @@ GraphicsDefaults(): Exports == Implementation where \cross{GRAY}{nextSubsetGray} \end{tabular} -<>= +\begin{chunk}{package GRAY GrayCode} )abbrev package GRAY GrayCode ++ Authors: Johannes Grabmeier, Oswald Gschnitzer ++ Date Created: 7 August 1989 @@ -38800,16 +38802,16 @@ GrayCode: public == private where lab(c+1) := c+1 vv -@ -<>= +\end{chunk} +\begin{chunk}{GRAY.dotabb} "GRAY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GRAY"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "GRAY" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GBF GroebnerFactorizationPackage} -<>= +\begin{chunk}{GroebnerFactorizationPackage.input} )set break resume )sys rm -f GroebnerFactorizationPackage.output )spool GroebnerFactorizationPackage.output @@ -38887,8 +38889,8 @@ groebnerFactorize [eq,eval(eq, [x,y,z],[y,z,x]), eval(eq,[x,y,z],[z,x,y])] --E 3 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GroebnerFactorizationPackage.help} ==================================================================== GroebnerFactorizationPackage examples ==================================================================== @@ -39009,7 +39011,7 @@ o )show GroebnerFactorizationPackage o) show GroebnerPackage o )show EuclideanGroebnerBasisPackage -@ +\end{chunk} \pagehead{GroebnerFactorizationPackage}{GBF} \pagepic{ps/v104groebnerfactorizationpackage.ps}{GBF}{1.00} @@ -39019,7 +39021,7 @@ o )show EuclideanGroebnerBasisPackage \cross{GBF}{groebnerFactorize} \end{tabular} -<>= +\begin{chunk}{package GBF GroebnerFactorizationPackage} )abbrev package GBF GroebnerFactorizationPackage ++ Author: H. Michael Moeller, Johannes Grabmeier ++ Date Created: 24 August 1989 @@ -39356,13 +39358,13 @@ GroebnerFactorizationPackage(Dom, Expon, VarSet, Dpol): T == C where groebnerFactorize(basis) == groebnerFactorize(basis, [], false) groebnerFactorize(basis,info) == groebnerFactorize(basis, [], info) -@ -<>= +\end{chunk} +\begin{chunk}{GBF.dotabb} "GBF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GBF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GBF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GBINTERN GroebnerInternalPackage} \pagehead{GroebnerInternalPackage}{GBINTERN} @@ -39396,7 +39398,7 @@ GroebnerFactorizationPackage(Dom, Expon, VarSet, Dpol): T == C where \cross{GBINTERN}{virtualDegree} & \end{tabular} -<>= +\begin{chunk}{package GBINTERN GroebnerInternalPackage} )abbrev package GBINTERN GroebnerInternalPackage ++ Author: ++ Date Created: @@ -39855,16 +39857,16 @@ GroebnerInternalPackage(Dom, Expon, VarSet, Dpol): T == C where prinb(1) n -@ -<>= +\end{chunk} +\begin{chunk}{GBINTERN.dotabb} "GBINTERN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GBINTERN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "GBINTERN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GB GroebnerPackage} -<>= +\begin{chunk}{GroebnerPackage.input} )set break resume )sys rm -f GroebnerPackage.output )spool GroebnerPackage.output @@ -41106,8 +41108,8 @@ groebner(hsn7,"redcrit","info") )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{GroebnerPackage.help} ==================================================================== groebner examples ==================================================================== @@ -41156,7 +41158,7 @@ o )show DistributedMultivariatePolynomial o )show HomogeneousDistributedMultivariatePolynomial o )show EuclideanGroebnerBasisPackage -@ +\end{chunk} \pagehead{GroebnerPackage}{GB} \pagepic{ps/v104groebnerpackage.ps}{GB}{1.00} @@ -41166,7 +41168,7 @@ o )show EuclideanGroebnerBasisPackage \cross{GB}{normalForm} \end{tabular} -<>= +\begin{chunk}{package GB GroebnerPackage} )abbrev package GB GroebnerPackage ++ Authors: Gebauer, Trager ++ Date Created: 12-1-86 @@ -41317,15 +41319,15 @@ GroebnerPackage(Dom, Expon, VarSet, Dpol): T == C where messagePrint(" ") [] -@ -<>= +\end{chunk} +\begin{chunk}{GB.dotabb} "GB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GB"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "GB" -> "PFECAT" "GB" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GROEBSOL GroebnerSolve} \pagehead{GroebnerSolve}{GROEBSOL} @@ -41338,7 +41340,7 @@ GroebnerPackage(Dom, Expon, VarSet, Dpol): T == C where \cross{GROEBSOL}{testDim} \end{tabular} -<>= +\begin{chunk}{package GROEBSOL GroebnerSolve} )abbrev package GROEBSOL GroebnerSolve ++ Author : P.Gianni, Summer '88, revised November '89 ++ Description: @@ -41529,15 +41531,15 @@ GroebnerSolve(lv,F,R) : C == T ^(zeroDim?(leq1,lvar)) => "failed" leq1 -@ -<>= +\end{chunk} +\begin{chunk}{GROEBSOL.dotabb} "GROEBSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GROEBSOL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "GROEBSOL" -> "PFECAT" "GROEBSOL" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESS Guess} The packages defined in this file enable {Axiom} to guess formulas for @@ -41565,7 +41567,7 @@ GFUN. \cross{GUESS}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESS Guess} )abbrev package GUESS Guess ++ Author: Martin Rubey ++ Description: @@ -41668,17 +41670,17 @@ Guess(F, S, EXPRR, R, retract, coerce): Exports == Implementation where FPOLYS ==> Fraction POLYS FSUPFPOLYS ==> Fraction SUP FPOLYS -@ +\end{chunk} The following should be commented out when not debugging, see also Section~\ref{sec:Hermite-Pade}. -<>= +\begin{chunk}{package GUESS Guess} --@<> -- EXT ==> (Integer, V, V) -> FPOLYS -- EXTEXPR ==> (Symbol, F, F) -> EXPRR -@ +\end{chunk} -<>= +\begin{chunk}{package GUESS Guess} Exports == with guess: List F -> GUESSRESULT @@ -41871,9 +41873,9 @@ Section~\ref{sec:Hermite-Pade}. ++ options. --@<> -@ +\end{chunk} -<>= +\begin{chunk}{debug exports: Guess} --termAsUFPSF: (UFPSF, List Integer, DIFFSPECS, DIFFSPEC1) -> UFPSF --termAsUFPSF2: (UFPSF, List Integer, DIFFSPECS, DIFFSPEC1) -> UFPSF --termAsEXPRR: (EXPRR, Symbol, List Integer, DIFFSPECX, DIFFSPEC1X) -> EXPRR @@ -41900,30 +41902,30 @@ testInterpolant: (List SUP S, List F, List UFPSSUPF, List EXPRR, List EXPRR, _ --binExtEXPR: EXTEXPR --defaultD: DIFFSPECN -@ +\end{chunk} -<>= +\begin{chunk}{package GUESS Guess} Implementation == add - <> -@ +\getchunk{implementation: Guess} +\end{chunk} -<>= +\begin{chunk}{implementation: Guess} -- We have to put this chunk at the beginning, because otherwise it will take -- very long to compile. -<> +\getchunk{implementation: Guess - guessExpRat - Order and Degree} -<> -<> -<> -<> -<> -@ +\getchunk{implementation: Guess - Utilities} +\getchunk{implementation: Guess - guessExpRat} +\getchunk{implementation: Guess - guessBinRat} +\getchunk{implementation: Guess - Hermite-Pade} +\getchunk{implementation: Guess - guess} +\end{chunk} \subsection{general utilities} -<>= +\begin{chunk}{implementation: Guess - Utilities} checkResult(res: EXPRR, n: Symbol, l: Integer, list: List F, options: LGOPT): NNI == for i in l..1 by -1 repeat @@ -41943,21 +41945,21 @@ SUPS2SUPF(p: SUP S): SUP F == else error "Type parameter F should be either equal to S or equal _ to Fraction S" -@ +\end{chunk} %$ \subsection{guessing rational functions with an exponential term} -<>= -<> -<> -@ +\begin{chunk}{implementation: Guess - guessExpRat} +\getchunk{implementation: Guess - guessExpRat - Utilities} +\getchunk{implementation: Guess - guessExpRat - Main} +\end{chunk} \subsubsection{Utilities} \paragraph{conversion routines} -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Utilities} F2FPOLYS(p: F): FPOLYS == if F is S then p::POLYF::FPOLYF pretend FPOLYS @@ -42023,11 +42025,11 @@ GF ==> GeneralizedMultivariateFactorize(SingletonAsOrderedSet, -- WARNING (genufact): No known algorithm to factor ? , trying square-free. -- GF ==> GenUFactorize F -@ +\end{chunk} \paragraph{mimicking $q$-analoga} -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Utilities} defaultD: DIFFSPECN defaultD(expr: EXPRR): EXPRR == expr @@ -42035,17 +42037,17 @@ defaultD(expr: EXPRR): EXPRR == expr DN2DL: (DIFFSPECN, Integer) -> F DN2DL(DN, i) == retract(retract(DN(i::EXPRR))@R) -<> -<> -@ +\getchunk{implementation: Guess - guessExpRat - evalResultant} +\getchunk{implementation: Guess - guessExpRat - substitute} +\end{chunk} \subsubsection{reducing the degree of the polynomials} -The degree of [[poly3]] is governed by $(a_0+x_m a_1)^{x_m}$. Therefore, we +The degree of poly3 is governed by $(a_0+x_m a_1)^{x_m}$. Therefore, we substitute $A-x_m a1$ for $a_0$, which reduces the degree in $a_1$ by $x_m-x_{i+1}$. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - substitute} p(xm: Integer, i: Integer, va1: V, vA: V, basis: DIFFSPECN): FPOLYS == vA::POLYS::FPOLYS + va1::POLYS::FPOLYS _ * F2FPOLYS(DN2DL(basis, i) - DN2DL(basis, xm)) @@ -42053,24 +42055,24 @@ p(xm: Integer, i: Integer, va1: V, vA: V, basis: DIFFSPECN): FPOLYS == p2(xm: Integer, i: Symbol, a1v: F, Av: F, basis: DIFFSPECN): EXPRR == coerce(Av) + coerce(a1v)*(basis(i::EXPRR) - basis(xm::EXPRR)) -@ +\end{chunk} -<>= +\begin{chunk}{not interesting implementation: Guess - guessExpRat - substitute} p(xm: Integer, i: Integer, va1: V, vA: V, basis: DIFFSPECN): FPOLYS == vA::POLYS::FPOLYS + (i-xm)*va1::POLYS::FPOLYS p2(xm: Integer, i: Symbol, a1v: F, Av: F, basis: DIFFSPECN): EXPRR == coerce(Av) + coerce(a1v)*(i::EXPRR - xm::EXPRR) -@ +\end{chunk} \subsubsection{Order and Degree} -The following expressions for order and degree of the resultants [[res1]] and -[[res2]] in [[guessExpRatAux]] were first guessed -- partially with the aid of -[[guessRat]], and then proven to be correct. +The following expressions for order and degree of the resultants res1 and +res2 in guessExpRatAux were first guessed -- partially with the aid of +guessRat, and then proven to be correct. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Order and Degree} ord1(x: List Integer, i: Integer): Integer == n := #x - 3 - i x.(n+1)*reduce(_+, [x.j for j in 1..n], 0) + _ @@ -42097,12 +42099,12 @@ deg2(x: List Integer, i: Integer): Integer == (x.(m+3) + reduce(_+, [x.j for j in 2+i..m], 0)) * _ (x.(m+2)-x.(m+1)) -@ +\end{chunk} -[[evalResultant]] evaluates the resultant of [[p1]] and [[p2]] at [[d-o+1]] +evalResultant evaluates the resultant of p1 and p2 at d-o+1 points, so that we can recover it by interpolation. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - evalResultant} evalResultant(p1: POLYS, p2: POLYS, o: Integer, d: Integer, va1: V, vA: V)_ : List S == res: List S := [] @@ -42113,7 +42115,7 @@ evalResultant(p1: POLYS, p2: POLYS, o: Integer, d: Integer, va1: V, vA: V)_ p1atk := univariate eval(p1, vA, k::S) p2atk := univariate eval(p2, vA, k::S) -@ +\end{chunk} It may happen, that the leading coefficients of one or both of the polynomials changes, when we evaluate it at $k$. In this case, we need to correct this by @@ -42126,7 +42128,7 @@ few columns of the Sylvester matrix have triangular shape, with the leading coefficient of $p1$ on the diagonal. The same thing happens, if we exchange the roles of $p1$ and $p2$, only that we have to take care of the sign, too. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - evalResultant} d1atk := degree p1atk d2atk := degree p2atk @@ -42150,21 +42152,21 @@ roles of $p1$ and $p2$, only that we have to take care of the sign, too. (k::S)**(o::NNI))::S, res) -@ +\end{chunk} %$ Since we also have an lower bound for the order of the resultant, we need to evaluate it only at $d-o+1$ points. Furthermore, we can divide by $k^o$ and still obtain a polynomial. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - evalResultant} reverse res -@ +\end{chunk} \subsubsection{The main routine} -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Main} guessExpRatAux(xx: Symbol, list: List F, basis: DIFFSPECN, xValues: List Integer, options: LGOPT): List EXPRR == @@ -42180,12 +42182,12 @@ guessExpRatAux(xx: Symbol, list: List F, basis: DIFFSPECN, x2 := F2FPOLYS DN2DL(basis, xValues.(len+2)) x3 := F2FPOLYS DN2DL(basis, xValues.(len+3)) -@ +\end{chunk} We try to fit the data $(s1,s2,\dots)$ to the model $(a+b n)^n y(n)$, $r$ being a rational function. To obtain $y$, we compute $y(n)=s_n*(a+b n)^{-n}$. -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Main} y: NNI -> FPOLYS := F2FPOLYS(list.#1) * _ p(last xValues, (xValues.#1)::Integer, a1, A, basis)**_ @@ -42207,21 +42209,21 @@ a rational function. To obtain $y$, we compute $y(n)=s_n*(a+b n)^{-n}$. output(hconcat("degree ExpRat "::OutputForm, i::OutputForm)) $OutputPackage -@ +\end{chunk} \begin{verbatim} - Shouldn't we use the algorithm over [[POLYS]] here? Strange enough, for + Shouldn't we use the algorithm over POLYS here? Strange enough, for polynomial interpolation, it is faster, but for rational interpolation \emph{much} slower. This should be investigated. \end{verbatim} \begin{verbatim} - It seems that [[maxDeg]] bounds the degree of the denominator, rather than - the numerator? This is now added to the documentation of [[maxDegree]], it + It seems that maxDeg bounds the degree of the denominator, rather than + the numerator? This is now added to the documentation of maxDegree, it should make sense. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessExpRat - Main} if debug(options)$GOPT0 then systemCommand("sys date +%s")$MoreSystemCommands output("interpolating..."::OutputForm)$OutputPackage @@ -42436,7 +42438,7 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then guessExpRat(q: Symbol): GUESSER == guessExpRatAux0(#1, q::EXPRR**#1, #2) -@ +\end{chunk} \subsection{guessing rational functions with a binomial term} @@ -42451,11 +42453,11 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then \end{equation*} which includes rational functions times $n!$. We choose the former, since dividing by $n!$ is a common normalisation. The question remains whether we - should do the same for [[guessExpRat]]. + should do the same for guessExpRat. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessBinRat} EXT ==> (Integer, V, V) -> FPOLYS EXTEXPR ==> (Symbol, F, F) -> EXPRR @@ -42489,13 +42491,13 @@ guessBinRatAux(xx: Symbol, list: List F, x2 := F2FPOLYS DN2DL(basis, xValues.(len+2)) x3 := F2FPOLYS DN2DL(basis, xValues.(len+3)) -@ +\end{chunk} We try to fit the data $(s1,s2,\dots)$ to the model $\binom{a+b n}{n} y(n)$, $r$ being a rational function. To obtain $y$, we compute $y(n)=s_n*\binom{a+bn}{n}^-1$. -<>= +\begin{chunk}{implementation: Guess - guessBinRat} y: NNI -> FPOLYS := F2FPOLYS(list.#1) / _ ext((xValues.#1)::Integer, a1, A) @@ -42516,21 +42518,21 @@ $y(n)=s_n*\binom{a+bn}{n}^-1$. -- output(hconcat("degree BinRat "::OutputForm, i::OutputForm)) -- $OutputPackage -@ +\end{chunk} \begin{verbatim} - Shouldn't we use the algorithm over [[POLYS]] here? Strange enough, for + Shouldn't we use the algorithm over POLYS here? Strange enough, for polynomial interpolation, it is faster, but for rational interpolation \emph{much} slower. This should be investigated. \end{verbatim} \begin{verbatim} - It seems that [[maxDeg]] bounds the degree of the denominator, rather than - the numerator? This is now added to the documentation of [[maxDegree]], it + It seems that maxDeg bounds the degree of the denominator, rather than + the numerator? This is now added to the documentation of maxDegree, it should make sense. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessBinRat} -- if debug(options)$GOPT0 then -- output("interpolating..."::OutputForm)$OutputPackage @@ -42763,22 +42765,22 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then guessBinRat(q: Symbol): GUESSER == guessBinRatAux0(#1, qD q, qBinExt q, qBinExtEXPR q, #2)_ -@ +\end{chunk} \subsection{Hermite Pad\'e interpolation}\label{sec:Hermite-Pade} -<>= -<> -<> -<> -<> -<> -<> -@ +\begin{chunk}{implementation: Guess - Hermite-Pade} +\getchunk{implementation: Guess - Hermite-Pade - Types for Operators} +\getchunk{implementation: Guess - Hermite-Pade - Streams} +\getchunk{implementation: Guess - Hermite-Pade - Operators} +\getchunk{implementation: Guess - Hermite-Pade - Utilities} +\getchunk{implementation: Guess - guessHPaux} +\getchunk{implementation: Guess - guessHP} +\end{chunk} \subsubsection{Types for Operators} -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Types for Operators} -- some useful types for Ore operators that work on series -- the differentiation operator @@ -42799,15 +42801,15 @@ DIFFSPEC1F ==> UFPSSUPF DIFFSPEC1X ==> Symbol -> EXPRR -@ +\end{chunk} \subsubsection{Streams}\label{sec:streams} In this section we define some functions that provide streams for -[[HermitePade]]. +HermitePade. -The following three functions transform a partition [[l]] into a product of -derivatives of [[f]], using the given operators. We need to provide the same +The following three functions transform a partition l into a product of +derivatives of f, using the given operators. We need to provide the same functionality for expressions, series and series with a transcendental element. Only for expressions we do not provide a version using the Hadamard product, although it would be quite easy to define an appropriate operator on @@ -42817,7 +42819,7 @@ A partition $(\lambda_1^{p_1},\lambda_2^{p_2},\dots)$ is transformed into the expression $(f^{(\lambda_1-1)})^{p_1}(f^{(\lambda_2-1)})^{p_2}\cdots$, i.e., the size of the part is interpreted as derivative, the exponent as power. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Streams} termAsEXPRR(f: EXPRR, xx: Symbol, l: List Integer, DX: DIFFSPECX, D1X: DIFFSPEC1X): EXPRR == if empty? l then D1X(xx) @@ -42886,7 +42888,7 @@ termAsUFPSSUPF2(f: UFPSSUPF, l: List Integer, reduce(hadamard$UFPS1(SUP F), fl) -@ +\end{chunk} %$ It is not clear whether we should \lq prefer\rq\ shifting and differentiation over @@ -42912,7 +42914,7 @@ does not. Note that we conjugate all partitions at the very end of the following procedure\dots -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Streams} FilteredPartitionStream(options: LGOPT): Stream List Integer == maxD := 1+maxDerivative(options)$GOPT0 maxP := maxPower(options)$GOPT0 @@ -42950,7 +42952,7 @@ ADEguessStream2(f: UFPSF, partitions: Stream List Integer, map(termAsUFPSF2(f, #1, DS, D1), partitions) $StreamFunctions2(List Integer, UFPSF) -@ +\end{chunk} %$ The entries of the following stream indicate how many terms we loose when @@ -42959,7 +42961,7 @@ precisely, the $n$\textsuperscript{th} entry of the stream takes into account all partitions up to index $n$. Thus, the entries of the stream are weakly increasing. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Streams} ADEdegreeStream(partitions: Stream List Integer): Stream NNI == scan(0, max((if empty? #1 then 0 else (first #1 - 1)::NNI), #2), partitions)$StreamFunctions2(List Integer, NNI) @@ -42979,7 +42981,7 @@ ADEEXPRRStream(f: EXPRR, xx: Symbol, partitions: Stream List Integer, map(termAsEXPRR(f, xx, #1, DX, D1X), partitions) $StreamFunctions2(List Integer, EXPRR) -@ +\end{chunk} \subsubsection{Operators} We need to define operators that transform series for differentiation and @@ -43009,7 +43011,7 @@ and an expression that represents the constant term for the inhomogeneous case. \paragraph{The Differentiation Setting} In this setting, we have $z f(x) := x f(x)$. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} diffDX: DIFFSPECX diffDX(expr, x, n) == D(expr, x, n) @@ -43022,13 +43024,13 @@ diffDSF(s, n) == if SUP F has _*: (NonNegativeInteger, SUP F) -> SUP F then D(s, n) -@ +\end{chunk} The next three functions extract the coefficient of $x^k$ in $z^l f(x)$. Only, for expressions, we rather need $\sum_{k\ge0} \langle x^k\rangle z^l f(x)$, i.e., the function itself, which is by definition equal to $x^l f(x)$. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} diffAX: DIFFSPECAX diffAX(l: NNI, x: Symbol, f: EXPRR): EXPRR == (x::EXPRR)**l * f @@ -43058,13 +43060,13 @@ diffHP options == else error "Guess: guessADE supports only displayAsGF" -@ +\end{chunk} \paragraph{$q$-dilation} In this setting, we also have $z f(x) := x f(x)$, therefore we can reuse some of the functions of the previous paragraph. Differentiation is defined by $D_q f(x, q) = f(qx, q)$. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} if F has RetractableTo Symbol and S has RetractableTo Symbol then qDiffDX(q: Symbol, expr: EXPRR, x: Symbol, n: NonNegativeInteger): EXPRR == @@ -43087,10 +43089,10 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then else error "Guess: guessADE supports only displayAsGF" -@ +\end{chunk} \paragraph{Shifting} The shift operator transforms a sequence $u(k)$ into -$u(k+1)$. We also provide operators [[ShiftSXGF]], [[ShiftAXGF]] that act on +$u(k+1)$. We also provide operators ShiftSXGF, ShiftAXGF that act on the power series, as long as no powering is involved. In this case, shifting transforms $f(x)$ into $\frac{f(x)-f(0)}{x}$. @@ -43100,7 +43102,7 @@ $xDf(x)$. % The coefficients of $x^n$ are $1, f(n), f(n+1), f(n)^2, f(n)f(n+1),\dots$ % What does this remark mean? -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} ShiftSX(expr: EXPRR, x: Symbol, n: NNI): EXPRR == eval(expr, x::EXPRR, x::EXPRR+n::EXPRR) @@ -43117,12 +43119,12 @@ ShiftSS(s:UFPSF, n:NNI): UFPSF == ShiftSF(s:UFPSSUPF, n: NNI):UFPSSUPF == ((quoByVar #1)**n)$MappingPackage1(UFPSSUPF) (s) -@ +\end{chunk} %$ As before, next three functions extract the coefficient of $x^k$ in $z^l f(x)$. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} ShiftAX(l: NNI, n: Symbol, f: EXPRR): EXPRR == n::EXPRR**l * f @@ -43162,7 +43164,7 @@ shiftHP options == ADEEXPRRStream(#1, #2, partitions, ShiftSX, diff1X), _ ShiftA, ShiftAF, ShiftAX, ShiftC]$HPSPEC -@ +\end{chunk} \paragraph{$q$-Shifting} The $q$-shift also transforms $u(n)$ into $u(n+1)$, and we can reuse the corresponding functions of the previous paragraph. @@ -43172,7 +43174,7 @@ corresponding functionality for power series. %The coefficients of $x^n$ are $1, f(n), f(n+1), f(n)^2, f(n)f(n+1),\dots$ % What does this remark mean? -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} if F has RetractableTo Symbol and S has RetractableTo Symbol then qShiftAX(q: Symbol, l: NNI, n: Symbol, f: EXPRR): EXPRR == @@ -43201,26 +43203,26 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then qShiftA(q, #1, #2, #3), qShiftAF(q, #1, #2, #3), _ qShiftAX(q, #1, #2, #3), qShiftC(q, #1)]$HPSPEC -@ +\end{chunk} %$ \paragraph{Extend the action to polynomials} The following operation uses the given action of $z$ on a function to multiply a $f$ with a polynomial. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Operators} makeEXPRR(DAX: DIFFSPECAX, x: Symbol, p: SUP F, expr: EXPRR): EXPRR == if zero? p then 0$EXPRR else coerce(leadingCoefficient p)::EXPRR * DAX(degree p, x, expr) _ + makeEXPRR(DAX, x, reductum p, expr) -@ +\end{chunk} %$ \subsubsection{Utilities} -[[list2UFPSF]] and [[list2UFPSSUPF]] transform the list passed to the guessing +list2UFPSF and list2UFPSSUPF transform the list passed to the guessing functions into a series. One might be tempted to transform the list into a polynomial instead, but the present approach makes computing powers and derivatives much cheaper, since, because of laziness, only coefficients that @@ -43232,27 +43234,27 @@ it contains the transcendental element, it depends on data we do not have. In other words, this transcendental element simply represents the $O(x^d)$, when $d$ is the number of elements in the list. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Utilities} list2UFPSF(list: List F): UFPSF == series(list::Stream F)$UFPSF list2UFPSSUPF(list: List F): UFPSSUPF == l := [e::SUP(F) for e in list for i in 0..]::Stream SUP F series(l)$UFPSSUPF + monomial(monomial(1,1)$SUP(F), #list)$UFPSSUPF -@ +\end{chunk} -[[SUPF2SUPSUPF]] interprets each coefficient as a univariate polynomial. +SUPF2SUPSUPF interprets each coefficient as a univariate polynomial. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Utilities} SUPF2SUPSUPF(p: SUP F): SUP SUP F == map(#1::SUP F, p)$SparseUnivariatePolynomialFunctions2(F, SUP F) -@ +\end{chunk} -[[getListSUPF]] returns the first [[o]] elements of the stream, each truncated -after degree [[deg]]. +getListSUPF returns the first o elements of the stream, each truncated +after degree deg. -<>= +\begin{chunk}{implementation: Guess - Hermite-Pade - Utilities} UFPSF2SUPF(f: UFPSF, deg: NNI): SUP F == makeSUP univariatePolynomial(f, deg) @@ -43268,16 +43270,16 @@ S2EXPRR(s: S): EXPRR == else error "Type parameter F should be either equal to S or equal _ to Fraction S" -<> -<> -<> -@ +\getchunk{implementation: Guess - guessInterpolate} +\getchunk{implementation: Guess - guessInterpolate2} +\getchunk{implementation: Guess - testInterpolant} +\end{chunk} %$ -[[guessInterpolate]] calls the appropriate [[generalInterpolation]] from -[[FFFG]], for one vector of degrees, namely [[eta]]. +guessInterpolate calls the appropriate generalInterpolation from +FFFG, for one vector of degrees, namely eta. -<>= +\begin{chunk}{implementation: Guess - guessInterpolate} guessInterpolate(guessList: List SUP F, eta: List NNI, D: HPSPEC) : Matrix SUP S == if F is S then @@ -43291,12 +43293,12 @@ guessInterpolate(guessList: List SUP F, eta: List NNI, D: HPSPEC) else error "Type parameter F should be either equal to S or equal _ to Fraction S" -@ +\end{chunk} -[[guessInterpolate2]] calls the appropriate [[generalInterpolation]] from -[[FFFG]], for all degree vectors with given [[sumEta]] and [[maxEta]]. +guessInterpolate2 calls the appropriate generalInterpolation from +FFFG, for all degree vectors with given sumEta and maxEta. -<>= +\begin{chunk}{implementation: Guess - guessInterpolate2} guessInterpolate2(guessList: List SUP F, sumEta: NNI, maxEta: NNI, D: HPSPEC): Stream Matrix SUP S == @@ -43313,10 +43315,10 @@ guessInterpolate2(guessList: List SUP F, else error "Type parameter F should be either equal to S or equal _ to Fraction S" -@ +\end{chunk} -[[testInterpolant]] checks whether p is really a solution. -<>= +testInterpolant checks whether p is really a solution. +\begin{chunk}{implementation: Guess - testInterpolant} testInterpolant(resi: List SUP S, list: List F, testList: List UFPSSUPF, @@ -43326,25 +43328,25 @@ testInterpolant(resi: List SUP S, D: HPSPEC, dummy: Symbol, op: BasicOperator, options: LGOPT) : Union("failed", Record(function: EXPRR, order: NNI)) == -@ +\end{chunk} First we make sure it is not a solution we should have found already. Note that -we cannot check this if [[maxDegree]] is set, in which case some initial +we cannot check this if maxDegree is set, in which case some initial solutions may have been overlooked. -<>= +\begin{chunk}{implementation: Guess - testInterpolant} ((maxDegree(options)$GOPT0 = -1) and (allDegrees(options)$GOPT0 = false) and zero?(last resi)) => return "failed" -@ +\end{chunk} Then we check all the coefficients that should be valid. We want the zero solution only, if the function is really zero. Without this test, every sequence ending with zero is interpreted as the zero sequence, since the factor in front of the only non-vanishing term can cancel everything else. -<>= +\begin{chunk}{implementation: Guess - testInterpolant} nonZeroCoefficient: Integer := 0 for i in 1..#resi repeat @@ -43354,29 +43356,29 @@ in front of the only non-vanishing term can cancel everything else. else nonZeroCoefficient := 0 break -@ +\end{chunk} -We set [[nonZeroCoefficient]] to the only non zero coefficient or, if there are -several, it is $0$. It should not happen that all coefficients in [[resi]] +We set nonZeroCoefficient to the only non zero coefficient or, if there are +several, it is $0$. It should not happen that all coefficients in resi vanish. \begin{verbatim} - Check that not all coefficients in [[resi]] can vanish simultaneously. + Check that not all coefficients in resi can vanish simultaneously. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - testInterpolant} if not zero? nonZeroCoefficient then (freeOf?(exprList.nonZeroCoefficient, name op)) => return "failed" for e in list repeat if not zero? e then return "failed" -@ +\end{chunk} We first deal with the case that there is only one non-vanishing coefficient in -[[resi]]. If the only expression in [[exprList]] whose coefficient does not +resi. If the only expression in exprList whose coefficient does not vanish does not contain the name of the generating function, or if there is a -non-zero term in [[list]], we reject the proposed solution. +non-zero term in list, we reject the proposed solution. -<>= +\begin{chunk}{implementation: Guess - testInterpolant} else resiSUPF := map(SUPF2SUPSUPF SUPS2SUPF #1, resi) $ListFunctions2(SUP S, SUP SUP F) @@ -43392,21 +43394,21 @@ non-zero term in [[list]], we reject the proposed solution. break iterate? => return "failed" -@ +\end{chunk} -Here we check for each degree [[d]] larger than [[guessDegree]] whether the +Here we check for each degree d larger than guessDegree whether the proposed linear combination vanishes. When the first coefficient that does not vanish contains the transcendental element we accept the linear combination as a solution. Finally, it seems that we have found a solution. Now we cancel the greatest common divisor of the equation. Note that this may take quite some time, it -seems to be quicker to check [[generalCoefficient]] with the original [[resi]]. +seems to be quicker to check generalCoefficient with the original resi. -If [[S]] is a [[Field]], the [[gcd]] will always be $1$. Thus, in this case we +If S is a Field, the gcd will always be $1$. Thus, in this case we make the result monic. -<>= +\begin{chunk}{implementation: Guess - testInterpolant} g: SUP S if S has Field then g := leadingCoefficient(find(not zero? #1, reverse resi)::SUP(S))::SUP(S) @@ -43447,31 +43449,31 @@ make the result monic. [res, ord]$Record(function: EXPRR, order: NNI) -@ +\end{chunk} \subsubsection{The main routine} The following is the main guessing routine, called by all others -- except -[[guessExpRat]]. +guessExpRat. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} guessHPaux(list: List F, D: HPSPEC, options: LGOPT): GUESSRESULT == reslist: GUESSRESULT := [] listDegree := #list-1-safety(options)$GOPT0 if listDegree < 0 then return reslist -@ +\end{chunk} %$ \sloppypar We do as if we knew only the coefficients up to and including degree -[[listDegree-safety]]. Thus, if we have less elements of the sequence than -[[safety]], there remain no elements for guessing. Originally we demanded to +listDegree-safety. Thus, if we have less elements of the sequence than +safety, there remain no elements for guessing. Originally we demanded to have at least two elements for guessing. However, we want to be able to induce -from $[c,c]$ that the function equals $c$ with [[safety]] one. This is -important if we apply, for example, [[guessRat]] recursively. In this case, -[[listDegree]] equals zero. +from $[c,c]$ that the function equals $c$ with safety one. This is +important if we apply, for example, guessRat recursively. In this case, +listDegree equals zero. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} a := functionName(options)$GOPT0 op := operator a x := variableName(options)$GOPT0 @@ -43479,43 +43481,43 @@ important if we apply, for example, [[guessRat]] recursively. In this case, initials: List EXPRR := [coerce(e)@EXPRR for e in list] -@ +\end{chunk} %$ We need to create several streams. Let $P$ be the univariate power series whose -first few elements are given by [[list]]. As an example, consider the -differentiation setting. In this case, the elements of [[guessS]] consist of -$P$ differentiated and taken to some power. The elements of [[degreeS]] are -integers, that tell us how many terms less than in [[list]] are valid in the -corresponding element of [[guessS]]. The elements of [[testS]] are very similar -to those of [[guessS]], with the difference that they are derived from $P$ with +first few elements are given by list. As an example, consider the +differentiation setting. In this case, the elements of guessS consist of +$P$ differentiated and taken to some power. The elements of degreeS are +integers, that tell us how many terms less than in list are valid in the +corresponding element of guessS. The elements of testS are very similar +to those of guessS, with the difference that they are derived from $P$ with an transcendental element added, which corresponds to $O(x^d)$. Finally, the -elements of [[exprS]] contain representations of the transformations applied to +elements of exprS contain representations of the transformations applied to $P$ as expressions. \begin{verbatim} - I am not sure whether it is better to get rid of denominators in [[list]] - here or, as I currently do it, only in [[generalInterpolation$FFFG]]. %$ + I am not sure whether it is better to get rid of denominators in list + here or, as I currently do it, only in generalInterpolation$FFFG. %$ If we clear them at here, we cannot take advantage of factors that may appear only after differentiating or powering. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessHPaux} guessS := (D.guessStream)(list2UFPSF list) degreeS := D.degreeStream testS := (D.testStream)(list2UFPSSUPF list) exprS := (D.exprStream)(op(dummy::EXPRR)::EXPRR, dummy) -@ +\end{chunk} We call the number of terms of the linear combination its \emph{order}. We consider linear combinations of at least two terms, since otherwise the function would have to vanish identically\dots -When proceeding in the stream [[guessS]], it may happen that we loose valid +When proceeding in the stream guessS, it may happen that we loose valid terms. For example, when trying to find a linear ordinary differential equation, we are looking for a linear combination of $f, f^\prime, -f^{\prime\prime}, \dots$. Suppose [[listDegree]] equals $2$, i.e. we have +f^{\prime\prime}, \dots$. Suppose listDegree equals $2$, i.e. we have \begin{verbatim} f &= l_0 + l_1 x + l_2 x^2\\ f^\prime &= l_1 + 2l_2 x\\ @@ -43523,10 +43525,10 @@ f^{\prime\prime}, \dots$. Suppose [[listDegree]] equals $2$, i.e. we have \end{verbatim} Thus, each time we differentiate the series, we loose one term for guessing. Therefore, we cannot use the coefficient of $x^2$ of $f^{\prime\prime}$ for -generating a linear combination. [[guessDegree]] contains the degree up to -which all the generated series are correct, taking into account [[safety]]. +generating a linear combination. guessDegree contains the degree up to +which all the generated series are correct, taking into account safety. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} iterate?: Boolean := false -- this is necessary because the compiler -- doesn't understand => "iterate" properly -- the latter just leaves the current block, it @@ -43539,22 +43541,22 @@ which all the generated series are correct, taking into account [[safety]]. output(hconcat("Trying order ", o::OutputForm))$OutputPackage output(hconcat("guessDegree is ", guessDegree::OutputForm)) $OutputPackage -@ +\end{chunk} %$" We now have to distinguish between the case where we try all combination of degrees and the case where we try only an (nearly) evenly distributed vector of degrees. -In the first case, [[guessInterpolate2]] is going to look at all degree vectors -with [[o]] elements with total degree [[guessDegree+1]]. We give up as soon as -the order [[o]] is greater than the number of available terms plus one. In the -extreme case, i.e., when [[o=guessDegree+2]], we allow for example constant +In the first case, guessInterpolate2 is going to look at all degree vectors +with o elements with total degree guessDegree+1. We give up as soon as +the order o is greater than the number of available terms plus one. In the +extreme case, i.e., when o=guessDegree+2, we allow for example constant coefficients for all terms of the linear combination. It seems that it is a bit arbitrary at what point we stop, however, we would like to be consistent with the evenly distributed case. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} if allDegrees(options)$GOPT0 then (o > guessDegree+2) => return reslist @@ -43562,37 +43564,37 @@ the evenly distributed case. if maxEta = 0 then maxEta := guessDegree+1 else -@ +\end{chunk} In the second case, we first compute the number of parameters available for determining the coefficient polynomials. We have to take care of the fact, that HermitePade produces solutions with sum of degrees being one more than the sum -of elements in [[eta]]. +of elements in eta. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} maxParams := divide(guessDegree::NNI+1, o) if debug(options)$GOPT0 then output(hconcat("maxParams: ", maxParams::OutputForm)) $OutputPackage -@ +\end{chunk} If we do not have enough parameters, we give up. We allow for at most one zero entry in the degree vector, because then there is one column that allows at least a constant term in each entry. -<>= +\begin{chunk}{implementation: Guess - guessHPaux} if maxParams.quotient = 0 and maxParams.remainder < o-1 then return reslist -@ +\end{chunk} -If [[maxDegree]] is set, we skip the first few partitions, unless we cannot +If maxDegree is set, we skip the first few partitions, unless we cannot increase the order anymore. \begin{verbatim} I have no satisfactory way to determine whether we can increase the order or not. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessHPaux} if ((maxDegree(options)$GOPT0 ~= -1) and (maxDegree(options)$GOPT0 < maxParams.quotient)) and not (empty? rest(guessS, o) or @@ -43615,24 +43617,24 @@ increase the order anymore. := [(if i <= maxParams.remainder _ then maxParams.quotient + 1 _ else maxParams.quotient)::NNI for i in 1..o] -@ +\end{chunk} We distribute the parameters as evenly as possible. Is it better to have higher degrees at the end or at the beginning? -It remains to prepare [[guessList]], which is the list of [[o]] power series -polynomials truncated after degree [[guessDegree]]. Then we can call +It remains to prepare guessList, which is the list of o power series +polynomials truncated after degree guessDegree. Then we can call HermitePade. \begin{verbatim} - [[maxDegree]] should be handled differently, maybe: we should only pass as - many coefficients to [[FFFG]] as [[maxDegree]] implies! That is, if we cannot - increase the order anymore, we should decrease [[guessDegree]] to % - $o\cdot [[maxDegree]] - 2$ and set [[eta]] accordingly. I might have to take - care of [[allDegrees]], too. + maxDegree should be handled differently, maybe: we should only pass as + many coefficients to FFFG as maxDegree implies! That is, if we cannot + increase the order anymore, we should decrease guessDegree to + $o\cdot maxDegree - 2$ and set eta accordingly. I might have to take + care of allDegrees, too. \end{verbatim} -<>= +\begin{chunk}{implementation: Guess - guessHPaux} if iterate? then iterate? := false @@ -43691,10 +43693,10 @@ HermitePade. reslist -@ +\end{chunk} \begin{verbatim} - The duplicated block at the end should really go into [[testInterpolant]], I + The duplicated block at the end should really go into testInterpolant, I guess. Furthermore, it would be better to remove duplicates already there. \end{verbatim} @@ -43705,7 +43707,7 @@ situations. \paragraph{generating functions} -<>= +\begin{chunk}{implementation: Guess - guessHP} guessHP(D: LGOPT -> HPSPEC): GUESSER == guessHPaux(#1, D #2, #2) guessADE(list: List F, options: LGOPT): GUESSRESULT == @@ -43731,23 +43733,23 @@ guessPade(list: List F, options: LGOPT): GUESSRESULT == guessADE(list, opts) guessPade(list: List F): GUESSRESULT == guessPade(list, []) -@ +\end{chunk} \paragraph{$q$-generating functions} -<>= +\begin{chunk}{implementation: Guess - guessHP} if F has RetractableTo Symbol and S has RetractableTo Symbol then guessADE(q: Symbol): GUESSER == opts: LGOPT := cons(displayAsGF(true)$GuessOption, #2) guessHPaux(#1, (diffHP q)(opts), opts) -@ +\end{chunk} %$ \paragraph{coefficients} -<>= +\begin{chunk}{implementation: Guess - guessHP} guessRec(list: List F, options: LGOPT): GUESSRESULT == opts: LGOPT := cons(displayAsGF(false)$GuessOption, options) guessHPaux(list, shiftHP opts, opts) @@ -43767,12 +43769,12 @@ guessRat(list: List F, options: LGOPT): GUESSRESULT == guessRat(list: List F): GUESSRESULT == guessRat(list, []) -@ +\end{chunk} %$ \paragraph{$q$-coefficients} -<>= +\begin{chunk}{implementation: Guess - guessHP} if F has RetractableTo Symbol and S has RetractableTo Symbol then guessRec(q: Symbol): GUESSER == @@ -43791,10 +43793,10 @@ if F has RetractableTo Symbol and S has RetractableTo Symbol then allDegrees(true)$GuessOption]) guessHPaux(#1, (shiftHP q)(opts), opts) -@ +\end{chunk} %$ -\subsection{[[guess]] -- applying operators recursively} +\subsection{guess -- applying operators recursively} The main observation made by Christian Krattenthaler in designing his program Rate is the following: it occurs frequently that although a sequence of @@ -43809,7 +43811,7 @@ following operators: \item[$Q_n$] the operator that transforms $f(n)$ into $f(n)/f(n-1)$. \end{description} -<>= +\begin{chunk}{implementation: Guess - guess} guess(list: List F, guessers: List GUESSER, ops: List Symbol, options: LGOPT): GUESSRESULT == maxLevel := maxLevel(options)$GOPT0 @@ -43894,13 +43896,13 @@ guess(list: List F, guessers: List GUESSER, ops: List Symbol) : GUESSRESULT == guess(list, guessers, ops, []) -@ -<>= +\end{chunk} +\begin{chunk}{GUESS.dotabb} "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "RECOP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RECOP"] "GUESS" -> "RECOP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSAN GuessAlgebraicNumber} \pagehead{GuessAlgebraicNumber}{GUESSAN} @@ -43923,7 +43925,7 @@ guess(list: List F, guessers: List GUESSER, ops: List Symbol) \cross{GUESSAN}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESSAN GuessAlgebraicNumber} )abbrev package GUESSAN GuessAlgebraicNumber ++ Description: ++ This package exports guessing of sequences of rational functions @@ -43934,13 +43936,13 @@ GuessAlgebraicNumber() == Guess(AlgebraicNumber, AlgebraicNumber, id$MappingPackage1(AlgebraicNumber), coerce$Expression(Integer)) -@ -<>= +\end{chunk} +\begin{chunk}{GUESSAN.dotabb} "GUESSAN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSAN"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSAN" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSF GuessFinite} \pagehead{GuessFinite}{GUESSF} @@ -43963,7 +43965,7 @@ GuessAlgebraicNumber() == Guess(AlgebraicNumber, AlgebraicNumber, \cross{GUESSF}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESSF GuessFinite} )abbrev package GUESSF GuessFinite ++ Description: ++ This package exports guessing of sequences of numbers in a finite field @@ -43972,13 +43974,13 @@ GuessFinite(F:Join(FiniteFieldCategory, ConvertibleTo Integer)) == Guess(F, F, Expression Integer, Integer, coerce$F, F2EXPRR$GuessFiniteFunctions(F)) -@ -<>= +\end{chunk} +\begin{chunk}{GUESSF.dotabb} "GUESSF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSF"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSF1" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSF1 GuessFiniteFunctions} \pagehead{GuessFiniteFunctions}{GUESSF1} @@ -43987,7 +43989,7 @@ GuessFinite(F:Join(FiniteFieldCategory, ConvertibleTo Integer)) == {\bf Exports:}\\ \cross{GUESSF1}{F2EXPRR} -<>= +\begin{chunk}{package GUESSF1 GuessFiniteFunctions} )abbrev package GUESSF1 GuessFiniteFunctions ++ Description: ++ This package exports guessing of sequences of numbers in a finite field @@ -44005,13 +44007,13 @@ GuessFiniteFunctions(F:Join(FiniteFieldCategory, ConvertibleTo Integer)): F2EXPRR(p: F): EXPRR == convert(p)@Integer::EXPRR -@ -<>= +\end{chunk} +\begin{chunk}{GUESSF1.dotabb} "GUESSF1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSF1"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSF1" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSINT GuessInteger} \pagehead{GuessInteger}{GUESSINT} @@ -44034,7 +44036,7 @@ GuessFiniteFunctions(F:Join(FiniteFieldCategory, ConvertibleTo Integer)): \cross{GUESSINT}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESSINT GuessInteger} -- concerning algebraic functions, it may make sense to look at A.J.van der -- Poorten, Power Series Representing Algebraic Functions, Section 6. )abbrev package GUESSINT GuessInteger @@ -44046,13 +44048,13 @@ GuessInteger() == Guess(Fraction Integer, Integer, Expression Integer, id$MappingPackage1(Fraction Integer), coerce$Expression(Integer)) -@ -<>= +\end{chunk} +\begin{chunk}{GUESSINT.dotabb} "GUESSINT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSINT"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSINT" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSP GuessPolynomial} \pagehead{GuessPolynomial}{GUESSP} @@ -44075,7 +44077,7 @@ GuessInteger() == Guess(Fraction Integer, Integer, Expression Integer, \cross{GUESSP}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESSP GuessPolynomial} )abbrev package GUESSP GuessPolynomial ++ Description: ++ This package exports guessing of sequences of rational functions @@ -44086,13 +44088,13 @@ GuessPolynomial() == Guess(Fraction Polynomial Integer, Polynomial Integer, id$MappingPackage1(Fraction Polynomial Integer), coerce$Expression(Integer)) -@ -<>= +\end{chunk} +\begin{chunk}{GUESSP.dotabb} "GUESSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSP"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSP" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package GUESSUP GuessUnivariatePolynomial} \pagehead{GuessUnivariatePolynomial}{GUESSUP} @@ -44115,7 +44117,7 @@ GuessPolynomial() == Guess(Fraction Polynomial Integer, Polynomial Integer, \cross{GUESSUP}{shiftHP} && \end{tabular} -<>= +\begin{chunk}{package GUESSUP GuessUnivariatePolynomial} )abbrev package GUESSUP GuessUnivariatePolynomial ++ Description: ++ This package exports guessing of sequences of univariate rational functions @@ -44331,13 +44333,13 @@ GuessUnivariatePolynomial(q: Symbol): Exports == Implementation where Fraction UP, id$MappingPackage1(Fraction UP), coerce$MyExpression(q, Integer)) -@ -<>= +\end{chunk} +\begin{chunk}{GUESSUP.dotabb} "GUESSUP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESSUP"] "GUESS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=GUESS"] "GUESSUP" -> "GUESS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter H} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -44352,7 +44354,7 @@ GuessUnivariatePolynomial(q: Symbol): Exports == Implementation where \cross{HB}{lfunc} \end{tabular} -<>= +\begin{chunk}{package HB HallBasis} )abbrev package HB HallBasis ++ Author : Larry Lambe ++ Date Created : August 1988 @@ -44444,13 +44446,13 @@ HallBasis() : Export == Implement where numComms := newNumComms v -@ -<>= +\end{chunk} +\begin{chunk}{HB.dotabb} "HB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=HB"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "HB" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package HEUGCD HeuGcd} \pagehead{HeuGcd}{HEUGCD} @@ -44466,7 +44468,7 @@ HallBasis() : Export == Implement where \cross{HEUGCD}{lintgcd} \end{tabular} -<>= +\begin{chunk}{package HEUGCD HeuGcd} )abbrev package HEUGCD HeuGcd ++ Author: P.Gianni ++ Date Created: @@ -44687,13 +44689,13 @@ HeuGcd (BP):C == T --gcd and cofactors for n generic univariate polynomials. gcdcofact (listf:List BP ):List BP == internal("gcdcofact",listf) -@ -<>= +\end{chunk} +\begin{chunk}{HEUGCD.dotabb} "HEUGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=HEUGCD"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "HEUGCD" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter I} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -44711,7 +44713,7 @@ HeuGcd (BP):C == T \cross{IDECOMP}{zeroDimPrime?} \end{tabular} -<>= +\begin{chunk}{package IDECOMP IdealDecompositionPackage} )abbrev package IDECOMP IdealDecompositionPackage ++ Author: P. Gianni ++ Date Created: summer 1986 @@ -45097,15 +45099,15 @@ IdealDecompositionPackage(vl,nv) : C == T -- take away nv, now doesn't fullPol :=[monomial(1,vv,1)$DPoly1 for vv in fullVars] groebnerIdeal([eval(gg,newVars,fullPol) for gg in J]) -@ -<>= +\end{chunk} +\begin{chunk}{IDECOMP.dotabb} "IDECOMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IDECOMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "IDECOMP" -> "PFECAT" "IDECOMP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INCRMAPS IncrementingMaps} \pagehead{IncrementingMaps}{INCRMAPS} @@ -45117,7 +45119,7 @@ IdealDecompositionPackage(vl,nv) : C == T -- take away nv, now doesn't \cross{INCRMAPS}{incrementBy} \end{tabular} -<>= +\begin{chunk}{package INCRMAPS IncrementingMaps} )abbrev package INCRMAPS IncrementingMaps ++ Author: ++ Date Created: @@ -45145,13 +45147,13 @@ IncrementingMaps(R:Join(Monoid, AbelianSemiGroup)): with increment() == x +-> 1 + x incrementBy n == x +-> n + x -@ -<>= +\end{chunk} +\begin{chunk}{INCRMAPS.dotabb} "INCRMAPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INCRMAPS"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "INCRMAPS" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INFPROD0 InfiniteProductCharacteristicZero} \pagehead{InfiniteProductCharacteristicZero}{INFPROD0} @@ -45165,7 +45167,7 @@ IncrementingMaps(R:Join(Monoid, AbelianSemiGroup)): with \cross{INFPROD0}{generalInfiniteProduct} \end{tabular} -<>= +\begin{chunk}{package INFPROD0 InfiniteProductCharacteristicZero} )abbrev package INFPROD0 InfiniteProductCharacteristicZero ++ Author: Clifton J. Williamson ++ Date Created: 22 February 1990 @@ -45215,13 +45217,13 @@ InfiniteProductCharacteristicZero(Coef,UTS):_ generalInfiniteProduct(x,a,d) == series generalInfiniteProduct(coefficients x,a,d) -@ -<>= +\end{chunk} +\begin{chunk}{INFPROD0.dotabb} "INFPROD0" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INFPROD0"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "INFPROD0" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INPRODFF InfiniteProductFiniteField} \pagehead{InfiniteProductFiniteField}{INPRODFF} @@ -45235,7 +45237,7 @@ InfiniteProductCharacteristicZero(Coef,UTS):_ \cross{INPRODFF}{oddInfiniteProduct} \end{tabular} -<>= +\begin{chunk}{package INPRODFF InfiniteProductFiniteField} )abbrev package INPRODFF InfiniteProductFiniteField ++ Author: Clifton J. Williamson ++ Date Created: 22 February 1990 @@ -45345,13 +45347,13 @@ InfiniteProductFiniteField(K,UP,Coef,UTS):_ stUP := map(reducePoly,stSUP)$ST2(SUP RN,UP) series map(reduce,stUP)$ST2(UP,Coef) -@ -<>= +\end{chunk} +\begin{chunk}{INPRODFF.dotabb} "INPRODFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INPRODFF"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "INPRODFF" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INPRODPF InfiniteProductPrimeField} \pagehead{InfiniteProductPrimeField}{INPRODPF} @@ -45365,7 +45367,7 @@ InfiniteProductFiniteField(K,UP,Coef,UTS):_ \cross{INPRODPF}{oddInfiniteProduct} \end{tabular} -<>= +\begin{chunk}{package INPRODPF InfiniteProductPrimeField} )abbrev package INPRODPF InfiniteProductPrimeField ++ Author: Clifton J. Williamson ++ Date Created: 22 February 1990 @@ -45424,13 +45426,13 @@ InfiniteProductPrimeField(Coef,UTS): Exports == Implementation where applyOverZ( (z1:ST(I)):ST(I) +-> generalInfiniteProduct(z1,a,d),coefficients x) -@ -<>= +\end{chunk} +\begin{chunk}{INPRODPF.dotabb} "INPRODPF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INPRODPF"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "INPRODPF" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ITFUN2 InfiniteTupleFunctions2} \pagehead{InfiniteTupleFunctions2}{ITFUN2} @@ -45439,7 +45441,7 @@ InfiniteProductPrimeField(Coef,UTS): Exports == Implementation where {\bf Exports:}\\ \cross{ITFUN2}{map} -<>= +\begin{chunk}{package ITFUN2 InfiniteTupleFunctions2} )abbrev package ITFUN2 InfiniteTupleFunctions2 ++ Description: ++ Functions defined on streams with entries in two sets. @@ -45456,13 +45458,13 @@ InfiniteTupleFunctions2(A:Type,B:Type): Exports == Implementation where map(f,x) == map(f,x pretend Stream(A))$StreamFunctions2(A,B) pretend IT(B) -@ -<>= +\end{chunk} +\begin{chunk}{ITFUN2.dotabb} "ITFUN2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ITFUN2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "ITFUN2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ITFUN3 InfiniteTupleFunctions3} \pagehead{InfiniteTupleFunctions3}{ITFUN3} @@ -45471,7 +45473,7 @@ InfiniteTupleFunctions2(A:Type,B:Type): Exports == Implementation where {\bf Exports:}\\ \cross{ITFUN3}{map} -<>= +\begin{chunk}{package ITFUN3 InfiniteTupleFunctions3} )abbrev package ITFUN3 InfiniteTupleFunctions3 ++ Description: ++ Functions defined on streams with entries in two sets. @@ -45499,13 +45501,13 @@ InfiniteTupleFunctions3(A:Type, B:Type,C:Type): Exports map(f:FUN, s1:IT A, s2:ST B):ST C == map(f, s1 pretend Stream(A), s2)$SF3 -@ -<>= +\end{chunk} +\begin{chunk}{ITFUN3.dotabb} "ITFUN3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ITFUN3"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "ITFUN3" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INFINITY Infinity} \pagehead{Infinity}{INFINITY} @@ -45518,7 +45520,7 @@ InfiniteTupleFunctions3(A:Type, B:Type,C:Type): Exports \cross{INFINITY}{plusInfinity} \end{tabular} -<>= +\begin{chunk}{package INFINITY Infinity} )abbrev package INFINITY Infinity ++ Author: Manuel Bronstein ++ Date Created: 4 Oct 1989 @@ -45539,15 +45541,15 @@ Infinity(): with plusInfinity() == plusInfinity()$OrderedCompletion(Integer) minusInfinity() == minusInfinity()$OrderedCompletion(Integer) -@ -<>= +\end{chunk} +\begin{chunk}{INFINITY.dotabb} "INFINITY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INFINITY"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "INFINITY" -> "PID" "INFINITY" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IALGFACT InnerAlgFactor} \pagehead{InnerAlgFactor}{IALGFACT} @@ -45556,7 +45558,7 @@ Infinity(): with {\bf Exports:}\\ \cross{IALGFACT}{factor} -<>= +\begin{chunk}{package IALGFACT InnerAlgFactor} )abbrev package IALGFACT InnerAlgFactor ++ Author: Patrizia Gianni ++ Date Created: ??? @@ -45643,13 +45645,13 @@ InnerAlgFactor(F, UP, AlExt, AlPol): Exports == Implementation where swap(map(lift, q)$UPCF2(AlExt, AlPol, UP, NUP))$CommuteUnivariatePolynomialCategory(F, UP, NUP) -@ -<>= +\end{chunk} +\begin{chunk}{IALGFACT.dotabb} "IALGFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IALGFACT"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "IALGFACT" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ICDEN InnerCommonDenominator} \pagehead{InnerCommonDenominator}{ICDEN} @@ -45662,7 +45664,7 @@ InnerAlgFactor(F, UP, AlExt, AlPol): Exports == Implementation where \cross{ICDEN}{splitDenominator} \end{tabular} -<>= +\begin{chunk}{package ICDEN InnerCommonDenominator} )abbrev package ICDEN InnerCommonDenominator ++ Author: Manuel Bronstein ++ Date Created: 2 May 1988 @@ -45707,13 +45709,13 @@ InnerCommonDenominator(R, Q, A, B): Exports == Implementation where else commonDenominator l == reduce("*", map(denom, l), 1) -@ -<>= +\end{chunk} +\begin{chunk}{ICDEN.dotabb} "ICDEN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ICDEN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ICDEN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IMATLIN InnerMatrixLinearAlgebraFunctions} \pagehead{InnerMatrixLinearAlgebraFunctions}{IMATLIN} @@ -45723,7 +45725,7 @@ InnerCommonDenominator(R, Q, A, B): Exports == Implementation where \begin{tabular}{lllll} \end{tabular} -<>= +\begin{chunk}{package IMATLIN InnerMatrixLinearAlgebraFunctions} )abbrev package IMATLIN InnerMatrixLinearAlgebraFunctions ++ Author: Clifton J. Williamson, P.Gianni ++ Date Created: 13 November 1989 @@ -45946,13 +45948,13 @@ InnerMatrixLinearAlgebraFunctions(R,Row,Col,M):_ elt(AB,kmax,lmax) = 0 => "failed" subMatrix(AB,kmin,kmax,lmin + ndim,lmax + ndim) -@ -<>= +\end{chunk} +\begin{chunk}{IMATLIN.dotabb} "IMATLIN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IMATLIN"] "PFECAT" -> "IVECTOR" "IMATLIN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IMATQF InnerMatrixQuotientFieldFunctions} \pagehead{InnerMatrixQuotientFieldFunctions}{IMATQF} @@ -45965,7 +45967,7 @@ InnerMatrixLinearAlgebraFunctions(R,Row,Col,M):_ \cross{IMATQF}{nullSpace} \end{tabular} -<>= +\begin{chunk}{package IMATQF InnerMatrixQuotientFieldFunctions} )abbrev package IMATQF InnerMatrixQuotientFieldFunctions ++ Author: Clifton J. Williamson ++ Date Created: 22 November 1989 @@ -46024,13 +46026,13 @@ InnerMatrixQuotientFieldFunctions(R,Row,Col,M,QF,Row2,Col2,M2):_ nullSpace m == [clearDenominator(v)$CDEN for v in nullSpace(qfMat m)$IMATLIN] -@ -<>= +\end{chunk} +\begin{chunk}{IMATQF.dotabb} "IMATQF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IMATQF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "IMATQF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INMODGCD InnerModularGcd} \pagehead{InnerModularGcd}{INMODGCD} @@ -46043,7 +46045,7 @@ InnerMatrixQuotientFieldFunctions(R,Row,Col,M,QF,Row2,Col2,M2):_ \cross{INMODGCD}{reduction} \end{tabular} -<>= +\begin{chunk}{package INMODGCD InnerModularGcd} )abbrev package INMODGCD InnerModularGcd ++ Author: J.H. Davenport and P. Gianni ++ Date Created: July 1990 @@ -46252,7 +46254,7 @@ InnerModularGcd(R,BP,pMod,nextMod):C == T hg:=height g 2*min(hf,hg) -@ +\end{chunk} \begin{verbatim} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FOMOGCD ForModularGcd} @@ -46305,12 +46307,12 @@ InnerModularGcd(R,BP,pMod,nextMod):C == T -- nextMod$ForTwoGcd(F)) \end{verbatim} -<>= +\begin{chunk}{INMODGCD.dotabb} "INMODGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INMODGCD"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INMODGCD" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INNMFACT InnerMultFact} \pagehead{InnerMultFact}{INNMFACT} @@ -46319,7 +46321,7 @@ InnerModularGcd(R,BP,pMod,nextMod):C == T {\bf Exports:}\\ \cross{INNMFACT}{factor} -<>= +\begin{chunk}{package INNMFACT InnerMultFact} )abbrev package INNMFACT InnerMultFact ++ Author: P. Gianni ++ Date Created: 1983 @@ -46754,13 +46756,13 @@ InnerMultFact(OV,E,R,P) : C == T (flist.contp):: P * (*/[primeFactor(u.irr,u.pow) for u in flist.factors]) -@ -<>= +\end{chunk} +\begin{chunk}{INNMFACT.dotabb} "INNMFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INNMFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INNMFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INBFF InnerNormalBasisFieldFunctions} \pagehead{InnerNormalBasisFieldFunctions}{INBFF} @@ -46790,7 +46792,7 @@ InnerMultFact(OV,E,R,P) : C == T \cross{INBFF}{?/?} \end{tabular} -<>= +\begin{chunk}{package INBFF InnerNormalBasisFieldFunctions} )abbrev package INBFF InnerNormalBasisFieldFunctions ++ Authors: J.Grabmeier, A.Scheerhorn ++ Date Created: 26.03.1991 @@ -47141,13 +47143,13 @@ InnerNormalBasisFieldFunctions(GF): Exports == Implementation where pol(x) == +/[monomial(x.i,(i-1)::NNI)$(SUP GF) for i in 1..(#x)::I] -@ -<>= +\end{chunk} +\begin{chunk}{INBFF.dotabb} "INBFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INBFF"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "INBFF" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INEP InnerNumericEigenPackage} \pagehead{InnerNumericEigenPackage}{INEP} @@ -47160,7 +47162,7 @@ InnerNormalBasisFieldFunctions(GF): Exports == Implementation where \cross{INEP}{solve1} \end{tabular} -<>= +\begin{chunk}{package INEP InnerNumericEigenPackage} )abbrev package INEP InnerNumericEigenPackage ++ Author:P. Gianni ++ Date Created: Summer 1990 @@ -47358,13 +47360,13 @@ InnerNumericEigenPackage(K,F,Par) : C == T determinant B -@ -<>= +\end{chunk} +\begin{chunk}{INEP.dotabb} "INEP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INEP"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "INEP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INFSP InnerNumericFloatSolvePackage} \pagehead{InnerNumericFloatSolvePackage}{INFSP} @@ -47377,7 +47379,7 @@ InnerNumericEigenPackage(K,F,Par) : C == T \cross{INFSP}{makeEq} \end{tabular} -<>= +\begin{chunk}{package INFSP InnerNumericFloatSolvePackage} )abbrev package INFSP InnerNumericFloatSolvePackage ++ Author: P. Gianni ++ Date Created: January 1990 @@ -47570,13 +47572,13 @@ InnerNumericFloatSolvePackage(K,F,Par): Cat == Cap where result:= append([oldCoord(r,lval) for r in lris],result) result -@ -<>= +\end{chunk} +\begin{chunk}{INFSP.dotabb} "INFSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INFSP"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "INFSP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INPSIGN InnerPolySign} \pagehead{InnerPolySign}{INPSIGN} @@ -47585,7 +47587,7 @@ InnerNumericFloatSolvePackage(K,F,Par): Cat == Cap where {\bf Exports:}\\ \cross{INPSIGN}{signAround} -<>= +\begin{chunk}{package INPSIGN InnerPolySign} )abbrev package INPSIGN InnerPolySign ++ Author: Manuel Bronstein ++ Date Created: 23 Aug 1989 @@ -47628,13 +47630,13 @@ InnerPolySign(R, UP): Exports == Implementation where (dir > 0) or (even? degree p) => u::Integer - (u::Integer) -@ -<>= +\end{chunk} +\begin{chunk}{INPSIGN.dotabb} "INPSIGN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INPSIGN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INPSIGN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ISUMP InnerPolySum} \pagehead{InnerPolySum}{ISUMP} @@ -47643,7 +47645,7 @@ InnerPolySign(R, UP): Exports == Implementation where {\bf Exports:}\\ \cross{ISUMP}{sum} -<>= +\begin{chunk}{package ISUMP InnerPolySum} )abbrev package ISUMP InnerPolySum ++ Author: SMW ++ Date Created: ??? @@ -47699,13 +47701,13 @@ InnerPolySum(E, V, R, P): Exports == Impl where vp := +/[(d exquo di)::Z * pi for di in ld for pi in lp] [multivariate(vp, v), d] -@ -<>= +\end{chunk} +\begin{chunk}{ISUMP.dotabb} "ISUMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ISUMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ISUMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ITRIGMNP InnerTrigonometricManipulations} \pagehead{InnerTrigonometricManipulations}{ITRIGMNP} @@ -47720,7 +47722,7 @@ InnerPolySum(E, V, R, P): Exports == Impl where \cross{ITRIGMNP}{trigs2explogs} \end{tabular} -<>= +\begin{chunk}{package ITRIGMNP InnerTrigonometricManipulations} )abbrev package ITRIGMNP InnerTrigonometricManipulations ++ Author: Manuel Bronstein ++ Date Created: 4 April 1988 @@ -47884,15 +47886,15 @@ InnerTrigonometricManipulations(R,F,FG): Exports == Implementation where map(x +-> ker2explogs(x, l, lx), y +-> y::FG, p)_ $PolynomialCategoryLifting(IndexedExponents KG, KG, GR, PG, FG) -@ -<>= +\end{chunk} +\begin{chunk}{ITRIGMNP.dotabb} "ITRIGMNP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ITRIGMNP"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "ITRIGMNP" -> "FS" "ITRIGMNP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INFORM1 InputFormFunctions1} \pagehead{InputFormFunctions1}{INFORM1} @@ -47904,7 +47906,7 @@ InnerTrigonometricManipulations(R,F,FG): Exports == Implementation where \cross{INFORM1}{packageCall} \end{tabular} -<>= +\begin{chunk}{package INFORM1 InputFormFunctions1} )abbrev package INFORM1 InputFormFunctions1 --)boot $noSubsumption := false @@ -47931,16 +47933,16 @@ InputFormFunctions1(R:Type):with retract(interpret(convert([convert("@"::Symbol), form, Rname]$List(InputForm))@InputForm)$InputForm)$AnyFunctions1(R) -@ -<>= +\end{chunk} +\begin{chunk}{INFORM1.dotabb} "INFORM1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INFORM1"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "INFORM1" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTERGB InterfaceGroebnerPackage} -<>= +\begin{chunk}{InterfaceGroebnerPackage.input} )set break resume )sys rm -f InterfaceGroebnerPackage.output )spool InterfaceGroebnerPackage.output @@ -47961,8 +47963,8 @@ InputFormFunctions1(R:Type):with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InterfaceGroebnerPackage.help} ==================================================================== InterfaceGroebnerPackage examples ==================================================================== @@ -47970,14 +47972,14 @@ InterfaceGroebnerPackage examples See Also: o )show InterfaceGroebnerPackage -@ +\end{chunk} \pagehead{InterfaceGroebnerPackage}{INTERGB} \pagepic{ps/v104interfacegroebnerpackage.ps}{INTERGB}{1.00} {\bf Exports:}\\ \cross{INTERGB}{groebner} -<>= +\begin{chunk}{package INTERGB InterfaceGroebnerPackage} )abbrev package INTERGB InterfaceGroebnerPackage ++ Author: Gaetan Hache ++ Date Created: September 1996 @@ -48044,13 +48046,13 @@ InterfaceGroebnerPackage(K,symb,E,OV,R):Exports == Implementation where gg:=groebner(ldmp)$GBPack [coerceDtoR(pol) for pol in gg] -@ -<>= +\end{chunk} +\begin{chunk}{INTERGB.dotabb} "INTERGB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTERGB"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTERGB" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTBIT IntegerBits} Bug! Cannot precompute params and return a function which @@ -48069,7 +48071,7 @@ representation and so are much facter than using a quotient loop. \cross{INTBIT}{bitTruth} \end{tabular} -<>= +\begin{chunk}{package INTBIT IntegerBits} )abbrev package INTBIT IntegerBits ++ Description: ++ This package provides functions to lookup bits in integers @@ -48091,16 +48093,16 @@ IntegerBits: with bitCoef (n,i) == if INTEGER_-BIT(n,i)$Lisp then 1 else 0 bitTruth(n,i) == INTEGER_-BIT(n,i)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{INTBIT.dotabb} "INTBIT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTBIT"] "Package" [color="#FF4488"] "INTBIT" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package COMBINAT IntegerCombinatoricFunctions} -<>= +\begin{chunk}{IntegerCombinatoricFunctions.input} )set break resume )sys rm -f IntegerCombinatoricFunctions.output )spool IntegerCombinatoricFunctions.output @@ -48144,8 +48146,8 @@ for i in 0..7 repeat displayRow i )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegerCombinatoricFunctions.help} ==================================================================== IntegerCombinatoricFunctions examples ==================================================================== @@ -48200,7 +48202,7 @@ o )d op binomial o )show OutputForm o )help set -@ +\end{chunk} \pagehead{IntegerCombinatoricFunctions}{COMBINAT} \pagepic{ps/v104integercombinatoricfunctions.ps}{COMBINAT}{1.00} @@ -48215,7 +48217,7 @@ o )help set \cross{COMBINAT}{stirling2} &&& \end{tabular} -<>= +\begin{chunk}{package COMBINAT IntegerCombinatoricFunctions} )abbrev package COMBINAT IntegerCombinatoricFunctions ++ Authors: Martin Brock, Robert Sutor, Michael Monagan ++ Date Created: June 1987 @@ -48365,13 +48367,13 @@ IntegerCombinatoricFunctions(I:IntegerNumberSystem): EE == II where t := t + s * binomial(m, k::I) * k::I ** (convert(n)@Z :: N) t quo factorial m -@ -<>= +\end{chunk} +\begin{chunk}{COMBINAT.dotabb} "COMBINAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=COMBINAT"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "COMBINAT" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTFACT IntegerFactorizationPackage} \pagehead{IntegerFactorizationPackage}{INTFACT} @@ -48385,7 +48387,7 @@ IntegerCombinatoricFunctions(I:IntegerNumberSystem): EE == II where \cross{INTFACT}{PollardSmallFactor} \end{tabular} -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} )abbrev package INTFACT IntegerFactorizationPackage ++ Description: ++ This Package contains basic methods for integer factorization. @@ -48422,9 +48424,9 @@ IntegerFactorizationPackage(I): Exports == Implementation where BasicSieve: (I, I) -> FF -@ +\end{chunk} \subsection{squareFree} -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} squareFree(n:I):FF == u:I if n<0 then (m := -n; u := -1) @@ -48445,7 +48447,7 @@ IntegerFactorizationPackage(I): Exports == Implementation where concat_!(factorList x, ["sqfr",m,1]$FFE) makeFR(u, y) -@ +\end{chunk} \subsection{PollardSmallFactor} This is Brent's\cite{1} optimization of Pollard's\cite{2} rho factoring. Brent's algorithm is about 24 percent faster than Pollard's. Pollard;s @@ -48546,7 +48548,7 @@ One property that this algorithm assumes is that the function used to generate the numbers has a long, hopefully complete, period. It is not clear that the recommended function has that property. -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} PollardSmallFactor(n:I):Union(I,"failed") == -- Use the Brent variation x0 := random()$I @@ -48575,7 +48577,7 @@ is not clear that the recommended function has that property. G=n => "failed" G -@ +\end{chunk} \subsection{BasicSieve} We create a list of prime numbers up to the limit given. The prior code used a circular list but tests of that list show that on average more @@ -48608,7 +48610,7 @@ the factors found and their multiplicity. Basically we just loop thru the prime factors checking to see if they are a component of the number, n. If so, we remove the factor from the number n (possibly m times) and continue thru the list of primes. -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} BasicSieve(n, lim) == p:=primes(1::I,lim::I)$IntegerPrimesPackage(I) l:List(I) := append([first p],reverse rest p) @@ -48621,9 +48623,9 @@ the number n (possibly m times) and continue thru the list of primes. if m>0 then ls := concat_!(ls, ["prime",d,convert m]$FFE) makeFR(n,ls) -@ +\end{chunk} \subsection{BasicMethod} -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} BasicMethod n == u:I if n<0 then (m := -n; u := -1) @@ -48631,7 +48633,7 @@ the number n (possibly m times) and continue thru the list of primes. x := BasicSieve(m, 1 + approxSqrt m) makeFR(u, factorList x) -@ +\end{chunk} \subsection{factor} The factor function is many orders of magnitude slower than the results of other systems. A posting on sci.math.symbolic showed that NTL could @@ -48662,7 +48664,7 @@ a7:=4328240801173188438252813716944518369161 t6:=t5*a7 factor t6 \end{verbatim} -<>= +\begin{chunk}{package INTFACT IntegerFactorizationPackage} factor m == u:I zero? m => 0 @@ -48703,16 +48705,16 @@ factor t6 flb := concat_!(flb, ["nil",n,convert c]$FFE) makeFR(u, flb) -@ -<>= +\end{chunk} +\begin{chunk}{INTFACT.dotabb} "INTFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTFACT"] "MDAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MDAGG"] "INTFACT" -> "MDAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ZLINDEP IntegerLinearDependence} -<>= +\begin{chunk}{IntegerLinearDependence.input} )set break resume )spool IntegerLinearDependence.output )set message test on @@ -48794,8 +48796,8 @@ solveLinearlyOverQ(vector [m1, m3], m2) --E 8 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegerLinearDependence.help} ==================================================================== IntegerLinearDependence examples ==================================================================== @@ -48872,7 +48874,7 @@ solveLinearlyOverQ. See Also: o )show IntegerLinearDependence -@ +\end{chunk} \pagehead{IntegerLinearDependence}{ZLINDEP} \pagepic{ps/v104integerlineardependence.ps}{ZLINDEP}{1.00} @@ -48883,7 +48885,7 @@ o )show IntegerLinearDependence \cross{ZLINDEP}{solveLinearlyOverQ} \end{tabular} -<>= +\begin{chunk}{package ZLINDEP IntegerLinearDependence} )abbrev package ZLINDEP IntegerLinearDependence ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -48918,18 +48920,18 @@ IntegerLinearDependence(R): Exports == Implementation where linearDependenceOverZ v == linearDependence v solveLinearlyOverQ(v, c) == solveLinear(v, c) -@ -<>= +\end{chunk} +\begin{chunk}{ZLINDEP.dotabb} "ZLINDEP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ZLINDEP"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "ZLINDEP" -> "PID" "ZLINDEP" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTHEORY IntegerNumberTheoryFunctions} -<>= +\begin{chunk}{IntegerNumberTheoryFunctions.input} )set break resume )spool IntegerNumberTheoryFunctions.output )set message test on @@ -49190,8 +49192,8 @@ result:=chineseRemainder(x1,m1,x2,m2) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntegerNumberTheoryFunctions.help} ==================================================================== IntegerNumberTheoryFunctions examples ==================================================================== @@ -49586,7 +49588,7 @@ computing the chinese remainder of two numbers and two moduli. See Also: o )show IntegerNumberTheoryFunctions -@ +\end{chunk} \pagehead{IntegerNumberTheoryFunctions}{INTHEORY} \pagepic{ps/v104integernumbertheoryfunctions.ps}{INTHEORY}{1.00} @@ -49607,7 +49609,7 @@ o )show IntegerNumberTheoryFunctions \cross{INTHEORY}{sumOfKthPowerDivisors} & \end{tabular} -<>= +\begin{chunk}{package INTHEORY IntegerNumberTheoryFunctions} )abbrev package INTHEORY IntegerNumberTheoryFunctions ++ Author: Michael Monagan, Martin Brock, Robert Sutor, Timothy Daly ++ Date Created: June 1987 @@ -49856,13 +49858,13 @@ IntegerNumberTheoryFunctions(): Exports == Implementation where odd? numberOfFactors t => -1 1 -@ -<>= +\end{chunk} +\begin{chunk}{INTHEORY.dotabb} "INTHEORY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTHEORY"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "INTHEORY" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PRIMES IntegerPrimesPackage} We've expanded the list of small primes to include those between 1 and 10000. @@ -49877,7 +49879,7 @@ We've expanded the list of small primes to include those between 1 and 10000. \cross{PRIMES}{primes} \end{tabular} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} )abbrev package PRIMES IntegerPrimesPackage ++ Author: Michael Monagan ++ Date Created: August 1987 @@ -49927,7 +49929,7 @@ IntegerPrimesPackage(I:IntegerNumberSystem): with ++ \spad{primes(a,b)} returns a list of all primes p with ++ \spad{a <= p <= b} == add -@ +\end{chunk} \subsection{smallPrimes} This is a table of all of the primes in [2..10000]. It is used by the prime? function to check for primality. It is used by the primes function @@ -49936,7 +49938,7 @@ in this table implies changing the value of the nextSmallPrime variable. There is a constant in the function squareFree from IntegerFactorizationPackage that is the square of the upper bound of the table range, in this case 10000000. -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} smallPrimes: List I := [2::I, 3::I, 5::I, 7::I, 11::I, 13::I, 17::I, 19::I,_ 23::I, 29::I, 31::I, 37::I, 41::I, 43::I, 47::I, 53::I,_ @@ -50163,9 +50165,9 @@ that is the square of the upper bound of the table range, in this case count2Order:Vector NonNegativeInteger := new(1,0) -- used to check whether we observe an element of maximal two-order -@ +\end{chunk} \subsection{primes} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} primes(m, n) == -- computes primes from m to n inclusive using prime? l:List(I) := @@ -50181,9 +50183,9 @@ that is the square of the upper bound of the table range, in this case rabinProvesCompositeSmall : (I,I,I,I,NonNegativeInteger) -> Boolean -@ +\end{chunk} \subsection{rabinProvesCompositeSmall} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} rabinProvesCompositeSmall(p,n,nm1,q,k) == -- probability n prime is > 3/4 for each iteration -- for most n this probability is much greater than 3/4 @@ -50200,9 +50202,9 @@ that is the square of the upper bound of the table range, in this case not (t = nm1) => return true false -@ +\end{chunk} \subsection{rabinProvesComposite} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} rabinProvesComposite(p,n,nm1,q,k) == -- probability n prime is > 3/4 for each iteration -- for most n this probability is much greater than 3/4 @@ -50223,9 +50225,9 @@ that is the square of the upper bound of the table range, in this case # rootsMinus1 > 2 => true -- Z/nZ can't be a field false -@ +\end{chunk} \subsection{prime?} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} prime? n == n < two => false n < nextSmallPrime => member?(n, smallPrimes) @@ -50280,9 +50282,9 @@ that is the square of the upper bound of the table range, in this case rabinProvesComposite(currPrime,n,nm1,q,k) => return false true -@ +\end{chunk} \subsection{nextPrime} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} nextPrime n == -- computes the first prime after n n < two => two @@ -50290,9 +50292,9 @@ that is the square of the upper bound of the table range, in this case while not prime? n repeat n := n + two n -@ +\end{chunk} \subsection{prevPrime} -<>= +\begin{chunk}{package PRIMES IntegerPrimesPackage} prevPrime n == -- computes the first prime before n n < 3::I => error "no primes less than 2" @@ -50301,13 +50303,13 @@ that is the square of the upper bound of the table range, in this case while not prime? n repeat n := n - two n -@ -<>= +\end{chunk} +\begin{chunk}{PRIMES.dotabb} "PRIMES" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRIMES"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "PRIMES" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTRET IntegerRetractions} \pagehead{IntegerRetractions}{INTRET} @@ -50320,7 +50322,7 @@ that is the square of the upper bound of the table range, in this case \cross{INTRET}{integerIfCan} \end{tabular} -<>= +\begin{chunk}{package INTRET IntegerRetractions} )abbrev package INTRET IntegerRetractions ++ Author: Manuel Bronstein ++ Date Created: March 1990 @@ -50342,13 +50344,13 @@ IntegerRetractions(S:RetractableTo(Integer)): with integer? s == retractIfCan(s) case Integer integerIfCan s == retractIfCan s -@ -<>= +\end{chunk} +\begin{chunk}{INTRET.dotabb} "INTRET" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTRET"] "RETRACT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RETRACT"] "INTRET" -> "RETRACT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IROOT IntegerRoots} \pagehead{IntegerRoots}{IROOT} @@ -50364,7 +50366,7 @@ IntegerRetractions(S:RetractableTo(Integer)): with \cross{IROOT}{perfectSquare?} \end{tabular} -<>= +\begin{chunk}{package IROOT IntegerRoots} )abbrev package IROOT IntegerRoots ++ Author: Michael Monagan ++ Date Created: November 1987 @@ -50417,19 +50419,19 @@ IntegerRoots(I:IntegerNumberSystem): Exports == Implementation where 52::I,64::I,73::I,81::I,97::I,100::I,112::I,121::I] two := 2::I -@ +\end{chunk} \subsection{perfectSquare?} -<>= +\begin{chunk}{package IROOT IntegerRoots} perfectSquare? a == (perfectSqrt a) case I -@ +\end{chunk} \subsection{perfectNthPower?} -<>= +\begin{chunk}{package IROOT IntegerRoots} perfectNthPower?(b, n) == perfectNthRoot(b, n) case I -@ +\end{chunk} \subsection{perfectNthRoot} -<>= +\begin{chunk}{package IROOT IntegerRoots} perfectNthRoot n == -- complexity (log log n)**2 (log n)**2 m:NNI (n = 1) or zero? n or n = -1 => [n, 1] @@ -50442,9 +50444,9 @@ IntegerRoots(I:IntegerNumberSystem): Exports == Implementation where p := convert(nextPrime(p::I))@Integer :: NNI [n, e] -@ +\end{chunk} \subsection{approxNthRoot} -<>= +\begin{chunk}{package IROOT IntegerRoots} approxNthRoot(a, n) == -- complexity (log log n) (log n)**2 zero? n => error "invalid arguments" (n = 1) => a @@ -50467,24 +50469,24 @@ IntegerRoots(I:IntegerNumberSystem): Exports == Implementation where z := x-y x -@ +\end{chunk} \subsection{perfectNthRoot} -<>= +\begin{chunk}{package IROOT IntegerRoots} perfectNthRoot(b, n) == (r := approxNthRoot(b, n)) ** n = b => r "failed" -@ +\end{chunk} \subsection{perfectSqrt} -<>= +\begin{chunk}{package IROOT IntegerRoots} perfectSqrt a == a < 0 or not member?(a rem (144::I), resMod144) => "failed" (s := approxSqrt a) * s = a => s "failed" -@ +\end{chunk} \subsection{approxSqrt} -<>= +\begin{chunk}{package IROOT IntegerRoots} approxSqrt a == a < 1 => 0 if (n := length a) > (100::I) then @@ -50499,13 +50501,13 @@ IntegerRoots(I:IntegerNumberSystem): Exports == Implementation where (new, old) := ((1 + new + a quo new) quo two, new) new -@ -<>= +\end{chunk} +\begin{chunk}{IROOT.dotabb} "IROOT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IROOT"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "IROOT" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTSLPE IntegerSolveLinearPolynomialEquation} \pagehead{IntegerSolveLinearPolynomialEquation}{INTSLPE} @@ -50514,7 +50516,7 @@ IntegerRoots(I:IntegerNumberSystem): Exports == Implementation where {\bf Exports:}\\ \cross{INTSLPE}{solveLinearPolynomialEquation} -<>= +\begin{chunk}{package INTSLPE IntegerSolveLinearPolynomialEquation} )abbrev package INTSLPE IntegerSolveLinearPolynomialEquation ++ Author: Davenport ++ Date Created: 1991 @@ -50561,13 +50563,13 @@ IntegerSolveLinearPolynomialEquation(): C ==T answer:=solveid(p,slpePrime,oldtable) answer -@ -<>= +\end{chunk} +\begin{chunk}{INTSLPE.dotabb} "INTSLPE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTSLPE"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTSLPE" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IBATOOL IntegralBasisTools} \pagehead{IntegralBasisTools}{IBATOOL} @@ -50584,7 +50586,7 @@ IntegerSolveLinearPolynomialEquation(): C ==T \cross{IBATOOL}{moduleSum} &&& \end{tabular} -<>= +\begin{chunk}{package IBATOOL IntegralBasisTools} )abbrev package IBATOOL IntegralBasisTools ++ Author: Victor Miller, Barry Trager, Clifton Williamson ++ Date Created: 11 April 1990 @@ -50723,13 +50725,13 @@ IntegralBasisTools(R,UP,F): Exports == Implementation where rbinv := UpTriBddDenomInv(rb,den) [rb,den,rbinv] -@ -<>= +\end{chunk} +\begin{chunk}{IBATOOL.dotabb} "IBATOOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IBATOOL"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "IBATOOL" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IBPTOOLS IntegralBasisPolynomialTools} \pagehead{IntegralBasisPolynomialTools}{IBPTOOLS} @@ -50743,7 +50745,7 @@ IntegralBasisTools(R,UP,F): Exports == Implementation where \cross{IBPTOOLS}{mapUnivariateIfCan} \end{tabular} -<>= +\begin{chunk}{package IBPTOOLS IntegralBasisPolynomialTools} )abbrev package IBPTOOLS IntegralBasisPolynomialTools ++ Author: Clifton Williamson ++ Date Created: 13 August 1993 @@ -50832,13 +50834,13 @@ IntegralBasisPolynomialTools(K,R,UP,L): Exports == Implementation where poly := reductum poly ans -@ -<>= +\end{chunk} +\begin{chunk}{IBPTOOLS.dotabb} "IBPTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IBPTOOLS"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "IBPTOOLS" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IR2 IntegrationResultFunctions2} \pagehead{IntegrationResultFunctions2}{IR2} @@ -50847,7 +50849,7 @@ IntegralBasisPolynomialTools(K,R,UP,L): Exports == Implementation where {\bf Exports:}\\ \cross{IR2}{map} -<>= +\begin{chunk}{package IR2 IntegrationResultFunctions2} )abbrev package IR2 IntegrationResultFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -50913,13 +50915,13 @@ IntegrationResultFunctions2(E, F): Exports == Implementation where LGE2F(func, lg) == [lg.scalar, map(func, lg.coeff), map(func, lg.logand)] -@ -<>= +\end{chunk} +\begin{chunk}{IR2.dotabb} "IR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IR2"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "IR2" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IRRF2F IntegrationResultRFToFunction} \pagehead{IntegrationResultRFToFunction}{IRRF2F} @@ -50934,7 +50936,7 @@ IntegrationResultFunctions2(E, F): Exports == Implementation where \cross{IRRF2F}{split} \end{tabular} -<>= +\begin{chunk}{package IRRF2F IntegrationResultRFToFunction} )abbrev package IRRF2F IntegrationResultRFToFunction ++ Author: Manuel Bronstein ++ Date Created: 21 August 1988 @@ -50999,13 +51001,13 @@ IntegrationResultRFToFunction(R): Exports == Implementation where empty? rest l => first l l -@ -<>= +\end{chunk} +\begin{chunk}{IRRF2F.dotabb} "IRRF2F" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IRRF2F"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "IRRF2F" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IR2F IntegrationResultToFunction} \pagehead{IntegrationResultToFunction}{IR2F} @@ -51018,7 +51020,7 @@ IntegrationResultRFToFunction(R): Exports == Implementation where \cross{IR2F}{split} \end{tabular} -<>= +\begin{chunk}{package IR2F IntegrationResultToFunction} )abbrev package IR2F IntegrationResultToFunction ++ Author: Manuel Bronstein ++ Date Created: 4 February 1988 @@ -51233,13 +51235,13 @@ IntegrationResultToFunction(R, F): Exports == Implementation where ffactor(primitivePart(lg.coeff) )$FunctionSpaceUnivariatePolynomialFactor(R, F, UP)] -@ -<>= +\end{chunk} +\begin{chunk}{IR2F.dotabb} "IR2F" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IR2F"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "IR2F" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTTOOLS IntegrationTools} \pagehead{IntegrationTools}{INTTOOLS} @@ -51257,7 +51259,7 @@ IntegrationResultToFunction(R, F): Exports == Implementation where \cross{INTTOOLS}{varselect} && \end{tabular} -<>= +\begin{chunk}{package INTTOOLS IntegrationTools} )abbrev package INTTOOLS IntegrationTools ++ Author: Manuel Bronstein ++ Date Created: 25 April 1990 @@ -51393,13 +51395,13 @@ IntegrationTools(R:OrderedSet, F:FunctionSpace R): Exp == Impl where else nl := concat(rec, nl) mkAnswer(ans, lg, nl) -@ -<>= +\end{chunk} +\begin{chunk}{INTTOOLS.dotabb} "INTTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTTOOLS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "INTTOOLS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IPRNTPK InternalPrintPackage} \pagehead{InternalPrintPackage}{IPRNTPK} @@ -51408,7 +51410,7 @@ IntegrationTools(R:OrderedSet, F:FunctionSpace R): Exp == Impl where {\bf Exports:}\\ \cross{IPRNTPK}{iprint} -<>= +\begin{chunk}{package IPRNTPK InternalPrintPackage} )abbrev package IPRNTPK InternalPrintPackage ++ Author: Themos Tsikas ++ Date Created: 09/09/1998 @@ -51434,13 +51436,13 @@ InternalPrintPackage(): Exports == Implementation where PRINC(coerce(s)@Symbol)$Lisp FORCE_-OUTPUT()$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{IPRNTPK.dotabb} "IPRNTPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IPRNTPK"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "IPRNTPK" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IRURPK InternalRationalUnivariateRepresentationPackage} \pagehead{InternalRationalUnivariateRepresentationPackage}{IRURPK} @@ -51452,7 +51454,7 @@ InternalPrintPackage(): Exports == Implementation where \cross{IRURPK}{rur} \end{tabular} -<>= +\begin{chunk}{package IRURPK InternalRationalUnivariateRepresentationPackage} )abbrev package IRURPK InternalRationalUnivariateRepresentationPackage ++ Author: Marc Moreno Maza ++ Date Created: 01/1999 @@ -51643,16 +51645,16 @@ InternalRationalUnivariateRepresentationPackage(R,E,V,P,TS): Exports == Implemen toSee := cons(wip,toSee) toSave -@ -<>= +\end{chunk} +\begin{chunk}{IRURPK.dotabb} "IRURPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IRURPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "IRURPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTFRSP InterpolateFormsPackage} -<>= +\begin{chunk}{InterpolateFormsPackage.input} )set break resume )sys rm -f InterpolateFormsPackage.output )spool InterpolateFormsPackage.output @@ -51677,8 +51679,8 @@ InternalRationalUnivariateRepresentationPackage(R,E,V,P,TS): Exports == Implemen )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{InterpolateFormsPackage.help} ==================================================================== InterpolateFormsPackage examples ==================================================================== @@ -51686,7 +51688,7 @@ InterpolateFormsPackage examples See Also: o )show InterpolateFormsPackage -@ +\end{chunk} \pagehead{InterpolateFormsPackage}{INTFRSP} \pagepic{ps/v104interpolateformspackage.eps}{INTFRSP}{1.00} @@ -51698,7 +51700,7 @@ o )show InterpolateFormsPackage \cross{INTFRSP}{interpolateFormsForFact} \end{tabular} -<>= +\begin{chunk}{package INTFRSP InterpolateFormsPackage} )abbrev package INTFRSP InterpolateFormsPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -51994,8 +51996,8 @@ InterpolateFormsPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc,DIVISOR):_ -- npsol:=listOfLists(rowEchmpsol) -- [reduce("+",[a*f for a in ll for f in lmnumer]) for ll in npsol] -@ -<>= +\end{chunk} +\begin{chunk}{INTFRSP.dotabb} "INTFRSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTFRSP"] "LISYSER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LISYSER"] "PFORP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFORP"] @@ -52004,10 +52006,10 @@ InterpolateFormsPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc,DIVISOR):_ "INTFRSP" -> "PFORP" "INTFRSP" -> "PARAMP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTDIVP IntersectionDivisorPackage} -<>= +\begin{chunk}{IntersectionDivisorPackage.input} )set break resume )sys rm -f IntersectionDivisorPackage.output )spool IntersectionDivisorPackage.output @@ -52030,8 +52032,8 @@ InterpolateFormsPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc,DIVISOR):_ )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{IntersectionDivisorPackage.help} ==================================================================== IntersectionDivisorPackage examples ==================================================================== @@ -52039,7 +52041,7 @@ IntersectionDivisorPackage examples See Also: o )show IntersectionDivisorPackage -@ +\end{chunk} \pagehead{IntersectionDivisorPackage}{INTDIVP} \pagepic{ps/v104intersectiondivisorpackage.eps}{INTDIVP}{1.00} @@ -52049,7 +52051,7 @@ o )show IntersectionDivisorPackage \cross{INTDIVP}{placesOfDegree} \end{tabular} -<>= +\begin{chunk}{package INTDIVP IntersectionDivisorPackage} )abbreviation package INTDIVP IntersectionDivisorPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -52151,13 +52153,13 @@ IntersectionDivisorPackage(K,symb,PolyRing,E,ProjPt, PCS,Plc,DIVISOR,_ pointToPlace(tpt,curve)$ParamPackFC Void() -@ -<>= +\end{chunk} +\begin{chunk}{INTDIVP.dotabb} "INTDIVP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTDIVP"] "DTP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DTP"] "INTDIVP" -> "DTP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IRREDFFX IrredPolyOverFiniteField} \pagehead{IrredPolyOverFiniteField}{IRREDFFX} @@ -52166,7 +52168,7 @@ IntersectionDivisorPackage(K,symb,PolyRing,E,ProjPt, PCS,Plc,DIVISOR,_ {\bf Exports:}\\ \cross{IRREDFFX}{generateIrredPoly} -<>= +\begin{chunk}{package IRREDFFX IrredPolyOverFiniteField} )abbrev package IRREDFFX IrredPolyOverFiniteField ++ Author: Robert S. Sutor (original) ++ Date Created: ??? @@ -52230,13 +52232,13 @@ IrredPolyOverFiniteField(GF:FiniteFieldCategory): Exports == Impl where getIrredPoly(1, n) getIrredPoly(q + 1, n) -@ -<>= +\end{chunk} +\begin{chunk}{IRREDFFX.dotabb} "IRREDFFX" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IRREDFFX"] "FPC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FPC"] "IRREDFFX" -> "FPC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package IRSN IrrRepSymNatPackage} \pagehead{IrrRepSymNatPackage}{IRSN} @@ -52248,7 +52250,7 @@ IrredPolyOverFiniteField(GF:FiniteFieldCategory): Exports == Impl where \cross{IRSN}{irreducibleRepresentation} \end{tabular} -<>= +\begin{chunk}{package IRSN IrrRepSymNatPackage} )abbrev package IRSN IrrRepSymNatPackage ++ Authors: Johannes Grabmeier, Thorsten Werther ++ Date Created: 04 August 1988 @@ -52557,13 +52559,13 @@ IrrRepSymNatPackage(): public == private where alreadyComputed?(lambda) [irreducibleRepresentation(lambda, pi) for pi in listperm] -@ -<>= +\end{chunk} +\begin{chunk}{IRSN.dotabb} "IRSN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=IRSN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "IRSN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INVLAPLA InverseLaplaceTransform} \pagehead{InverseLaplaceTransform}{INVLAPLA} @@ -52572,7 +52574,7 @@ IrrRepSymNatPackage(): public == private where {\bf Exports:}\\ \cross{INVLAPLA}{inverseLaplace} -<>= +\begin{chunk}{package INVLAPLA InverseLaplaceTransform} )abbrev package INVLAPLA InverseLaplaceTransform ++ Author: Barry Trager ++ Date Created: 3 Sept 1991 @@ -52666,13 +52668,13 @@ InverseLaplaceTransform(R, F): Exports == Implementation where q1 := differentiate q +/[p(root)/q1(root)*exp(root*t) for root in roots] -@ -<>= +\end{chunk} +\begin{chunk}{INVLAPLA.dotabb} "INVLAPLA" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INVLAPLA"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "INVLAPLA" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter J} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -52689,7 +52691,7 @@ InverseLaplaceTransform(R, F): Exports == Implementation where \cross{KERNEL2}{constantIfCan} \end{tabular} -<>= +\begin{chunk}{package KERNEL2 KernelFunctions2} )abbrev package KERNEL2 KernelFunctions2 ++ Description: ++ This package exports some auxiliary functions on kernels @@ -52706,13 +52708,13 @@ KernelFunctions2(R:OrderedSet, S:OrderedSet): with constantKernel r == kernel(constantOperator r, nil(), 1) constantIfCan k == constantOpIfCan operator k -@ -<>= +\end{chunk} +\begin{chunk}{KERNEL2.dotabb} "KERNEL2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=KERNEL2"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "KERNEL2" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package KOVACIC Kovacic} \pagehead{Kovacic}{KOVACIC} @@ -52721,7 +52723,7 @@ KernelFunctions2(R:OrderedSet, S:OrderedSet): with {\bf Exports:}\\ \cross{KOVACIC}{kovacic} -<>= +\begin{chunk}{package KOVACIC Kovacic} )abbrev package KOVACIC Kovacic ++ Author: Manuel Bronstein ++ Date Created: 14 January 1992 @@ -52814,13 +52816,13 @@ Kovacic(F, UP): Exports == Impl where return false true -@ -<>= +\end{chunk} +\begin{chunk}{KOVACIC.dotabb} "KOVACIC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=KOVACIC"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "KOVACIC" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter L} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -52831,7 +52833,7 @@ Kovacic(F, UP): Exports == Impl where {\bf Exports:}\\ \cross{LAPLACE}{laplace} -<>= +\begin{chunk}{package LAPLACE LaplaceTransform} )abbrev package LAPLACE LaplaceTransform ++ Author: Manuel Bronstein ++ Date Created: 30 May 1990 @@ -53049,16 +53051,16 @@ LaplaceTransform(R, F): Exports == Implementation where setProperty(oplap,SPECIALDIFF,dvlap@((List F,SE)->F) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{LAPLACE.dotabb} "LAPLACE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LAPLACE"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "LAPLACE" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LAZM3PK LazardSetSolvingPackage} -<>= +\begin{chunk}{LazardSetSolvingPackage.input} )set break resume )sys rm -f LazardSetSolvingPackage.output )spool LazardSetSolvingPackage.output @@ -53580,8 +53582,8 @@ zeroSetSplit(lf,false)$pack )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LazardSetSolvingPackage.help} ==================================================================== LazardSetSolvingPackage examples ==================================================================== @@ -54021,7 +54023,7 @@ See also: o )show LazardSetSolvingPackage o )show ZeroDimensionalSolvePackage -@ +\end{chunk} \pagehead{LazardSetSolvingPackage}{LAZM3PK} \pagepic{ps/v104lazardsetsolvingpackage.ps}{LAZM3PK}{1.00} @@ -54031,7 +54033,7 @@ o )show ZeroDimensionalSolvePackage \cross{LAZM3PK}{zeroSetSplit} \end{tabular} -<>= +\begin{chunk}{package LAZM3PK LazardSetSolvingPackage} )abbrev package LAZM3PK LazardSetSolvingPackage ++ Author: Marc Moreno Maza ++ Date Created: 10/02/1998 @@ -54151,13 +54153,13 @@ LazardSetSolvingPackage(R,E,V,P,TS,ST): Exports == Implementation where toSave := removeSuperfluousQuasiComponents(toSave)$quasicomppack [normalizeIfCan(ts) for ts in toSave] -@ -<>= +\end{chunk} +\begin{chunk}{LAZM3PK.dotabb} "LAZM3PK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LAZM3PK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "LAZM3PK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LEADCDET LeadingCoefDetermination} \pagehead{LeadingCoefDetermination}{LEADCDET} @@ -54169,7 +54171,7 @@ LazardSetSolvingPackage(R,E,V,P,TS,ST): Exports == Implementation where \cross{LEADCDET}{polCase} \end{tabular} -<>= +\begin{chunk}{package LEADCDET LeadingCoefDetermination} )abbrev package LEADCDET LeadingCoefDetermination ++ Author : P.Gianni, May 1990 ++ Description: @@ -54281,16 +54283,16 @@ LeadingCoefDetermination(OV,E,Z,P) : C == T contm =1 => [[vlp.i*aux.i for i in 1..nf],1,unilist]$LeadFact distribute(contm,unilist,aux,vlp,lvar,lval) -@ -<>= +\end{chunk} +\begin{chunk}{LEADCDET.dotabb} "LEADCDET" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LEADCDET"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LEADCDET" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LEXTRIPK LexTriangularPackage} -<>= +\begin{chunk}{LexTriangularPackage.input} )set break resume )spool LexTriangularPackage.output )set message test on @@ -56046,8 +56048,8 @@ concat [realSolve(ts)$zdpack for ts in lts] --E 22 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LexTriangularPackage.help} ==================================================================== LexTriangularPackage examples ==================================================================== @@ -57728,7 +57730,7 @@ o )help RealClosure o )help Fraction o )show LexTriangularPackage -@ +\end{chunk} \pagehead{LexTriangularPackage}{LEXTRIPK} \pagepic{ps/v104lextriangularpackage.ps}{LEXTRIPK}{1.00} @@ -57742,7 +57744,7 @@ o )show LexTriangularPackage \cross{LEXTRIPK}{zeroSetSplit} \end{tabular} -<>= +\begin{chunk}{package LEXTRIPK LexTriangularPackage} )abbrev package LEXTRIPK LexTriangularPackage ++ Author: Marc Moreno Maza ++ Date Created: 08/02/1999 @@ -57965,13 +57967,13 @@ LexTriangularPackage(R,ls): Exports == Implementation where error "zeroSetSplit$LEXTRIPK: #1 not zero-dimensional" squareFreeLexTriangular(bar::(List P),norm?) -@ -<>= +\end{chunk} +\begin{chunk}{LEXTRIPK.dotabb} "LEXTRIPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LEXTRIPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "LEXTRIPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LINDEP LinearDependence} \pagehead{LinearDependence}{LINDEP} @@ -57984,7 +57986,7 @@ LexTriangularPackage(R,ls): Exports == Implementation where \cross{LINDEP}{solveLinear} \end{tabular} -<>= +\begin{chunk}{package LINDEP LinearDependence} )abbrev package LINDEP LinearDependence ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -58058,13 +58060,13 @@ LinearDependence(S, R): Exports == Implementation where )$LinearSystemMatrixPackage(Q, Vector Q, Vector Q, Matrix Q) -@ -<>= +\end{chunk} +\begin{chunk}{LINDEP.dotabb} "LINDEP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LINDEP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LINDEP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LODOF LinearOrdinaryDifferentialOperatorFactorizer} \pagehead{LinearOrdinaryDifferentialOperatorFactorizer}{LODOF} @@ -58076,7 +58078,7 @@ LinearDependence(S, R): Exports == Implementation where \cross{LODOF}{factor1} \end{tabular} -<>= +\begin{chunk}{package LODOF LinearOrdinaryDifferentialOperatorFactorizer} )abbrev package LODOF LinearOrdinaryDifferentialOperatorFactorizer ++ Author: Fritz Schwarz, Manuel Bronstein ++ Date Created: 1988 @@ -58200,13 +58202,13 @@ LinearOrdinaryDifferentialOperatorFactorizer(F, UP): Exports == Impl where factor1 l == innerFactor(l,(p:UP):List(F)+->zro(p,squareFree),squareFree,false) -@ -<>= +\end{chunk} +\begin{chunk}{LODOF.dotabb} "LODOF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LODOF"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "LODOF" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LODOOPS LinearOrdinaryDifferentialOperatorsOps} \pagehead{LinearOrdinaryDifferentialOperatorsOps}{LODOOPS} @@ -58219,7 +58221,7 @@ LinearOrdinaryDifferentialOperatorFactorizer(F, UP): Exports == Impl where \cross{LODOOPS}{symmetricProduct} \end{tabular} -<>= +\begin{chunk}{package LODOOPS LinearOrdinaryDifferentialOperatorsOps} )abbrev package LODOOPS LinearOrdinaryDifferentialOperatorsOps ++ Author: Manuel Bronstein ++ Date Created: 18 January 1994 @@ -58322,13 +58324,13 @@ LinearOrdinaryDifferentialOperatorsOps(A, L): Exports == Implementation where l := reductum l p -@ -<>= +\end{chunk} +\begin{chunk}{LODOOPS.dotabb} "LODOOPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LODOOPS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "LODOOPS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LPEFRAC LinearPolynomialEquationByFractions} \pagehead{LinearPolynomialEquationByFractions}{LPEFRAC} @@ -58337,7 +58339,7 @@ LinearOrdinaryDifferentialOperatorsOps(A, L): Exports == Implementation where {\bf Exports:}\\ \cross{LPEFRAC}{solveLinearPolynomialEquationByFractions} -<>= +\begin{chunk}{package LPEFRAC LinearPolynomialEquationByFractions} )abbrev package LPEFRAC LinearPolynomialEquationByFractions ++ Author: James Davenport ++ Date Created: @@ -58390,16 +58392,16 @@ LinearPolynomialEquationByFractions(R:PolynomialFactorizationExplicit): with vv) for v in ans] -@ -<>= +\end{chunk} +\begin{chunk}{LPEFRAC.dotabb} "LPEFRAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LPEFRAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LPEFRAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LISYSER LinearSystemFromPowerSeriesPackage} -<>= +\begin{chunk}{LinearSystemFromPowerSeriesPackage.input} )set break resume )sys rm -f LinearSystemFromPowerSeriesPackage.output )spool LinearSystemFromPowerSeriesPackage.output @@ -58423,9 +58425,9 @@ LinearPolynomialEquationByFractions(R:PolynomialFactorizationExplicit): with )spool )lisp (bye) -@ +\end{chunk} -<>= +\begin{chunk}{LinearSystemFromPowerSeriesPackage.help} ==================================================================== LinearSystemFromPowerSeriesPackage examples ==================================================================== @@ -58433,7 +58435,7 @@ LinearSystemFromPowerSeriesPackage examples See Also: o )show LinearSystemFromPowerSeriesPackage -@ +\end{chunk} \pagehead{LinearSystemFromPowerSeriesPackage}{LISYSER} \pagepic{ps/v104linearsystemfrompowerseriespackage.ps}{LISYSER}{1.00} @@ -58444,7 +58446,7 @@ o )show LinearSystemFromPowerSeriesPackage \cross{LISYSER}{finiteSeries2Vector} \end{tabular} -<>= +\begin{chunk}{package LISYSER LinearSystemFromPowerSeriesPackage} )abbrev package LISYSER LinearSystemFromPowerSeriesPackage ++ Authors: Gaetan Hache ++ Date Created: 1996 @@ -58509,13 +58511,13 @@ LinearSystemFromPowerSeriesPackage(K,PCS):P==T where lZero -@ -<>= +\end{chunk} +\begin{chunk}{LISYSER.dotabb} "LISYSER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LISYSER"] "LOCPOWC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LOCPOWC"] "LISYSER" -> "LOCPOWC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LSMP LinearSystemMatrixPackage} \pagehead{LinearSystemMatrixPackage}{LSMP} @@ -58529,7 +58531,7 @@ LinearSystemFromPowerSeriesPackage(K,PCS):P==T where \cross{LSMP}{solve} \end{tabular} -<>= +\begin{chunk}{package LSMP LinearSystemMatrixPackage} )abbrev package LSMP LinearSystemMatrixPackage ++ Author: P.Gianni, S.Watt ++ Date Created: Summer 1985 @@ -58621,13 +58623,13 @@ LinearSystemMatrixPackage(F, Row, Col, M): Cat == Capsule where [[aSolution rowEchelon systemMatrix(A, b), nl] for b in rest l]) -@ -<>= +\end{chunk} +\begin{chunk}{LSMP.dotabb} "LSMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LSMP"] "MATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MATCAT"] "LSMP" -> "MATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LSMP1 LinearSystemMatrixPackage1} \pagehead{LinearSystemMatrixPackage1}{LSMP1} @@ -58641,7 +58643,7 @@ LinearSystemMatrixPackage(F, Row, Col, M): Cat == Capsule where \cross{LSMP1}{solve} \end{tabular} -<>= +\begin{chunk}{package LSMP1 LinearSystemMatrixPackage1} )abbrev package LSMP1 LinearSystemMatrixPackage1 ++ Author: R. Sutor ++ Date Created: June, 1994 @@ -58706,13 +58708,13 @@ LinearSystemMatrixPackage1(F): Cat == Capsule where hasSolution?(m :M, c : Col): Boolean == hasSolution?(m, c)$LSMP rank(m : M, c : Col): N == rank(m, c)$LSMP -@ -<>= +\end{chunk} +\begin{chunk}{LSMP1.dotabb} "LSMP1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LSMP1"] "VECTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=VECTCAT"] "LSMP1" -> "VECTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LSPP LinearSystemPolynomialPackage} \pagehead{LinearSystemPolynomialPackage}{LSPP} @@ -58721,7 +58723,7 @@ LinearSystemMatrixPackage1(F): Cat == Capsule where {\bf Exports:}\\ \cross{LSPP}{linSolve} -<>= +\begin{chunk}{package LSPP LinearSystemPolynomialPackage} )abbrev package LSPP LinearSystemPolynomialPackage ++ Author: P.Gianni ++ Date Created: Summer 1985 @@ -58784,13 +58786,13 @@ LinearSystemPolynomialPackage(R, E, OV, P): Cat == Capsule where r := intoMatrix(ps, vs) solve(r.mat, r.vec)$LinearSystemMatrixPackage(F,V F,V F,M F) -@ -<>= +\end{chunk} +\begin{chunk}{LSPP.dotabb} "LSPP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LSPP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LSPP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LGROBP LinGroebnerPackage} \pagehead{LinGroebnerPackage}{LGROBP} @@ -58810,7 +58812,7 @@ LinearSystemPolynomialPackage(R, E, OV, P): Cat == Capsule where \cross{LGROBP}{transform} \end{tabular} -<>= +\begin{chunk}{package LGROBP LinGroebnerPackage} )abbrev package LGROBP LinGroebnerPackage ++ Description: ++ Given a Groebner basis B with respect to the total degree ordering for @@ -59118,18 +59120,18 @@ LinGroebnerPackage(lv,F) : C == T LL:= groebner(LL) [LL,ll]$cLVars -@ -<>= +\end{chunk} +\begin{chunk}{LGROBP.dotabb} "LGROBP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LGROBP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LGROBP" -> "DIRPCAT" "LGROBP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LOP LinesOpPack} -<>= +\begin{chunk}{LinesOpPack.input} )set break resume )sys rm -f LinesOpPack.output )spool LinesOpPack.output @@ -59156,8 +59158,8 @@ LinGroebnerPackage(lv,F) : C == T )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LinesOpPack.help} ==================================================================== LinesOpPack examples ==================================================================== @@ -59165,7 +59167,7 @@ LinesOpPack examples See Also: o )show LinesOpPack -@ +\end{chunk} \pagehead{LinesOpPack}{LOP} \pagepic{ps/v104linesoppack.eps}{LOP}{1.00} @@ -59179,7 +59181,7 @@ o )show LinesOpPack \cross{LOP}{rowEchWoZeroLinesWOVectorise} \end{tabular} -<>= +\begin{chunk}{package LOP LinesOpPack} )abbrev package LOP LinesOpPack ++ Authors: G. Hache ++ Date Created: 21 sept 1994 @@ -59273,13 +59275,13 @@ LinesOpPack(K):P==T where mcopy:=concat([mcopy.k for k in 1..i] :: List(List(K)),newBottom) mcopy -@ -<>= +\end{chunk} +\begin{chunk}{LOP.dotabb} "LOP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LOP"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "LOP" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LF LiouvillianFunction} \pagehead{LiouvillianFunction}{LF} @@ -59299,7 +59301,7 @@ LinesOpPack(K):P==T where \cross{LF}{Si} \end{tabular} -<>= +\begin{chunk}{package LF LiouvillianFunction} )abbrev package LF LiouvillianFunction ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -59504,13 +59506,13 @@ LiouvillianFunction(R, F): Exports == Implementation where setProperty(opint, SPECIALINPUT, inint@(List F -> INP) pretend None) setProperty(opdint, SPECIALINPUT, indint@(List F -> INP) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{LF.dotabb} "LF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "LF" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LIST2 ListFunctions2} \pagehead{ListFunctions2}{LIST2} @@ -59523,7 +59525,7 @@ LiouvillianFunction(R, F): Exports == Implementation where \cross{LIST2}{scan} \end{tabular} -<>= +\begin{chunk}{package LIST2 ListFunctions2} )abbrev package LIST2 ListFunctions2 ++ Author: ++ Date Created: @@ -59570,13 +59572,13 @@ ListFunctions2(A:Type, B:Type): public == private where scan(f, l, b) == scan(f, l, b)$O2 reduce(f, l, b) == reduce(f, l, b)$O2 -@ -<>= +\end{chunk} +\begin{chunk}{LIST2.dotabb} "LIST2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LIST2"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "LIST2" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LIST3 ListFunctions3} \pagehead{ListFunctions3}{LIST3} @@ -59585,7 +59587,7 @@ ListFunctions2(A:Type, B:Type): public == private where {\bf Exports:}\\ \cross{LIST3}{map} -<>= +\begin{chunk}{package LIST3 ListFunctions3} )abbrev package LIST3 ListFunctions3 ++ Author: ++ Date Created: @@ -59620,13 +59622,13 @@ ListFunctions3(A:Type, B:Type, C:Type): public == private where empty?(la) or empty?(lb) => empty()$LC concat(fn(first la, first lb), map(fn, rest la, rest lb)) -@ -<>= +\end{chunk} +\begin{chunk}{LIST3.dotabb} "LIST3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LIST3"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "LIST3" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LIST2MAP ListToMap} \pagehead{ListToMap}{LIST2MAP} @@ -59635,7 +59637,7 @@ ListFunctions3(A:Type, B:Type, C:Type): public == private where {\bf Exports:}\\ \cross{LIST2MAP}{match} -<>= +\begin{chunk}{package LIST2MAP ListToMap} )abbrev package LIST2MAP ListToMap ++ Author: Manuel Bronstein ++ Date Created: 22 Mar 1988 @@ -59724,16 +59726,16 @@ ListToMap(A:SetCategory, B:Type): Exports == Implementation where (p := position(a, la)) < minIndex(la) => f a lb.p -@ -<>= +\end{chunk} +\begin{chunk}{LIST2MAP.dotabb} "LIST2MAP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LIST2MAP"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "LIST2MAP" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LPARSPT LocalParametrizationOfSimplePointPackage} -<>= +\begin{chunk}{LocalParametrizationOfSimplePointPackage.input} )set break resume )sys rm -f LocalParametrizationOfSimplePointPackage.output )spool LocalParametrizationOfSimplePointPackage.output @@ -59759,8 +59761,8 @@ ListToMap(A:SetCategory, B:Type): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{LocalParametrizationOfSimplePointPackage.help} ==================================================================== LocalParametrizationOfSimplePointPackage examples ==================================================================== @@ -59768,7 +59770,7 @@ LocalParametrizationOfSimplePointPackage examples See Also: o )show LocalParametrizationOfSimplePointPackage -@ +\end{chunk} \pagehead{LocalParametrizationOfSimplePointPackage}{LPARSPT} \pagepic{ps/v104localparametrizationofsimplepointpackage.eps}{LPARSPT}{1.00} @@ -59781,7 +59783,7 @@ o )show LocalParametrizationOfSimplePointPackage \cross{LPARSPT}{pointToPlace} \end{tabular} -<>= +\begin{chunk}{package LPARSPT LocalParametrizationOfSimplePointPackage} )abbreviation package LPARSPT LocalParametrizationOfSimplePointPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -60024,15 +60026,15 @@ LocalParametrizationOfSimplePointPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc):_ curve2:=coerceToUPUP(recBlowUp.crv,recBlowUp.chart) [f2,curve2] -@ -<>= +\end{chunk} +\begin{chunk}{LPARSPT.dotabb} "LPARSPT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LPARSPT"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LPARSPT" -> "DIRPCAT" "LPARSPT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter M} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -60046,7 +60048,7 @@ LocalParametrizationOfSimplePointPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc):_ \cross{MKBCFUNC}{compiledFunction} \end{tabular} -<>= +\begin{chunk}{package MKBCFUNC MakeBinaryCompiledFunction} )abbrev package MKBCFUNC MakeBinaryCompiledFunction ++ Author: Manuel Bronstein ++ Date Created: 1 Dec 1988 @@ -60083,15 +60085,15 @@ MakeBinaryCompiledFunction(S, D1, D2, I):Exports == Implementation where t := [devaluate(D1)$Lisp, devaluate(D2)$Lisp]$List(InputForm) binaryFunction compile(function(e, declare DI, x, y), t) -@ -<>= +\end{chunk} +\begin{chunk}{MKBCFUNC.dotabb} "MKBCFUNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MKBCFUNC"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "MKBCFUNC" -> "KONVERT" "MKBCFUNC" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MKFLCFN MakeFloatCompiledFunction} \pagehead{MakeFloatCompiledFunction}{MKFLCFN} @@ -60101,7 +60103,7 @@ MakeBinaryCompiledFunction(S, D1, D2, I):Exports == Implementation where \begin{tabular}{lllll} \end{tabular} -<>= +\begin{chunk}{package MKFLCFN MakeFloatCompiledFunction} )abbrev package MKFLCFN MakeFloatCompiledFunction ++ Author: Manuel Bronstein ++ Date Created: 2 Mar 1990 @@ -60224,16 +60226,16 @@ MakeFloatCompiledFunction(S): Exports == Implementation where _*(a, EXPT(b, e)$Lisp)$Lisp pretend INF "failed" -@ -<>= +\end{chunk} +\begin{chunk}{MKFLCFN.dotabb} "MKFLCFN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MKFLCFN"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "MKFUNC" -> "KONVERT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MKFUNC MakeFunction} -<>= +\begin{chunk}{MakeFunction.input} )set break resume )spool MakeFunction.output )set message test on @@ -60347,8 +60349,8 @@ h(m1, m2) --E 9 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MakeFunction.help} ==================================================================== MakeFunction examples ==================================================================== @@ -60438,14 +60440,14 @@ are defined. See Also: o )show MakeFunction -@ +\end{chunk} \pagehead{MakeFunction}{MKFUNC} \pagepic{ps/v104makefunction.ps}{MKFUNC}{1.00} {\bf Exports:}\\ \cross{MKFUNC}{function} -<>= +\begin{chunk}{package MKFUNC MakeFunction} )abbrev package MKFUNC MakeFunction ++ Author: Manuel Bronstein ++ Date Created: 22 Nov 1988 @@ -60477,13 +60479,13 @@ MakeFunction(S:ConvertibleTo InputForm): Exports == Implementation where interpret function(convert s, args, name)$InputForm name -@ -<>= +\end{chunk} +\begin{chunk}{MKFUNC.dotabb} "MKFUNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MKFUNC"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "MKFUNC" -> "KONVERT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MKRECORD MakeRecord} \pagehead{MakeRecord}{MKRECORD} @@ -60492,7 +60494,7 @@ MakeFunction(S:ConvertibleTo InputForm): Exports == Implementation where {\bf Exports:}\\ \cross{MKRECORD}{makeRecord} -<>= +\begin{chunk}{package MKRECORD MakeRecord} )abbrev package MKRECORD MakeRecord ++ Description: ++ MakeRecord is used internally by the interpreter to create record @@ -60508,15 +60510,15 @@ MakeRecord(S: Type, T: Type): public == private where makeRecord(s: S, t: T) == [s,t]$Record(part1: S, part2: T) -@ -<>= +\end{chunk} +\begin{chunk}{MKRECORD.dotabb} "MKRECORD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MKRECORD"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "MKUCFUNC" -> "KONVERT" "MKUCFUNC" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MKUCFUNC MakeUnaryCompiledFunction} \pagehead{MakeUnaryCompiledFunction}{MKUCFUNC} @@ -60528,7 +60530,7 @@ MakeRecord(S: Type, T: Type): public == private where \cross{MKUCFUNC}{compiledFunction} \end{tabular} -<>= +\begin{chunk}{package MKUCFUNC MakeUnaryCompiledFunction} )abbrev package MKUCFUNC MakeUnaryCompiledFunction ++ Author: Manuel Bronstein ++ Date Created: 1 Dec 1988 @@ -60566,15 +60568,15 @@ MakeUnaryCompiledFunction(S, D, I): Exports == Implementation where ]$List(InputForm) unaryFunction compile(function(e, declare DI, x), t) -@ -<>= +\end{chunk} +\begin{chunk}{MKUCFUNC.dotabb} "MKUCFUNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MKUCFUNC"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "MKUCFUNC" -> "KONVERT" "MKUCFUNC" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPHACK1 MappingPackageInternalHacks1} \pagehead{MappingPackageInternalHacks1}{MAPHACK1} @@ -60586,7 +60588,7 @@ MakeUnaryCompiledFunction(S, D, I): Exports == Implementation where \cross{MAPHACK1}{recur} \end{tabular} -<>= +\begin{chunk}{package MAPHACK1 MappingPackageInternalHacks1} )abbrev package MAPHACK1 MappingPackageInternalHacks1 ++ Author: S.M.Watt and W.H.Burge ++ Date Created:Jan 87 @@ -60618,15 +60620,15 @@ MappingPackageInternalHacks1(A: SetCategory): MPcat == MPdef where for i in 1..n repeat x := g(i,x) -- g(n,g(n-1,..g(1,x)..)) x -@ -<>= +\end{chunk} +\begin{chunk}{MAPHACK1.dotabb} "MAPHACK1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPHACK1"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPHACK1" -> "BASTYPE" "MAPHACK1" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPHACK2 MappingPackageInternalHacks2} \pagehead{MappingPackageInternalHacks2}{MAPHACK2} @@ -60638,7 +60640,7 @@ MappingPackageInternalHacks1(A: SetCategory): MPcat == MPdef where \cross{MAPHACK2}{arg2} \end{tabular} -<>= +\begin{chunk}{package MAPHACK2 MappingPackageInternalHacks2} )abbrev package MAPHACK2 MappingPackageInternalHacks2 ++ Description: ++ Various Currying operations. @@ -60657,15 +60659,15 @@ MappingPackageInternalHacks2(A: SetCategory, C: SetCategory):_ arg1(a, c) == a arg2(a, c) == c -@ -<>= +\end{chunk} +\begin{chunk}{MAPHACK2.dotabb} "MAPHACK2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPHACK2"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPHACK2" -> "BASTYPE" "MAPHACK2" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPHACK3 MappingPackageInternalHacks3} \pagehead{MappingPackageInternalHacks3}{MAPHACK3} @@ -60674,7 +60676,7 @@ MappingPackageInternalHacks2(A: SetCategory, C: SetCategory):_ {\bf Exports:}\\ \cross{MAPHACK3}{comp} -<>= +\begin{chunk}{package MAPHACK3 MappingPackageInternalHacks3} )abbrev package MAPHACK3 MappingPackageInternalHacks3 ++ Description: ++ Various Currying operations. @@ -60690,18 +60692,18 @@ MappingPackageInternalHacks3(A: SetCategory, B: SetCategory, C: SetCategory):_ MPdef == add comp(g,h,x) == g h x -@ -<>= +\end{chunk} +\begin{chunk}{MAPHACK3.dotabb} "MAPHACK3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPHACK3"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPHACK3" -> "BASTYPE" "MAPHACK3" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG1 MappingPackage1} -<>= +\begin{chunk}{MappingPackage1.input} )set break resume )spool MappingPackage1.output )set message test on @@ -60941,8 +60943,8 @@ fibs := curry(shiftfib, fibinit) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MappingPackage1.help} ==================================================================== MappingPackage examples ==================================================================== @@ -61118,7 +61120,7 @@ o )help MappingPackage2 o )help MappingPackage3 o )help MappingPackage4 -@ +\end{chunk} \pagehead{MappingPackage1}{MAPPKG1} \pagepic{ps/v104mappingpackage1.ps}{MAPPKG1}{1.00} @@ -61132,7 +61134,7 @@ o )help MappingPackage4 \cross{MAPPKG1}{?**?} \end{tabular} -<>= +\begin{chunk}{package MAPPKG1 MappingPackage1} )abbrev package MAPPKG1 MappingPackage1 ++ Author: S.M.Watt and W.H.Burge ++ Date Created:Jan 87 @@ -61207,18 +61209,18 @@ MappingPackage1(A:SetCategory): MPcat == MPdef where recur fnaa == (n1:NNI,a2:A):A +-> recur(fnaa, n1, a2) -@ -<>= +\end{chunk} +\begin{chunk}{MAPPKG1.dotabb} "MAPPKG1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPPKG1"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPPKG1" -> "BASTYPE" "MAPPKG1" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG2 MappingPackage2} -<>= +\begin{chunk}{MappingPackage2.input} )set break resume )spool MappingPackage2.output )set message test on @@ -61455,8 +61457,8 @@ fibs := curry(shiftfib, fibinit) --E 26 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MappingPackage2.help} ==================================================================== MappingPackage examples ==================================================================== @@ -61632,7 +61634,7 @@ o )show MappingPackage2 o )help MappingPackage3 o )help MappingPackage4 -@ +\end{chunk} \pagehead{MappingPackage2}{MAPPKG2} \pagepic{ps/v104mappingpackage2.ps}{MAPPKG2}{1.00} @@ -61644,7 +61646,7 @@ o )help MappingPackage4 \cross{MAPPKG2}{diag} \end{tabular} -<>= +\begin{chunk}{package MAPPKG2 MappingPackage2} )abbrev package MAPPKG2 MappingPackage2 ++ Description: ++ Various Currying operations. @@ -61685,18 +61687,18 @@ MappingPackage2(A:SetCategory, C:SetCategory): MPcat == MPdef where constant f0c == (a1:A):C +-> arg2(a1, f0c()) diag faac == (a1:A):C +-> faac(a1, a1) -@ -<>= +\end{chunk} +\begin{chunk}{MAPPKG2.dotabb} "MAPPKG2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPPKG2"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPPKG2" -> "BASTYPE" "MAPPKG2" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG3 MappingPackage3} -<>= +\begin{chunk}{MappingPackage3.input} )set break resume )spool MappingPackage3.output )set message test on @@ -61933,8 +61935,8 @@ fibs := curry(shiftfib, fibinit) --E 26 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MappingPackage3.help} ==================================================================== MappingPackage examples ==================================================================== @@ -62110,7 +62112,7 @@ o )help MappingPackage2 o )show MappingPackage3 o )help MappingPackage4 -@ +\end{chunk} \pagehead{MappingPackage3}{MAPPKG3} \pagepic{ps/v104MappingPackage3.ps}{MAPPKG3}{1.00} @@ -62124,7 +62126,7 @@ o )help MappingPackage4 \cross{MAPPKG3}{?*?} \end{tabular} -<>= +\begin{chunk}{package MAPPKG3 MappingPackage3} )abbrev package MAPPKG3 MappingPackage3 ++ Description: ++ Various Currying operations. @@ -62186,18 +62188,18 @@ MappingPackage3(A:SetCategory, B:SetCategory, C:SetCategory):_ -- Functional composition fbc*fab == (a:A):C +-> comp(fbc,fab,a) -@ -<>= +\end{chunk} +\begin{chunk}{MAPPKG3.dotabb} "MAPPKG3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPPKG3"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "MAPPKG3" -> "BASTYPE" "MAPPKG3" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MAPPKG4 MappingPackage4} -<>= +\begin{chunk}{MappingPackage4.input} )set break resume )spool MappingPackage4.output )set message test on @@ -62372,8 +62374,8 @@ h:=(x:EXPR(INT)):EXPR(INT)+->1 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{MappingPackage4.help} ==================================================================== MappingPackage examples ==================================================================== @@ -62446,7 +62448,7 @@ o )help MappingPackage2 o )help MappingPackage3 o )help MappingPackage4 -@ +\end{chunk} \pagehead{MappingPackage4}{MAPPKG4} \pagepic{ps/v104mappingpackage4.ps}{MAPPKG4}{1.00} @@ -62458,7 +62460,7 @@ o )help MappingPackage4 \cross{MAPPKG4}{?/?} \end{tabular} -<>= +\begin{chunk}{package MAPPKG4 MappingPackage4} )abbrev package MAPPKG4 MappingPackage4 ++ Author: Timothy Daly ++ Description: @@ -62513,15 +62515,15 @@ MappingPackage4(A:SetCategory, B:Ring): (a:faei)/(b:faei) == c +-> funcDiv(a,b,c) -@ -<>= +\end{chunk} +\begin{chunk}{MAPPKG4.dotabb} "MAPPKG4" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MAPPKG4"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "MAPPKG4" -> "PID" "MAPPKG4" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MATCAT2 MatrixCategoryFunctions2} \pagehead{MatrixCategoryFunctions2}{MATCAT2} @@ -62533,7 +62535,7 @@ MappingPackage4(A:SetCategory, B:Ring): \cross{MATCAT2}{reduce} \end{tabular} -<>= +\begin{chunk}{package MATCAT2 MatrixCategoryFunctions2} )abbrev package MATCAT2 MatrixCategoryFunctions2 ++ Author: Clifton J. Williamson ++ Date Created: 21 November 1989 @@ -62599,13 +62601,13 @@ MatrixCategoryFunctions2(R1,Row1,Col1,M1,R2,Row2,Col2,M2):_ s := f(qelt(m,i,j),s) s -@ -<>= +\end{chunk} +\begin{chunk}{MATCAT2.dotabb} "MATCAT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MATCAT2"] "MATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MATCAT"] "MATCAT2" -> "MATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MCDEN MatrixCommonDenominator} \pagehead{MatrixCommonDenominator}{MCDEN} @@ -62618,7 +62620,7 @@ MatrixCategoryFunctions2(R1,Row1,Col1,M1,R2,Row2,Col2,M2):_ \cross{MCDEN}{splitDenominator} \end{tabular} -<>= +\begin{chunk}{package MCDEN MatrixCommonDenominator} )abbrev package MCDEN MatrixCommonDenominator ++ Author: Manuel Bronstein ++ Date Created: 2 May 1988 @@ -62664,13 +62666,13 @@ MatrixCommonDenominator(R, Q): Exports == Implementation where else commonDenominator m == reduce("*",map(denom, parts m),1)$List(R) -@ -<>= +\end{chunk} +\begin{chunk}{MCDEN.dotabb} "MCDEN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MCDEN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MCDEN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MATLIN MatrixLinearAlgebraFunctions} \pagehead{MatrixLinearAlgebraFunctions}{MATLIN} @@ -62694,7 +62696,7 @@ MatrixCommonDenominator(R, Q): Exports == Implementation where \cross{MATLIN}{rowEchelon} & \end{tabular} -<>= +\begin{chunk}{package MATLIN MatrixLinearAlgebraFunctions} )abbrev package MATLIN MatrixLinearAlgebraFunctions ++ Author: Clifton J. Williamson, P.Gianni ++ Date Created: 13 November 1989 @@ -63026,13 +63028,13 @@ MatrixLinearAlgebraFunctions(R,Row,Col,M):Exports == Implementation where else determinant x == minordet x -@ -<>= +\end{chunk} +\begin{chunk}{MATLIN.dotabb} "MATLIN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MATLIN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MATLIN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MTHING MergeThing} \pagehead{MergeThing}{MTHING} @@ -63041,7 +63043,7 @@ MatrixLinearAlgebraFunctions(R,Row,Col,M):Exports == Implementation where {\bf Exports:}\\ \cross{MTHING}{mergeDifference} -<>= +\begin{chunk}{package MTHING MergeThing} )abbrev package MTHING MergeThing ++ Description: ++ This package exports tools for merging lists @@ -63074,13 +63076,13 @@ MergeThing(S:OrderedSet): Exports == Implementation where ry := ry.rest x := rx -@ -<>= +\end{chunk} +\begin{chunk}{MTHING.dotabb} "MTHING" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MTHING"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "MTHING" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MESH MeshCreationRoutinesForThreeDimensions} \pagehead{MeshCreationRoutinesForThreeDimensions}{MESH} @@ -63094,7 +63096,7 @@ MergeThing(S:OrderedSet): Exports == Implementation where \cross{MESH}{ptFunc} \end{tabular} -<>= +\begin{chunk}{package MESH MeshCreationRoutinesForThreeDimensions} )abbrev package MESH MeshCreationRoutinesForThreeDimensions ++ Author: Jim Wen ++ Date Created: ?? @@ -63230,15 +63232,15 @@ MeshCreationRoutinesForThreeDimensions():Exports == Implementation where meshPar2Var((z1:SF,z2:SF):SF +-> z1, (x1:SF,x2:SF):SF +-> x2,zFun,colorFun,xSeg,ySeg,opts) -@ -<>= +\end{chunk} +\begin{chunk}{MESH.dotabb} "MESH" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MESH"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "MESH" -> "FIELD" "MESH" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MDDFACT ModularDistinctDegreeFactorizer} \pagehead{ModularDistinctDegreeFactorizer}{MDDFACT} @@ -63254,7 +63256,7 @@ MeshCreationRoutinesForThreeDimensions():Exports == Implementation where \cross{MDDFACT}{separateFactors} \end{tabular} -<>= +\begin{chunk}{package MDDFACT ModularDistinctDegreeFactorizer} )abbrev package MDDFACT ModularDistinctDegreeFactorizer ++ Author: Barry Trager ++ Date Created: @@ -63479,13 +63481,13 @@ ModularDistinctDegreeFactorizer(U):C == T where d:= d - 1 tt -@ -<>= +\end{chunk} +\begin{chunk}{MDDFACT.dotabb} "MDDFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MDDFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MDDFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MHROWRED ModularHermitianRowReduction} \pagehead{ModularHermitianRowReduction}{MHROWRED} @@ -63500,7 +63502,7 @@ ModularDistinctDegreeFactorizer(U):C == T where \cross{MHROWRED}{rowEchelonLocal} \end{tabular} -<>= +\begin{chunk}{package MHROWRED ModularHermitianRowReduction} )abbrev package MHROWRED ModularHermitianRowReduction ++ Author: Manuel Bronstein ++ Date Created: 22 February 1989 @@ -63742,13 +63744,13 @@ ModularHermitianRowReduction(R): Exports == Implementation where i := i+1 x -@ -<>= +\end{chunk} +\begin{chunk}{MHROWRED.dotabb} "MHROWRED" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MHROWRED"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "MHROWRED" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MRF2 MonoidRingFunctions2} \pagehead{MonoidRingFunctions2}{MRF2} @@ -63757,7 +63759,7 @@ ModularHermitianRowReduction(R): Exports == Implementation where {\bf Exports:}\\ \cross{MRF2}{map} -<>= +\begin{chunk}{package MRF2 MonoidRingFunctions2} )abbrev package MRF2 MonoidRingFunctions2 ++ Author: Johannes Grabmeier ++ Date Created: 14 May 1991 @@ -63788,15 +63790,15 @@ MonoidRingFunctions2(R,S,M) : Exports == Implementation where res := res + monomial(fn(te.coef), te.monom) res -@ -<>= +\end{chunk} +\begin{chunk}{MRF2.dotabb} "MRF2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MRF2"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "MRF2" -> "LMODULE" "MRF2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MONOTOOL MonomialExtensionTools} \pagehead{MonomialExtensionTools}{MONOTOOL} @@ -63810,7 +63812,7 @@ MonoidRingFunctions2(R,S,M) : Exports == Implementation where \cross{MONOTOOL}{splitSquarefree} \end{tabular} -<>= +\begin{chunk}{package MONOTOOL MonomialExtensionTools} )abbrev package MONOTOOL MonomialExtensionTools ++ Author: Manuel Bronstein ++ Date Created: 18 August 1992 @@ -63882,13 +63884,13 @@ MonomialExtensionTools(F, UP): Exports == Implementation where qr.remainder)::Record(coef1:UP, coef2:UP) [qr.quotient, eeu.coef2 / rec.normal, eeu.coef1 / rec.special] -@ -<>= +\end{chunk} +\begin{chunk}{MONOTOOL.dotabb} "MONOTOOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MONOTOOL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MONOTOOL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MSYSCMD MoreSystemCommands} \pagehead{MoreSystemCommands}{MSYSCMD} @@ -63897,7 +63899,7 @@ MonomialExtensionTools(F, UP): Exports == Implementation where {\bf Exports:}\\ \cross{MSYSCMD}{systemCommand} -<>= +\begin{chunk}{package MSYSCMD MoreSystemCommands} )abbrev package MSYSCMD MoreSystemCommands ++ Author: ++ Date Created: @@ -63927,13 +63929,13 @@ MoreSystemCommands: public == private where systemCommand cmd == doSystemCommand(cmd)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{MSYSCMD.dotabb} "MSYSCMD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MSYSCMD"] "Package" [color="#FF4488"] "MSYSCMD" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MPCPF MPolyCatPolyFactorizer} \pagehead{MPolyCatPolyFactorizer}{MPCPF} @@ -63942,7 +63944,7 @@ MoreSystemCommands: public == private where {\bf Exports:}\\ \cross{MPCPF}{factor} -<>= +\begin{chunk}{package MPCPF MPolyCatPolyFactorizer} )abbrev package MPCPF MPolyCatPolyFactorizer ++ Author: P. Gianni ++ Date Created: @@ -64002,13 +64004,13 @@ MPolyCatPolyFactorizer(E,OV,R,PPR) : C == T fcont:=(unit flist)::PPR nilFactor(c*fcont,1)*(_*/[primeFactor(ff.irr,ff.pow) for ff in ffact]) -@ -<>= +\end{chunk} +\begin{chunk}{MPCPF.dotabb} "MPCPF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MPCPF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MPCPF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MPRFF MPolyCatRationalFunctionFactorizer} \pagehead{MPolyCatRationalFunctionFactorizer}{MPRFF} @@ -64025,7 +64027,7 @@ MPolyCatPolyFactorizer(E,OV,R,PPR) : C == T \cross{MPRFF}{totalfract} &&& \end{tabular} -<>= +\begin{chunk}{package MPRFF MPolyCatRationalFunctionFactorizer} )abbrev package MPRFF MPolyCatRationalFunctionFactorizer ++ Author: P. Gianni ++ Date Created: @@ -64171,13 +64173,13 @@ MPolyCatRationalFunctionFactorizer(E,OV,R,PRF) : C == T g:F:=retract p [numer g,denom g]$QuoForm -@ -<>= +\end{chunk} +\begin{chunk}{MPRFF.dotabb} "MPRFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MPRFF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MPRFF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MPC2 MPolyCatFunctions2} \pagehead{MPolyCatFunctions2}{MPC2} @@ -64189,7 +64191,7 @@ MPolyCatRationalFunctionFactorizer(E,OV,R,PRF) : C == T \cross{MPC2}{reshape} \end{tabular} -<>= +\begin{chunk}{package MPC2 MPolyCatFunctions2} )abbrev package MPC2 MPolyCatFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -64232,13 +64234,13 @@ MPolyCatFunctions2(VarSet,E1,E2,R,S,PR,PS) : public == private where supr : SUPR := univariate(pr,var)$PR multivariate(supMap(fn,supr),var)$PS -@ -<>= +\end{chunk} +\begin{chunk}{MPC2.dotabb} "MPC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MPC2"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MPC2" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MPC3 MPolyCatFunctions3} \pagehead{MPolyCatFunctions3}{MPC3} @@ -64247,7 +64249,7 @@ MPolyCatFunctions2(VarSet,E1,E2,R,S,PR,PS) : public == private where {\bf Exports:}\\ \cross{MPC3}{map} -<>= +\begin{chunk}{package MPC3 MPolyCatFunctions3} )abbrev package MPC3 MPolyCatFunctions3 ++ Description: ++ This package has no description @@ -64279,13 +64281,13 @@ MPolyCatFunctions3(Vars1,Vars2,E1,E2,R,PR1,PR2): C == T where up := reductum up ans -@ -<>= +\end{chunk} +\begin{chunk}{MPC3.dotabb} "MPC3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MPC3"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MPC3" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MRATFAC MRationalFactorize} \pagehead{MRationalFactorize}{MRATFAC} @@ -64294,7 +64296,7 @@ MPolyCatFunctions3(Vars1,Vars2,E1,E2,R,PR1,PR2): C == T where {\bf Exports:}\\ \cross{MRATFAC}{factor} -<>= +\begin{chunk}{package MRATFAC MRationalFactorize} )abbrev package MRATFAC MRationalFactorize ++ Author: P. Gianni ++ Date Created: @@ -64346,13 +64348,13 @@ MRationalFactorize(E,OV,R,P) : C == T _*/[primeFactor(map(coerce,coerce1,u.factor)$PCLRFR, u.exponent) for u in factors ffact] -@ -<>= +\end{chunk} +\begin{chunk}{MRATFAC.dotabb} "MRATFAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MRATFAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MRATFAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MFINFACT MultFiniteFactorize} \pagehead{MultFiniteFactorize}{MFINFACT} @@ -64361,7 +64363,7 @@ MRationalFactorize(E,OV,R,P) : C == T {\bf Exports:}\\ \cross{MFINFACT}{factor} -<>= +\begin{chunk}{package MFINFACT MultFiniteFactorize} )abbrev package MFINFACT MultFiniteFactorize ++ Author: P. Gianni ++ Date Created: Summer 1990 @@ -64853,13 +64855,13 @@ MultFiniteFactorize(OV,E,F,PG) : C == T (*/[primeFactor(pushup(u.irr,basicVar),u.pow) for u in flist.factors]) -@ -<>= +\end{chunk} +\begin{chunk}{MFINFACT.dotabb} "MFINFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MFINFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MFINFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MMAP MultipleMap} \pagehead{MultipleMap}{MMAP} @@ -64868,7 +64870,7 @@ MultFiniteFactorize(OV,E,F,PG) : C == T {\bf Exports:}\\ \cross{MMAP}{map} -<>= +\begin{chunk}{package MMAP MultipleMap} )abbrev package MMAP MultipleMap ++ Author: Manuel Bronstein ++ Date Created: May 1988 @@ -64902,13 +64904,13 @@ MultipleMap(R1,UP1,UPUP1,R2,UP2,UPUP2): Exports == Implementation where map(x +-> rfmap(f,x), p)$UnivariatePolynomialCategoryFunctions2(Q1, UPUP1, Q2, UPUP2) -@ -<>= +\end{chunk} +\begin{chunk}{MMAP.dotabb} "MMAP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MMAP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MMAP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MCALCFN MultiVariableCalculusFunctions} \pagehead{MultiVariableCalculusFunctions}{MCALCFN} @@ -64925,7 +64927,7 @@ MultipleMap(R1,UP1,UPUP1,R2,UP2,UPUP2): Exports == Implementation where \cross{MCALCFN}{laplacian} &&& \end{tabular} -<>= +\begin{chunk}{package MCALCFN MultiVariableCalculusFunctions} )abbrev package MCALCFN MultiVariableCalculusFunctions ++ Author: Themos Tsikas, Grant Keady ++ Date Created: December 1992 @@ -65085,13 +65087,13 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where setelt(bandM,iw,j,D(vf(j+iw-1-ku),xlist(j))) ) ) bandM -@ -<>= +\end{chunk} +\begin{chunk}{MCALCFN.dotabb} "MCALCFN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MCALCFN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "MCALCFN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MULTFACT MultivariateFactorize} \pagehead{MultivariateFactorize}{MULTFACT} @@ -65100,7 +65102,7 @@ MultiVariableCalculusFunctions(S,F,FLAF,FLAS) : Exports == Implementation where {\bf Exports:}\\ \cross{MULTFACT}{factor} -<>= +\begin{chunk}{package MULTFACT MultivariateFactorize} )abbrev package MULTFACT MultivariateFactorize ++ Author: P. Gianni ++ Date Created: 1983 @@ -65154,16 +65156,16 @@ MultivariateFactorize(OV,E,R,P) : C == T factor(up:USP) : Factored USP == factor(up,factor$GenUFactorize(R))$InnerMultFact(OV,E,R,P) -@ -<>= +\end{chunk} +\begin{chunk}{MULTFACT.dotabb} "MULTFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MULTFACT"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "MULTFACT" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MLIFT MultivariateLifting} -<>= +\begin{chunk}{package MLIFT MultivariateLifting} )abbrev package MLIFT MultivariateLifting ++ Author : P.Gianni. ++ Description: @@ -65383,13 +65385,13 @@ MultivariateLifting(E,OV,R,P) : C == T lterm:=lterm.rest new -@ -<>= +\end{chunk} +\begin{chunk}{MLIFT.dotabb} "MLIFT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MLIFT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MLIFT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MULTSQFR MultivariateSquareFree} \pagehead{MultivariateSquareFree}{MULTSQFR} @@ -65411,7 +65413,7 @@ MultivariateLifting(E,OV,R,P) : C == T \cross{MULTSQFR}{univcase} &&& \end{tabular} -<>= +\begin{chunk}{package MULTSQFR MultivariateSquareFree} )abbrev package MULTSQFR MultivariateSquareFree ++ Author : P.Gianni ++ Description: @@ -65751,18 +65753,18 @@ MultivariateSquareFree (E,OV,R,P) : C == T where myDegree(f:SUP,lvar:List OV,exp:NNI) : List NNI== [n quo exp for n in degree(f,lvar)] -@ -<>= +\end{chunk} +\begin{chunk}{MULTSQFR.dotabb} "MULTSQFR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MULTSQFR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "MULTSQFR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter N} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGF02 NagEigenPackage} -<>= +\begin{chunk}{NagEigenPackage.help} F02 -- Eigenvalues and Eigenvectors Introduction -- F02 Chapter F02 @@ -69061,7 +69063,7 @@ MultivariateSquareFree (E,OV,R,P) : C == T where Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagEigenPackage}{NAGF02} \pagepic{ps/v104nageigenpackage.ps}{NAGF02}{1.00} @@ -69085,7 +69087,7 @@ MultivariateSquareFree (E,OV,R,P) : C == T where \cross{NAGF02}{f02xef} &&&& \end{tabular} -<>= +\begin{chunk}{package NAGF02 NagEigenPackage} )abbrev package NAGF02 NagEigenPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -69649,16 +69651,16 @@ NagEigenPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGF02.dotabb} "NAGF02" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGF02"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGE02" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGE02 NagFittingPackage} -<>= +\begin{chunk}{NagFittingPackage.help} E02 -- Curve and Surface Fitting Introduction -- E02 Chapter E02 @@ -76109,7 +76111,7 @@ NagEigenPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagFittingPackage}{NAGE02} \pagepic{ps/v104nagfittingpackage.ps}{NAGE02}{1.00} @@ -76135,7 +76137,7 @@ NagEigenPackage(): Exports == Implementation where \cross{NAGE02}{e02zaf} && \end{tabular} -<>= +\begin{chunk}{package NAGE02 NagFittingPackage} )abbrev package NAGE02 NagFittingPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -76748,16 +76750,16 @@ NagFittingPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGE02.dotabb} "NAGE02" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGE02"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGE02" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGF04 NagLinearEquationSolvingPackage} -<>= +\begin{chunk}{NagLinearEquationSolvingPackage.help} F04 -- Simultaneous Linear Equations Introduction -- F04 Chapter F04 @@ -80006,7 +80008,7 @@ NagFittingPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagLinearEquationSolvingPackage}{NAGF04} \pagepic{ps/v104naglinearequationsolvingpackage.ps}{NAGF04}{1.00} @@ -80025,7 +80027,7 @@ NagFittingPackage(): Exports == Implementation where \cross{NAGF04}{f04qaf} &&&& \end{tabular} -<>= +\begin{chunk}{package NAGF04 NagLinearEquationSolvingPackage} )abbrev package NAGF04 NagLinearEquationSolvingPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -80417,13 +80419,13 @@ NagLinearEquationSolvingPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGF04.dotabb} "NAGF04" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGF04"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "NAGF04" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGSP NAGLinkSupportPackage} \pagehead{NAGLinkSupportPackage}{NAGSP} @@ -80439,7 +80441,7 @@ NagLinearEquationSolvingPackage(): Exports == Implementation where \cross{NAGSP}{restorePrecision} && \end{tabular} -<>= +\begin{chunk}{package NAGSP NAGLinkSupportPackage} )abbrev package NAGSP NAGLinkSupportPackage ++ Author: Mike Dewar and Godfrey Nolan ++ Date Created: March 1993 @@ -80516,16 +80518,16 @@ NAGLinkSupportPackage() : exports == implementation where dimensionsOf(u:Symbol,m:Matrix Integer):SExpression == [u,nrows m,ncols m]$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{NAGSP.dotabb} "NAGSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGSP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGSP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGD01 NagIntegrationPackage} -<>= +\begin{chunk}{NagIntegrationPackage.help} D01(3NAG) Foundation Library (12/10/92) D01(3NAG) @@ -84356,7 +84358,7 @@ NAGLinkSupportPackage() : exports == implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagIntegrationPackage}{NAGD01} \pagepic{ps/v104nagintegrationpackage.ps}{NAGD01}{1.00} @@ -84376,7 +84378,7 @@ NAGLinkSupportPackage() : exports == implementation where \cross{NAGD01}{d01gbf} &&& \end{tabular} -<>= +\begin{chunk}{package NAGD01 NagIntegrationPackage} )abbrev package NAGD01 NagIntegrationPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -84800,16 +84802,16 @@ NagIntegrationPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGD01.dotabb} "NAGD01" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGD01"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGD01" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGE01 NagInterpolationPackage} -<>= +\begin{chunk}{NagInterpolationPackage.help} E01 -- Interpolation Introduction -- E01 Chapter E01 @@ -86731,7 +86733,7 @@ NagIntegrationPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagInterpolationPackage}{NAGE01} \pagepic{ps/v104naginterpolationpackage.ps}{NAGE01}{1.00} @@ -86749,7 +86751,7 @@ NagIntegrationPackage(): Exports == Implementation where \cross{NAGE01}{e01sff} \end{tabular} -<>= +\begin{chunk}{package NAGE01 NagInterpolationPackage} )abbrev package NAGE01 NagInterpolationPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -87044,16 +87046,16 @@ NagInterpolationPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGE01.dotabb} "NAGE01" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGE01"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGE01" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGF07 NagLapack} -<>= +\begin{chunk}{NagLapack.help} F07 -- Linear Equations (LAPACK) Introduction -- F07 Chapter F07 @@ -87739,7 +87741,7 @@ NagInterpolationPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagLapack}{NAGF07} \pagepic{ps/v104naglapack.ps}{NAGF07}{1.00} @@ -87751,7 +87753,7 @@ NagInterpolationPackage(): Exports == Implementation where \cross{NAGF07}{f07fef} \end{tabular} -<>= +\begin{chunk}{package NAGF07 NagLapack} )abbrev package NAGF07 NagLapack ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -87879,16 +87881,16 @@ NagLapack(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGF07.dotabb} "NAGF07" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGF07"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGF07" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGF01 NagMatrixOperationsPackage} -<>= +\begin{chunk}{NagMatrixOperationsPackage.help} F01 -- Matrix Factorization Introduction -- F01 Chapter F01 @@ -90667,7 +90669,7 @@ NagLapack(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagMatrixOperationsPackage}{NAGF01} \pagepic{ps/v104nagmatrixoperationspackage.ps}{NAGF01}{1.00} @@ -90685,7 +90687,7 @@ NagLapack(): Exports == Implementation where \cross{NAGF01}{f01ref} \end{tabular} -<>= +\begin{chunk}{package NAGF01 NagMatrixOperationsPackage} )abbrev package NAGF01 NagMatrixOperationsPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -91004,16 +91006,16 @@ NagMatrixOperationsPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGF01.dotabb} "NAGF01" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGF01"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "NAGF01" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGE04 NagOptimisationPackage} -<>= +\begin{chunk}{NagOptimisationPackage.help} E04 -- Minimizing or Maximizing a Function Introduction -- E04 Chapter E04 @@ -98563,7 +98565,7 @@ NagMatrixOperationsPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagOptimisationPackage}{NAGE04} \pagepic{ps/v104nagoptimisationpackage.ps}{NAGE04}{1.00} @@ -98579,7 +98581,7 @@ NagMatrixOperationsPackage(): Exports == Implementation where \cross{NAGE04}{e04ycf} && \end{tabular} -<>= +\begin{chunk}{package NAGE04 NagOptimisationPackage} )abbrev package NAGE04 NagOptimisationPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -98995,16 +98997,16 @@ NagOptimisationPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGE04.dotabb} "NAGE04" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGE04"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGE04" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGD02 NagOrdinaryDifferentialEquationsPackage} -<>= +\begin{chunk}{NagOrdinaryDifferentialEquationsPackage.help} D02(3NAG) Foundation Library (12/10/92) D02(3NAG) @@ -103479,7 +103481,7 @@ NagOptimisationPackage(): Exports == Implementation where Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagOrdinaryDifferentialEquationsPackage}{NAGD02} \pagepic{ps/v104nagordinarydifferentialequationspackage.ps}{NAGD02}{1.00} @@ -103496,7 +103498,7 @@ NagOptimisationPackage(): Exports == Implementation where \cross{NAGD02}{d02raf} & \end{tabular} -<>= +\begin{chunk}{package NAGD02 NagOrdinaryDifferentialEquationsPackage} )abbrev package NAGD02 NagOrdinaryDifferentialEquationsPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -103982,16 +103984,16 @@ NagOrdinaryDifferentialEquationsPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGD02.dotabb} "NAGD02" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGD02"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGD02" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGD03 NagPartialDifferentialEquationsPackage} -<>= +\begin{chunk}{NagPartialDifferentialEquationsPackage.help} D03 -- Partial Differential Equations Introduction -- D03 Chapter D03 @@ -105772,7 +105774,7 @@ NagOrdinaryDifferentialEquationsPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagPartialDifferentialEquationsPackage}{NAGD03} \pagepic{ps/v104nagpartialdifferentialequationspackage.ps}{NAGD03}{1.00} @@ -105783,7 +105785,7 @@ NagOrdinaryDifferentialEquationsPackage(): Exports == Implementation where \cross{NAGD03}{d03faf} \end{tabular} -<>= +\begin{chunk}{package NAGD03 NagPartialDifferentialEquationsPackage} )abbrev package NAGD03 NagPartialDifferentialEquationsPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -105943,16 +105945,16 @@ NagPartialDifferentialEquationsPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGD03.dotabb} "NAGD03" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGD03"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGD03" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGC02 NagPolynomialRootsPackage} -<>= +\begin{chunk}{NagPolynomialRootsPackage.help} C02(3NAG) Foundation Library (12/10/92) C02(3NAG) @@ -106630,7 +106632,7 @@ NagPartialDifferentialEquationsPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagPolynomialRootsPackage}{NAGC02} \pagepic{ps/v104nagpolynomialrootspackage.ps}{NAGC02}{1.00} @@ -106640,7 +106642,7 @@ NagPartialDifferentialEquationsPackage(): Exports == Implementation where \cross{NAGC02}{c02agf} \end{tabular} -<>= +\begin{chunk}{package NAGC02 NagPolynomialRootsPackage} )abbrev package NAGC02 NagPolynomialRootsPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -106712,16 +106714,16 @@ NagPolynomialRootsPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGC02.dotabb} "NAGC02" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGC02"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGC02" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGC05 NagRootFindingPackage} -<>= +\begin{chunk}{NagRootFindingPackage.help} C05(3NAG) Foundation Library (12/10/92) C05(3NAG) @@ -107545,7 +107547,7 @@ NagPolynomialRootsPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagRootFindingPackage}{NAGC05} \pagepic{ps/v104nagrootfindingpackage.ps}{NAGC05}{1.00} @@ -107556,7 +107558,7 @@ NagPolynomialRootsPackage(): Exports == Implementation where \cross{NAGC05}{c05pbf} \end{tabular} -<>= +\begin{chunk}{package NAGC05 NagRootFindingPackage} )abbrev package NAGC05 NagRootFindingPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -107678,16 +107680,16 @@ NagRootFindingPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGC05.dotabb} "NAGC05" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGC05"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGC05" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGC06 NagSeriesSummationPackage} -<>= +\begin{chunk}{NagSeriesSummationPackage.help} C06(3NAG) Foundation Library (12/10/92) C06(3NAG) @@ -109893,7 +109895,7 @@ NagRootFindingPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagSeriesSummationPackage}{NAGC06} \pagepic{ps/v104nagseriessummationpackage.ps}{NAGC06}{1.00} @@ -109913,7 +109915,7 @@ NagRootFindingPackage(): Exports == Implementation where \cross{NAGC06}{c06gsf} &&& \end{tabular} -<>= +\begin{chunk}{package NAGC06 NagSeriesSummationPackage} )abbrev package NAGC06 NagSeriesSummationPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -110210,16 +110212,16 @@ NagSeriesSummationPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGC06.dotabb} "NAGC06" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGC06"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGC06" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NAGS NagSpecialFunctionsPackage} -<>= +\begin{chunk}{NagSpecialFunctionsPackage.help} S -- Approximations of Special Functions Introduction -- S Chapter S @@ -117500,7 +117502,7 @@ NagSeriesSummationPackage(): Exports == Implementation where all example programs is distributed with the NAG Foundation Library software and should be available on-line. -@ +\end{chunk} \pagehead{NagSpecialFunctionsPackage}{NAGS} \pagepic{ps/v104nagspecialfunctionspackage.ps}{NAGS}{1.00} @@ -117546,7 +117548,7 @@ NagSeriesSummationPackage(): Exports == Implementation where \cross{NAGS}{s21bdf} && \end{tabular} -<>= +\begin{chunk}{package NAGS NagSpecialFunctionsPackage} )abbrev package NAGS NagSpecialFunctionsPackage ++ Author: Godfrey Nolan and Mike Dewar ++ Date Created: Jan 1994 @@ -118324,13 +118326,13 @@ NagSpecialFunctionsPackage(): Exports == Implementation where @List Any]$Lisp)$Lisp)_ pretend List (Record(key:Symbol,entry:Any))]$Result -@ -<>= +\end{chunk} +\begin{chunk}{NAGS.dotabb} "NAGS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NAGS"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NAGS" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NSUP2 NewSparseUnivariatePolynomialFunctions2} \pagehead{NewSparseUnivariatePolynomialFunctions2}{NSUP2} @@ -118339,7 +118341,7 @@ NagSpecialFunctionsPackage(): Exports == Implementation where {\bf Exports:}\\ \cross{NSUP2}{map} -<>= +\begin{chunk}{package NSUP2 NewSparseUnivariatePolynomialFunctions2} )abbrev package NSUP2 NewSparseUnivariatePolynomialFunctions2 ++ Author: ++ Date Created: @@ -118366,15 +118368,15 @@ NewSparseUnivariatePolynomialFunctions2(R:Ring, S:Ring): with map(f, p) == map(f, p)$UnivariatePolynomialCategoryFunctions2(R, NewSparseUnivariatePolynomial R, S, NewSparseUnivariatePolynomial S) -@ -<>= +\end{chunk} +\begin{chunk}{NSUP2.dotabb} "NSUP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NSUP2"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "NSUP2" -> "LMODULE" "NSUP2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NEWTON NewtonInterpolation} \pagehead{NewtonInterpolation}{NEWTON} @@ -118383,7 +118385,7 @@ NewSparseUnivariatePolynomialFunctions2(R:Ring, S:Ring): with {\bf Exports:}\\ \cross{NEWTON}{newton} -<>= +\begin{chunk}{package NEWTON NewtonInterpolation} )abbrev package NEWTON NewtonInterpolation ++ Description: ++ This package exports Newton interpolation for the special case where the @@ -118421,16 +118423,16 @@ NewtonInterpolation F: Exports == Implementation where newton yl == newtonAux(1$F, 1$F, yl) -@ -<>= +\end{chunk} +\begin{chunk}{NEWTON.dotabb} "NEWTON" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NEWTON"] "ALGEBRA" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ALGEBRA"] "NEWTON" -> "ALGEBRA" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NPOLYGON NewtonPolygon} -<>= +\begin{chunk}{NewtonPolygon.input} )set break resume )sys rm -f NewtonPolygon.output )spool NewtonPolygon.output @@ -118456,8 +118458,8 @@ NewtonInterpolation F: Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{NewtonPolygon.help} ==================================================================== NewtonPolygon examples ==================================================================== @@ -118465,7 +118467,7 @@ NewtonPolygon examples See Also: o )show NewtonPolygon -@ +\end{chunk} \pagehead{NewtonPolygon}{NPOLYGON} \pagepic{ps/v104newtonpolygon.eps}{NPOLYGON}{1.00} @@ -118477,7 +118479,7 @@ o )show NewtonPolygon \cross{NPOLYGON}{slope} \end{tabular} -<>= +\begin{chunk}{package NPOLYGON NewtonPolygon} )abbrev package NPOLYGON NewtonPolygon ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -118685,13 +118687,13 @@ NewtonPolygon(K,PolyRing,E,dim):Exports == Implementation where polgRest:= localNewtonPolygon rest lpol consBondary( lt , polgRest ) -@ -<>= +\end{chunk} +\begin{chunk}{NPOLYGON.dotabb} "NPOLYGON" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NPOLYGON"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "NPOLYGON" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NCODIV NonCommutativeOperatorDivision} \pagehead{NonCommutativeOperatorDivision}{NCODIV} @@ -118707,7 +118709,7 @@ NewtonPolygon(K,PolyRing,E,dim):Exports == Implementation where \cross{NCODIV}{leftExactQuotient} \end{tabular} -<>= +\begin{chunk}{package NCODIV NonCommutativeOperatorDivision} )abbrev package NCODIV NonCommutativeOperatorDivision ++ Author: Jean Della Dora, Stephen M. Watt ++ Date Created: 1986 @@ -118801,13 +118803,13 @@ NonCommutativeOperatorDivision(P, F): PDcat == PDdef where (u, v) := (u*qr.quotient+v, u) b0*u -@ -<>= +\end{chunk} +\begin{chunk}{NCODIV.dotabb} "NCODIV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NCODIV"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "NCODIV" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NONE1 NoneFunctions1} \pagehead{NoneFunctions1}{NONE1} @@ -118816,7 +118818,7 @@ NonCommutativeOperatorDivision(P, F): PDcat == PDdef where {\bf Exports:}\\ \cross{NONE1}{coerce} -<>= +\begin{chunk}{package NONE1 NoneFunctions1} )abbrev package NONE1 NoneFunctions1 ++ Author: ++ Date Created: @@ -118840,13 +118842,13 @@ NoneFunctions1(S:Type): Exports == Implementation where Implementation ==> add coerce(s:S):None == s pretend None -@ -<>= +\end{chunk} +\begin{chunk}{NONE1.dotabb} "NONE1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NONE1"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "NONE1" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NODE1 NonLinearFirstOrderODESolver} \pagehead{NonLinearFirstOrderODESolver}{NODE1} @@ -118855,7 +118857,7 @@ NoneFunctions1(S:Type): Exports == Implementation where {\bf Exports:}\\ \cross{NODE1}{solve} -<>= +\begin{chunk}{package NODE1 NonLinearFirstOrderODESolver} )abbrev package NODE1 NonLinearFirstOrderODESolver ++ Author: Manuel Bronstein ++ Date Created: 2 September 1991 @@ -119005,13 +119007,13 @@ NonLinearFirstOrderODESolver(R, F): Exports == Implementation where or empty?(bas := (gsol::SOL).basis) => "failed" differentiate(first bas, x) / (l3 * first bas) -@ -<>= +\end{chunk} +\begin{chunk}{NODE1.dotabb} "NODE1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NODE1"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "NODE1" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NLINSOL NonLinearSolvePackage} \pagehead{NonLinearSolvePackage}{NLINSOL} @@ -119023,7 +119025,7 @@ NonLinearFirstOrderODESolver(R, F): Exports == Implementation where \cross{NLINSOL}{solveInField} \end{tabular} -<>= +\begin{chunk}{package NLINSOL NonLinearSolvePackage} )abbrev package NLINSOL NonLinearSolvePackage ++ Author: Manuel Bronstein ++ Date Created: 31 October 1991 @@ -119121,13 +119123,13 @@ NonLinearSolvePackage(R:IntegralDomain): Exports == Implementation where (not(R has RetractableTo Z)) then solveInField(lp, lv) == solve([p::F for p in lp]$List(F), lv)$SSP(R) -@ -<>= +\end{chunk} +\begin{chunk}{NLINSOL.dotabb} "NLINSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NLINSOL"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "NLINSOL" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NORMPK NormalizationPackage} \pagehead{NormalizationPackage}{NORMPK} @@ -119142,7 +119144,7 @@ NonLinearSolvePackage(R:IntegralDomain): Exports == Implementation where \cross{NORMPK}{recip} \end{tabular} -<>= +\begin{chunk}{package NORMPK NormalizationPackage} )abbrev package NORMPK NormalizationPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/23/1998 @@ -119338,13 +119340,13 @@ NormalizationPackage(R,E,V,P,TS): Exports == Implementation where lpwt := concat(normalize(q,us)@(List PWT),lpwt) lpwt -@ -<>= +\end{chunk} +\begin{chunk}{NORMPK.dotabb} "NORMPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NORMPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "NORMPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NORMMA NormInMonogenicAlgebra} \pagehead{NormInMonogenicAlgebra}{NORMMA} @@ -119353,7 +119355,7 @@ NormalizationPackage(R,E,V,P,TS): Exports == Implementation where {\bf Exports:}\\ \cross{NORMMA}{norm} -<>= +\begin{chunk}{package NORMMA NormInMonogenicAlgebra} )abbrev package NORMMA NormInMonogenicAlgebra ++ Author: Manuel Bronstein ++ Date Created: 23 February 1995 @@ -119391,13 +119393,13 @@ NormInMonogenicAlgebra(R, PolR, E, PolE): Exports == Implementation where q := reductum q primitivePart resultant(p, defpol) -@ -<>= +\end{chunk} +\begin{chunk}{NORMMA.dotabb} "NORMMA" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NORMMA"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "NORMMA" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NORMRETR NormRetractPackage} \pagehead{NormRetractPackage}{NORMRETR} @@ -119410,7 +119412,7 @@ NormInMonogenicAlgebra(R, PolR, E, PolE): Exports == Implementation where \cross{NORMRETR}{retractIfCan} \end{tabular} -<>= +\begin{chunk}{package NORMRETR NormRetractPackage} )abbrev package NORMRETR NormRetractPackage ++ Description: ++ This package has no description @@ -119464,15 +119466,15 @@ NormRetractPackage(F, ExtF, SUEx, ExtP, n):C == T where ff:=reductum ff fft -@ -<>= +\end{chunk} +\begin{chunk}{NORMRETR.dotabb} "NORMRETR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NORMRETR"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "NORMRETR" -> "FAXF" "NORMRETR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NPCOEF NPCoef} \pagehead{NPCoef}{NPCOEF} @@ -119484,7 +119486,7 @@ NormRetractPackage(F, ExtF, SUEx, ExtP, n):C == T where \cross{NPCOEF}{npcoef} \end{tabular} -<>= +\begin{chunk}{package NPCOEF NPCoef} )abbrev package NPCOEF NPCoef ++ Author : P.Gianni, revised May 1990 ++ Description: @@ -119641,13 +119643,13 @@ NPCoef(BP,E,OV,R,P) : C == T where constructp(lterm:VTerm):USP == +/[monomial(term.pcoef,term.expt) for term in lterm] -@ -<>= +\end{chunk} +\begin{chunk}{NPCOEF.dotabb} "NPCOEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NPCOEF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "NPCOEF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NFINTBAS NumberFieldIntegralBasis} \pagehead{NumberFieldIntegralBasis}{NFINTBAS} @@ -119660,7 +119662,7 @@ NPCoef(BP,E,OV,R,P) : C == T where \cross{NFINTBAS}{localIntegralBasis} \end{tabular} -<>= +\begin{chunk}{package NFINTBAS NumberFieldIntegralBasis} )abbrev package NFINTBAS NumberFieldIntegralBasis ++ Author: Victor Miller, Clifton Williamson ++ Date Created: 9 April 1990 @@ -119888,13 +119890,13 @@ NumberFieldIntegralBasis(UP,F): Exports == Implementation where index := ((rbden ** rank()$F) exquo (determinant rb)) :: Integer (disc exquo (index * index)) :: Integer -@ -<>= +\end{chunk} +\begin{chunk}{NFINTBAS.dotabb} "NFINTBAS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NFINTBAS"] "FRAMALG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FRAMALG"] "NFINTBAS" -> "FRAMALG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NUMFMT NumberFormats} \pagehead{NumberFormats}{NUMFMT} @@ -119910,7 +119912,7 @@ NumberFieldIntegralBasis(UP,F): Exports == Implementation where \cross{NUMFMT}{ScanRoman} && \end{tabular} -<>= +\begin{chunk}{package NUMFMT NumberFormats} )abbrev package NUMFMT NumberFormats ++ SMW March 88 ++ Keywords: string manipulation, roman numerals, format @@ -120102,13 +120104,13 @@ NumberFormats(): NFexports == NFimplementation where tot < 0 => error ["Improper Roman numeral: ", tot] tot::PI -@ -<>= +\end{chunk} +\begin{chunk}{NUMFMT.dotabb} "NUMFMT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NUMFMT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NUMFMT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NTPOLFN NumberTheoreticPolynomialFunctions} \pagehead{NumberTheoreticPolynomialFunctions}{NTPOLFN} @@ -120121,7 +120123,7 @@ NumberFormats(): NFexports == NFimplementation where \cross{NTPOLFN}{eulerE} \end{tabular} -<>= +\begin{chunk}{package NTPOLFN NumberTheoreticPolynomialFunctions} )abbrev package NTPOLFN NumberTheoreticPolynomialFunctions ++ Author: Stephen M. Watt ++ Date Created: 1990 @@ -120189,13 +120191,13 @@ NumberTheoreticPolynomialFunctions(R: CommutativeRing): Exports == Impl where r := c*x**d + r r -@ -<>= +\end{chunk} +\begin{chunk}{NTPOLFN.dotabb} "NTPOLFN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NTPOLFN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "NTPOLFN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NUMERIC Numeric} \pagehead{Numeric}{NUMERIC} @@ -120210,7 +120212,7 @@ NumberTheoreticPolynomialFunctions(R: CommutativeRing): Exports == Impl where \cross{NUMERIC}{numericIfCan} \end{tabular} -<>= +\begin{chunk}{package NUMERIC Numeric} )abbrev package NUMERIC Numeric ++ Author: Manuel Bronstein ++ Date Created: 21 Feb 1990 @@ -120644,13 +120646,13 @@ Numeric(S:ConvertibleTo Float): with error "Cannot compute the numerical value of a non-constant expression" ans -@ -<>= +\end{chunk} +\begin{chunk}{NUMERIC.dotabb} "NUMERIC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NUMERIC"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "NUMERIC" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NUMODE NumericalOrdinaryDifferentialEquations} \pagehead{NumericalOrdinaryDifferentialEquations}{NUMODE} @@ -120665,7 +120667,7 @@ Numeric(S:ConvertibleTo Float): with \cross{NUMODE}{rk4qc} \end{tabular} -<>= +\begin{chunk}{package NUMODE NumericalOrdinaryDifferentialEquations} )abbrev package NUMODE NumericalOrdinaryDifferentialEquations ++ Author: Yurij Baransky ++ Date Created: October 90 @@ -121019,13 +121021,13 @@ NumericalOrdinaryDifferentialEquations(): Exports == Implementation where for i in 1..m repeat yout(i) := y(i) + h6*( dydx(i) + 2.0*dym(i) + dyt(i) ) -@ -<>= +\end{chunk} +\begin{chunk}{NUMODE.dotabb} "NUMODE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NUMODE"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "NUMODE" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NUMQUAD NumericalQuadrature} \pagehead{NumericalQuadrature}{NUMQUAD} @@ -121044,7 +121046,7 @@ NumericalOrdinaryDifferentialEquations(): Exports == Implementation where \cross{NUMQUAD}{trapezoidalo} & \end{tabular} -<>= +\begin{chunk}{package NUMQUAD NumericalQuadrature} )abbrev package NUMQUAD NumericalQuadrature ++ Author: Yurij A. Baransky ++ Date Created: October 90 @@ -121590,13 +121592,13 @@ NumericalQuadrature(): Exports == Implementation where x := x + del return( (oldsum/3.0 + sum*del) ) -@ -<>= +\end{chunk} +\begin{chunk}{NUMQUAD.dotabb} "NUMQUAD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NUMQUAD"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "NUMQUAD" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NCEP NumericComplexEigenPackage} \pagehead{NumericComplexEigenPackage}{NCEP} @@ -121609,7 +121611,7 @@ NumericalQuadrature(): Exports == Implementation where \cross{NCEP}{complexEigenvectors} \end{tabular} -<>= +\begin{chunk}{package NCEP NumericComplexEigenPackage} )abbrev package NCEP NumericComplexEigenPackage ++ Author: P. Gianni ++ Date Created: Summer 1990 @@ -121689,13 +121691,13 @@ NumericComplexEigenPackage(Par) : C == T complexEigenvectors(m:MGRN,eps:Par) :List outForm == innerEigenvectors(m,eps,factor$ComplexFactorization(RN,SUPGRN)) -@ -<>= +\end{chunk} +\begin{chunk}{NCEP.dotabb} "NCEP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NCEP"] "COMPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=COMPCAT"] "NCEP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NCNTFRAC NumericContinuedFraction} \pagehead{NumericContinuedFraction}{NCNTFRAC} @@ -121704,7 +121706,7 @@ NumericComplexEigenPackage(Par) : C == T {\bf Exports:}\\ \cross{NCNTFRAC}{continuedFraction} -<>= +\begin{chunk}{package NCNTFRAC NumericContinuedFraction} )abbrev package NCNTFRAC NumericContinuedFraction ++ Author: Clifton J. Williamson ++ Date Created: 12 April 1990 @@ -121745,15 +121747,15 @@ NumericContinuedFraction(F): Exports == Implementation where if negative? b then (aa := aa - 1; b := b + 1) reducedContinuedFraction(aa,cfc inv b) -@ -<>= +\end{chunk} +\begin{chunk}{NCNTFRAC.dotabb} "NCNTFRAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NCNTFRAC"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "NCNTFRAC" -> "FIELD" "NCNTFRAC" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NREP NumericRealEigenPackage} \pagehead{NumericRealEigenPackage}{NREP} @@ -121766,7 +121768,7 @@ NumericContinuedFraction(F): Exports == Implementation where \cross{NREP}{realEigenvectors} \end{tabular} -<>= +\begin{chunk}{package NREP NumericRealEigenPackage} )abbrev package NREP NumericRealEigenPackage ++ Author:P. Gianni ++ Date Created:Summer 1990 @@ -121844,13 +121846,13 @@ NumericRealEigenPackage(Par) : C == T realEigenvectors(m:MRN,eps:Par) :List outForm == innerEigenvectors(m,eps,factor$GenUFactorize(RN)) -@ -<>= +\end{chunk} +\begin{chunk}{NREP.dotabb} "NREP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NREP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "NREP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package NUMTUBE NumericTubePlot} \pagehead{NumericTubePlot}{NUMTUBE} @@ -121859,7 +121861,7 @@ NumericRealEigenPackage(Par) : C == T {\bf Exports:}\\ \cross{NUMTUBE}{tube} -<>= +\begin{chunk}{package NUMTUBE NumericTubePlot} )abbrev package NUMTUBE NumericTubePlot ++ Author: Clifton J. Williamson ++ Date Created: Bastille Day 1989 @@ -121959,8 +121961,8 @@ NumericTubePlot(Curve): Exports == Implementation where loops := concat(loops,curveLoops(bran,r,n)) tube(curve,loops,false) -@ -<>= +\end{chunk} +\begin{chunk}{NUMTUBE.dotabb} "NUMTUBE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=NUMTUBE"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] @@ -121971,7 +121973,7 @@ NumericTubePlot(Curve): Exports == Implementation where "NUMTUBE" -> "FLAGG" "NUMTUBE" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter O} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -121982,7 +121984,7 @@ NumericTubePlot(Curve): Exports == Implementation where {\bf Exports:}\\ \cross{OCTCT2}{map} -<>= +\begin{chunk}{package OCTCT2 OctonionCategoryFunctions2} )abbrev package OCTCT2 OctonionCategoryFunctions2 ++ Author: Johannes Grabmeier ++ Date Created: 10 September 1990 @@ -122013,13 +122015,13 @@ OctonionCategoryFunctions2(OR,R,OS,S) : Exports == octon(fn real u, fn imagi u, fn imagj u, fn imagk u,_ fn imagE u, fn imagI u, fn imagJ u, fn imagK u)$OS -@ -<>= +\end{chunk} +\begin{chunk}{OCTCT2.dotabb} "OCTCT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OCTCT2"] "OC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OC"] "OCTCT2" -> "OC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEINT ODEIntegration} \pagehead{ODEIntegration}{ODEINT} @@ -122032,7 +122034,7 @@ OctonionCategoryFunctions2(OR,R,OS,S) : Exports == \cross{ODEINT}{int} \end{tabular} -<>= +\begin{chunk}{package ODEINT ODEIntegration} )abbrev package ODEINT ODEIntegration ++ Author: Manuel Bronstein ++ Date Created: 4 November 1991 @@ -122123,13 +122125,13 @@ ODEIntegration(R, F): Exports == Implementation where "failed" "failed" -@ -<>= +\end{chunk} +\begin{chunk}{ODEINT.dotabb} "ODEINT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEINT"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "ODEINT" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODETOOLS ODETools} \pagehead{ODETools}{ODETOOLS} @@ -122142,7 +122144,7 @@ ODEIntegration(R, F): Exports == Implementation where \cross{ODETOOLS}{wronskianMatrix} \end{tabular} -<>= +\begin{chunk}{package ODETOOLS ODETools} )abbrev package ODETOOLS ODETools ++ Author: Manuel Bronstein ++ Date Created: 20 March 1991 @@ -122209,13 +122211,13 @@ ODETools(F, LODO): Exports == Implementation where ans := ans + integration(qelt(s, i)) * f ans -@ -<>= +\end{chunk} +\begin{chunk}{ODETOOLS.dotabb} "ODETOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODETOOLS"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "ODETOOLS" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ARRAY12 OneDimensionalArrayFunctions2} \pagehead{OneDimensionalArrayFunctions2}{ARRAY12} @@ -122228,7 +122230,7 @@ ODETools(F, LODO): Exports == Implementation where \cross{ARRAY12}{scan} \end{tabular} -<>= +\begin{chunk}{package ARRAY12 OneDimensionalArrayFunctions2} )abbrev package ARRAY12 OneDimensionalArrayFunctions2 ++ Description: ++ This package provides tools for operating on one-dimensional arrays @@ -122279,13 +122281,13 @@ OneDimensionalArrayFunctions2(A, B): Exports == Implementation where scan(f, v, b) == scan(f, v, b)$O2 reduce(f, v, b) == reduce(f, v, b)$O2 -@ -<>= +\end{chunk} +\begin{chunk}{ARRAY12.dotabb} "ARRAY12" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ARRAY12"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "ARRAY12" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ONECOMP2 OnePointCompletionFunctions2} \pagehead{OnePointCompletionFunctions2}{ONECOMP2} @@ -122294,7 +122296,7 @@ OneDimensionalArrayFunctions2(A, B): Exports == Implementation where {\bf Exports:}\\ \cross{ONECOMP2}{map} -<>= +\begin{chunk}{package ONECOMP2 OnePointCompletionFunctions2} )abbrev package ONECOMP2 OnePointCompletionFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 4 Oct 1989 @@ -122323,15 +122325,15 @@ OnePointCompletionFunctions2(R, S): Exports == Implementation where (u := retractIfCan r) case R => (f(u::R))::OPS i -@ -<>= +\end{chunk} +\begin{chunk}{ONECOMP2.dotabb} "ONECOMP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ONECOMP2"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "ONECOMP2" -> "BASTYPE" "ONECOMP2" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OMPKG OpenMathPackage} \pagehead{OpenMathPackage}{OMPKG} @@ -122349,7 +122351,7 @@ OnePointCompletionFunctions2(R, S): Exports == Implementation where \cross{OMPKG}{OMunhandledSymbol} && \end{tabular} -<>= +\begin{chunk}{package OMPKG OpenMathPackage} )abbrev package OMPKG OpenMathPackage ++ Author: Vilya Harvey ++ Date Created: @@ -122426,13 +122428,13 @@ OpenMathPackage(): with OMsupportsSymbol?(cd: String, name: String): Boolean == not null? OM_-SUPPORTSSYMBOL(cd, name)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{OMPKG.dotabb} "OMPKG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OMPKG"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "OMPKG" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OMSERVER OpenMathServerPackage} \pagehead{OpenMathServerPackage}{OMSERVER} @@ -122445,7 +122447,7 @@ OpenMathPackage(): with \cross{OMSERVER}{OMserve} \end{tabular} -<>= +\begin{chunk}{package OMSERVER OpenMathServerPackage} )abbrev package OMSERVER OpenMathServerPackage ++ Author: Vilya Harvey ++ Date Created: @@ -122510,13 +122512,13 @@ OpenMathServerPackage(): with val := OMreceive(conn) OMsend(conn, val) -@ -<>= +\end{chunk} +\begin{chunk}{OMSERVER.dotabb} "OMSERVER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OMSERVER"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "OMSERVER" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OPQUERY OperationsQuery} \pagehead{OperationsQuery}{OPQUERY} @@ -122525,7 +122527,7 @@ OpenMathServerPackage(): with {\bf Exports:}\\ \cross{OPQUERY}{getDatabase} -<>= +\begin{chunk}{package OPQUERY OperationsQuery} )abbrev package OPQUERY OperationsQuery ++ Description: ++ This package exports tools to create AXIOM Library information databases. @@ -122539,13 +122541,13 @@ OperationsQuery(): Exports == Implementation where Implementation == add getDatabase(s) == getBrowseDatabase(s)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{OPQUERY.dotabb} "OPQUERY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OPQUERY"] "ORDSET" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ORDSET"] "OPQUERY" -> "ORDSET" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ORDCOMP2 OrderedCompletionFunctions2} \pagehead{OrderedCompletionFunctions2}{ORDCOMP2} @@ -122554,7 +122556,7 @@ OperationsQuery(): Exports == Implementation where {\bf Exports:}\\ \cross{ORDCOMP2}{map} -<>= +\begin{chunk}{package ORDCOMP2 OrderedCompletionFunctions2} )abbrev package ORDCOMP2 OrderedCompletionFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 4 Oct 1989 @@ -122586,15 +122588,15 @@ OrderedCompletionFunctions2(R, S): Exports == Implementation where (n = 1) => p m -@ -<>= +\end{chunk} +\begin{chunk}{ORDCOMP2.dotabb} "ORDCOMP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ORDCOMP2"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "ORDCOMP2" -> "BASTYPE" "ORDCOMP2" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ORDFUNS OrderingFunctions} \pagehead{OrderingFunctions}{ORDFUNS} @@ -122607,7 +122609,7 @@ OrderedCompletionFunctions2(R, S): Exports == Implementation where \cross{ORDFUNS}{totalLex} \end{tabular} -<>= +\begin{chunk}{package ORDFUNS OrderingFunctions} )abbrev package ORDFUNS OrderingFunctions ++ Author: Barry Trager ++ Date Created: @@ -122678,13 +122680,13 @@ OrderingFunctions(dim,S) : T == C where if qelt(v1,i) < qelt(v2,i) then return false false -@ -<>= +\end{chunk} +\begin{chunk}{ORDFUNS.dotabb} "ORDFUNS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ORDFUNS"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "ORDFUNS" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ORTHPOL OrthogonalPolynomialFunctions} \pagehead{OrthogonalPolynomialFunctions}{ORTHPOL} @@ -122700,7 +122702,7 @@ OrderingFunctions(dim,S) : T == C where \cross{ORTHPOL}{legendreP} \end{tabular} -<>= +\begin{chunk}{package ORTHPOL OrthogonalPolynomialFunctions} )abbrev package ORTHPOL OrthogonalPolynomialFunctions ++ Author: Stephen M. Watt ++ Date Created: 1990 @@ -122803,15 +122805,15 @@ OrthogonalPolynomialFunctions(R: CommutativeRing): Exports == Impl where (p1, p0) := (c*((2*i+1)*x*p1 - i*p0), p1) p1 -@ -<>= +\end{chunk} +\begin{chunk}{ORTHPOL.dotabb} "ORTHPOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ORTHPOL"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "ORTHPOL" -> "PID" "ORTHPOL" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OUT OutputPackage} \pagehead{OutputPackage}{OUT} @@ -122823,7 +122825,7 @@ OrthogonalPolynomialFunctions(R: CommutativeRing): Exports == Impl where \cross{OUT}{outputList} \end{tabular} -<>= +\begin{chunk}{package OUT OutputPackage} )abbrev package OUT OutputPackage ++ Author: Stephen M. Watt ++ Date Created: February 1986 @@ -122879,18 +122881,18 @@ OutputPackage: with x::OutputForm for x in l] -@ -<>= +\end{chunk} +\begin{chunk}{OUT.dotabb} "OUT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OUT"] "Package" [color="#FF4488"] "OUT" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter P} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PAFF PackageForAlgebraicFunctionField} -<>= +\begin{chunk}{PackageForAlgebraicFunctionField.input} )set break resume )sys rm -f PackageForAlgebraicFunctionField.output )spool PackageForAlgebraicFunctionField.output @@ -122950,8 +122952,8 @@ OutputPackage: with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PackageForAlgebraicFunctionField.help} ==================================================================== PackageForAlgebraicFunctionField examples ==================================================================== @@ -122959,7 +122961,7 @@ PackageForAlgebraicFunctionField examples See Also: o )show PackageForAlgebraicFunctionField -@ +\end{chunk} \pagehead{PackageForAlgebraicFunctionField}{PAFF} \pagepic{ps/v104packageforalgebraicfunctionfield.eps}{PAFF}{1.00} @@ -123001,7 +123003,7 @@ o )show PackageForAlgebraicFunctionField \end{tabular} -<>= +\begin{chunk}{package PAFF PackageForAlgebraicFunctionField} )abbrev package PAFF PackageForAlgebraicFunctionField ++ Author: Gaetan Hache ++ Date created: June 1995 @@ -123281,18 +123283,18 @@ PackageForAlgebraicFunctionField(K,symb,BLMET):Exports == Implementation where fullOutput()$InfClsPoint => fullOutput(false())$InfClsPoint fullOutput(true())$InfClsPoint -@ -<>= +\end{chunk} +\begin{chunk}{PAFF.dotabb} "PAFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PAFF"] "PAFFFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PAFFFF"] "INFCLSPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFCLSPS"] "PAFF" -> "PAFFFF" "PAFF" -> "INFCLSPS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PAFFFF PackageForAlgebraicFunctionFieldOverFiniteField} -<>= +\begin{chunk}{PackageForAlgebraicFunctionFieldOverFiniteField.input} )set break resume )sys rm -f PackageForAlgebraicFunctionFieldOverFiniteField.output )spool PackageForAlgebraicFunctionFieldOverFiniteField.output @@ -123353,8 +123355,8 @@ PackageForAlgebraicFunctionField(K,symb,BLMET):Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PackageForAlgebraicFunctionFieldOverFiniteField.help} ==================================================================== PackageForAlgebraicFunctionFieldOverFiniteField examples ==================================================================== @@ -123362,7 +123364,7 @@ PackageForAlgebraicFunctionFieldOverFiniteField examples See Also: o )show PackageForAlgebraicFunctionFieldOverFiniteField -@ +\end{chunk} \pagehead{PackageForAlgebraicFunctionFieldOverFiniteField}{PAFFFF} \pagepic{ps/v104packageforalgebraicfunctionfieldoverfinitefield.eps}{PAFFFF}{1.00} @@ -123404,7 +123406,7 @@ o )show PackageForAlgebraicFunctionFieldOverFiniteField \cross{PAFFFF}{ZetaFunction} && \end{tabular} -<>= +\begin{chunk}{package PAFFFF PackageForAlgebraicFunctionFieldOverFiniteField} )abbrev package PAFFFF PackageForAlgebraicFunctionFieldOverFiniteField ++ Author: Gaetan Hache ++ Date created: June 1995 @@ -123741,18 +123743,18 @@ PackageForAlgebraicFunctionFieldOverFiniteField(K,symb,BLMET):Exp == Impl where fullOutput(true())$InfClsPoint -@ -<>= +\end{chunk} +\begin{chunk}{PAFFFF.dotabb} "PAFFFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PAFFFF"] "PAFF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PAFF"] "INFCLSPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=INFCLSPS"] "PAFFFF" -> "PAFF" "PAFFFF" -> "INFCLSPS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFORP PackageForPoly} -<>= +\begin{chunk}{PackageForPoly.input} )set break resume )sys rm -f PackageForPoly.output )spool PackageForPoly.output @@ -123792,8 +123794,8 @@ PackageForAlgebraicFunctionFieldOverFiniteField(K,symb,BLMET):Exp == Impl where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PackageForPoly.help} ==================================================================== PackageForPoly examples ==================================================================== @@ -123801,7 +123803,7 @@ PackageForPoly examples See Also: o )show PackageForPoly -@ +\end{chunk} \pagehead{PackageForPoly}{PFORP} \pagepic{ps/v104packageforpoly.eps}{PFORP}{1.00} @@ -123829,7 +123831,7 @@ o )show PackageForPoly \cross{PFORP}{univariate} & \end{tabular} -<>= +\begin{chunk}{package PFORP PackageForPoly} )abbrev package PFORP PackageForPoly ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -124123,13 +124125,13 @@ PackageForPoly(R,PolyRing,E,dim): public == private where [monomial(1,e)$PolyRing for e in listAllMonoExp(l)] -@ -<>= +\end{chunk} +\begin{chunk}{PFORP.dotabb} "PFORP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFORP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFORP" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PADEPAC PadeApproximantPackage} \pagehead{PadeApproximantPackage}{PADEPAC} @@ -124138,7 +124140,7 @@ PackageForPoly(R,PolyRing,E,dim): public == private where {\bf Exports:}\\ \cross{PADEPAC}{pade} -<>= +\begin{chunk}{package PADEPAC PadeApproximantPackage} )abbrev package PADEPAC PadeApproximantPackage ++ Authors: Trager,Burge, Hassner & Watt. ++ Date Created: April 1987 @@ -124188,13 +124190,13 @@ PadeApproximantPackage(R: Field, x:Symbol, pt:R): Exports == Implementation wher num/den pade(n,m,u) == pade(n,m,u,1) -@ -<>= +\end{chunk} +\begin{chunk}{PADEPAC.dotabb} "PADEPAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PADEPAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PADEPAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PADE PadeApproximants} \pagehead{PadeApproximants}{PADE} @@ -124206,7 +124208,7 @@ PadeApproximantPackage(R: Field, x:Symbol, pt:R): Exports == Implementation wher \cross{PADE}{padecf} \end{tabular} -<>= +\begin{chunk}{package PADE PadeApproximants} )abbrev package PADE PadeApproximants ++ Authors: Burge, Hassner & Watt. ++ Date Created: April 1987 @@ -124347,13 +124349,13 @@ PadeApproximants(R,PS,UP): Exports == Implementation where d := truncPoly(h,degbd) (l,m) := (m,(l-alpha) :: NNI) -@ -<>= +\end{chunk} +\begin{chunk}{PADE.dotabb} "PADE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PADE"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "PADE" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PWFFINTB PAdicWildFunctionFieldIntegralBasis} \pagehead{PAdicWildFunctionFieldIntegralBasis}{PWFFINTB} @@ -124366,7 +124368,7 @@ PadeApproximants(R,PS,UP): Exports == Implementation where \cross{PWFFINTB}{localIntegralBasis} \end{tabular} -<>= +\begin{chunk}{package PWFFINTB PAdicWildFunctionFieldIntegralBasis} )abbrev package PWFFINTB PAdicWildFunctionFieldIntegralBasis ++ Author: Clifton Williamson ++ Date Created: 5 July 1993 @@ -124611,13 +124613,13 @@ PAdicWildFunctionFieldIntegralBasis(K,R,UP,F): Exports == Implementation where runningRbinv := UpTriBddDenomInv(runningRb,runningRbden) [runningRb, runningRbden, runningRbinv] -@ -<>= +\end{chunk} +\begin{chunk}{PWFFINTB.dotabb} "PWFFINTB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PWFFINTB"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "PWFFINTB" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package YSTREAM ParadoxicalCombinatorsForStreams} \pagehead{ParadoxicalCombinatorsForStreams}{YSTREAM} @@ -124626,7 +124628,7 @@ PAdicWildFunctionFieldIntegralBasis(K,R,UP,F): Exports == Implementation where {\bf Exports:}\\ \cross{YSTREAM}{Y} -<>= +\begin{chunk}{package YSTREAM ParadoxicalCombinatorsForStreams} )abbrev package YSTREAM ParadoxicalCombinatorsForStreams ++ Author: Burge, Watt (revised by Williamson) ++ Date Created: 1986 @@ -124668,13 +124670,13 @@ ParadoxicalCombinatorsForStreams(A):Exports == Implementation where RPLACD(xi,rst ji)$Lisp x -@ -<>= +\end{chunk} +\begin{chunk}{YSTREAM.dotabb} "YSTREAM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=YSTREAM"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "YSTREAM" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PLEQN ParametricLinearEquations} \pagehead{ParametricLinearEquations}{PLEQN} @@ -124734,7 +124736,7 @@ ParadoxicalCombinatorsForStreams(A):Exports == Implementation where -- passed to be further processed. On the other hand, there is probably -- no penalty in leaving the options as is. \end{verbatim} -<>= +\begin{chunk}{package PLEQN ParametricLinearEquations} )abbrev package PLEQN ParametricLinearEquations ++ Author: William Sit, spring 89 ++ Description: @@ -125342,13 +125344,13 @@ ParametricLinearEquations(R,Var,Expon,GR): newmat(i,j):=redPol$rp (p,psb) newmat -@ -<>= +\end{chunk} +\begin{chunk}{PLEQN.dotabb} "PLEQN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PLEQN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PLEQN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PARPC2 ParametricPlaneCurveFunctions2} \pagehead{ParametricPlaneCurveFunctions2}{PARPC2} @@ -125357,7 +125359,7 @@ ParametricLinearEquations(R,Var,Expon,GR): {\bf Exports:}\\ \cross{PARPC2}{map} -<>= +\begin{chunk}{package PARPC2 ParametricPlaneCurveFunctions2} )abbrev package PARPC2 ParametricPlaneCurveFunctions2 ++ Description: ++ This package has no description @@ -125368,13 +125370,13 @@ ParametricPlaneCurveFunctions2(CF1: Type, CF2:Type): with == add map(f, c) == curve(f coordinate(c,1), f coordinate(c, 2)) -@ -<>= +\end{chunk} +\begin{chunk}{PARPC2.dotabb} "PARPC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PARPC2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARPC2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PARSC2 ParametricSpaceCurveFunctions2} \pagehead{ParametricSpaceCurveFunctions2}{PARSC2} @@ -125383,7 +125385,7 @@ ParametricPlaneCurveFunctions2(CF1: Type, CF2:Type): with {\bf Exports:}\\ \cross{PARSC2}{map} -<>= +\begin{chunk}{package PARSC2 ParametricSpaceCurveFunctions2} )abbrev package PARSC2 ParametricSpaceCurveFunctions2 ++ Description: ++ This package has no description @@ -125394,13 +125396,13 @@ ParametricSpaceCurveFunctions2(CF1: Type, CF2:Type): with == add map(f, c) == curve(f coordinate(c,1), f coordinate(c,2), f coordinate(c,3)) -@ -<>= +\end{chunk} +\begin{chunk}{PARSC2.dotabb} "PARSC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PARSC2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARSC2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PARSU2 ParametricSurfaceFunctions2} \pagehead{ParametricSurfaceFunctions2}{PARSU2} @@ -125409,7 +125411,7 @@ ParametricSpaceCurveFunctions2(CF1: Type, CF2:Type): with {\bf Exports:}\\ \cross{PARSU2}{map} -<>= +\begin{chunk}{package PARSU2 ParametricSurfaceFunctions2} )abbrev package PARSU2 ParametricSurfaceFunctions2 ++ Description: ++ This package has no description @@ -125420,16 +125422,16 @@ ParametricSurfaceFunctions2(CF1: Type, CF2:Type): with == add map(f, c) == surface(f coordinate(c,1), f coordinate(c,2), f coordinate(c,3)) -@ -<>= +\end{chunk} +\begin{chunk}{PARSU2.dotabb} "PARSU2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PARSU2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "PARSU2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PARAMP ParametrizationPackage} -<>= +\begin{chunk}{ParametrizationPackage.input} )set break resume )sys rm -f ParametrizationPackage.output )spool ParametrizationPackage.output @@ -125454,8 +125456,8 @@ ParametricSurfaceFunctions2(CF1: Type, CF2:Type): with )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ParametrizationPackage.help} ==================================================================== ParametrizationPackage examples ==================================================================== @@ -125463,14 +125465,14 @@ ParametrizationPackage examples See Also: o )show ParametrizationPackage -@ +\end{chunk} \pagehead{ParametrizationPackage}{PARAMP} \pagepic{ps/v104parametrizationpackage.eps}{PARAMP}{1.00} {\bf Exports:}\\ \cross{PARAMP}{parametrize} -<>= +\begin{chunk}{package PARAMP ParametrizationPackage} )abbreviation package PARAMP ParametrizationPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -125546,18 +125548,18 @@ ParametrizationPackage(K,symb,PolyRing,E,ProjPt,PCS,Plc):Exp == Impl where parametrize(f:PolyRing,pt:Plc,n:Integer)== s:=parametrize(f,pt) shift(s,n) -@ -<>= +\end{chunk} +\begin{chunk}{PARAMP.dotabb} "PARAMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PARAMP"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PARAMP" -> "DIRPCAT" "PARAMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFRPAC PartialFractionPackage} -<>= +\begin{chunk}{PartialFractionPackage.input} )set break resume )spool PartialFractionPackage.output )set message test on @@ -125603,8 +125605,8 @@ partialFraction(b,x)$PFRPAC(INT) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PartialFractionPackage.help} ==================================================================== PartialFractionPackage examples ==================================================================== @@ -125644,14 +125646,14 @@ We can do the same thing with a different variable: See Also: o )show PartialFractionPackage -@ +\end{chunk} \pagehead{PartialFractionPackage}{PFRPAC} \pagepic{ps/v104partialfractionpackage.ps}{PFRPAC}{1.00} {\bf Exports:}\\ \cross{PFRPAC}{partialFraction} -<>= +\begin{chunk}{package PFRPAC PartialFractionPackage} )abbrev package PFRPAC PartialFractionPackage ++ Author: Barry M. Trager ++ Date Created: 1992 @@ -125708,13 +125710,13 @@ PartialFractionPackage(R): Cat == Capsule where pfup:=partialFraction(makeSup(p,v) pretend up,nflist)$PartialFraction(up) coerce(pfup)$AnyFunctions1(PartialFraction up) -@ -<>= +\end{chunk} +\begin{chunk}{PFRPAC.dotabb} "PFRPAC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFRPAC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PFRPAC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PARTPERM PartitionsAndPermutations} \pagehead{PartitionsAndPermutations}{PARTPERM} @@ -125731,7 +125733,7 @@ PartialFractionPackage(R): Cat == Capsule where \cross{PARTPERM}{shufflein} &&& \end{tabular} -<>= +\begin{chunk}{package PARTPERM PartitionsAndPermutations} )abbrev package PARTPERM PartitionsAndPermutations ++ Author: William H. Burge ++ Date Created: 29 October 1987 @@ -125845,13 +125847,13 @@ PartitionsAndPermutations: Exports == Implementation where permutations n == sequences(rpt(n,1),[i for i in 1..n]) -@ -<>= +\end{chunk} +\begin{chunk}{PARTPERM.dotabb} "PARTPERM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PARTPERM"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PARTPERM" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PATTERN1 PatternFunctions1} \pagehead{PatternFunctions1}{PATTERN1} @@ -125866,7 +125868,7 @@ PartitionsAndPermutations: Exports == Implementation where \cross{PATTERN1}{suchThat} \end{tabular} -<>= +\begin{chunk}{package PATTERN1 PatternFunctions1} )abbrev package PATTERN1 PatternFunctions1 ++ Author: Manuel Bronstein ++ Date Created: 28 Nov 1989 @@ -125929,8 +125931,8 @@ PatternFunctions1(R:SetCategory, D:Type): with suchThat(p:Pattern R, l:List(D -> Boolean)) == st(p, [coerce(f)$A1 for f in l]) -@ -<>= +\end{chunk} +\begin{chunk}{PATTERN1.dotabb} "PATTERN1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PATTERN1"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] @@ -125939,7 +125941,7 @@ PatternFunctions1(R:SetCategory, D:Type): with "PATTERN1" -> "KOERCE" "PATTERN1" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PATTERN2 PatternFunctions2} \pagehead{PatternFunctions2}{PATTERN2} @@ -125948,7 +125950,7 @@ PatternFunctions1(R:SetCategory, D:Type): with {\bf Exports:}\\ \cross{PATTERN2}{map} -<>= +\begin{chunk}{package PATTERN2 PatternFunctions2} )abbrev package PATTERN2 PatternFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 28 Nov 1989 @@ -125986,13 +125988,13 @@ PatternFunctions2(R:SetCategory, S:SetCategory): with sy := retract(p)@Symbol setPredicates(sy::Pattern(S), copy predicates p) -@ -<>= +\end{chunk} +\begin{chunk}{PATTERN2.dotabb} "PATTERN2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PATTERN2"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PATTERN2" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PATMATCH PatternMatch} \pagehead{PatternMatch}{PATMATCH} @@ -126004,7 +126006,7 @@ PatternFunctions2(R:SetCategory, S:SetCategory): with \cross{PATMATCH}{Is} \end{tabular} -<>= +\begin{chunk}{package PATMATCH PatternMatch} )abbrev package PATMATCH PatternMatch ++ Top-level pattern matching functions ++ Author: Manuel Bronstein @@ -126076,8 +126078,8 @@ PatternMatch(Base, Subject, Pat): Exports == Implementation where else Is(s:Subject,p:Pat):PatternMatchResult(Base,Subject) == ist(s,p) -@ -<>= +\end{chunk} +\begin{chunk}{PATMATCH.dotabb} "PATMATCH" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PATMATCH"] "PATMAB" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PATMAB"] "RETRACT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RETRACT"] @@ -126088,7 +126090,7 @@ PatternMatch(Base, Subject, Pat): Exports == Implementation where "PATMATCH" -> "LMODULE" "PATMATCH" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMASS PatternMatchAssertions} \pagehead{PatternMatchAssertions}{PMASS} @@ -126102,7 +126104,7 @@ PatternMatch(Base, Subject, Pat): Exports == Implementation where \cross{PMASS}{optional} \end{tabular} -<>= +\begin{chunk}{package PMASS PatternMatchAssertions} )abbrev package PMASS PatternMatchAssertions ++ Author: Manuel Bronstein ++ Date Created: 21 Mar 1989 @@ -126137,15 +126139,15 @@ PatternMatchAssertions(): Exports == Implementation where optional x == optional(x::FE) assert(x, s) == assert(x::FE, s) -@ -<>= +\end{chunk} +\begin{chunk}{PMASS.dotabb} "PMASS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMASS"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "PMASS" -> "PID" "PMASS" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMFS PatternMatchFunctionSpace} \pagehead{PatternMatchFunctionSpace}{PMFS} @@ -126154,7 +126156,7 @@ PatternMatchAssertions(): Exports == Implementation where {\bf Exports:}\\ \cross{PMFS}{patternMatch} -<>= +\begin{chunk}{package PMFS PatternMatchFunctionSpace} )abbrev package PMFS PatternMatchFunctionSpace ++ Author: Manuel Bronstein ++ Date Created: 15 Mar 1990 @@ -126227,13 +126229,13 @@ PatternMatchFunctionSpace(S, R, F): Exports== Implementation where patternMatch((ex::RCX).var, (ep::RCP).val, l) failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMFS.dotabb} "PMFS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMFS"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "PMFS" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMINS PatternMatchIntegerNumberSystem} \pagehead{PatternMatchIntegerNumberSystem}{PMINS} @@ -126242,7 +126244,7 @@ PatternMatchFunctionSpace(S, R, F): Exports== Implementation where {\bf Exports:}\\ \cross{PMINS}{patternMatch} -<>= +\begin{chunk}{package PMINS PatternMatchIntegerNumberSystem} )abbrev package PMINS PatternMatchIntegerNumberSystem ++ Author: Manuel Bronstein ++ Date Created: 29 Nov 1989 @@ -126319,15 +126321,15 @@ PatternMatchIntegerNumberSystem(I:IntegerNumberSystem): with failed() failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMINS.dotabb} "PMINS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMINS"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "PMINS" -> "FLAGG" "PMINS" -> "FLAGG-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTPM PatternMatchIntegration} \pagehead{PatternMatchIntegration}{INTPM} @@ -126341,7 +126343,7 @@ PatternMatchIntegerNumberSystem(I:IntegerNumberSystem): with \cross{INTPM}{splitConstant} \end{tabular} -<>= +\begin{chunk}{package INTPM PatternMatchIntegration} )abbrev package INTPM PatternMatchIntegration ++ Author: Manuel Bronstein ++ Date Created: 5 May 1992 @@ -126662,15 +126664,15 @@ PatternMatchIntegration(R, F): Exports == Implementation where suchThat(c, (x1:F):Boolean +-> freeOf?(x1, x))) "failed" -@ -<>= +\end{chunk} +\begin{chunk}{INTPM.dotabb} "INTPM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTPM"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "INTPM" -> "ACF" "INTPM" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMKERNEL PatternMatchKernel} \pagehead{PatternMatchKernel}{PMKERNEL} @@ -126679,7 +126681,7 @@ PatternMatchIntegration(R, F): Exports == Implementation where {\bf Exports:}\\ \cross{PMKERNEL}{patternMatch} -<>= +\begin{chunk}{package PMKERNEL PatternMatchKernel} )abbrev package PMKERNEL PatternMatchKernel ++ Author: Manuel Bronstein ++ Date Created: 12 Jan 1990 @@ -126774,13 +126776,13 @@ PatternMatchKernel(S, E): Exports == Implementation where (u := patternMatchInner(s, p, l)) case PRS => u::PRS failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMKERNEL.dotabb} "PMKERNEL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMKERNEL"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PMKERNEL" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMLSAGG PatternMatchListAggregate} \pagehead{PatternMatchListAggregate}{PMLSAGG} @@ -126789,7 +126791,7 @@ PatternMatchKernel(S, E): Exports == Implementation where {\bf Exports:}\\ \cross{PMLSAGG}{patternMatch} -<>= +\begin{chunk}{package PMLSAGG PatternMatchListAggregate} )abbrev package PMLSAGG PatternMatchListAggregate ++ Author: Manuel Bronstein ++ Date Created: 4 Dec 1989 @@ -126833,13 +126835,13 @@ PatternMatchListAggregate(S, R, L): Exports == Implementation where => failed() match(rest l, rest lp, r, new?) -@ -<>= +\end{chunk} +\begin{chunk}{PMLSAGG.dotabb} "PMLSAGG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMLSAGG"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PMLSAGG" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMPLCAT PatternMatchPolynomialCategory} \pagehead{PatternMatchPolynomialCategory}{PMPLCAT} @@ -126848,7 +126850,7 @@ PatternMatchListAggregate(S, R, L): Exports == Implementation where {\bf Exports:}\\ \cross{PMPLCAT}{patternMatch} -<>= +\begin{chunk}{package PMPLCAT PatternMatchPolynomialCategory} )abbrev package PMPLCAT PatternMatchPolynomialCategory ++ Author: Manuel Bronstein ++ Date Created: 9 Jan 1990 @@ -126930,13 +126932,13 @@ PatternMatchPolynomialCategory(S,E,V,R,P):Exports== Implementation where vmatch((ex::RCX).var, (ep::RCP).val, l) failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMPLCAT.dotabb} "PMPLCAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMPLCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PMPLCAT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMDOWN PatternMatchPushDown} \pagehead{PatternMatchPushDown}{PMDOWN} @@ -126948,7 +126950,7 @@ PatternMatchPolynomialCategory(S,E,V,R,P):Exports== Implementation where \cross{PMDOWN}{patternMatch} \end{tabular} -<>= +\begin{chunk}{package PMDOWN PatternMatchPushDown} )abbrev package PMDOWN PatternMatchPushDown ++ Author: Manuel Bronstein ++ Date Created: 1 Dec 1989 @@ -127046,13 +127048,13 @@ PatternMatchPushDown(S, A, B): Exports == Implementation where [q, (empty?(ua::List A) => la; insertMatch(q,first(ua::List A), la))] error "Should not happen" -@ -<>= +\end{chunk} +\begin{chunk}{PMDOWN.dotabb} "PMDOWN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMDOWN"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PMDOWN" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMQFCAT PatternMatchQuotientFieldCategory} \pagehead{PatternMatchQuotientFieldCategory}{PMQFCAT} @@ -127061,7 +127063,7 @@ PatternMatchPushDown(S, A, B): Exports == Implementation where {\bf Exports:}\\ \cross{PMQFCAT}{patternMatch} -<>= +\begin{chunk}{package PMQFCAT PatternMatchQuotientFieldCategory} )abbrev package PMQFCAT PatternMatchQuotientFieldCategory ++ Author: Manuel Bronstein ++ Date Created: 1 Dec 1989 @@ -127097,13 +127099,13 @@ PatternMatchQuotientFieldCategory(S,R,Q):Exports == Implementation where patternMatch(denom x, ur.den, l) failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMQFCAT.dotabb} "PMQFCAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMQFCAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PMQFCAT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PATRES2 PatternMatchResultFunctions2} \pagehead{PatternMatchResultFunctions2}{PATRES2} @@ -127112,7 +127114,7 @@ PatternMatchQuotientFieldCategory(S,R,Q):Exports == Implementation where {\bf Exports:}\\ \cross{PATRES2}{map} -<>= +\begin{chunk}{package PATRES2 PatternMatchResultFunctions2} )abbrev package PATRES2 PatternMatchResultFunctions2 ++ Author: Manuel Bronstein ++ Date Created: 1 Dec 1989 @@ -127136,15 +127138,15 @@ PatternMatchResultFunctions2(R, A, B): Exports == Implementation where failed? r => failed() construct [[rec.key, f(rec.entry)] for rec in destruct r] -@ -<>= +\end{chunk} +\begin{chunk}{PATRES2.dotabb} "PATRES2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PATRES2"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "PATRES2" -> "BASTYPE" "PATRES2" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMSYM PatternMatchSymbol} \pagehead{PatternMatchSymbol}{PMSYM} @@ -127153,7 +127155,7 @@ PatternMatchResultFunctions2(R, A, B): Exports == Implementation where {\bf Exports:}\\ \cross{PMSYM}{patternMatch} -<>= +\begin{chunk}{package PMSYM PatternMatchSymbol} )abbrev package PMSYM PatternMatchSymbol ++ Author: Manuel Bronstein ++ Date Created: 9 Jan 1990 @@ -127179,13 +127181,13 @@ PatternMatchSymbol(S:SetCategory): with failed() failed() -@ -<>= +\end{chunk} +\begin{chunk}{PMSYM.dotabb} "PMSYM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMSYM"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PMSYM" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PMTOOLS PatternMatchTools} \pagehead{PatternMatchTools}{PMTOOLS} @@ -127197,7 +127199,7 @@ PatternMatchSymbol(S:SetCategory): with \cross{PMTOOLS}{patternMatchTimes} \end{tabular} -<>= +\begin{chunk}{package PMTOOLS PatternMatchTools} )abbrev package PMTOOLS PatternMatchTools ++ Author: Manuel Bronstein ++ Date Created: 13 Mar 1990 @@ -127361,16 +127363,16 @@ PatternMatchTools(S, R, P): Exports == Implementation where failed() addMatch(first lpm, op ls, l) -@ -<>= +\end{chunk} +\begin{chunk}{PMTOOLS.dotabb} "PMTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PMTOOLS"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PMTOOLS" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PERMAN Permanent} -<>= +\begin{chunk}{Permanent.input} )set break resume )spool Permanent.output )set message test on @@ -127409,8 +127411,8 @@ permanent(kn(5) :: SQMATRIX(5,INT)) --E 3 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{Permanent.help} ==================================================================== Permanent examples ==================================================================== @@ -127445,14 +127447,14 @@ Here are some derangement numbers, which you see grow quite fast. See Also: o )show Permanent -@ +\end{chunk} \pagehead{Permanent}{PERMAN} \pagepic{ps/v104permanent.ps}{PERMAN}{1.00} {\bf Exports:}\\ \cross{PERMAN}{permanent} -<>= +\begin{chunk}{package PERMAN Permanent} )abbrev package PERMAN Permanent ++ Authors: Johannes Grabmeier, Oswald Gschnitzer ++ Date Created: 7 August 1989 @@ -127638,13 +127640,13 @@ Permanent(n : PositiveInteger, R : Ring with commutative("*")): b := two ** ((n-1):NNI) (a exquo b) :: R -@ -<>= +\end{chunk} +\begin{chunk}{PERMAN.dotabb} "PERMAN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PERMAN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "PERMAN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PGE PermutationGroupExamples} \pagehead{PermutationGroupExamples}{PGE} @@ -127667,7 +127669,7 @@ Permanent(n : PositiveInteger, R : Ring with commutative("*")): \cross{PGE}{youngGroup} && \end{tabular} -<>= +\begin{chunk}{package PGE PermutationGroupExamples} )abbrev package PGE PermutationGroupExamples ++ Authors: M. Weller, G. Schneider, J. Grabmeier ++ Date Created: 20 February 1990 @@ -128039,13 +128041,13 @@ PermutationGroupExamples():public == private where n = 2 => llli2gp [[[1,2]],[[3,4]]] dihedralGroup li1n n -@ -<>= +\end{chunk} +\begin{chunk}{PGE.dotabb} "PGE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PGE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PGE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PICOERCE PiCoercions} \pagehead{PiCoercions}{PICOERCE} @@ -128054,7 +128056,7 @@ PermutationGroupExamples():public == private where {\bf Exports:}\\ \cross{PICOERCE}{coerce} -<>= +\begin{chunk}{package PICOERCE PiCoercions} )abbrev package PICOERCE PiCoercions ++ Author: Manuel Bronstein ++ Date Created: 21 Feb 1990 @@ -128078,13 +128080,13 @@ PiCoercions(R:Join(OrderedSet, IntegralDomain)): with $SparseUnivariatePolynomialFunctions2(Integer, Expression R)_ (pi()$Expression(R)) -@ -<>= +\end{chunk} +\begin{chunk}{PICOERCE.dotabb} "PICOERCE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PICOERCE"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "PICOERCE" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PLOT1 PlotFunctions1} \pagehead{PlotFunctions1}{PLOT1} @@ -128096,7 +128098,7 @@ PiCoercions(R:Join(OrderedSet, IntegralDomain)): with \cross{PLOT1}{plot} \end{tabular} -<>= +\begin{chunk}{package PLOT1 PlotFunctions1} )abbrev package PLOT1 PlotFunctions1 ++ Authors: R.T.M. Bronstein, C.J. Williamson ++ Date Created: Jan 1989 @@ -128133,13 +128135,13 @@ PlotFunctions1(S:ConvertibleTo InputForm): with plotPolar(f,theta,thetaRange) == plotPolar(makeFloatFunction(f,theta),thetaRange) -@ -<>= +\end{chunk} +\begin{chunk}{PLOT1.dotabb} "PLOT1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PLOT1"] "KONVERT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KONVERT"] "PLOT1" -> "KONVERT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PLOTTOOL PlotTools} \pagehead{PlotTools}{PLOTTOOL} @@ -128148,7 +128150,7 @@ PlotFunctions1(S:ConvertibleTo InputForm): with {\bf Exports:}\\ \cross{PLOTTOOL}{calcRanges} -<>= +\begin{chunk}{package PLOTTOOL PlotTools} )abbrev package PLOTTOOL PlotTools ++ Author: ++ Date Created: @@ -128225,19 +128227,19 @@ PlotTools(): Exports == Implementation where drawToScale() => drawToScaleRanges(xRange llp, yRange llp) [xRange llp, yRange llp] -@ -<>= +\end{chunk} +\begin{chunk}{PLOTTOOL.dotabb} "PLOTTOOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PLOTTOOL"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "PLOTTOOL" -> "FIELD" "PLOTTOOL" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PRJALGPK ProjectiveAlgebraicSetPackage \section{package PRJALGPK ProjectiveAlgebraicSetPackage} -<>= +\begin{chunk}{ProjectiveAlgebraicSetPackage.input} )set break resume )sys rm -f ProjectiveAlgebraicSetPackage.output )spool ProjectiveAlgebraicSetPackage.output @@ -128262,8 +128264,8 @@ PRJALGPK ProjectiveAlgebraicSetPackage )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ProjectiveAlgebraicSetPackage.help} ==================================================================== ProjectiveAlgebraicSetPackage examples ==================================================================== @@ -128271,7 +128273,7 @@ ProjectiveAlgebraicSetPackage examples See Also: o )show ProjectiveAlgebraicSetPackage -@ +\end{chunk} \pagehead{ProjectiveAlgebraicSetPackage}{PRJALGPK} \pagepic{ps/v104projectivealgebraicsetpackage.eps}{PRJALGPK}{1.00} @@ -128283,7 +128285,7 @@ o )show ProjectiveAlgebraicSetPackage \cross{PRJALGPK}{singularPointsWithRestriction} \end{tabular} -<>= +\begin{chunk}{package PRJALGPK ProjectiveAlgebraicSetPackage} )abbrev package PRJALGPK ProjectiveAlgebraicSetPackage ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -128445,13 +128447,13 @@ ProjectiveAlgebraicSetPackage(K,symb,PolyRing,E,ProjPt):_ idealSingulier:List(PolyRing):=concat([F,Fx,Fy,Fz],lstPol) algebraicSet(idealSingulier) -@ -<>= +\end{chunk} +\begin{chunk}{PRJALGPK.dotabb} "PRJALGPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRJALGPK"] "AFALGGRO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=AFALGGRO"] "PRJALGPK" -> "AFALGGRO" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PTFUNC2 PointFunctions2} \pagehead{PointFunctions2}{PTFUNC2} @@ -128460,7 +128462,7 @@ ProjectiveAlgebraicSetPackage(K,symb,PolyRing,E,ProjPt):_ {\bf Exports:}\\ \cross{PTFUNC2}{map} -<>= +\begin{chunk}{package PTFUNC2 PointFunctions2} )abbrev package PTFUNC2 PointFunctions2 ++ Description: ++ This package has no description @@ -128478,15 +128480,15 @@ PointFunctions2(R1:Ring,R2:Ring):Exports == Implementation where map(mapping,p) == point([mapping p.(i::PositiveInteger) for i in minIndex(p)..maxIndex(p)])$Point(R2) -@ -<>= +\end{chunk} +\begin{chunk}{PTFUNC2.dotabb} "PTFUNC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PTFUNC2"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "PTFUNC2" -> "PID" "PTFUNC2" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PTPACK PointPackage} \pagehead{PointPackage}{PTPACK} @@ -128505,7 +128507,7 @@ PointFunctions2(R1:Ring,R2:Ring):Exports == Implementation where \cross{PTPACK}{zCoord} & \end{tabular} -<>= +\begin{chunk}{package PTPACK PointPackage} )abbrev package PTPACK PointPackage ++ Description: ++ This package has no description @@ -128593,13 +128595,13 @@ PointPackage(R:Ring):Exports == Implementation where shade p == elt(p,4) -- 4D points in 2D using extra dimensions for palette information -@ -<>= +\end{chunk} +\begin{chunk}{PTPACK.dotabb} "PTPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PTPACK"] "PTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PTCAT"] "PTPACK" -> "PTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFO PointsOfFiniteOrder} \pagehead{PointsOfFiniteOrder}{PFO} @@ -128612,7 +128614,7 @@ PointPackage(R:Ring):Exports == Implementation where \cross{PFO}{torsionIfCan} \end{tabular} -<>= +\begin{chunk}{package PFO PointsOfFiniteOrder} )abbrev package PFO PointsOfFiniteOrder ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -128889,15 +128891,15 @@ PointsOfFiniteOrder(R0, F, UP, UPUP, R): Exports == Implementation where zero?(kbadBadNum(b,m) rem p) or zero?(kbadBadNum(d,m) rem p) or zero?(kbad3Num(h, m) rem p)) -@ -<>= +\end{chunk} +\begin{chunk}{PFO.dotabb} "PFO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFO"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "PFO" -> "FS" "PFO" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFOQ PointsOfFiniteOrderRational} \pagehead{PointsOfFiniteOrderRational}{PFOQ} @@ -128910,7 +128912,7 @@ PointsOfFiniteOrder(R0, F, UP, UPUP, R): Exports == Implementation where \cross{PFOQ}{torsionIfCan} \end{tabular} -<>= +\begin{chunk}{package PFOQ PointsOfFiniteOrderRational} )abbrev package PFOQ PointsOfFiniteOrderRational ++ Author: Manuel Bronstein ++ Date Created: 25 Aug 1988 @@ -128989,13 +128991,13 @@ PointsOfFiniteOrderRational(UP, UPUP, R): Exports == Implementation where (g := generator reduce(n::Z * d)) case "failed" => "failed" [n, g::R] -@ -<>= +\end{chunk} +\begin{chunk}{PFOQ.dotabb} "PFOQ" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFOQ"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "PFOQ" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFOTOOLS PointsOfFiniteOrderTools} \pagehead{PointsOfFiniteOrderTools}{PFOTOOLS} @@ -129010,7 +129012,7 @@ PointsOfFiniteOrderRational(UP, UPUP, R): Exports == Implementation where \cross{PFOTOOLS}{polyred} \end{tabular} -<>= +\begin{chunk}{package PFOTOOLS PointsOfFiniteOrderTools} )abbrev package PFOTOOLS PointsOfFiniteOrderTools ++ Author: Manuel Bronstein ++ Date Created: 25 Aug 1988 @@ -129065,16 +129067,16 @@ PointsOfFiniteOrderTools(UP, UPUP): Exports == Implementation where d := retract(discriminant r)@UP retract(discriminant((d exquo gcd(d, differentiate d))::UP))@Z -@ -<>= +\end{chunk} +\begin{chunk}{PFOTOOLS.dotabb} "PFOTOOLS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFOTOOLS"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PFOTOOLS" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PLPKCRV PolynomialPackageForCurve} -<>= +\begin{chunk}{PolynomialPackageForCurve.input} )set break resume )sys rm -f PolynomialPackageForCurve.output )spool PolynomialPackageForCurve.output @@ -129103,8 +129105,8 @@ PointsOfFiniteOrderTools(UP, UPUP): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{PolynomialPackageForCurve.help} ==================================================================== PolynomialPackageForCurve examples ==================================================================== @@ -129112,7 +129114,7 @@ PolynomialPackageForCurve examples See Also: o )show PolynomialPackageForCurve -@ +\end{chunk} \pagehead{PolynomialPackageForCurve}{PLPKCRV} \pagepic{ps/v104polynomialpackageforcurve.eps}{PLPKCRV}{1.00} @@ -129125,7 +129127,7 @@ o )show PolynomialPackageForCurve \cross{PLPKCRV}{translateToOrigin} \end{tabular} -<>= +\begin{chunk}{package PLPKCRV PolynomialPackageForCurve} )abbrev package PLPKCRV PolynomialPackageForCurve ++ Author: Gaetan Hache ++ Date Created: 17 nov 1992 @@ -129215,13 +129217,13 @@ PolynomialPackageForCurve(K,PolyRing,E,dim,ProjPt):Exp == Impl where minimalForm(crb,pt,nV)== minimalForm(translateToOrigin(crb,pt,nV)) -@ -<>= +\end{chunk} +\begin{chunk}{PLPKCRV.dotabb} "PLPKCRV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PLPKCRV"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "PLPKCRV" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLTOPOL PolToPol} \pagehead{PolToPol}{POLTOPOL} @@ -129237,7 +129239,7 @@ PolynomialPackageForCurve(K,PolyRing,E,dim,ProjPt):Exp == Impl where \cross{POLTOPOL}{pToHdmp} \end{tabular} -<>= +\begin{chunk}{package POLTOPOL PolToPol} )abbrev package POLTOPOL PolToPol ++ Author : P.Gianni, Summer '88 ++ Description: @@ -129308,13 +129310,13 @@ PolToPol(lv,R) : C == T monomial(leadingCoefficient hdpol,dd)$DPoly+ hdmpToDmp(reductum hdpol) -@ -<>= +\end{chunk} +\begin{chunk}{POLTOPOL.dotabb} "POLTOPOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLTOPOL"] "DIRPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=DIRPCAT"] "POLTOPOL" -> "DIRPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PGROEB PolyGroebner} \pagehead{PolyGroebner}{PGROEB} @@ -129326,7 +129328,7 @@ PolToPol(lv,R) : C == T \cross{PGROEB}{totalGroebner} \end{tabular} -<>= +\begin{chunk}{package PGROEB PolyGroebner} )abbrev package PGROEB PolyGroebner ++ Author: P. Gianni ++ Date Created: Summer 1988 @@ -129391,13 +129393,13 @@ PolyGroebner(F) : C == T gb:=groebner(b)$GroebnerPackage(F,HDP,OV,HDPoly) [hdmpToP(pp)$PP for pp in gb] -@ -<>= +\end{chunk} +\begin{chunk}{PGROEB.dotabb} "PGROEB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PGROEB"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "PGROEB" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PAN2EXPR PolynomialAN2Expression} \pagehead{PolynomialAN2Expression}{PAN2EXPR} @@ -129406,7 +129408,7 @@ PolyGroebner(F) : C == T {\bf Exports:}\\ \cross{PAN2EXPR}{coerce} -<>= +\begin{chunk}{package PAN2EXPR PolynomialAN2Expression} )abbrev package PAN2EXPR PolynomialAN2Expression ++ Author: Barry Trager ++ Date Created: 8 Oct 1991 @@ -129434,15 +129436,15 @@ PolynomialAN2Expression():Target == Implementation where coerce(rf:Fraction PAN):EXPR == numer(rf)::EXPR / denom(rf)::EXPR -@ -<>= +\end{chunk} +\begin{chunk}{PAN2EXPR.dotabb} "PAN2EXPR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PAN2EXPR"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "PAN2EXPR" -> "ACF" "PAN2EXPR" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLYLIFT PolynomialCategoryLifting} \pagehead{PolynomialCategoryLifting}{POLYLIFT} @@ -129451,7 +129453,7 @@ PolynomialAN2Expression():Target == Implementation where {\bf Exports:}\\ \cross{POLYLIFT}{map} -<>= +\begin{chunk}{package POLYLIFT PolynomialCategoryLifting} )abbrev package POLYLIFT PolynomialCategoryLifting ++ Author: Manuel Bronstein ++ Date Created: @@ -129497,13 +129499,13 @@ PolynomialCategoryLifting(E,Vars,R,P,S): Exports == Implementation where up := reductum up ans + map(fv, fc, leadingCoefficient up) -@ -<>= +\end{chunk} +\begin{chunk}{POLYLIFT.dotabb} "POLYLIFT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLYLIFT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLYLIFT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLYCATQ PolynomialCategoryQuotientFunctions} \pagehead{PolynomialCategoryQuotientFunctions}{POLYCATQ} @@ -129521,7 +129523,7 @@ PolynomialCategoryLifting(E,Vars,R,P,S): Exports == Implementation where \cross{POLYCATQ}{univariate} && \end{tabular} -<>= +\begin{chunk}{package POLYCATQ PolynomialCategoryQuotientFunctions} )abbrev package POLYCATQ PolynomialCategoryQuotientFunctions ++ Author: Manuel Bronstein ++ Date Created: March 1988 @@ -129653,13 +129655,13 @@ PolynomialCategoryQuotientFunctions(E, V, R, P, F): map(z +-> z::F, univariate(p, x))$SparseUnivariatePolynomialFunctions2(P, F) -@ -<>= +\end{chunk} +\begin{chunk}{POLYCATQ.dotabb} "POLYCATQ" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLYCATQ"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLYCATQ" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PCOMP PolynomialComposition} \pagehead{PolynomialComposition}{PCOMP} @@ -129668,7 +129670,7 @@ PolynomialCategoryQuotientFunctions(E, V, R, P, F): {\bf Exports:}\\ \cross{PCOMP}{compose} -<>= +\begin{chunk}{package PCOMP PolynomialComposition} )abbrev package PCOMP PolynomialComposition ++ References: Kozen and Landau, Cornell University TR 86-773 ++ Description: @@ -129686,13 +129688,13 @@ PolynomialComposition(UP: UnivariatePolynomialCategory(R), R: Ring): with g := reductum g r -@ -<>= +\end{chunk} +\begin{chunk}{PCOMP.dotabb} "PCOMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PCOMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PCOMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PDECOMP PolynomialDecomposition} \pagehead{PolynomialDecomposition}{PDECOMP} @@ -129705,7 +129707,7 @@ PolynomialComposition(UP: UnivariatePolynomialCategory(R), R: Ring): with \cross{PDECOMP}{rightFactorCandidate} \end{tabular} -<>= +\begin{chunk}{package PDECOMP PolynomialDecomposition} )abbrev package PDECOMP PolynomialDecomposition ++ References: Kozen and Landau, Cornell University TR 86-773 ++ Description: @@ -129764,13 +129766,13 @@ PolynomialDecomposition(UP, F): PDcat == PDdef where h := h + monomial(c, (dh-k)::NNI) h - monomial(coefficient(h, 0), 0) -- drop constant term -@ -<>= +\end{chunk} +\begin{chunk}{PDECOMP.dotabb} "PDECOMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PDECOMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PDECOMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFBR PolynomialFactorizationByRecursion} \pagehead{PolynomialFactorizationByRecursion}{PFBR} @@ -129786,7 +129788,7 @@ PolynomialDecomposition(UP, F): PDcat == PDdef where \cross{PFBR}{solveLinearPolynomialEquationByRecursion} \end{tabular} -<>= +\begin{chunk}{package PFBR PolynomialFactorizationByRecursion} )abbrev package PFBR PolynomialFactorizationByRecursion ++ Description: ++ PolynomialFactorizationByRecursion(R,E,VarSet,S) @@ -130080,13 +130082,13 @@ PolynomialFactorizationByRecursion(R,E, VarSet:OrderedSet, S): public == makeFR((recip lcppPow)::S::SupS, [["irred",w,1] for w in factors]) -@ -<>= +\end{chunk} +\begin{chunk}{PFBR.dotabb} "PFBR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFBR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PFBR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PFBRU PolynomialFactorizationByRecursionUnivariate} \pagehead{PolynomialFactorizationByRecursionUnivariate}{PFBRU} @@ -130101,7 +130103,7 @@ PolynomialFactorizationByRecursion(R,E, VarSet:OrderedSet, S): public == \cross{PFBRU}{solveLinearPolynomialEquationByRecursion} & \end{tabular} -<>= +\begin{chunk}{package PFBRU PolynomialFactorizationByRecursionUnivariate} )abbrev package PFBRU PolynomialFactorizationByRecursionUnivariate ++ Description: ++ PolynomialFactorizationByRecursionUnivariate @@ -130342,13 +130344,13 @@ PolynomialFactorizationByRecursionUnivariate(R, S): public == private where makeFR((recip lcppPow)::S::SupS, [["irred",w,1] for w in factors]) -@ -<>= +\end{chunk} +\begin{chunk}{PFBRU.dotabb} "PFBRU" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PFBRU"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PFBRU" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLY2 PolynomialFunctions2} \pagehead{PolynomialFunctions2}{POLY2} @@ -130357,7 +130359,7 @@ PolynomialFactorizationByRecursionUnivariate(R, S): public == private where {\bf Exports:}\\ \cross{POLY2}{map} -<>= +\begin{chunk}{package POLY2 PolynomialFunctions2} )abbrev package POLY2 PolynomialFunctions2 ++ Author: ++ Date Created: @@ -130382,13 +130384,13 @@ PolynomialFunctions2(R:Ring, S:Ring): with Symbol, R, Polynomial R, Polynomial S) -@ -<>= +\end{chunk} +\begin{chunk}{POLY2.dotabb} "POLY2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLY2"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLY2" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PGCD PolynomialGcdPackage} \pagehead{PolynomialGcdPackage}{PGCD} @@ -130400,7 +130402,7 @@ PolynomialFunctions2(R:Ring, S:Ring): with \cross{PGCD}{gcdPrimitive} \end{tabular} -<>= +\begin{chunk}{package PGCD PolynomialGcdPackage} )abbrev package PGCD PolynomialGcdPackage ++ Author: Michael Lucks, P. Gianni ++ Date Created: @@ -130788,13 +130790,13 @@ PolynomialGcdPackage(E,OV,R,P):C == T where if f=1$P then return f f -@ -<>= +\end{chunk} +\begin{chunk}{PGCD.dotabb} "PGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PGCD"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PGCD" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PINTERP PolynomialInterpolation} \pagehead{PolynomialInterpolation}{PINTERP} @@ -130803,7 +130805,7 @@ PolynomialGcdPackage(E,OV,R,P):C == T where {\bf Exports:}\\ \cross{PINTERP}{interpolate} -<>= +\begin{chunk}{package PINTERP PolynomialInterpolation} )abbrev package PINTERP PolynomialInterpolation ++ Description: ++ This package exports interpolation algorithms @@ -130830,13 +130832,13 @@ PolynomialInterpolation(xx, F): Cat == Body where interpolate(lx, ly) == LagrangeInterpolation(lx, ly)$PIA(F, SUP F) -@ -<>= +\end{chunk} +\begin{chunk}{PINTERP.dotabb} "PINTERP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PINTERP"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "PINTERP" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PINTERPA PolynomialInterpolationAlgorithms} \pagehead{PolynomialInterpolationAlgorithms}{PINTERPA} @@ -130845,7 +130847,7 @@ PolynomialInterpolation(xx, F): Cat == Body where {\bf Exports:}\\ \cross{PINTERPA}{LagrangeInterpolation} -<>= +\begin{chunk}{package PINTERPA PolynomialInterpolationAlgorithms} )abbrev package PINTERPA PolynomialInterpolationAlgorithms ++ Description: ++ This package exports interpolation algorithms @@ -130872,13 +130874,13 @@ PolynomialInterpolationAlgorithms(F, P): Cat == Body where ip := ip + (yi/xp) * pp ip -@ -<>= +\end{chunk} +\begin{chunk}{PINTERPA.dotabb} "PINTERPA" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PINTERPA"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PINTERPA" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PNTHEORY PolynomialNumberTheoryFunctions} \pagehead{PolynomialNumberTheoryFunctions}{PNTHEORY} @@ -130897,7 +130899,7 @@ PolynomialInterpolationAlgorithms(F, P): Cat == Body where \cross{PNTHEORY}{legendre} & \end{tabular} -<>= +\begin{chunk}{package PNTHEORY PolynomialNumberTheoryFunctions} )abbrev package PNTHEORY PolynomialNumberTheoryFunctions ++ Author: Michael Monagan, Clifton J. Williamson ++ Date Created: June 1987 @@ -131108,13 +131110,13 @@ PolynomialNumberTheoryFunctions(): Exports == Implementation where U.U2 := q p -@ -<>= +\end{chunk} +\begin{chunk}{PNTHEORY.dotabb} "PNTHEORY" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PNTHEORY"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PNTHEORY" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLYROOT PolynomialRoots} \pagehead{PolynomialRoots}{POLYROOT} @@ -131128,7 +131130,7 @@ PolynomialNumberTheoryFunctions(): Exports == Implementation where \cross{POLYROOT}{rroot} \end{tabular} -<>= +\begin{chunk}{package POLYROOT PolynomialRoots} )abbrev package POLYROOT PolynomialRoots ++ Author: Manuel Bronstein ++ Date Created: 15 July 1988 @@ -131256,13 +131258,13 @@ PolynomialRoots(E, V, R, P, F):Exports == Implementation where (pd.poly ** (m quo sd.exponent))::F] -@ -<>= +\end{chunk} +\begin{chunk}{POLYROOT.dotabb} "POLYROOT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLYROOT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLYROOT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PSETPK PolynomialSetUtilitiesPackage} \pagehead{PolynomialSetUtilitiesPackage}{PSETPK} @@ -131303,7 +131305,7 @@ PolynomialRoots(E, V, R, P, F):Exports == Implementation where \cross{PSETPK}{unprotectedRemoveRedundantFactors} & \end{tabular} -<>= +\begin{chunk}{package PSETPK PolynomialSetUtilitiesPackage} )abbrev package PSETPK PolynomialSetUtilitiesPackage ++ Author: Marc Moreno Maza (marc@nag.co.uk) ++ Date Created: 12/01/1995 @@ -132120,13 +132122,13 @@ PolynomialSetUtilitiesPackage (R,E,V,P) : Exports == Implementation where toSave := sort(infRittWu?,cons(a,toSave)) toSave -@ -<>= +\end{chunk} +\begin{chunk}{PSETPK.dotabb} "PSETPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PSETPK"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "PSETPK" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SOLVEFOR PolynomialSolveByFormulas} \pagehead{PolynomialSolveByFormulas}{SOLVEFOR} @@ -132147,7 +132149,7 @@ PolynomialSetUtilitiesPackage (R,E,V,P) : Exports == Implementation where \cross{SOLVEFOR}{mapSolve} &&&& \end{tabular} -<>= +\begin{chunk}{package SOLVEFOR PolynomialSolveByFormulas} )abbrev package SOLVEFOR PolynomialSolveByFormulas -- Current fields with "**": (%, RationalNumber) -> % are -- ComplexFloat, RadicalExtension(K) and RationalRadical @@ -132418,13 +132420,13 @@ PolynomialSolveByFormulas(UP, F): PSFcat == PSFdef where s := aQuadratic( 1, rt, (-q/rt + t0)/2::F ) s - a1/4::F -@ -<>= +\end{chunk} +\begin{chunk}{SOLVEFOR.dotabb} "SOLVEFOR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SOLVEFOR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SOLVEFOR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PSQFR PolynomialSquareFree} \pagehead{PolynomialSquareFree}{PSQFR} @@ -132433,7 +132435,7 @@ PolynomialSolveByFormulas(UP, F): PSFcat == PSFdef where {\bf Exports:}\\ \cross{PSQFR}{squareFree} -<>= +\begin{chunk}{package PSQFR PolynomialSquareFree} )abbrev package PSQFR PolynomialSquareFree ++ Author: ++ Date Created: @@ -132559,13 +132561,13 @@ PolynomialSquareFree(VarSet:OrderedSet,E,RC:GcdDomain,P):C == T where append(factorList sqp, pfaclist)) makeFR(coefficient(unit squp,0),pfaclist) -@ -<>= +\end{chunk} +\begin{chunk}{PSQFR.dotabb} "PSQFR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PSQFR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PSQFR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLY2UP PolynomialToUnivariatePolynomial} \pagehead{PolynomialToUnivariatePolynomial}{POLY2UP} @@ -132574,7 +132576,7 @@ PolynomialSquareFree(VarSet:OrderedSet,E,RC:GcdDomain,P):C == T where {\bf Exports:}\\ \cross{POLY2UP}{univariate} -<>= +\begin{chunk}{package POLY2UP PolynomialToUnivariatePolynomial} )abbrev package POLY2UP PolynomialToUnivariatePolynomial ++ Author: ++ Date Created: @@ -132604,13 +132606,13 @@ PolynomialToUnivariatePolynomial(x:Symbol, R:Ring): with SparseUnivariatePolynomial Polynomial R, Polynomial R, UnivariatePolynomial(x, Polynomial R)) -@ -<>= +\end{chunk} +\begin{chunk}{POLY2UP.dotabb} "POLY2UP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLY2UP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLY2UP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LIMITPS PowerSeriesLimitPackage} \pagehead{PowerSeriesLimitPackage}{LIMITPS} @@ -132622,7 +132624,7 @@ PolynomialToUnivariatePolynomial(x:Symbol, R:Ring): with \cross{LIMITPS}{limit} \end{tabular} -<>= +\begin{chunk}{package LIMITPS PowerSeriesLimitPackage} )abbrev package LIMITPS PowerSeriesLimitPackage ++ Author: Clifton J. Williamson ++ Date Created: 21 March 1989 @@ -133148,13 +133150,13 @@ PowerSeriesLimitPackage(R,FE): Exports == Implementation where x := xx :: SY; a := rhs eq locallimitcomplex(fcn,x,a) -@ -<>= +\end{chunk} +\begin{chunk}{LIMITPS.dotabb} "LIMITPS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LIMITPS"] "ULSCCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ULSCCAT"] "LIMITPS" -> "ULSCCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PREASSOC PrecomputedAssociatedEquations} \pagehead{PrecomputedAssociatedEquations}{PREASSOC} @@ -133163,7 +133165,7 @@ PowerSeriesLimitPackage(R,FE): Exports == Implementation where {\bf Exports:}\\ \cross{PREASSOC}{firstUncouplingMatrix} -<>= +\begin{chunk}{package PREASSOC PrecomputedAssociatedEquations} )abbrev package PREASSOC PrecomputedAssociatedEquations ++ Author: Manuel Bronstein ++ Date Created: 13 January 1994 @@ -133258,15 +133260,15 @@ PrecomputedAssociatedEquations(R, L): Exports == Implementation where 5 * a''.3 + 15 * a.3 * a'.3 + 10 * a'.2 + 5 * a.3**3 + 10 * a.2 * a.3, 9 * a'.3 + 9 * a.3**2 + 4 * a.2] -@ -<>= +\end{chunk} +\begin{chunk}{PREASSOC.dotabb} "PREASSOC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PREASSOC"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "PREASSOC" -> "OREPCAT" "PREASSOC" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PRIMARR2 PrimitiveArrayFunctions2} \pagehead{PrimitiveArrayFunctions2}{PRIMARR2} @@ -133279,7 +133281,7 @@ PrecomputedAssociatedEquations(R, L): Exports == Implementation where \cross{PRIMARR2}{scan} \end{tabular} -<>= +\begin{chunk}{package PRIMARR2 PrimitiveArrayFunctions2} )abbrev package PRIMARR2 PrimitiveArrayFunctions2 ++ Description: ++ This package provides tools for operating on primitive arrays @@ -133329,13 +133331,13 @@ PrimitiveArrayFunctions2(A, B): Exports == Implementation where scan(f, v, b) == scan(f, v, b)$O2 reduce(f, v, b) == reduce(f, v, b)$O2 -@ -<>= +\end{chunk} +\begin{chunk}{PRIMARR2.dotabb} "PRIMARR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRIMARR2"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "PRIMARR2" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PRIMELT PrimitiveElement} \pagehead{PrimitiveElement}{PRIMELT} @@ -133344,7 +133346,7 @@ PrimitiveArrayFunctions2(A, B): Exports == Implementation where {\bf Exports:}\\ \cross{PRIMELT}{primitiveElement} -<>= +\begin{chunk}{package PRIMELT PrimitiveElement} )abbrev package PRIMELT PrimitiveElement ++ Author: Manuel Bronstein ++ Date Created: 6 Jun 1990 @@ -133448,13 +133450,13 @@ PrimitiveElement(F): Exports == Implementation where ltt := tt::List(UP) return([cf, rest ltt, first ltt]) -@ -<>= +\end{chunk} +\begin{chunk}{PRIMELT.dotabb} "PRIMELT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRIMELT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "PRIMELT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEPRIM PrimitiveRatDE} \pagehead{PrimitiveRatDE}{ODEPRIM} @@ -133468,7 +133470,7 @@ PrimitiveElement(F): Exports == Implementation where \cross{ODEPRIM}{splitDenominator} \end{tabular} -<>= +\begin{chunk}{package ODEPRIM PrimitiveRatDE} )abbrev package ODEPRIM PrimitiveRatDE ++ Author: Manuel Bronstein ++ Date Created: 1 March 1991 @@ -133645,13 +133647,13 @@ PrimitiveRatDE(F, UP, L, LQ): Exports == Implementation where h := separateZeros(d, e := "lcm"/[denom g for g in lg]) denom0(degree l, l, d, e, h) -@ -<>= +\end{chunk} +\begin{chunk}{ODEPRIM.dotabb} "ODEPRIM" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEPRIM"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ODEPRIM" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEPRRIC PrimitiveRatRicDE} \pagehead{PrimitiveRatRicDE}{ODEPRRIC} @@ -133667,7 +133669,7 @@ PrimitiveRatDE(F, UP, L, LQ): Exports == Implementation where \cross{ODEPRRIC}{singRicDE} && \end{tabular} -<>= +\begin{chunk}{package ODEPRRIC PrimitiveRatRicDE} )abbrev package ODEPRRIC PrimitiveRatRicDE ++ Author: Manuel Bronstein ++ Date Created: 22 October 1991 @@ -133925,13 +133927,13 @@ PrimitiveRatRicDE(F, UP, L, LQ): Exports == Implementation where concat_!([[atn + sol.poly, sol.eq] for sol in sols], ans) ans -@ -<>= +\end{chunk} +\begin{chunk}{ODEPRRIC.dotabb} "ODEPRRIC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEPRRIC"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "ODEPRRIC" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PRINT PrintPackage} \pagehead{PrintPackage}{PRINT} @@ -133940,7 +133942,7 @@ PrimitiveRatRicDE(F, UP, L, LQ): Exports == Implementation where {\bf Exports:}\\ \cross{PRINT}{print} -<>= +\begin{chunk}{package PRINT PrintPackage} )abbrev package PRINT PrintPackage ++ Author: Scott Morrison ++ Date Created: Aug. 1, 1990 @@ -133961,13 +133963,13 @@ PrintPackage(): with == add print(x) == print(x)$OutputForm -@ -<>= +\end{chunk} +\begin{chunk}{PRINT.dotabb} "PRINT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRINT"] "Package" [color="#FF4488"] "PRINT" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PSEUDLIN PseudoLinearNormalForm} \pagehead{PseudoLinearNormalForm}{PSEUDLIN} @@ -133980,7 +133982,7 @@ PrintPackage(): with \cross{PSEUDLIN}{normalForm} \end{tabular} -<>= +\begin{chunk}{package PSEUDLIN PseudoLinearNormalForm} )abbrev package PSEUDLIN PseudoLinearNormalForm ++ Author: Bruno Zuercher ++ Date Created: November 1993 @@ -134133,13 +134135,13 @@ PseudoLinearNormalForm(K:Field): Exports == Implementation where P(i, k) := P(k, i) := 1 P -@ -<>= +\end{chunk} +\begin{chunk}{PSEUDLIN.dotabb} "PSEUDLIN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PSEUDLIN"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "PSEUDLIN" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PRS PseudoRemainderSequence} The package constructor {\bf PseudoRemainderSequence} provides @@ -134190,7 +134192,7 @@ algebraic factorization, integration). \cross{PRS}{?*?} \end{tabular} -<>= +\begin{chunk}{package PRS PseudoRemainderSequence} )abbrev package PRS PseudoRemainderSequence ++ Author: Ducos Lionel (Lionel.Ducos@mathlabo.univ-poitiers.fr) ++ Date Created: january 1995 @@ -135108,13 +135110,13 @@ PseudoRemainderSequence(R, polR) : Specification == Implementation where G : polR := subResultantGcd(P, Q) return gcd(cP,cQ) * primitivePart(G) -@ -<>= +\end{chunk} +\begin{chunk}{PRS.dotabb} "PRS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PRS"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PRS" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTPAF PureAlgebraicIntegration} \pagehead{PureAlgebraicIntegration}{INTPAF} @@ -135129,7 +135131,7 @@ PseudoRemainderSequence(R, polR) : Specification == Implementation where \cross{INTPAF}{palglimint} \end{tabular} -<>= +\begin{chunk}{package INTPAF PureAlgebraicIntegration} )abbrev package INTPAF PureAlgebraicIntegration ++ Author: Manuel Bronstein ++ Date Created: 27 May 1988 @@ -135511,15 +135513,15 @@ PureAlgebraicIntegration(R, F, L): Exports == Implementation where palgLODE0(eq, g, kx, y, u.coef, u.poly) palgLODE0(eq, g, kx, y, dumk, v.xsub, v.dxsub) -@ -<>= +\end{chunk} +\begin{chunk}{INTPAF.dotabb} "INTPAF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTPAF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "INTPAF" -> "FS" "INTPAF" -> "ACF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODEPAL PureAlgebraicLODE} \pagehead{PureAlgebraicLODE}{ODEPAL} @@ -135528,7 +135530,7 @@ PureAlgebraicIntegration(R, F, L): Exports == Implementation where {\bf Exports:}\\ \cross{ODEPAL}{algDsolve} -<>= +\begin{chunk}{package ODEPAL PureAlgebraicLODE} )abbrev package ODEPAL PureAlgebraicLODE ++ Author: Manuel Bronstein ++ Date Created: 21 August 1991 @@ -135571,13 +135573,13 @@ PureAlgebraicLODE(F, UP, UPUP, R): Exports == Implementation where (u := sol.particular) case V => [represents(u::V), bas] ["failed", bas] -@ -<>= +\end{chunk} +\begin{chunk}{ODEPAL.dotabb} "ODEPAL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODEPAL"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "ODEPAL" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package PUSHVAR PushVariables} \pagehead{PushVariables}{PUSHVAR} @@ -135587,7 +135589,7 @@ PureAlgebraicLODE(F, UP, UPUP, R): Exports == Implementation where \begin{tabular}{lllll} \end{tabular} -<>= +\begin{chunk}{package PUSHVAR PushVariables} )abbrev package PUSHVAR PushVariables ++ Description: ++ This package has no description @@ -135653,13 +135655,13 @@ PushVariables(R,E,OV,PPR):C == T where pushup(g:PPR, lv:List OV) : PPR == map(y +-> pushupCoef(y, lv), g) -@ -<>= +\end{chunk} +\begin{chunk}{PUSHVAR.dotabb} "PUSHVAR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=PUSHVAR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "PUSHVAR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter Q} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -135670,7 +135672,7 @@ PushVariables(R,E,OV,PPR):C == T where {\bf Exports:}\\ \cross{QALGSET2}{radicalSimplify} -<>= +\begin{chunk}{package QALGSET2 QuasiAlgebraicSet2} )abbrev package QALGSET2 QuasiAlgebraicSet2 ++ Author: William Sit ++ Date Created: March 13, 1992 @@ -135780,13 +135782,13 @@ QuasiAlgebraicSet2(vl,nv) : C == T where y:=quasiAlgebraicSet(gb, primitivePart normalForm(n0, gb)) setStatus(y,false::Status) -@ -<>= +\end{chunk} +\begin{chunk}{QALGSET2.dotabb} "QALGSET2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=QALGSET2"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "QALGSET2" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package QCMPACK QuasiComponentPackage} \pagehead{QuasiComponentPackage}{QCMPACK} @@ -135813,7 +135815,7 @@ QuasiAlgebraicSet2(vl,nv) : C == T where \cross{QCMPACK}{supDimElseRittWu?} & \end{tabular} -<>= +\begin{chunk}{package QCMPACK QuasiComponentPackage} )abbrev package QCMPACK QuasiComponentPackage ++ Author: Marc Moreno Maza ++ marc@nag.co.uk @@ -136196,13 +136198,13 @@ QuasiComponentPackage(R,E,V,P,TS): Exports == Implementation where toSee := branches sort((x,y) +-> supDimElseRittWu?(x.tower,y.tower),toSee) -@ -<>= +\end{chunk} +\begin{chunk}{QCMPACK.dotabb} "QCMPACK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=QCMPACK"] "RSETCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RSETCAT"] "QCMPACK" -> "RSETCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package QFCAT2 QuotientFieldCategoryFunctions2} \pagehead{QuotientFieldCategoryFunctions2}{QFCAT2} @@ -136211,7 +136213,7 @@ QuasiComponentPackage(R,E,V,P,TS): Exports == Implementation where {\bf Exports:}\\ \cross{QFCAT2}{map} -<>= +\begin{chunk}{package QFCAT2 QuotientFieldCategoryFunctions2} )abbrev package QFCAT2 QuotientFieldCategoryFunctions2 ++ Author: ++ Date Created: @@ -136239,16 +136241,16 @@ QuotientFieldCategoryFunctions2(A, B, R, S): Exports == Impl where Impl ==> add map(f, r) == f(numer r) / f(denom r) -@ -<>= +\end{chunk} +\begin{chunk}{QFCAT2.dotabb} "QFCAT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=QFCAT2"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "QFCAT2" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package QUATCT2 QuaternionCategoryFunctions2} -<>= +\begin{chunk}{QuaternionCategoryFunctions2.input} )set break resume )spool QuaternionCategoryFunctions2.output )set message test on @@ -136301,8 +136303,8 @@ map(f,q) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{QuaternionCategoryFunctions2.help} ==================================================================== QuaternionCategoryFunctions2 examples ==================================================================== @@ -136336,14 +136338,14 @@ map(f,q) See Also: o )show QuaternionCategoryFunctions2 -@ +\end{chunk} \pagehead{QuaternionCategoryFunctions2}{QUATCT2} \pagepic{ps/v104quaternioncategoryfunctions2.ps}{QUATCT2}{1.00} {\bf Exports:}\\ \cross{QUATCT2}{map} -<>= +\begin{chunk}{package QUATCT2 QuaternionCategoryFunctions2} )abbrev package QUATCT2 QuaternionCategoryFunctions2 ++ Author: Robert S. Sutor ++ Date Created: 23 May 1990 @@ -136378,13 +136380,13 @@ QuaternionCategoryFunctions2(QR,R,QS,S) : Exports == map(fn : R -> S, u : QR): QS == quatern(fn real u, fn imagI u, fn imagJ u, fn imagK u)$QS -@ -<>= +\end{chunk} +\begin{chunk}{QUATCT2.dotabb} "QUATCT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=QUATCT2"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=QUATCAT"] "QUATCT2" -> "QUATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter R} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -136402,7 +136404,7 @@ QuaternionCategoryFunctions2(QR,R,QS,S) : Exports == \cross{REP}{radicalEigenvectors} & \end{tabular} -<>= +\begin{chunk}{package REP RadicalEigenPackage} )abbrev package REP RadicalEigenPackage ++ Author: P.Gianni ++ Date Created: Summer 1987 @@ -136582,16 +136584,16 @@ RadicalEigenPackage() : C == T else basis:=[normalise(lvec.first),:basis] basis -@ -<>= +\end{chunk} +\begin{chunk}{REP.dotabb} "REP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REP"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "REP" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SOLVERAD RadicalSolvePackage} -<>= +\begin{chunk}{RadicalSolvePackage.input} )set break resume )sys rm -f RadicalSolvePackage.output )spool RadicalSolvePackage.output @@ -136850,8 +136852,8 @@ radicalRoots([b,c],[x,y]) )spool -@ -<>= +\end{chunk} +\begin{chunk}{RadicalSolvePackage.help} ==================================================================== RadicalSolvePackage examples ==================================================================== @@ -137050,7 +137052,7 @@ See Also: o )show RadicalSolvePackage o )show RealSolvePackage -@ +\end{chunk} \pagehead{RadicalSolvePackage}{SOLVERAD} \pagepic{ps/v104radicalsolvepackage.ps}{SOLVERAD}{1.00} @@ -137061,7 +137063,7 @@ o )show RealSolvePackage \cross{SOLVERAD}{radicalSolve} \end{tabular} -<>= +\begin{chunk}{package SOLVERAD RadicalSolvePackage} )abbrev package SOLVERAD RadicalSolvePackage ++ Author: P.Gianni ++ Date Created: Summer 1990 @@ -137376,13 +137378,13 @@ RadicalSolvePackage(R): Cat == Capsule where re := SideEquations [solutions, SideEquations]$SU -@ -<>= +\end{chunk} +\begin{chunk}{SOLVERAD.dotabb} "SOLVERAD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SOLVERAD"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "SOLVERAD" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RADUTIL RadixUtilities} \pagehead{RadixUtilities}{RADUTIL} @@ -137391,7 +137393,7 @@ RadicalSolvePackage(R): Cat == Capsule where {\bf Exports:}\\ \cross{RADUTIL}{radix} -<>= +\begin{chunk}{package RADUTIL RadixUtilities} )abbrev package RADUTIL RadixUtilities ++ Author: Stephen M. Watt ++ Date Created: October 1986 @@ -137414,15 +137416,15 @@ RadixUtilities: Exports == Implementation where radix(q, b) == coerce(q :: RadixExpansion(b))$AnyFunctions1(RadixExpansion b) -@ -<>= +\end{chunk} +\begin{chunk}{RADUTIL.dotabb} "RADUTIL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RADUTIL"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "RADUTIL" -> "PID" "RADUTIL" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDIST RandomDistributions} \pagehead{RandomDistributions}{RDIST} @@ -137435,7 +137437,7 @@ RadixUtilities: Exports == Implementation where \cross{RDIST}{weighted} \end{tabular} -<>= +\begin{chunk}{package RDIST RandomDistributions} )abbrev package RDIST RandomDistributions ++ Description: ++ This package exports random distributions @@ -137484,13 +137486,13 @@ RandomDistributions(S: SetCategory): with n := #l l.(randnum(n)+1) -@ -<>= +\end{chunk} +\begin{chunk}{RDIST.dotabb} "RDIST" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDIST"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "RDIST" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RFDIST RandomFloatDistributions} \pagehead{RandomFloatDistributions}{RFDIST} @@ -137511,7 +137513,7 @@ RandomDistributions(S: SetCategory): with \cross{RFDIST}{uniform} &&&& \end{tabular} -<>= +\begin{chunk}{package RFDIST RandomFloatDistributions} )abbrev package RFDIST RandomFloatDistributions ++ Description: ++ This package exports random floating-point distributions @@ -137603,13 +137605,13 @@ RandomFloatDistributions(): Cat == Body where d := chiSquare1(dgfree) / (dgfree::Float) n / sqrt d -@ -<>= +\end{chunk} +\begin{chunk}{RFDIST.dotabb} "RFDIST" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFDIST"] "Package" [color="#FF4488"] "RFDIST" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RIDIST RandomIntegerDistributions} \pagehead{RandomIntegerDistributions}{RIDIST} @@ -137624,7 +137626,7 @@ RandomFloatDistributions(): Cat == Body where \cross{RIDIST}{uniform} \end{tabular} -<>= +\begin{chunk}{package RIDIST RandomIntegerDistributions} )abbrev package RIDIST RandomIntegerDistributions ++ Description: ++ This package exports integer distributions @@ -137670,13 +137672,13 @@ RandomIntegerDistributions(): with for i in 1..n repeat r := r*w + randnum w r + l -@ -<>= +\end{chunk} +\begin{chunk}{RIDIST.dotabb} "RIDIST" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RIDIST"] "Package" [color="#FF4488"] "RIDIST" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RANDSRC RandomNumberSource} \pagehead{RandomNumberSource}{RANDSRC} @@ -137690,7 +137692,7 @@ RandomIntegerDistributions(): with \cross{RANDSRC}{size} \end{tabular} -<>= +\begin{chunk}{package RANDSRC RandomNumberSource} )abbrev package RANDSRC RandomNumberSource ++ Author:S.M.Watt ++ Date Created: April 87 @@ -137752,13 +137754,13 @@ RandomNumberSource(): with randnum n == (n * randnum()) quo ranbase -@ -<>= +\end{chunk} +\begin{chunk}{RANDSRC.dotabb} "RANDSRC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RANDSRC"] "ALGEBRA-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALGEBRA"] "RANDSRC" -> "ALGEBRA-" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RATFACT RationalFactorize} \pagehead{RationalFactorize}{RATFACT} @@ -137770,7 +137772,7 @@ RandomNumberSource(): with \cross{RATFACT}{factorSquareFree} \end{tabular} -<>= +\begin{chunk}{package RATFACT RationalFactorize} )abbrev package RATFACT RationalFactorize ++ Author: P. Gianni ++ Date created: ?? @@ -137830,13 +137832,13 @@ RationalFactorize(RP) : public == private where [["prime",map(coerce,u.irr)$UIRN,u.pow]$FFE for u in ffact.factors]) -@ -<>= +\end{chunk} +\begin{chunk}{RATFACT.dotabb} "RATFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RATFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RATFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RF RationalFunction} \pagehead{RationalFunction}{RF} @@ -137852,7 +137854,7 @@ RationalFactorize(RP) : public == private where \cross{RF}{variables} \end{tabular} -<>= +\begin{chunk}{package RF RationalFunction} )abbrev package RF RationalFunction ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -137925,13 +137927,13 @@ RationalFunction(R:IntegralDomain): Exports == Implementation where map(z1 +-> foo(ls, lv, z1), z2 +-> z2::Q,p) $PolynomialCategoryLifting(IndexedExponents V,V,R,P,Q) -@ -<>= +\end{chunk} +\begin{chunk}{RF.dotabb} "RF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DEFINTRF RationalFunctionDefiniteIntegration} \pagehead{RationalFunctionDefiniteIntegration}{DEFINTRF} @@ -137940,7 +137942,7 @@ RationalFunction(R:IntegralDomain): Exports == Implementation where {\bf Exports:}\\ \cross{DEFINTRF}{integrate} -<>= +\begin{chunk}{package DEFINTRF RationalFunctionDefiniteIntegration} )abbrev package DEFINTRF RationalFunctionDefiniteIntegration ++ Author: Manuel Bronstein ++ Date Created: 2 October 1989 @@ -138030,13 +138032,13 @@ RationalFunctionDefiniteIntegration(R): Exports == Implementation where z::Boolean => error "integrate: pole in path of integration" nopole(f, x, a, b) -@ -<>= +\end{chunk} +\begin{chunk}{DEFINTRF.dotabb} "DEFINTRF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DEFINTRF"] "ACFS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACFS"] "DEFINTRF" -> "ACFS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RFFACT RationalFunctionFactor} \pagehead{RationalFunctionFactor}{RFFACT} @@ -138045,7 +138047,7 @@ RationalFunctionDefiniteIntegration(R): Exports == Implementation where {\bf Exports:}\\ \cross{RFFACT}{factor} -<>= +\begin{chunk}{package RFFACT RationalFunctionFactor} )abbrev package RFFACT RationalFunctionFactor ++ Author: Patrizia Gianni ++ Date Created: ??? @@ -138081,13 +138083,13 @@ RationalFunctionFactor(UP): Exports == Implementation where factor(numer q)$MultivariateFactorize(SE, IndexedExponents SE,Integer,P))$FactoredFunctions2(P, UP) -@ -<>= +\end{chunk} +\begin{chunk}{RFFACT.dotabb} "RFFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFFACT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "RFFACT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RFFACTOR RationalFunctionFactorizer} \pagehead{RationalFunctionFactorizer}{RFFACTOR} @@ -138096,7 +138098,7 @@ RationalFunctionFactor(UP): Exports == Implementation where {\bf Exports:}\\ \cross{RFFACTOR}{factor} -<>= +\begin{chunk}{package RFFACTOR RationalFunctionFactorizer} )abbrev package RFFACTOR RationalFunctionFactorizer ++ Author: P. Gianni ++ Date Created: @@ -138141,13 +138143,13 @@ RationalFunctionFactorizer(R) : C == T (factor(numer p))$MFF/(factor(denom p))$MFF error "case not handled" -@ -<>= +\end{chunk} +\begin{chunk}{RFFACTOR.dotabb} "RFFACTOR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFFACTOR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RFFACTOR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTRF RationalFunctionIntegration} \pagehead{RationalFunctionIntegration}{INTRF} @@ -138161,7 +138163,7 @@ RationalFunctionFactorizer(R) : C == T \cross{INTRF}{limitedIntegrate} \end{tabular} -<>= +\begin{chunk}{package INTRF RationalFunctionIntegration} )abbrev package INTRF RationalFunctionIntegration ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -138220,13 +138222,13 @@ RationalFunctionIntegration(F): Exports == Implementation where map(x1 +-> multivariate(x1, x), limitedint(univariate(f, x), [univariate(u, x) for u in lu])) -@ -<>= +\end{chunk} +\begin{chunk}{INTRF.dotabb} "INTRF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTRF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTRF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package LIMITRF RationalFunctionLimitPackage} \pagehead{RationalFunctionLimitPackage}{LIMITRF} @@ -138238,7 +138240,7 @@ RationalFunctionIntegration(F): Exports == Implementation where \cross{LIMITRF}{limit} \end{tabular} -<>= +\begin{chunk}{package LIMITRF RationalFunctionLimitPackage} )abbrev package LIMITRF RationalFunctionLimitPackage ++ Author: Manuel Bronstein ++ Date Created: 4 October 1989 @@ -138386,13 +138388,13 @@ RationalFunctionLimitPackage(R:GcdDomain):Exports==Implementation where dn < dd => 0 ((leadingCoefficient numer g) / (leadingCoefficient denom g))::OPF -@ -<>= +\end{chunk} +\begin{chunk}{LIMITRF.dotabb} "LIMITRF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=LIMITRF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "LIMITRF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SIGNRF RationalFunctionSign} \pagehead{RationalFunctionSign}{SIGNRF} @@ -138401,7 +138403,7 @@ RationalFunctionLimitPackage(R:GcdDomain):Exports==Implementation where {\bf Exports:}\\ \cross{SIGNRF}{sign} -<>= +\begin{chunk}{package SIGNRF RationalFunctionSign} )abbrev package SIGNRF RationalFunctionSign ++ Author: Manuel Bronstein ++ Date Created: 23 August 1989 @@ -138489,16 +138491,16 @@ RationalFunctionSign(R:GcdDomain): Exports == Implementation where odd? degree(term, var) => return "failed" sign(leadingCoefficient term)$SGN -@ -<>= +\end{chunk} +\begin{chunk}{SIGNRF.dotabb} "SIGNRF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SIGNRF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SIGNRF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SUMRF RationalFunctionSum} -<>= +\begin{chunk}{RationalFunctionSum.input} )set break resume )sys rm -f RationalFunctionSum.output )spool RationalFunctionSum.output @@ -138635,8 +138637,8 @@ t1-t2 )spool -@ -<>= +\end{chunk} +\begin{chunk}{RationalFunctionSum.help} ==================================================================== RationalFunctionSum examples ==================================================================== @@ -138751,14 +138753,14 @@ And we take the difference of the endpoints: See Also: o )show RationalFunctionSum -@ +\end{chunk} \pagehead{RationalFunctionSum}{SUMRF} \pagepic{ps/v104rationalfunctionsum.ps}{SUMRF}{1.00} {\bf Exports:}\\ \cross{SUMRF}{sum} -<>= +\begin{chunk}{package SUMRF RationalFunctionSum} )abbrev package SUMRF RationalFunctionSum ++ Author: Manuel Bronstein ++ Date Created: ??? @@ -138830,13 +138832,13 @@ RationalFunctionSum(R): Exports == Impl where rec := sum(p, n)$InnerPolySum(IndexedExponents SE, SE, R, P) rec.num / (rec.den :: P) -@ -<>= +\end{chunk} +\begin{chunk}{SUMRF.dotabb} "SUMRF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SUMRF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SUMRF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTRAT RationalIntegration} \pagehead{RationalIntegration}{INTRAT} @@ -138850,7 +138852,7 @@ RationalFunctionSum(R): Exports == Impl where \cross{INTRAT}{limitedint} \end{tabular} -<>= +\begin{chunk}{package INTRAT RationalIntegration} )abbrev package INTRAT RationalIntegration ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -138912,13 +138914,13 @@ RationalIntegration(F, UP): Exports == Implementation where i2:=integrate(fqr.quotient-retract(i1.coeff)@UP *gqr.quotient)::RF [i2 + i1.ratpart, i1.coeff] -@ -<>= +\end{chunk} +\begin{chunk}{INTRAT.dotabb} "INTRAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTRAT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTRAT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RINTERP RationalInterpolation} \subsection{Introduction} @@ -138942,7 +138944,7 @@ where the coefficients of the rational function are in any given field. {\bf Exports:}\\ \cross{RINTERP}{interpolate} -<>= +\begin{chunk}{package RINTERP RationalInterpolation} )abbrev package RINTERP RationalInterpolation ++ Description: ++ This package exports rational interpolation algorithms @@ -138953,13 +138955,13 @@ RationalInterpolation(xx,F): Exports == Implementation where Exports == with interpolate: (List F, List F, NonNegativeInteger, NonNegativeInteger) -> Fraction Polynomial F -@ +\end{chunk} The implementation sets up a system of linear equations and solves it. -<>= +\begin{chunk}{package RINTERP RationalInterpolation} Implementation == add interpolate(xlist, ylist, m, k) == -@ +\end{chunk} First we check whether we have the right number of points and values. Clearly the number of points and the number of values must be @@ -138970,13 +138972,13 @@ polynomial in the numerator and $k$ is the degree of the polynomial in the denominator. In fact, we could also leave -- for example -- $k$ unspecified and determine it -as $k=[[#xlist]]-m-1$: I don't know whether this would be better. -<>= +as \verb|k=#xlist-m-1|: I don't know whether this would be better. +\begin{chunk}{package RINTERP RationalInterpolation} #xlist ^= #ylist => error "Different number of points and values." #xlist ^= m+k+1 => error "wrong number of points" -@ +\end{chunk} The next step is to set up the matrix. Suppose that our numerator polynomial is $p(x)=a_0+a_1x+\dots+a_mx^m$ and that our denominator polynomial is @@ -139009,7 +139011,7 @@ a_0\\a_1\\\vdots\\a_m\\b_0\\b_1\\\vdots\\b_k =\mathbf 0 $$ We generate this matrix columnwise: -<>= +\begin{chunk}{package RINTERP RationalInterpolation} tempvec: List F := [1 for i in 1..(m+k+1)] collist: List List F := cons(tempvec, @@ -139020,40 +139022,40 @@ We generate this matrix columnwise: collist := append([collist.j for j in 1..(m+1)], _ [[- collist.j.i * ylist.i for i in 1..(m+k+1)] _ for j in 1..(k+1)]) -@ +\end{chunk} Now we can solve the system: -<>= +\begin{chunk}{package RINTERP RationalInterpolation} res: List Vector F := nullSpace((transpose matrix collist) _ ::Matrix F) -@ +\end{chunk} Note that it may happen that the system has several solutions. In this case, some of the data points may not be interpolated correctly. However, the solution is often still useful, thus we do not signal an error. -<>= +\begin{chunk}{package RINTERP RationalInterpolation} if #res~=1 then output("Warning: unattainable points!" _ ::OutputForm)$OutputPackage -@ +\end{chunk} In this situation, all the solutions will be equivalent, thus we can always simply take the first one: -<>= +\begin{chunk}{package RINTERP RationalInterpolation} reslist: List List Polynomial F := _ [[(res.1).(i+1)*(xx::Polynomial F)**i for i in 0..m], _ [(res.1).(i+m+2)*(xx::Polynomial F)**i for i in 0..k]] -@ +\end{chunk} Finally, we generate the rational function: -<>= +\begin{chunk}{package RINTERP RationalInterpolation} reduce((_+),reslist.1)/reduce((_+),reslist.2) -@ -<>= +\end{chunk} +\begin{chunk}{RINTERP.dotabb} "RINTERP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RINTERP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RINTERP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODERAT RationalLODE} \pagehead{RationalLODE}{ODERAT} @@ -139065,7 +139067,7 @@ Finally, we generate the rational function: \cross{ODERAT}{ratDsolve} \end{tabular} -<>= +\begin{chunk}{package ODERAT RationalLODE} )abbrev package ODERAT RationalLODE ++ Author: Manuel Bronstein ++ Date Created: 13 March 1991 @@ -139295,13 +139297,13 @@ RationalLODE(F, UP): Exports == Implementation where unit?(c := content op) => ratDsolve1(op, lg) ratDsolve1((op exquo c)::LODO2, [inv(c::RF) * g for g in lg]) -@ -<>= +\end{chunk} +\begin{chunk}{ODERAT.dotabb} "ODERAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODERAT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "ODERAT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RATRET RationalRetractions} \pagehead{RationalRetractions}{RATRET} @@ -139314,7 +139316,7 @@ RationalLODE(F, UP): Exports == Implementation where \cross{RATRET}{rationalIfCan} \end{tabular} -<>= +\begin{chunk}{package RATRET RationalRetractions} )abbrev package RATRET RationalRetractions ++ Author: Manuel Bronstein ++ Date Created: March 1990 @@ -139337,15 +139339,15 @@ RationalRetractions(S:RetractableTo(Fraction Integer)): with rational? s == retractIfCan(s) case Fraction(Integer) rationalIfCan s == retractIfCan s -@ -<>= +\end{chunk} +\begin{chunk}{RATRET.dotabb} "RATRET" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RATRET"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "RATRET" -> "PID" "RATRET" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODERTRIC RationalRicDE} \pagehead{RationalRicDE}{ODERTRIC} @@ -139358,7 +139360,7 @@ RationalRetractions(S:RetractableTo(Fraction Integer)): with \cross{ODERTRIC}{singRicDE} \end{tabular} -<>= +\begin{chunk}{package ODERTRIC RationalRicDE} )abbrev package ODERTRIC RationalRicDE ++ Author: Manuel Bronstein ++ Date Created: 22 October 1991 @@ -139644,13 +139646,13 @@ RationalRicDE(F, UP): Exports == Implementation where $UnivariatePolynomialCategoryFunctions2(F, UP, F, SparseUnivariatePolynomial F))] -@ -<>= +\end{chunk} +\begin{chunk}{ODERTRIC.dotabb} "ODERTRIC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODERTRIC"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "ODERTRIC" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RURPK RationalUnivariateRepresentationPackage} \pagehead{RationalUnivariateRepresentationPackage}{RURPK} @@ -139659,7 +139661,7 @@ RationalRicDE(F, UP): Exports == Implementation where {\bf Exports:}\\ \cross{RURPK}{rur} -<>= +\begin{chunk}{package RURPK RationalUnivariateRepresentationPackage} )abbrev package RURPK RationalUnivariateRepresentationPackage ++ Author: Marc Moreno Maza ++ Date Created: 01/1999 @@ -139788,13 +139790,13 @@ RationalUnivariateRepresentationPackage(R,ls): Exports == Implementation where rur(lp: List P): List RUR == rur(lp,true) -@ -<>= +\end{chunk} +\begin{chunk}{RURPK.dotabb} "RURPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RURPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "RURPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package POLUTIL RealPolynomialUtilitiesPackage} This file describes the Real Closure 1.0 package which consists of different @@ -139854,7 +139856,7 @@ depending on several ``real roots''. \cross{POLUTIL}{sylvesterSequence} &&& \end{tabular} -<>= +\begin{chunk}{package POLUTIL RealPolynomialUtilitiesPackage} )abbrev package POLUTIL RealPolynomialUtilitiesPackage ++ Author: Renaud Rioboo ++ Date Created: summer 1992 @@ -139967,16 +139969,16 @@ RealPolynomialUtilitiesPackage(TheField,ThePols) : PUB == PRIV where lazyVariations([first(l)],sl,s) + lazyVariations(rest(rest(l)),s,sh) -@ -<>= +\end{chunk} +\begin{chunk}{POLUTIL.dotabb} "POLUTIL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=POLUTIL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "POLUTIL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REALSOLV RealSolvePackage} -<>= +\begin{chunk}{RealSolvePackage.input} )set break resume )sys rm -f RealSolvePackage.output )spool RealSolvePackage.output @@ -140093,8 +140095,8 @@ ans3 := realSolve(lp,lsv,0.01)$REALSOLV --E 13 )spool -@ -<>= +\end{chunk} +\begin{chunk}{RealSolvePackage.help} ==================================================================== RealSolvePackage examples ==================================================================== @@ -140126,7 +140128,7 @@ RealSolvePackage examples See Also: o )show RealSolvePackage -@ +\end{chunk} \pagehead{RealSolvePackage}{REALSOLV} \pagepic{ps/v104realsolvepackage.ps}{REALSOLV}{1.00} @@ -140136,7 +140138,7 @@ o )show RealSolvePackage \cross{REALSOLV}{solve} \end{tabular} -<>= +\begin{chunk}{package REALSOLV RealSolvePackage} )abbrev package REALSOLV RealSolvePackage ++ Description: ++ This package provides numerical solutions of systems of @@ -140197,13 +140199,13 @@ RealSolvePackage(): Exports == Implementation where realSolve(lp,lv,eps) == realRoots(map(pi2rfi, lp)$ListFunctions2(P I,RFI),lv,eps)$SOLV -@ -<>= +\end{chunk} +\begin{chunk}{REALSOLV.dotabb} "REALSOLV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REALSOLV"] "Package" [color="#FF4488"] "REALSOLV" -> "Package" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REAL0 RealZeroPackage} \pagehead{RealZeroPackage}{REAL0} @@ -140217,7 +140219,7 @@ RealSolvePackage(): Exports == Implementation where \cross{REAL0}{refine} \end{tabular} -<>= +\begin{chunk}{package REAL0 RealZeroPackage} )abbrev package REAL0 RealZeroPackage ++ Author: Andy Neff ++ Date Created: @@ -140508,13 +140510,13 @@ RealZeroPackage(Pol): T == C where xfl := true [a, b]$Interval -@ -<>= +\end{chunk} +\begin{chunk}{REAL0.dotabb} "REAL0" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REAL0"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "REAL0" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REAL0Q RealZeroPackageQ} \pagehead{RealZeroPackageQ}{REAL0Q} @@ -140526,7 +140528,7 @@ RealZeroPackage(Pol): T == C where \cross{REAL0Q}{refine} \end{tabular} -<>= +\begin{chunk}{package REAL0Q RealZeroPackageQ} )abbrev package REAL0Q RealZeroPackageQ ++ Author: Andy Neff, Barry Trager ++ Date Created: @@ -140599,13 +140601,13 @@ RealZeroPackageQ(Pol): T == C where refine(f : Pol, int : Interval, bounds : Interval) == refine(convert2PolInt f, int, bounds) -@ -<>= +\end{chunk} +\begin{chunk}{REAL0Q.dotabb} "REAL0Q" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REAL0Q"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "REAL0Q" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RMCAT2 RectangularMatrixCategoryFunctions2} \pagehead{RectangularMatrixCategoryFunctions2}{RMCAT2} @@ -140617,7 +140619,7 @@ RealZeroPackageQ(Pol): T == C where \cross{RMCAT2}{reduce} \end{tabular} -<>= +\begin{chunk}{package RMCAT2 RectangularMatrixCategoryFunctions2} )abbrev package RMCAT2 RectangularMatrixCategoryFunctions2 ++ Author: Clifton J. Williamson ++ Date Created: 21 November 1989 @@ -140676,13 +140678,13 @@ RectangularMatrixCategoryFunctions2(m,n,R1,Row1,Col1,M1,R2,Row2,Col2,M2):_ s := f(qelt(mat,i,j),s) s -@ -<>= +\end{chunk} +\begin{chunk}{RMCAT2.dotabb} "RMCAT2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RMCAT2"] "RMATCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RMATCAT"] "RMCAT2" -> "RMATCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RECOP RecurrenceOperator} The package defined in this file provide an operator for the @@ -140702,7 +140704,7 @@ coefficient of $x^n$ in a function specified by a functional equation. \cross{RECOP}{shiftInfoRec} & \end{tabular} -<>= +\begin{chunk}{package RECOP RecurrenceOperator} )abbrev package RECOP RecurrenceOperator ++ Author: Martin Rubey ++ Description: @@ -140760,8 +140762,8 @@ RecurrenceOperator(R, F): Exports == Implementation where ker: Kernel F) Implementation == add -<> -@ +\getchunk{implementation: RecurrenceOperator} +\end{chunk} \subsection{Defining new operators} @@ -140770,51 +140772,51 @@ equations. The operators for recurrences represents the $n$\textsuperscript{th} term of the corresponding sequence, the other the coefficient of $x^n$ in the Taylor series expansion. -<>= +\begin{chunk}{implementation: RecurrenceOperator} oprecur := operator("rootOfRec"::Symbol)$BasicOperator opADE := operator("rootOfADE"::Symbol)$BasicOperator setProperty(oprecur, "%dummyVar", 2 pretend None) setProperty(opADE, "%dummyVar", 2 pretend None) -@ +\end{chunk} Setting these properties implies that the second and third arguments of oprecur -are dummy variables and affects [[tower$ES]]: the second argument will not -appear in [[tower$ES]], if it does not appear in any argument but the first and -second. The third argument will not appear in [[tower$ES]], if it does not appear -in any other argument. ([[%defsum]] is a good example) +are dummy variables and affects \verb|tower$ES|: the second argument will not +appear in \verb|tower$ES|, if it does not appear in any argument but the +first and second. The third argument will not appear in \verb|tower$ES|, +if it does not appear in any other argument. (\verb|%defsum| is a good example) The arguments of the two operators are as follows: \begin{enumerate} -\item [[eq]], i.e. the vanishing expression +\item eq, i.e. the vanishing expression -<>= +\begin{chunk}{implementation: RecurrenceOperator} eqAsF: List F -> F eqAsF l == l.1 -@ +\end{chunk} -\item [[dummy]], a dummy variable to make substitutions possible +\item dummy, a dummy variable to make substitutions possible -<>= +\begin{chunk}{implementation: RecurrenceOperator} dummy: List F -> Symbol dummy l == retract(l.2)@Symbol dummyAsF: List F -> F dummyAsF l == l.2 -@ +\end{chunk} \item the variable for display -<>= +\begin{chunk}{implementation: RecurrenceOperator} displayVariable: List F -> F displayVariable l == l.3 -@ +\end{chunk} -\item [[operatorName(argument)]] +\item operatorName(argument) -<>= +\begin{chunk}{implementation: RecurrenceOperator} operatorName: List F -> BasicOperator operatorName l == operator(kernels(l.4).1) @@ -140823,27 +140825,27 @@ The arguments of the two operators are as follows: operatorArgument: List F -> F operatorArgument l == argument(kernels(l.4).1).1 -@ +\end{chunk} -Concerning [[rootOfADE]], note that although we have [[arg]] as argument of the +Concerning rootOfADE, note that although we have arg as argument of the operator, it is intended to indicate the coefficient, not the argument of the power series. -\item [[values]] in reversed order. +\item values in reversed order. \begin{itemize} - \item [[rootOfRec]]: maybe [[values]] should be preceded by the index of the + \item rootOfRec: maybe values should be preceded by the index of the first given value. Currently, the last value is interpreted as $f(0)$. - \item [[rootOfADE]]: values are the first few coefficients of the power + \item rootOfADE: values are the first few coefficients of the power series expansion in order. \end{itemize} -<>= +\begin{chunk}{implementation: RecurrenceOperator} initialValues: List F -> List F initialValues l == rest(l, 4) -@ +\end{chunk} \end{enumerate} \subsection{Recurrences} @@ -140853,7 +140855,7 @@ power series. We need to find out wether we can determine the next term of the sequence, and how many initial values are necessary. -<>= +\begin{chunk}{implementation: RecurrenceOperator} if R has Ring then getShiftRec(op: BasicOperator, f: Kernel F, n: Symbol) : Union(Integer, "failed") == @@ -140915,11 +140917,11 @@ how many initial values are necessary. if error? then error "evalRec: equation does not contain operator" [maxShift, maxShift - minShift, nextKernel] -@ +\end{chunk} \subsubsection{Evaluating a recurrence} -<>= +\begin{chunk}{implementation: RecurrenceOperator} evalRec(op, argsym, argdisp, arg, eq, values) == if ((n := retractIfCan(arg)@Union(Integer, "failed")) case "failed") or (n < 0) @@ -140987,14 +140989,14 @@ how many initial values are necessary. numberOfValuesNeeded(numberOfValues: Integer, op: BasicOperator, argsym: Symbol, eq: F): Integer == numberOfValues -@ +\end{chunk} -\subsubsection{Setting the evaluation property of [[oprecur]]} +\subsubsection{Setting the evaluation property of oprecur} -[[irecur]] is just a wrapper that allows us to write a recurrence relation as +irecur is just a wrapper that allows us to write a recurrence relation as an operator. -<>= +\begin{chunk}{implementation: RecurrenceOperator} irecur: List F -> F irecur l == evalRec(operatorName l, @@ -141003,11 +141005,11 @@ an operator. evaluate(oprecur, irecur)$BasicOperatorFunctions1(F) -@ +\end{chunk} \subsubsection{Displaying a recurrence relation} -<>= +\begin{chunk}{implementation: RecurrenceOperator} ddrec: List F -> OutputForm ddrec l == op := operatorName l @@ -141030,7 +141032,7 @@ an operator. setProperty(oprecur, "%specialDisp", ddrec@(List F -> OutputForm) pretend None) -@ +\end{chunk} \subsection{Functional Equations} @@ -141041,7 +141043,7 @@ $Q=p(f,f',\dots,f^{(r)})$ we first need to differentiate $Q$ with respect to $f^{(i)}$ for $i\in\{0,1,\dots,r\}$, plug in the given truncated power series solution and determine the valuation. -<>= +\begin{chunk}{NOTYET implementation: RecurrenceOperator} getValuation(op, argsym, eq, maxorder, values): Integer == max: Integer := -1; ker: Kernel F @@ -141050,13 +141052,13 @@ solution and determine the valuation. pol := univariate(eq, ker) dif := D pol ground numer(dif.D(op(argsym), argsym, i)) -@ +\end{chunk} \subsubsection{Extracting some information from the functional equation} -[[getOrder]] returns the maximum derivative of [[op]] occurring in [[f]]. +getOrder returns the maximum derivative of op occurring in f. -<>= +\begin{chunk}{implementation: RecurrenceOperator} getOrder(op: BasicOperator, f: Kernel F): NonNegativeInteger == res: NonNegativeInteger := 0 g := f @@ -141066,11 +141068,11 @@ solution and determine the valuation. if is?(g, op) then res else 0 -@ +\end{chunk} \subsubsection{Extracting a coefficient given a functional equation} -<>= +\begin{chunk}{implementation: RecurrenceOperator} evalADE(op, argsym, argdisp, arg, eq, values) == if not freeOf?(eq, retract(argdisp)@Symbol) then error "RECOP: The argument should not be used in the equation of the_ @@ -141160,11 +141162,11 @@ solution and determine the valuation. error "getOp: argument should be a single rootOfADE or rootOfRec object" -@ +\end{chunk} %$ \subsubsection{Displaying a functional equation} -<>= +\begin{chunk}{implementation: RecurrenceOperator} ddADE: List F -> OutputForm ddADE l == op := operatorName l @@ -141186,13 +141188,13 @@ solution and determine the valuation. setProperty(opADE, "%specialDisp", ddADE@(List F -> OutputForm) pretend None) -@ -<>= +\end{chunk} +\begin{chunk}{RECOP.dotabb} "RECOP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RECOP"] "EXPRSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=EXPRSOL"] "RECOP" -> "EXPRSOL" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDIV ReducedDivisor} \pagehead{ReducedDivisor}{RDIV} @@ -141201,7 +141203,7 @@ solution and determine the valuation. {\bf Exports:}\\ \cross{RDIV}{order} -<>= +\begin{chunk}{package RDIV ReducedDivisor} )abbrev package RDIV ReducedDivisor ++ Author: Manuel Bronstein ++ Date Created: 1988 @@ -141251,13 +141253,13 @@ ReducedDivisor(F1, UP, UPUP, R, F2): Exports == Implementation where d)$FiniteDivisorFunctions2(F1,UP,UPUP,R,F2,UP2,UPUP2,curve) )$FindOrderFinite(F2, UP2, UPUP2, curve) -@ -<>= +\end{chunk} +\begin{chunk}{RDIV.dotabb} "RDIV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDIV"] "FFCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FFCAT"] "RDIV" -> "FFCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODERED ReduceLODE} \pagehead{ReduceLODE}{ODERED} @@ -141266,7 +141268,7 @@ ReducedDivisor(F1, UP, UPUP, R, F2): Exports == Implementation where {\bf Exports:}\\ \cross{ODERED}{reduceLODE} -<>= +\begin{chunk}{package ODERED ReduceLODE} )abbrev package ODERED ReduceLODE ++ Author: Manuel Bronstein ++ Date Created: 19 August 1991 @@ -141323,13 +141325,13 @@ ReduceLODE(F, L, UP, A, LO): Exports == Implementation where mdi := md * mdi [sys, coordinates g] -@ -<>= +\end{chunk} +\begin{chunk}{ODERED.dotabb} "ODERED" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODERED"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "ODERED" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REDORDER ReductionOfOrder} \pagehead{ReductionOfOrder}{REDORDER} @@ -141338,7 +141340,7 @@ ReduceLODE(F, L, UP, A, LO): Exports == Implementation where {\bf Exports:}\\ \cross{REDORDER}{ReduceOrder} -<>= +\begin{chunk}{package REDORDER ReductionOfOrder} )abbrev package REDORDER ReductionOfOrder ++ Author: Manuel Bronstein ++ Date Created: 4 November 1991 @@ -141402,15 +141404,15 @@ ReductionOfOrder(F, L): Exports == Impl where ans := ans + monomial(ithcoef(eq, i, s), i) ans -@ -<>= +\end{chunk} +\begin{chunk}{REDORDER.dotabb} "REDORDER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REDORDER"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "REDORDER" -> "OREPCAT" "REDORDER" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RSDCMPK RegularSetDecompositionPackage} \pagehead{RegularSetDecompositionPackage}{RSDCMPK} @@ -141429,7 +141431,7 @@ ReductionOfOrder(F, L): Exports == Impl where \cross{RSDCMPK}{upDateBranches} && \end{tabular} -<>= +\begin{chunk}{package RSDCMPK RegularSetDecompositionPackage} )abbrev package RSDCMPK RegularSetDecompositionPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/16/1998 @@ -141705,13 +141707,13 @@ RegularSetDecompositionPackage(R,E,V,P,TS): Exports == Implementation where -- branches := concat(branches,current) removeSuperfluousCases(branches)$quasicomppack -@ -<>= +\end{chunk} +\begin{chunk}{RSDCMPK.dotabb} "RSDCMPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RSDCMPK"] "RSETCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RSETCAT"] "RSDCMPK" -> "RSETCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RSETGCD RegularTriangularSetGcdPackage} \pagehead{RegularTriangularSetGcdPackage}{RSETGCD} @@ -141731,7 +141733,7 @@ RegularSetDecompositionPackage(R,E,V,P,TS): Exports == Implementation where \cross{RSETGCD}{toseSquareFreePart} && \end{tabular} -<>= +\begin{chunk}{package RSETGCD RegularTriangularSetGcdPackage} )abbrev package RSETGCD RegularTriangularSetGcdPackage ++ Author: Marc Moreno Maza (marc@nag.co.uk) ++ Date Created: 08/30/1998 @@ -142085,13 +142087,13 @@ RegularTriangularSetGcdPackage(R,E,V,P,TS): Exports == Implementation where if odd?(mdeg(p1)) and odd?(mdeg(p2)) then p2 := - p2 internalLastSubResultant(p1,p2,ts,false,false) -@ -<>= +\end{chunk} +\begin{chunk}{RSETGCD.dotabb} "RSETGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RSETGCD"] "RPOLCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RPOLCAT"] "RSETGCD" -> "RPOLCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REPDB RepeatedDoubling} \pagehead{RepeatedDoubling}{REPDB} @@ -142100,7 +142102,7 @@ RegularTriangularSetGcdPackage(R,E,V,P,TS): Exports == Implementation where {\bf Exports:}\\ \cross{REPDB}{double} -<>= +\begin{chunk}{package REPDB RepeatedDoubling} )abbrev package REPDB RepeatedDoubling ++ Description: ++ Implements multiplication by repeated addition @@ -142128,15 +142130,15 @@ RepeatedDoubling(S):Exports ==Implementation where x + double(shift(n,-1) pretend PositiveInteger,(x+x)) double(shift(n,-1) pretend PositiveInteger,(x+x)) -@ -<>= +\end{chunk} +\begin{chunk}{REPDB.dotabb} "REPDB" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REPDB"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "REPDB" -> "BASTYPE" "REPDB" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REPSQ RepeatedSquaring} This code computes $x^n$ by repeated squaring. It takes advantage of the @@ -142161,7 +142163,7 @@ Since each recursive call divides $n$ by $2$ the algorithm is O(log(n)). {\bf Exports:}\\ \cross{REPSQ}{expt} -<>= +\begin{chunk}{package REPSQ RepeatedSquaring} )abbrev package REPSQ RepeatedSquaring ++ Description: ++ Implements exponentiation by repeated squaring @@ -142188,15 +142190,15 @@ RepeatedSquaring(S): Exports == Implementation where odd?(n)$Integer=> x * expt(x*x,shift(n,-1) pretend PositiveInteger) expt(x*x,shift(n,-1) pretend PositiveInteger) -@ -<>= +\end{chunk} +\begin{chunk}{REPSQ.dotabb} "REPSQ" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REPSQ"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "REPSQ" -> "BASTYPE" "REPSQ" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REP1 RepresentationPackage1} \pagehead{RepresentationPackage1}{REP1} @@ -142211,7 +142213,7 @@ RepeatedSquaring(S): Exports == Implementation where \cross{REP1}{tensorProduct} & \end{tabular} -<>= +\begin{chunk}{package REP1 RepresentationPackage1} )abbrev package REP1 RepresentationPackage1 ++ Authors: Holger Gollan, Johannes Grabmeier, Thorsten Werther ++ Date Created: 12 September 1987 @@ -142538,13 +142540,13 @@ RepresentationPackage1(R): public == private where res(i,j) := (sy :: P R) res -@ -<>= +\end{chunk} +\begin{chunk}{REP1.dotabb} "REP1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REP1"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "REP1" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package REP2 RepresentationPackage2} \pagehead{RepresentationPackage2}{REP2} @@ -142563,7 +142565,7 @@ RepresentationPackage1(R): public == private where \cross{REP2}{standardBasisOfCyclicSubmodule} & \end{tabular} -<>= +\begin{chunk}{package REP2 RepresentationPackage2} )abbrev package REP2 RepresentationPackage2 ++ Authors: Holger Gollan, Johannes Grabmeier ++ Date Created: 10 September 1987 @@ -143335,13 +143337,13 @@ RepresentationPackage2(R): public == private where result.j := result.j + newAdd.j result -@ -<>= +\end{chunk} +\begin{chunk}{REP2.dotabb} "REP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=REP2"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "REP2" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RESLATC ResolveLatticeCompletion} \pagehead{ResolveLatticeCompletion}{RESLATC} @@ -143350,7 +143352,7 @@ RepresentationPackage2(R): public == private where {\bf Exports:}\\ \cross{RESLATC}{coerce} -<>= +\begin{chunk}{package RESLATC ResolveLatticeCompletion} )abbrev package RESLATC ResolveLatticeCompletion ++ Author: Stephen M. Watt ++ Date Created: 1986 @@ -143383,13 +143385,13 @@ ResolveLatticeCompletion(S: Type): with coerce(e: Exit): S == error "Bug: Should not be able to obtain value of type Exit" -@ -<>= +\end{chunk} +\begin{chunk}{RESLATC.dotabb} "RESLATC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RESLATC"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "RESLATC" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RETSOL RetractSolvePackage} \pagehead{RetractSolvePackage}{RETSOL} @@ -143398,7 +143400,7 @@ ResolveLatticeCompletion(S: Type): with {\bf Exports:}\\ \cross{RETSOL}{solveRetract} -<>= +\begin{chunk}{package RETSOL RetractSolvePackage} )abbrev package RETSOL RetractSolvePackage ++ Author: Manuel Bronstein ++ Date Created: 31 October 1991 @@ -143462,16 +143464,16 @@ RetractSolvePackage(Q, R): Exports == Implementation where up := reductum up ans -@ -<>= +\end{chunk} +\begin{chunk}{RETSOL.dotabb} "RETSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RETSOL"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RETSOL" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RFP RootsFindingPackage} -<>= +\begin{chunk}{RootsFindingPackage.input} )set break resume )sys rm -f RootsFindingPackage.output )spool RootsFindingPackage.output @@ -143495,8 +143497,8 @@ RetractSolvePackage(Q, R): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{RootsFindingPackage.help} ==================================================================== RootsFindingPackage examples ==================================================================== @@ -143504,7 +143506,7 @@ RootsFindingPackage examples See Also: o )show RootsFindingPackage -@ +\end{chunk} \pagehead{RootsFindingPackage}{RFP} \pagepic{ps/v104rootsfindingpackage.eps}{RFP}{1.00} @@ -143514,7 +143516,7 @@ o )show RootsFindingPackage \cross{RFP}{foundZeroes} \cross{RFP}{setFoundZeroes} -<>= +\begin{chunk}{package RFP RootsFindingPackage} )abbrev package RFP RootsFindingPackage ++ Authors: G. Hache ++ Date Created: 6 0ct 1994 @@ -143630,13 +143632,13 @@ RootsFindingPackage(K):P==T where oldListOfAllZeroes -@ -<>= +\end{chunk} +\begin{chunk}{RFP.dotabb} "RFP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RFP"] "PACRATC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PACRATC"] "RFP" -> "PACRATC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter S} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -143647,7 +143649,7 @@ RootsFindingPackage(K):P==T where {\bf Exports:}\\ \cross{SAERFFC}{factor} -<>= +\begin{chunk}{package SAERFFC SAERationalFunctionAlgFactor} )abbrev package SAERFFC SAERationalFunctionAlgFactor ++ Author: Patrizia Gianni ++ Date Created: ??? @@ -143672,13 +143674,13 @@ SAERationalFunctionAlgFactor(UP, SAE, UPA): Exports == Implementation where factor(q, factor$RationalFunctionFactor(UP) )$InnerAlgFactor(Fraction Polynomial Integer, UP, SAE, UPA) -@ -<>= +\end{chunk} +\begin{chunk}{SAERFFC.dotabb} "SAERFFC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SAERFFC"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "SAERFFC" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package FORMULA1 ScriptFormulaFormat1} \pagehead{ScriptFormulaFormat1}{FORMULA1} @@ -143687,7 +143689,7 @@ SAERationalFunctionAlgFactor(UP, SAE, UPA): Exports == Implementation where {\bf Exports:}\\ \cross{FORMULA1}{coerce} -<>= +\begin{chunk}{package FORMULA1 ScriptFormulaFormat1} )abbrev package FORMULA1 ScriptFormulaFormat1 ++ Author: Robert S. Sutor ++ Date Created: 1987 through 1990 @@ -143720,15 +143722,15 @@ ScriptFormulaFormat1(S : SetCategory): public == private where coerce(s : S): ScriptFormulaFormat == coerce(s :: OutputForm)$ScriptFormulaFormat -@ -<>= +\end{chunk} +\begin{chunk}{FORMULA1.dotabb} "FORMULA1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=FORMULA1"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "FORMULA1" -> "BASTYPE" "FORMULA1" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SEGBIND2 SegmentBindingFunctions2} \pagehead{SegmentBindingFunctions2}{SEGBIND2} @@ -143737,7 +143739,7 @@ ScriptFormulaFormat1(S : SetCategory): public == private where {\bf Exports:}\\ \cross{SEGBIND2}{map} -<>= +\begin{chunk}{package SEGBIND2 SegmentBindingFunctions2} )abbrev package SEGBIND2 SegmentBindingFunctions2 ++ Author: ++ Date Created: @@ -143760,13 +143762,13 @@ SegmentBindingFunctions2(R:Type, S:Type): with map(f, b) == equation(variable b, map(f, segment b)$SegmentFunctions2(R, S)) -@ -<>= +\end{chunk} +\begin{chunk}{SEGBIND2.dotabb} "SEGBIND2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SEGBIND2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "SEGBIND2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SEG2 SegmentFunctions2} \pagehead{SegmentFunctions2}{SEG2} @@ -143775,7 +143777,7 @@ SegmentBindingFunctions2(R:Type, S:Type): with {\bf Exports:}\\ \cross{SEG2}{map} -<>= +\begin{chunk}{package SEG2 SegmentFunctions2} )abbrev package SEG2 SegmentFunctions2 ++ Author: ++ Date Created: @@ -143823,13 +143825,13 @@ SegmentFunctions2(R:Type, S:Type): public == private where l := l + inc reverse_! lr -@ -<>= +\end{chunk} +\begin{chunk}{SEG2.dotabb} "SEG2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SEG2"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "SEG2" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SAEFACT SimpleAlgebraicExtensionAlgFactor} \pagehead{SimpleAlgebraicExtensionAlgFactor}{SAEFACT} @@ -143838,7 +143840,7 @@ SegmentFunctions2(R:Type, S:Type): public == private where {\bf Exports:}\\ \cross{SAEFACT}{factor} -<>= +\begin{chunk}{package SAEFACT SimpleAlgebraicExtensionAlgFactor} )abbrev package SAEFACT SimpleAlgebraicExtensionAlgFactor ++ Author: Patrizia Gianni ++ Date Created: ??? @@ -143863,13 +143865,13 @@ SimpleAlgebraicExtensionAlgFactor(UP,SAE,UPA):Exports==Implementation where factor(q, factor$RationalFactorize(UP) )$InnerAlgFactor(Fraction Integer, UP, SAE, UPA) -@ -<>= +\end{chunk} +\begin{chunk}{SAEFACT.dotabb} "SAEFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SAEFACT"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "SAEFACT" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SIMPAN SimplifyAlgebraicNumberConvertPackage} \pagehead{SimplifyAlgebraicNumberConvertPackage}{SIMPAN} @@ -143878,7 +143880,7 @@ SimpleAlgebraicExtensionAlgFactor(UP,SAE,UPA):Exports==Implementation where {\bf Exports:}\\ \cross{SIMPAN}{simplify} -<>= +\begin{chunk}{package SIMPAN SimplifyAlgebraicNumberConvertPackage} )abbrev package SIMPAN SimplifyAlgebraicNumberConvertPackage ++ Description: ++ Package to allow simplify to be called on AlgebraicNumbers @@ -143891,13 +143893,13 @@ SimplifyAlgebraicNumberConvertPackage(): with simplify(a:AlgebraicNumber) == simplify(a::Expression(Integer))$TranscendentalManipulations(Integer, Expression Integer) -@ -<>= +\end{chunk} +\begin{chunk}{SIMPAN.dotabb} "SIMPAN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SIMPAN"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "SIMPAN" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SMITH SmithNormalForm} \pagehead{SmithNormalForm}{SMITH} @@ -143912,7 +143914,7 @@ SimplifyAlgebraicNumberConvertPackage(): with \cross{SMITH}{smith} \end{tabular} -<>= +\begin{chunk}{package SMITH SmithNormalForm} )abbrev package SMITH SmithNormalForm ++ Author: Patrizia Gianni ++ Date Created: October 1992 @@ -144140,13 +144142,13 @@ SmithNormalForm(R,Row,Col,M) : Exports == Implementation where lsol:List Col := [column(rm,i) for i in (dk+1)..n1] [sol,lsol] -@ -<>= +\end{chunk} +\begin{chunk}{SMITH.dotabb} "SMITH" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SMITH"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SMITH" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SCACHE SortedCache} \pagehead{SortedCache}{SCACHE} @@ -144159,7 +144161,7 @@ SmithNormalForm(R,Row,Col,M) : Exports == Implementation where \cross{SCACHE}{enterInCache} \end{tabular} -<>= +\begin{chunk}{package SCACHE SortedCache} )abbrev package SCACHE SortedCache ++ Author: Manuel Bronstein ++ Date Created: 31 Oct 1988 @@ -144238,13 +144240,13 @@ SortedCache(S:CachableSet): Exports == Implementation where cach.cche := concat(before, concat(x, after)) x -@ -<>= +\end{chunk} +\begin{chunk}{SCACHE.dotabb} "SCACHE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SCACHE"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "SCACHE" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SORTPAK SortPackage} \pagehead{SortPackage}{SORTPAK} @@ -144256,7 +144258,7 @@ SortedCache(S:CachableSet): Exports == Implementation where \cross{SORTPAK}{insertionSort!} \end{tabular} -<>= +\begin{chunk}{package SORTPAK SortPackage} )abbrev package SORTPAK SortPackage ++ Description: ++ This package exports sorting algorithnms @@ -144308,15 +144310,15 @@ SortPackage(S,A) : Exports == Implementation where l := l.rest m -@ -<>= +\end{chunk} +\begin{chunk}{SORTPAK.dotabb} "SORTPAK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SORTPAK"] "IXAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=IXAGG"] "EVALAB" [color="#4488FF",href="bookvol10.2.pdf#nameddest=EVALAB"] "SORTPAK" -> "IXAGG" "SORTPAK" -> "EVALAB" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SUP2 SparseUnivariatePolynomialFunctions2} \pagehead{SparseUnivariatePolynomialFunctions2}{SUP2} @@ -144325,7 +144327,7 @@ SortPackage(S,A) : Exports == Implementation where {\bf Exports:}\\ \cross{SUP2}{map} -<>= +\begin{chunk}{package SUP2 SparseUnivariatePolynomialFunctions2} )abbrev package SUP2 SparseUnivariatePolynomialFunctions2 ++ Author: ++ Date Created: @@ -144352,15 +144354,15 @@ SparseUnivariatePolynomialFunctions2(R:Ring, S:Ring): with map(f, p) == map(f, p)$UnivariatePolynomialCategoryFunctions2(R, SparseUnivariatePolynomial R, S, SparseUnivariatePolynomial S) -@ -<>= +\end{chunk} +\begin{chunk}{SUP2.dotabb} "SUP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SUP2"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "SUP2" -> "LMODULE" "SUP2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SPECOUT SpecialOutputPackage} \pagehead{SpecialOutputPackage}{SPECOUT} @@ -144373,7 +144375,7 @@ SparseUnivariatePolynomialFunctions2(R:Ring, S:Ring): with \cross{SPECOUT}{outputAsScript} \end{tabular} -<>= +\begin{chunk}{package SPECOUT SpecialOutputPackage} )abbrev package SPECOUT SpecialOutputPackage ++ Author: Stephen M. Watt ++ Date Created: September 1986 @@ -144452,13 +144454,13 @@ SpecialOutputPackage: public == private where texFormat$Lisp juxtaposeTerms l void()$Void -@ -<>= +\end{chunk} +\begin{chunk}{SPECOUT.dotabb} "SPECOUT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SPECOUT"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SPECOUT" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SFQCMPK SquareFreeQuasiComponentPackage} \pagehead{SquareFreeQuasiComponentPackage}{SFQCMPK} @@ -144485,11 +144487,11 @@ SpecialOutputPackage: public == private where \cross{SFQCMPK}{supDimElseRittWu?} & \end{tabular} -<>= +\begin{chunk}{SFQCMPK.dotabb} "SFQCMPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SFQCMPK"] -@ -<>= +\end{chunk} +\begin{chunk}{package SFQCMPK SquareFreeQuasiComponentPackage} )abbrev package SFQCMPK SquareFreeQuasiComponentPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/23/1998 @@ -144888,13 +144890,13 @@ SquareFreeQuasiComponentPackage(R,E,V,P,TS): Exports == Implementation where toSee := branches sort((x,y) +-> supDimElseRittWu?(x.tower,y.tower),toSee) -@ -<>= +\end{chunk} +\begin{chunk}{SFQCMPK.dotabb} "SFQCMPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SFQCMPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "SFQCMPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SRDCMPK SquareFreeRegularSetDecompositionPackage} \pagehead{SquareFreeRegularSetDecompositionPackage}{SRDCMPK} @@ -144913,7 +144915,7 @@ SquareFreeQuasiComponentPackage(R,E,V,P,TS): Exports == Implementation where \cross{SRDCMPK}{upDateBranches} \end{tabular} -<>= +\begin{chunk}{package SRDCMPK SquareFreeRegularSetDecompositionPackage} )abbrev package SRDCMPK SquareFreeRegularSetDecompositionPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/23/1998 @@ -145187,13 +145189,13 @@ SquareFreeRegularSetDecompositionPackage(R,E,V,P,TS): Exports == Implementation -- branches := concat(branches,current) removeSuperfluousCases(branches)$quasicomppack -@ -<>= +\end{chunk} +\begin{chunk}{SRDCMPK.dotabb} "SRDCMPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SRDCMPK"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "SRDCMPK" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SFRGCD SquareFreeRegularTriangularSetGcdPackage} \pagehead{SquareFreeRegularTriangularSetGcdPackage}{SFRGCD} @@ -145218,7 +145220,7 @@ SquareFreeRegularSetDecompositionPackage(R,E,V,P,TS): Exports == Implementation \cross{SFRGCD}{stoseSquareFreePart} & \end{tabular} -<>= +\begin{chunk}{package SFRGCD SquareFreeRegularTriangularSetGcdPackage} )abbrev package SFRGCD SquareFreeRegularTriangularSetGcdPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/23/1998 @@ -145665,13 +145667,13 @@ SquareFreeRegularTriangularSetGcdPackage(R,E,V,P,TS): Exports == Implementation stoseInvertibleSet(p:P,ts:TS): Split == stoseInvertibleSet_reg(p,ts) -@ -<>= +\end{chunk} +\begin{chunk}{SFRGCD.dotabb} "SFRGCD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SFRGCD"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "SFRGCD" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package MATSTOR StorageEfficientMatrixOperations} \pagehead{StorageEfficientMatrixOperations}{MATSTOR} @@ -145689,7 +145691,7 @@ SquareFreeRegularTriangularSetGcdPackage(R,E,V,P,TS): Exports == Implementation \cross{MATSTOR}{?**?} && \end{tabular} -<>= +\begin{chunk}{package MATSTOR StorageEfficientMatrixOperations} )abbrev package MATSTOR StorageEfficientMatrixOperations ++ Author: Clifton J. Williamson ++ Date Created: 18 July 1990 @@ -145880,13 +145882,13 @@ StorageEfficientMatrixOperations(R): Exports == Implementation where a := copy m; b := copy m; c := copy m power_!(a,b,c,m,n) -@ -<>= +\end{chunk} +\begin{chunk}{MATSTOR.dotabb} "MATSTOR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=MATSTOR"] "A1AGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=A1AGG"] "MATSTOR" -> "A1AGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STREAM1 StreamFunctions1} \pagehead{StreamFunctions1}{STREAM1} @@ -145895,7 +145897,7 @@ StorageEfficientMatrixOperations(R): Exports == Implementation where {\bf Exports:}\\ \cross{STREAM1}{concat} -<>= +\begin{chunk}{package STREAM1 StreamFunctions1} )abbrev package STREAM1 StreamFunctions1 ++ Authors: Burge, Watt; updated by Clifton J. Williamson ++ Date Created: July 1986 @@ -145924,13 +145926,13 @@ StreamFunctions1(S:Type): Exports == Implementation where empty?(x := frst z) => concat rst z concat(frst x,concat(rst x,concat rst z)) -@ -<>= +\end{chunk} +\begin{chunk}{STREAM1.dotabb} "STREAM1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STREAM1"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "STREAM1" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STREAM2 StreamFunctions2} \pagehead{StreamFunctions2}{STREAM2} @@ -145943,7 +145945,7 @@ StreamFunctions1(S:Type): Exports == Implementation where \cross{STREAM2}{scan} \end{tabular} -<>= +\begin{chunk}{package STREAM2 StreamFunctions2} )abbrev package STREAM2 StreamFunctions2 ++ Authors: Burge, Watt; updated by Clifton J. Williamson ++ Date Created: July 1986 @@ -146017,13 +146019,13 @@ StreamFunctions2(A:Type,B:Type): Exports == Implementation where -- empty? x => b -- h(frst x,rreduce(b,h,rst x)) -@ -<>= +\end{chunk} +\begin{chunk}{STREAM2.dotabb} "STREAM2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STREAM2"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "STREAM2" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STREAM3 StreamFunctions3} \pagehead{StreamFunctions3}{STREAM3} @@ -146032,7 +146034,7 @@ StreamFunctions2(A:Type,B:Type): Exports == Implementation where {\bf Exports:}\\ \cross{STREAM3}{map} -<>= +\begin{chunk}{package STREAM3 StreamFunctions3} )abbrev package STREAM3 StreamFunctions3 ++ Authors: Burge, Watt; updated by Clifton J. Williamson ++ Date Created: July 1986 @@ -146073,13 +146075,13 @@ StreamFunctions3(A,B,C): Exports == Implementation where eq?(y,rst y) => map(z +-> g(z,frst y),x)$StreamFunctions2(A,C) mapp(g,x,y) -@ -<>= +\end{chunk} +\begin{chunk}{STREAM3.dotabb} "STREAM3" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STREAM3"] "TYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TYPE"] "STREAM3" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STINPROD StreamInfiniteProduct} \pagehead{StreamInfiniteProduct}{STINPROD} @@ -146093,7 +146095,7 @@ StreamFunctions3(A,B,C): Exports == Implementation where \cross{STINPROD}{oddInfiniteProduct} \end{tabular} -<>= +\begin{chunk}{package STINPROD StreamInfiniteProduct} )abbrev package STINPROD StreamInfiniteProduct ++ Author: Clifton J. Williamson ++ Date Created: 23 February 1990 @@ -146161,18 +146163,18 @@ StreamInfiniteProduct(Coef): Exports == Implementation where generalInfiniteProduct(st,a,d) == applyOverQF(z1 +-> exp generalLambert(log z1,a,d),st) -@ -<>= +\end{chunk} +\begin{chunk}{STINPROD.dotabb} "STINPROD" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STINPROD"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "STINPROD" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STTAYLOR StreamTaylorSeriesOperations} Problems raising a UTS to a negative integer power. -The code in [[powern(rn,x)]] which raises an unnecessary error +The code in powern(rn,x) which raises an unnecessary error where no distinction between rational and integer powers are made. The fix is easy. Since the problem does not exist in SUPS we can @@ -146219,7 +146221,7 @@ just take the definition there. \cross{STTAYLOR}{-?} & \end{tabular} -<>= +\begin{chunk}{package STTAYLOR StreamTaylorSeriesOperations} )abbrev package STTAYLOR StreamTaylorSeriesOperations ++ Author: William Burge, Stephen Watt, Clifton J. Williamson ++ Date Created: 1986 @@ -146672,16 +146674,16 @@ StreamTaylorSeriesOperations(A): Exports == Implementation where concat(frst x,finteg((s+1)*(c*deriv x))-rst x * c) power(s,x) == YS(y +-> powerre(s,x,y)) -@ -<>= +\end{chunk} +\begin{chunk}{STTAYLOR.dotabb} "STTAYLOR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STTAYLOR"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "STTAYLOR" -> "FIELD" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STNSR StreamTensor} -<>= +\begin{chunk}{StreamTensor.input} )set break resume )sys rm -f StreamTensor.output )spool StreamTensor.output @@ -146703,8 +146705,8 @@ StreamTaylorSeriesOperations(A): Exports == Implementation where )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{StreamTensor.help} ==================================================================== StreamTensor examples ==================================================================== @@ -146712,14 +146714,14 @@ StreamTensor examples See Also: o )show StreamTensor -@ +\end{chunk} \pagehead{StreamTensor}{STNSR} \pagepic{ps/v104streamtensor.eps}{STNSR}{1.00} {\bf Exports:}\\ \cross{STNSR}{tensorMap} -<>= +\begin{chunk}{package STNSR StreamTensor} )abbrev package STNSR StreamTensor StreamTensor(R: Type): with @@ -146733,13 +146735,13 @@ StreamTensor(R: Type): with empty? s => empty() concat([f first s], delay tensorMap(rest s, f)) -@ -<>= +\end{chunk} +\begin{chunk}{STNSR.dotabb} "STNSR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STNSR"] "TYPE" [color=lightblue,href="bookvol10.2.pdf#nameddest=TYPE"]; "STNSR" -> "TYPE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STTF StreamTranscendentalFunctions} \pagehead{StreamTranscendentalFunctions}{STTF} @@ -146765,7 +146767,7 @@ StreamTensor(R: Type): with \cross{STTF}{?**?} &&&& \end{tabular} -<>= +\begin{chunk}{package STTF StreamTranscendentalFunctions} )abbrev package STTF StreamTranscendentalFunctions ++ Author: William Burge, Clifton J. Williamson ++ Date Created: 1986 @@ -147214,13 +147216,13 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where log(((1 :: ST) + powern(1/2,x))/z) error concat("acsch: ",TRCONST) -@ -<>= +\end{chunk} +\begin{chunk}{STTF.dotabb} "STTF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STTF"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "STTF" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package STTFNC StreamTranscendentalFunctionsNonCommutative} \pagehead{StreamTranscendentalFunctionsNonCommutative}{STTFNC} @@ -147244,7 +147246,7 @@ StreamTranscendentalFunctions(Coef): Exports == Implementation where \cross{STTFNC}{?**?} & \end{tabular} -<>= +\begin{chunk}{package STTFNC StreamTranscendentalFunctionsNonCommutative} )abbrev package STTFNC StreamTranscendentalFunctionsNonCommutative ++ Author: Clifton J. Williamson ++ Date Created: 26 May 1994 @@ -147481,13 +147483,13 @@ StreamTranscendentalFunctionsNonCommutative(Coef): _ asech z == error "asech: asech undefined on this coefficient domain" acsch z == error "acsch: acsch undefined on this coefficient domain" -@ -<>= +\end{chunk} +\begin{chunk}{STTFNC.dotabb} "STTFNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=STTFNC"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "STTFNC" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SCPKG StructuralConstantsPackage} \pagehead{StructuralConstantsPackage}{SCPKG} @@ -147499,7 +147501,7 @@ StreamTranscendentalFunctionsNonCommutative(Coef): _ \cross{SCPKG}{structuralConstants} \end{tabular} -<>= +\begin{chunk}{package SCPKG StructuralConstantsPackage} )abbrev package SCPKG StructuralConstantsPackage ++ Authors: J. Grabmeier ++ Date Created: 02 April 1992 @@ -147636,13 +147638,13 @@ must be linear polynomials in the generators" lscopy := rest lscopy vector reverse gamma -@ -<>= +\end{chunk} +\begin{chunk}{SCPKG.dotabb} "SCPKG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SCPKG"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SCPKG" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SHP SturmHabichtPackage} \pagehead{SturmHabichtPackage}{SHP} @@ -147659,7 +147661,7 @@ must be linear polynomials in the generators" \cross{SHP}{subresultantSequence} & \end{tabular} -<>= +\begin{chunk}{package SHP SturmHabichtPackage} )abbrev package SHP SturmHabichtPackage ++ Author: Lalo Gonzalez-Vega ++ Date Created: 1994? @@ -148024,13 +148026,13 @@ SturmHabichtPackage(R,x): T == C where countRealRootsMultiple(p1):INT == SturmHabichtMultiple(p1,1) -@ -<>= +\end{chunk} +\begin{chunk}{SHP.dotabb} "SHP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SHP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SHP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SUBRESP SubResultantPackage} \pagehead{SubResultantPackage}{SUBRESP} @@ -148042,7 +148044,7 @@ SturmHabichtPackage(R,x): T == C where \cross{SUBRESP}{subresultantVector} \end{tabular} -<>= +\begin{chunk}{package SUBRESP SubResultantPackage} )abbrev package SUBRESP SubResultantPackage ++ Author: Barry Trager, Renaud Rioboo ++ Date Created: 1987 @@ -148171,13 +148173,13 @@ SubResultantPackage(R, UP): Exports == Implementation where res.(degree p2) := p2 res -@ -<>= +\end{chunk} +\begin{chunk}{SUBRESP.dotabb} "SUBRESP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SUBRESP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SUBRESP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SUPFRACF SupFractionFactorizer} \pagehead{SupFractionFactorizer}{SUPFRACF} @@ -148189,7 +148191,7 @@ SubResultantPackage(R, UP): Exports == Implementation where \cross{SUPFRACF}{squareFree} \end{tabular} -<>= +\begin{chunk}{package SUPFRACF SupFractionFactorizer} )abbrev package SUPFRACF SupFractionFactorizer ++ Author: P. Gianni ++ Date Created: October 1993 @@ -148254,13 +148256,13 @@ SupFractionFactorizer(E,OV,R,P) : C == T [["sqfr",map(coerce,u.factor)$UPCF2(P,SUP P,FP,SUP FP), u.exponent] for u in factors ffact]) -@ -<>= +\end{chunk} +\begin{chunk}{SUPFRACF.dotabb} "SUPFRACF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SUPFRACF"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "SUPFRACF" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ODESYS SystemODESolver} \pagehead{SystemODESolver}{ODESYS} @@ -148273,7 +148275,7 @@ SupFractionFactorizer(E,OV,R,P) : C == T \cross{ODESYS}{triangulate} \end{tabular} -<>= +\begin{chunk}{package ODESYS SystemODESolver} )abbrev package ODESYS SystemODESolver ++ Author: Manuel Bronstein ++ Date Created: 11 June 1991 @@ -148509,13 +148511,13 @@ SystemODESolver(F, LO): Exports == Implementation where i := i+1 [x, w] -@ -<>= +\end{chunk} +\begin{chunk}{ODESYS.dotabb} "ODESYS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ODESYS"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "ODESYS" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SYSSOLP SystemSolvePackage} \pagehead{SystemSolvePackage}{SYSSOLP} @@ -148527,7 +148529,7 @@ SystemODESolver(F, LO): Exports == Implementation where \cross{SYSSOLP}{triangularSystems} \end{tabular} -<>= +\begin{chunk}{package SYSSOLP SystemSolvePackage} )abbrev package SYSSOLP SystemSolvePackage ++ Author: P. Gianni ++ Date Created: summer 1988 @@ -148768,13 +148770,13 @@ SystemSolvePackage(R): Cat == Cap where for pr in parRes] else [[]] -@ -<>= +\end{chunk} +\begin{chunk}{SYSSOLP.dotabb} "SYSSOLP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SYSSOLP"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "SYSSOLP" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SGCF SymmetricGroupCombinatoricFunctions} \pagehead{SymmetricGroupCombinatoricFunctions}{SGCF} @@ -148795,7 +148797,7 @@ SystemSolvePackage(R): Cat == Cap where \cross{SGCF}{unrankImproperPartitions1} & \end{tabular} -<>= +\begin{chunk}{package SGCF SymmetricGroupCombinatoricFunctions} )abbrev package SGCF SymmetricGroupCombinatoricFunctions ++ Authors: Johannes Grabmeier, Thorsten Werther ++ Date Created: 03 September 1988 @@ -149264,13 +149266,13 @@ SymmetricGroupCombinatoricFunctions(): public == private where colematrix(i,j) := #intersect(brace(help),brace(temp(j))) colematrix -@ -<>= +\end{chunk} +\begin{chunk}{SGCF.dotabb} "SGCF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SGCF"] "FSAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FSAGG"] "SGCF" -> "FSAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SYMFUNC SymmetricFunctions} \pagehead{SymmetricFunctions}{SYMFUNC} @@ -149279,7 +149281,7 @@ SymmetricGroupCombinatoricFunctions(): public == private where {\bf Exports:}\\ \cross{SYMFUNC}{symFunc} -<>= +\begin{chunk}{package SYMFUNC SymmetricFunctions} )abbrev package SYMFUNC SymmetricFunctions ++ Author: Manuel Bronstein ++ Date Created: 13 Feb 1989 @@ -149313,13 +149315,13 @@ SymmetricFunctions(R:Ring): Exports == Implementation where qsetelt_!(v, 2*i + m, - qelt(v, 2*i + m)) reverse_! v -@ -<>= +\end{chunk} +\begin{chunk}{SYMFUNC.dotabb} "SYMFUNC" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SYMFUNC"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "SYMFUNC" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter T} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -149344,7 +149346,7 @@ SymmetricFunctions(R:Ring): Exports == Implementation where \cross{TABLBUMP}{untab} && \end{tabular} -<>= +\begin{chunk}{package TABLBUMP TableauxBumpers} )abbrev package TABLBUMP TableauxBumpers ++ Author: William H. Burge ++ Date Created: 1987 @@ -149469,15 +149471,15 @@ TableauxBumpers(S:OrderedSet):T==C where bat1 llls==untab([],[reverse lls for lls in llls]) bat tb==bat1(listOfLists tb) -@ -<>= +\end{chunk} +\begin{chunk}{TABLBUMP.dotabb} "TABLBUMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TABLBUMP"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "FLAGG-" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FLAGG"] "TABLBUMP" -> "FLAGG-" "TABLBUMP" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TBCMPPK TabulatedComputationPackage} \pagehead{TabulatedComputationPackage}{TBCMPPK} @@ -149497,7 +149499,7 @@ TableauxBumpers(S:OrderedSet):T==C where \cross{TBCMPPK}{usingTable?} \end{tabular} -<>= +\begin{chunk}{package TBCMPPK TabulatedComputationPackage} )abbrev package TBCMPPK TabulatedComputationPackage ++ Author: Marc Moreno Maza ++ Date Created: 09/09/1998 @@ -149620,13 +149622,13 @@ TabulatedComputationPackage(Key ,Entry): Exports == Implementation where if info? then iprint(ko)$iprintpack void() -@ -<>= +\end{chunk} +\begin{chunk}{TBCMPPK.dotabb} "TBCMPPK" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TBCMPPK"] "TBAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=TBAGG"] "TBCMPPK" -> "TBAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TANEXP TangentExpansions} \pagehead{TangentExpansions}{TANEXP} @@ -149639,7 +149641,7 @@ TabulatedComputationPackage(Key ,Entry): Exports == Implementation where \cross{TANEXP}{tanSum} \end{tabular} -<>= +\begin{chunk}{package TANEXP TangentExpansions} )abbrev package TANEXP TangentExpansions ++ Author: Manuel Bronstein ++ Date Created: 13 Feb 1989 @@ -149691,13 +149693,13 @@ TangentExpansions(R:Field): Exports == Implementation where +/[m1toN(i+1) * v(2*i - 1 + m) for i in 1..(#v quo 2)] / +/[m1toN(i) * v(2*i + m) for i in 0..((#v - 1) quo 2)] -@ -<>= +\end{chunk} +\begin{chunk}{TANEXP.dotabb} "TANEXP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TANEXP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "TANEXP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UTSSOL TaylorSolve} @@ -149710,22 +149712,22 @@ It uses the method of undetermined coefficients. \begin{verbatim} Could I either \begin{itemize} - \item take a function [[UTSCAT F -> UTSCAT F]] and still be able to compute + \item take a function UTSCAT F $->$ UTSCAT F and still be able to compute with undetermined coefficients, or - \item take a function [[F -> F]], and do likewise? + \item take a function F $->$ F, and do likewise? \end{itemize} Let's see. Try to compute the equation without resorting to power series. I.e., % - [[c: SUP SUP F]], and [[f: SUP SUP F -> SUP SUP F]]. Won't this make the + c: SUP SUP F, and f: SUP SUP F $->$ SUP SUP F. Won't this make the computation of coefficients terribly slow? I could also try to replace transcendental kernels with variables\dots - Unfortunately, [[SUP F]] does not have [[TRANFUN]] -- well, it can't, of + Unfortunately, SUP F does not have TRANFUN -- well, it can't, of course. However, I'd like to be able to compute % - [[sin(1+monomial(1,1)$UFPS SUP EXPR INT)]]. + sin(1+monomial(1,1)$UFPS SUP EXPR INT). \end{verbatim} \pagehead{TaylorSolve}{UTSSOL} @@ -149734,7 +149736,7 @@ It uses the method of undetermined coefficients. {\bf Exports:}\\ \cross{UTSSOL}{seriesSolve} -<>= +\begin{chunk}{package UTSSOL TaylorSolve} )abbrev package UTSSOL TaylorSolve ++ Description: ++ This package has no description @@ -149750,17 +149752,17 @@ TaylorSolve(F, UTSF, UTSSUPF): Exports == Implementation where seriesSolve: (UTSSUPF -> UTSSUPF, List F) -> UTSF Implementation == add -<> -@ +\getchunk{implementation: UTSSOL TaylorSolve} +\end{chunk} -<>= +\begin{chunk}{implementation: UTSSOL TaylorSolve} seriesSolve(f, l) == c1 := map((x:F):SUP F +-> x::(SUP F), l) $ListFunctions2(F, SUP F)::(Stream SUP F) coeffs: Stream SUP F := concat(c1, generate(monomial(1$F,1$NNI))) -- coeffs: Stream SUP F := concat(c1, monomial(1$F,1$NNI)) -@ +\end{chunk} coeffs is the stream of the already computed coefficients of the solution, plus one which is so far undetermined. We store in st.2 the complete stream @@ -149768,23 +149770,23 @@ and in st.1 the stream starting with the first coefficient that has possibly not yet been computed. \begin{verbatim} - The mathematics is not quite worked out. If [[coeffs]] is initialized as + The mathematics is not quite worked out. If coeffs is initialized as stream with all coefficients set to the \emph{same} transcendental value, and not enough initial values are given, then the missing ones are implicitely assumed to be all identical. It may well happen that a solution is produced, although it is not uniquely determined\dots \end{verbatim} -<>= +\begin{chunk}{implementation: UTSSOL TaylorSolve} st: List Stream SUP F := [coeffs, coeffs] -@ +\end{chunk} Consider an arbitrary equation $f\big(x, y(x)\big)=0$. When setting $x=0$, we obtain $f\big(0, y(0)\big)=0$. It is not necessarily the case that this determines $y(0)$ uniquely, so we need one initial value that satisfies this equation. \begin{verbatim} - [[seriesSolve]] should check that the given initial values satisfy $f\big(0, y(0), + seriesSolve should check that the given initial values satisfy $f\big(0, y(0), y'(0),...\big) = 0$. \end{verbatim} Now consider the derivatives of $f$, where we write $y$ instead of $y(x)$ for @@ -149812,29 +149814,29 @@ $y^{\prime\prime}$. seems that composition is allowed. \end{verbatim} -<>= +\begin{chunk}{implementation: UTSSOL TaylorSolve} next: () -> F := nr := st.1 res: F if ground?(coeff: SUP F := nr.1)$(SUP F) -@ +\end{chunk} %$ If the next element was already calculated, we can simply return it: -<>= +\begin{chunk}{implementation: UTSSOL TaylorSolve} then res := ground coeff st.1 := rest nr else -@ +\end{chunk} Otherwise, we have to find the first non-satisfied relation and solve it. It should be linear, or a single non-constant monomial. That is, the solution should be unique. -<>= +\begin{chunk}{implementation: UTSSOL TaylorSolve} ns := st.2 eqs: Stream SUP F := coefficients f series ns while zero? first eqs repeat eqs := rest eqs @@ -149856,13 +149858,13 @@ should be unique. series generate next -@ -<>= +\end{chunk} +\begin{chunk}{UTSSOL.dotabb} "UTSSOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UTSSOL"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "UTSSOL" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TEMUTL TemplateUtilities} \pagehead{TemplateUtilities}{TEMUTL} @@ -149874,7 +149876,7 @@ should be unique. \cross{TEMUTL}{stripCommentsAndBlanks} \end{tabular} -<>= +\begin{chunk}{package TEMUTL TemplateUtilities} )abbrev package TEMUTL TemplateUtilities ++ Author: Mike Dewar ++ Date Created: October 1992 @@ -149917,13 +149919,13 @@ TemplateUtilities(): Exports == Implementation where interpretString(s:String):Any == interpret parse s -@ -<>= +\end{chunk} +\begin{chunk}{TEMUTL.dotabb} "TEMUTL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TEMUTL"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "TEMUTL" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TEX1 TexFormat1} \pagehead{TexFormat1}{TEX1} @@ -149932,7 +149934,7 @@ TemplateUtilities(): Exports == Implementation where {\bf Exports:}\\ \cross{TEX1}{coerce} -<>= +\begin{chunk}{package TEX1 TexFormat1} )abbrev package TEX1 TexFormat1 ++ Author: Robert S. Sutor ++ Date Created: 1987 through 1990 @@ -149960,15 +149962,15 @@ TexFormat1(S : SetCategory): public == private where coerce(s : S): TexFormat == coerce(s :: OutputForm)$TexFormat -@ -<>= +\end{chunk} +\begin{chunk}{TEX1.dotabb} "TEX1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TEX1"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "TEX1" -> "BASTYPE" "TEX1" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TOOLSIGN ToolsForSign} \pagehead{ToolsForSign}{TOOLSIGN} @@ -149981,7 +149983,7 @@ TexFormat1(S : SetCategory): public == private where \cross{TOOLSIGN}{sign} \end{tabular} -<>= +\begin{chunk}{package TOOLSIGN ToolsForSign} )abbrev package TOOLSIGN ToolsForSign ++ Author: Manuel Bronstein ++ Date Created: 25 August 1989 @@ -150031,13 +150033,13 @@ ToolsForSign(R:Ring): with st = "left" => -1 error "Unknown option" -@ -<>= +\end{chunk} +\begin{chunk}{TOOLSIGN.dotabb} "TOOLSIGN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TOOLSIGN"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "TOOLSIGN" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAW TopLevelDrawFunctions} \pagehead{TopLevelDrawFunctions}{DRAW} @@ -150049,7 +150051,7 @@ ToolsForSign(R:Ring): with \cross{DRAW}{makeObject} \end{tabular} -<>= +\begin{chunk}{package DRAW TopLevelDrawFunctions} )abbrev package DRAW TopLevelDrawFunctions ++ Author: Clifton J. Williamson ++ Date Created: 23 January 1990 @@ -150376,13 +150378,13 @@ TopLevelDrawFunctions(Ex:Join(ConvertibleTo InputForm,SetCategory)): draw(s:PSF,uBind:BIND,vBind:BIND) == draw(s,uBind,vBind,nil()) -@ -<>= +\end{chunk} +\begin{chunk}{DRAW.dotabb} "DRAW" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAW"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "DRAW" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAWCURV TopLevelDrawFunctionsForAlgebraicCurves} \pagehead{TopLevelDrawFunctionsForAlgebraicCurves}{DRAWCURV} @@ -150391,7 +150393,7 @@ TopLevelDrawFunctions(Ex:Join(ConvertibleTo InputForm,SetCategory)): {\bf Exports:}\\ \cross{DRAWCURV}{draw} -<>= +\begin{chunk}{package DRAWCURV TopLevelDrawFunctionsForAlgebraicCurves} )abbrev package DRAWCURV TopLevelDrawFunctionsForAlgebraicCurves ++ Author: Clifton J. Williamson ++ Date Created: 26 June 1990 @@ -150513,13 +150515,13 @@ TopLevelDrawFunctionsForAlgebraicCurves(R,Ex): Exports == Implementation where -- draw drawCurves(listBranches acplot,ptCol,crCol,pointSizeDefault(),l) -@ -<>= +\end{chunk} +\begin{chunk}{DRAWCURV.dotabb} "DRAWCURV" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAWCURV"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "DRAWCURV" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} \pagehead{TopLevelDrawFunctionsForCompiledFunctions}{DRAWCFUN} @@ -150532,7 +150534,7 @@ TopLevelDrawFunctionsForAlgebraicCurves(R,Ex): Exports == Implementation where \cross{DRAWCFUN}{recolor} \end{tabular} -<>= +\begin{chunk}{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} )abbrev package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions ++ Author: Clifton J. Williamson ++ Date Created: 22 June 1990 @@ -150726,7 +150728,7 @@ TopLevelDrawFunctionsForCompiledFunctions(): ++ compile package. Implementation ==> add -@ +\end{chunk} I have had to work my way around the following bug in the compiler: When a local variable is given a mapping as a value, e.g. \begin{verbatim} @@ -150738,7 +150740,7 @@ passed to a function, e.g. \begin{verbatim} bird := fcn(foo), \end{verbatim} -foo will often be compiled as [[|DRAW;foo|]] rather than [[|foo|]]. This, +foo will often be compiled as DRAW;foo rather than foo. This, of course, causes a run-time error. To avoid this problem, local variables are not given mappings as @@ -150747,7 +150749,7 @@ of the list can always be extracted and everything goes through as before. There is no major loss in efficiency, as the computation of points will always dominate the computation time.\\ \ \ \ \ - cjw, 22 June MCMXC -<>= +\begin{chunk}{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} import PLOT import TwoDimensionalPlotClipping @@ -150844,7 +150846,7 @@ of points will always dominate the computation time.\\ a < b => segment(a,b) segment(b,a) -@ +\end{chunk} The function {\tt myTrap1} is a local function for used in creating maps SF -> Point SF (two dimensional). The range of this function is SingleFloat. As originally coded it would return {\tt \$NaNvalue\$Lisp} @@ -150852,7 +150854,7 @@ which is outside the range. Since this function is only used internallly by the draw package we handle the ``failed'' case by returning zero. We handle the out-of-range case by returning the maximum or minimum SingleFloat value. -<>= +\begin{chunk}{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} myTrap1: (SF-> SF, SF) -> SF myTrap1(ff:SF-> SF, f:SF):SF == @@ -151030,7 +151032,7 @@ SingleFloat value. -- 3D - Surfaces ------------------------------------------------------------------------ -@ +\end{chunk} The function {\tt myTrap2} is a local function for used in creating maps SF -> Point SF (three dimensional). The range of this function is SingleFloat. As originally coded it would return {\tt \$NaNvalue\$Lisp} @@ -151038,7 +151040,7 @@ which is outside the range. Since this function is only used internallly by the draw package we handle the ``failed'' case by returning zero. We handle the out-of-range case by returning the maximum or minimum SingleFloat value. -<>= +\begin{chunk}{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} myTrap2: ((SF, SF) -> SF, SF, SF) -> SF myTrap2(ff:(SF, SF) -> SF, u:SF, v:SF):SF == @@ -151171,13 +151173,13 @@ SingleFloat value. draw(s:PSFUN,uSeg:SEG,vSeg:SEG) == draw(s,uSeg,vSeg,nil()) -@ -<>= +\end{chunk} +\begin{chunk}{DRAWCFUN.dotabb} "DRAWCFUN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAWCFUN"] "ALIST" [color="#88FF44",href="bookvol10.3.pdf#nameddest=ALIST"] "DRAWCFUN" -> "ALIST" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package DRAWPT TopLevelDrawFunctionsForPoints} \pagehead{TopLevelDrawFunctionsForPoints}{DRAWPT} @@ -151186,7 +151188,7 @@ SingleFloat value. {\bf Exports:}\\ \cross{DRAWPT}{draw} -<>= +\begin{chunk}{package DRAWPT TopLevelDrawFunctionsForPoints} )abbrev package DRAWPT TopLevelDrawFunctionsForPoints ++ Author: Mike Dewar ++ Date Created: 24 May 1995 @@ -151268,8 +151270,8 @@ TopLevelDrawFunctionsForPoints(): Exports == Implementation where points := cons(row,points) makeViewport3D(mesh points,l) -@ -<>= +\end{chunk} +\begin{chunk}{DRAWPT.dotabb} "DRAWPT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=DRAWPT"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] @@ -151278,7 +151280,7 @@ TopLevelDrawFunctionsForPoints(): Exports == Implementation where "DRAWPT" -> "RADCAT" "DRAWPT" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TOPSP TopLevelThreeSpace} \pagehead{TopLevelThreeSpace}{TOPSP} @@ -151287,7 +151289,7 @@ TopLevelDrawFunctionsForPoints(): Exports == Implementation where {\bf Exports:}\\ \cross{TOPSP}{createThreeSpace} -<>= +\begin{chunk}{package TOPSP TopLevelThreeSpace} )abbrev package TOPSP TopLevelThreeSpace ++ Description: ++ This package exports a function for making a \spadtype{ThreeSpace} @@ -151299,15 +151301,15 @@ TopLevelThreeSpace(): with == add createThreeSpace() == create3Space()$ThreeSpace(DoubleFloat) -@ -<>= +\end{chunk} +\begin{chunk}{TOPSP.dotabb} "TOPSP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TOPSP"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "TOPSP" -> "FIELD" "TOPSP" -> "RADCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTHERTR TranscendentalHermiteIntegration} \pagehead{TranscendentalHermiteIntegration}{INTHERTR} @@ -151316,7 +151318,7 @@ TopLevelThreeSpace(): with {\bf Exports:}\\ \cross{INTHERTR}{HermiteIntegrate} -<>= +\begin{chunk}{package INTHERTR TranscendentalHermiteIntegration} )abbrev package INTHERTR TranscendentalHermiteIntegration ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -151378,13 +151380,13 @@ TranscendentalHermiteIntegration(F, UP): Exports == Implementation where mult:= mult * qbarhat [p / g0, a, qhat] -@ -<>= +\end{chunk} +\begin{chunk}{INTHERTR.dotabb} "INTHERTR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTHERTR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTHERTR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package INTTR TranscendentalIntegration} \pagehead{TranscendentalIntegration}{INTTR} @@ -151407,7 +151409,7 @@ TranscendentalHermiteIntegration(F, UP): Exports == Implementation where \cross{INTTR}{tanintegrate} & \end{tabular} -<>= +\begin{chunk}{package INTTR TranscendentalIntegration} )abbrev package INTTR TranscendentalIntegration ++ Author: Manuel Bronstein ++ Date Created: 1987 @@ -151857,13 +151859,13 @@ TranscendentalIntegration(F, UP): Exports == Implementation where differentiate(c := r.logpart / g, derivation) ^= 0 => "failed" [r.answer, c] -@ -<>= +\end{chunk} +\begin{chunk}{INTTR.dotabb} "INTTR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=INTTR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "INTTR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TRMANIP TranscendentalManipulations} \pagehead{TranscendentalManipulations}{TRMANIP} @@ -151901,7 +151903,7 @@ TranscendentalIntegration(F, UP): Exports == Implementation where \cross{TRMANIP}{expandTrigProducts} && \end{tabular} -<>= +\begin{chunk}{package TRMANIP TranscendentalManipulations} )abbrev package TRMANIP TranscendentalManipulations ++ Author: Bob Sutor, Manuel Bronstein ++ Date Created: Way back @@ -152321,13 +152323,13 @@ TranscendentalManipulations(R, F): Exports == Implementation where [t2t,c2t,s2c,c2s,th2th,ch2th,sh2ch,ch2sh]), ["sin"::Symbol, "sinh"::Symbol], [2, 2], [s2c2, sh2ch2]) -@ -<>= +\end{chunk} +\begin{chunk}{TRMANIP.dotabb} "TRMANIP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TRMANIP"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "TRMANIP" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDETR TranscendentalRischDE} \pagehead{TranscendentalRischDE}{RDETR} @@ -152340,7 +152342,7 @@ TranscendentalManipulations(R, F): Exports == Implementation where \cross{RDETR}{polyRDE} \end{tabular} -<>= +\begin{chunk}{package RDETR TranscendentalRischDE} )abbrev package RDETR TranscendentalRischDE ++ Author: Manuel Bronstein ++ Date Created: Jan 1988 @@ -152507,13 +152509,13 @@ TranscendentalRischDE(F, UP): Exports == Implementation where )@Union(Z, "failed")) case Z => max(n::Z, dc - db) dc - db -@ -<>= +\end{chunk} +\begin{chunk}{RDETR.dotabb} "RDETR" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDETR"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RDETR" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package RDETRS TranscendentalRischDESystem} \pagehead{TranscendentalRischDESystem}{RDETRS} @@ -152525,7 +152527,7 @@ TranscendentalRischDE(F, UP): Exports == Implementation where \cross{RDETRS}{monomRDEsys} \end{tabular} -<>= +\begin{chunk}{package RDETRS TranscendentalRischDESystem} )abbrev package RDETRS TranscendentalRischDESystem ++ Author: Manuel Bronstein ++ Date Created: 17 August 1992 @@ -152743,16 +152745,16 @@ TranscendentalRischDESystem(F, UP): Exports == Implementation where )@Union(Z, "failed")) case Z => max(n::Z, dc - db) dc - db -@ -<>= +\end{chunk} +\begin{chunk}{RDETRS.dotabb} "RDETRS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=RDETRS"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "RDETRS" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SOLVETRA TransSolvePackage} -<>= +\begin{chunk}{TransSolvePackage.input} )set break resume )sys rm -f TransSolvePackage.output )spool TransSolvePackage.output @@ -152998,8 +153000,8 @@ definingPolynomial %phi1 )spool -@ -<>= +\end{chunk} +\begin{chunk}{TransSolvePackage.help} ==================================================================== TransSolvePackage examples ==================================================================== @@ -153013,14 +153015,14 @@ definingPolynomial %phi1 See Also: o )show TransSolvePackage -@ +\end{chunk} \pagehead{TransSolvePackage}{SOLVETRA} \pagepic{ps/v104transsolvepackage.ps}{SOLVETRA}{1.00} {\bf Exports:}\\ \cross{SOLVETRA}{solve} -<>= +\begin{chunk}{package SOLVETRA TransSolvePackage} )abbrev package SOLVETRA TransSolvePackage ++ Author: W. Wiwianka, Martin Rubey ++ Date Created: Summer 1991 @@ -153519,7 +153521,7 @@ TransSolvePackage(R) : Exports == Implementation where sols := "append"/[solve1Pol(p,v,sol) for sol in sols] sols -@ +\end{chunk} The input \begin{verbatim} solve(sinh(z)=cosh(z),z) @@ -153529,7 +153531,7 @@ generates the error (reported as bug \# 102): >> Error detected within library code: No identity element for reduce of empty list using operation append \end{verbatim} -<>= +\begin{chunk}{package SOLVETRA TransSolvePackage} solveList(lexpr:L RE, lvar:L S):L L EQ RE == ans1 := solveRetract(lexpr, lvar) @@ -153555,13 +153557,13 @@ generates the error (reported as bug \# 102): -- lval2 := [k::RE for k in lker] -- [[map(eval(#1,lker2,lval2), neq) for neq in sol] for sol in ans] -@ -<>= +\end{chunk} +\begin{chunk}{SOLVETRA.dotabb} "SOLVETRA" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SOLVETRA"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "SOLVETRA" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package SOLVESER TransSolvePackageService} \pagehead{TransSolvePackageService}{SOLVESER} @@ -153573,7 +153575,7 @@ generates the error (reported as bug \# 102): \cross{SOLVESER}{unvectorise} \end{tabular} -<>= +\begin{chunk}{package SOLVESER TransSolvePackageService} )abbrev package SOLVESER TransSolvePackageService ++ Author: W. Wiwianka ++ Date Created: Summer 1991 @@ -153679,13 +153681,13 @@ TransSolvePackageService(R) : Exports == Implementation where resul else return "failed" -@ -<>= +\end{chunk} +\begin{chunk}{SOLVESER.dotabb} "SOLVESER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=SOLVESER"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] "SOLVESER" -> "FS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TRIMAT TriangularMatrixOperations} \pagehead{TriangularMatrixOperations}{TRIMAT} @@ -153697,7 +153699,7 @@ TransSolvePackageService(R) : Exports == Implementation where \cross{TRIMAT}{UpTriBddDenomInv} \end{tabular} -<>= +\begin{chunk}{package TRIMAT TriangularMatrixOperations} )abbrev package TRIMAT TriangularMatrixOperations ++ Author: Victor Miller ++ Date Created: @@ -153759,8 +153761,8 @@ TriangularMatrixOperations(R,Row,Col,M): Exports == Implementation where exquo qelt(A, j, j+offset))::R)) AI -@ -<>= +\end{chunk} +\begin{chunk}{TRIMAT.dotabb} "TRIMAT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TRIMAT"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] @@ -153769,7 +153771,7 @@ TriangularMatrixOperations(R,Row,Col,M): Exports == Implementation where "TRIGMNIP" -> "FS" "TRIGMNIP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TRIGMNIP TrigonometricManipulations} \pagehead{TrigonometricManipulations}{TRIGMNIP} @@ -153786,7 +153788,7 @@ TriangularMatrixOperations(R,Row,Col,M): Exports == Implementation where \cross{TRIGMNIP}{trigs} &&& \end{tabular} -<>= +\begin{chunk}{package TRIGMNIP TrigonometricManipulations} )abbrev package TRIGMNIP TrigonometricManipulations ++ Author: Manuel Bronstein ++ Date Created: 4 April 1988 @@ -153926,8 +153928,8 @@ TrigonometricManipulations(R, F): Exports == Implementation where g := explogs2trigs F2FG f real g + s1 * imag g -@ -<>= +\end{chunk} +\begin{chunk}{TRIGMNIP.dotabb} "TRIGMNIP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TRIGMNIP"] "ACF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=ACF"] "FS" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FS"] @@ -153936,7 +153938,7 @@ TrigonometricManipulations(R, F): Exports == Implementation where "TRIGMNIP" -> "FS" "TRIGMNIP" -> "COMPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TUBETOOL TubePlotTools} \pagehead{TubePlotTools}{TUBETOOL} @@ -153955,7 +153957,7 @@ TrigonometricManipulations(R, F): Exports == Implementation where \cross{TUBETOOL}{?-?} & \end{tabular} -<>= +\begin{chunk}{package TUBETOOL TubePlotTools} )abbrev package TUBETOOL TubePlotTools ++ Author: Clifton J. Williamson ++ Date Created: Bastille Day 1989 @@ -154073,13 +154075,13 @@ TubePlotTools(): Exports == Implementation where pt := ctr + rad * pNorm concat(pt,concat(ans,pt)) -@ -<>= +\end{chunk} +\begin{chunk}{TUBETOOL.dotabb} "TUBETOOL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TUBETOOL"] "FRAC" [color="#88FF44",href="bookvol10.3.pdf#nameddest=FRAC"] "TUBETOOL" -> "FRAC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package CLIP TwoDimensionalPlotClipping} \pagehead{TwoDimensionalPlotClipping}{CLIP} @@ -154092,7 +154094,7 @@ TubePlotTools(): Exports == Implementation where \cross{CLIP}{clipWithRanges} \end{tabular} -<>= +\begin{chunk}{package CLIP TwoDimensionalPlotClipping} )abbrev package CLIP TwoDimensionalPlotClipping ++ Author: Clifton J. Williamson ++ Date Created: 22 December 1989 @@ -154380,13 +154382,13 @@ TwoDimensionalPlotClipping(): Exports == Implementation where clip(l: L Pt) == iClipParametric(list l,1/2,5/1) clip(l: L L Pt) == iClipParametric(l,1/2,5/1) -@ -<>= +\end{chunk} +\begin{chunk}{CLIP.dotabb} "CLIP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=CLIP"] "PTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PTCAT"] "CLIP" -> "PTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package TWOFACT TwoFactorize} \pagehead{TwoFactorize}{TWOFACT} @@ -154399,7 +154401,7 @@ TwoDimensionalPlotClipping(): Exports == Implementation where \cross{TWOFACT}{twoFactor} \end{tabular} -<>= +\begin{chunk}{package TWOFACT TwoFactorize} )abbrev package TWOFACT TwoFactorize ++ Authors : P.Gianni, J.H.Davenport ++ Date Created : May 1990 @@ -154619,15 +154621,15 @@ TwoFactorize(F) : C == T lfactk:=cons(retractIfCan(ffn)$Normp :: P, lfactk) */[primeFactor(ff1,1) for ff1 in lfactk] -@ -<>= +\end{chunk} +\begin{chunk}{TWOFACT.dotabb} "TWOFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=TWOFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "FAXF" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FAXF"] "TWOFACT" -> "PFECAT" "TWOFACT" -> "FAXF" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter U} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -154642,7 +154644,7 @@ TwoFactorize(F) : C == T \cross{UNIFACT}{henselFact} \end{tabular} -<>= +\begin{chunk}{package UNIFACT UnivariateFactorize} )abbrev package UNIFACT UnivariateFactorize ++ Author: Patrizia Gianni ++ Date Created: ??? @@ -154954,13 +154956,13 @@ UnivariateFactorize(ZP) : public == private where factorlist := append([[pf,d1]$ParFact for pf in fln],factorlist) [c,factorlist]$FinalFact -@ -<>= +\end{chunk} +\begin{chunk}{UNIFACT.dotabb} "UNIFACT" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UNIFACT"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UNIFACT" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UFPS1 UnivariateFormalPowerSeriesFunctions} \pagehead{UnivariateFormalPowerSeriesFunctions}{UFPS1} @@ -154969,7 +154971,7 @@ UnivariateFactorize(ZP) : public == private where {\bf Exports:}\\ \cross{UFPS1}{hadamard} -<>= +\begin{chunk}{package UFPS1 UnivariateFormalPowerSeriesFunctions} )abbrev package UFPS1 UnivariateFormalPowerSeriesFunctions ++ Description: ++ This package has no description @@ -154990,13 +154992,13 @@ UnivariateFormalPowerSeriesFunctions(Coef: Ring): Exports == Implementation coefficients f, coefficients g) $StreamFunctions3(Coef, Coef, Coef) -@ -<>= +\end{chunk} +\begin{chunk}{UFPS1.dotabb} "UFPS1" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UFPS1"] "UFPS" [color="#88FF44",href="bookvol10.3.pdf#nameddest=UFPS"] "UFPS1" -> "UFPS" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package ULS2 UnivariateLaurentSeriesFunctions2} \pagehead{UnivariateLaurentSeriesFunctions2}{ULS2} @@ -155005,7 +155007,7 @@ UnivariateFormalPowerSeriesFunctions(Coef: Ring): Exports == Implementation {\bf Exports:}\\ \cross{ULS2}{map} -<>= +\begin{chunk}{package ULS2 UnivariateLaurentSeriesFunctions2} )abbrev package ULS2 UnivariateLaurentSeriesFunctions2 ++ Author: Clifton J. Williamson ++ Date Created: 5 March 1990 @@ -155045,15 +155047,15 @@ UnivariateLaurentSeriesFunctions2(Coef1,Coef2,var1,var2,cen1,cen2):_ map(f,ups) == laurent(degree ups, map(f, taylorRep ups)$UTSF2) -@ -<>= +\end{chunk} +\begin{chunk}{ULS2.dotabb} "ULS2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ULS2"] "MODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "ULS2" -> "LMODULE" "ULS2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPOLYC2 UnivariatePolynomialCategoryFunctions2} \pagehead{UnivariatePolynomialCategoryFunctions2}{UPOLYC2} @@ -155062,7 +155064,7 @@ UnivariateLaurentSeriesFunctions2(Coef1,Coef2,var1,var2,cen1,cen2):_ {\bf Exports:}\\ \cross{UPOLYC2}{map} -<>= +\begin{chunk}{package UPOLYC2 UnivariatePolynomialCategoryFunctions2} )abbrev package UPOLYC2 UnivariatePolynomialCategoryFunctions2 ++ Author: ++ Date Created: @@ -155098,13 +155100,13 @@ UnivariatePolynomialCategoryFunctions2(R,PR,S,PS): Exports == Impl where p := reductum p ans -@ -<>= +\end{chunk} +\begin{chunk}{UPOLYC2.dotabb} "UPOLYC2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPOLYC2"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPOLYC2" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPCDEN UnivariatePolynomialCommonDenominator} \pagehead{UnivariatePolynomialCommonDenominator}{UPCDEN} @@ -155117,7 +155119,7 @@ UnivariatePolynomialCategoryFunctions2(R,PR,S,PS): Exports == Impl where \cross{UPCDEN}{splitDenominator} \end{tabular} -<>= +\begin{chunk}{package UPCDEN UnivariatePolynomialCommonDenominator} )abbrev package UPCDEN UnivariatePolynomialCommonDenominator ++ Author: Manuel Bronstein ++ Date Created: 2 May 1988 @@ -155157,13 +155159,13 @@ UnivariatePolynomialCommonDenominator(R, Q, UP): Exports == Impl where d := commonDenominator p [map(x +-> numer(d*x)::Q, p), d] -@ -<>= +\end{chunk} +\begin{chunk}{UPCDEN.dotabb} "UPCDEN" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPCDEN"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPCDEN" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPDECOMP UnivariatePolynomialDecompositionPackage} \pagehead{UnivariatePolynomialDecompositionPackage}{UPDECOMP} @@ -155178,7 +155180,7 @@ UnivariatePolynomialCommonDenominator(R, Q, UP): Exports == Impl where \cross{UPDECOMP}{rightFactorIfCan} & \end{tabular} -<>= +\begin{chunk}{package UPDECOMP UnivariatePolynomialDecompositionPackage} )abbrev package UPDECOMP UnivariatePolynomialDecompositionPackage ++ Author: Frederic Lehobey ++ Date Created: 17 June 1996 @@ -155302,13 +155304,13 @@ UnivariatePolynomialDecompositionPackage(R,UP): Exports == Implementation where lr := cf :: LR append(monicCompleteDecompose lr.left,[lr.right]) -@ -<>= +\end{chunk} +\begin{chunk}{UPDECOMP.dotabb} "UPDECOMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPDECOMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPDECOMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPDIVP UnivariatePolynomialDivisionPackage} \pagehead{UnivariatePolynomialDivisionPackage}{UPDIVP} @@ -155317,7 +155319,7 @@ UnivariatePolynomialDecompositionPackage(R,UP): Exports == Implementation where {\bf Exports:}\\ \cross{UPDIVP}{divideIfCan} -<>= +\begin{chunk}{package UPDIVP UnivariatePolynomialDivisionPackage} )abbrev package UPDIVP UnivariatePolynomialDivisionPackage ++ Author: Frederic Lehobey ++ Date Created: 3 June 1997 @@ -155362,13 +155364,13 @@ UnivariatePolynomialDivisionPackage(R,UP): Exports == Implementation where p1 := p1-c*mapExponents(x +-> x+ee, p2) [q,p1] -@ -<>= +\end{chunk} +\begin{chunk}{UPDIVP.dotabb} "UPDIVP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPDIVP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPDIVP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UP2 UnivariatePolynomialFunctions2} \pagehead{UnivariatePolynomialFunctions2}{UP2} @@ -155377,7 +155379,7 @@ UnivariatePolynomialDivisionPackage(R,UP): Exports == Implementation where {\bf Exports:}\\ \cross{UP2}{map} -<>= +\begin{chunk}{package UP2 UnivariatePolynomialFunctions2} )abbrev package UP2 UnivariatePolynomialFunctions2 ++ Author: ++ Date Created: @@ -155403,15 +155405,15 @@ UnivariatePolynomialFunctions2(x:Symbol, R:Ring, y:Symbol, S:Ring): with map(f, p) == map(f, p)$UnivariatePolynomialCategoryFunctions2(R, UnivariatePolynomial(x, R), S, UnivariatePolynomial(y, S)) -@ -<>= +\end{chunk} +\begin{chunk}{UP2.dotabb} "UP2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UP2"] "LMODULE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=LMODULE"] "SGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SGROUP"] "UP2" -> "LMODULE" "UP2" -> "SGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPMP UnivariatePolynomialMultiplicationPackage} \pagehead{UnivariatePolynomialMultiplicationPackage}{UPMP} @@ -155424,7 +155426,7 @@ UnivariatePolynomialFunctions2(x:Symbol, R:Ring, y:Symbol, S:Ring): with \cross{UPMP}{noKaratsuba} \end{tabular} -<>= +\begin{chunk}{package UPMP UnivariatePolynomialMultiplicationPackage} )abbrev package UPMP UnivariatePolynomialMultiplicationPackage ++ Author: Marc Moreno Maza ++ Date Created: 14.08.2000 @@ -155512,13 +155514,13 @@ UnivariatePolynomialMultiplicationPackage(R: Ring, U: UnivariatePolynomialCatego zero? d => shiftLeft(v,2*n) + w shiftLeft(v,2*n + d) + shiftLeft(w,d) -@ -<>= +\end{chunk} +\begin{chunk}{UPMP.dotabb} "UPMP" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPMP"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPMP" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPSQFREE UnivariatePolynomialSquareFree} \pagehead{UnivariatePolynomialSquareFree}{UPSQFREE} @@ -155531,7 +155533,7 @@ UnivariatePolynomialMultiplicationPackage(R: Ring, U: UnivariatePolynomialCatego \cross{UPSQFREE}{BumInSepFFE} \end{tabular} -<>= +\begin{chunk}{package UPSQFREE UnivariatePolynomialSquareFree} )abbrev package UPSQFREE UnivariatePolynomialSquareFree ++ Author: Dave Barton, Barry Trager ++ Date Created: @@ -155650,13 +155652,13 @@ UnivariatePolynomialSquareFree(RC:IntegralDomain,P):C == T lffe:=append(lsnil,lffe) makeFR(dunit*(unit redSqfr),lffe) -@ -<>= +\end{chunk} +\begin{chunk}{UPSQFREE.dotabb} "UPSQFREE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPSQFREE"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "UPSQFREE" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UPXS2 UnivariatePuiseuxSeriesFunctions2} \pagehead{UnivariatePuiseuxSeriesFunctions2}{UPXS2} @@ -155665,7 +155667,7 @@ UnivariatePolynomialSquareFree(RC:IntegralDomain,P):C == T {\bf Exports:}\\ \cross{UPXS2}{map} -<>= +\begin{chunk}{package UPXS2 UnivariatePuiseuxSeriesFunctions2} )abbrev package UPXS2 UnivariatePuiseuxSeriesFunctions2 ++ Author: Scott C. Morrison ++ Date Created: 5 April 1991 @@ -155699,15 +155701,15 @@ UnivariatePuiseuxSeriesFunctions2(Coef1,Coef2,var1,var2,cen1,cen2):_ map(f,ups) == puiseux(rationalPower ups, map(f, laurentRep ups)$ULSP2) -@ -<>= +\end{chunk} +\begin{chunk}{UPXS2.dotabb} "UPXS2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UPXS2"] "PID" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PID"] "OAGROUP" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OAGROUP"] "UPXS2" -> "PID" "UPXS2" -> "OAGROUP" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package OREPCTO UnivariateSkewPolynomialCategoryOps} \pagehead{UnivariateSkewPolynomialCategoryOps}{OREPCTO} @@ -155723,7 +155725,7 @@ UnivariatePuiseuxSeriesFunctions2(Coef1,Coef2,var1,var2,cen1,cen2):_ \cross{OREPCTO}{times} \end{tabular} -<>= +\begin{chunk}{package OREPCTO UnivariateSkewPolynomialCategoryOps} )abbrev package OREPCTO UnivariateSkewPolynomialCategoryOps ++ Author: Manuel Bronstein ++ Date Created: 1 February 1994 @@ -155853,13 +155855,13 @@ UnivariateSkewPolynomialCategoryOps(R, C): Exports == Implementation where rightDivide(a, b, sigma) == localRightDivide(a, b, sigma, inv leadingCoefficient b) -@ -<>= +\end{chunk} +\begin{chunk}{OREPCTO.dotabb} "OREPCTO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=OREPCTO"] "OREPCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OREPCAT"] "OREPCTO" -> "OREPCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UTS2 UnivariateTaylorSeriesFunctions2} \pagehead{UnivariateTaylorSeriesFunctions2}{UTS2} @@ -155868,7 +155870,7 @@ UnivariateSkewPolynomialCategoryOps(R, C): Exports == Implementation where {\bf Exports:}\\ \cross{UTS2}{map} -<>= +\begin{chunk}{package UTS2 UnivariateTaylorSeriesFunctions2} )abbrev package UTS2 UnivariateTaylorSeriesFunctions2 ++ Author: Clifton J. Williamson ++ Date Created: 9 February 1990 @@ -155902,13 +155904,13 @@ UnivariateTaylorSeriesFunctions2(Coef1,Coef2,UTS1,UTS2):_ map(f,uts) == series map(f,coefficients uts)$ST2 -@ -<>= +\end{chunk} +\begin{chunk}{UTS2.dotabb} "UTS2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UTS2"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "UTS2" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UTSODE UnivariateTaylorSeriesODESolver} \pagehead{UnivariateTaylorSeriesODESolver}{UTSODE} @@ -155926,7 +155928,7 @@ UnivariateTaylorSeriesFunctions2(Coef1,Coef2,UTS1,UTS2):_ \cross{UTSODE}{stFuncN} && \end{tabular} -<>= +\begin{chunk}{package UTSODE UnivariateTaylorSeriesODESolver} )abbrev package UTSODE UnivariateTaylorSeriesODESolver ++ Author: Stephen Watt (revised by Clifton J. Williamson) ++ Date Created: February 1988 @@ -156053,13 +156055,13 @@ UnivariateTaylorSeriesODESolver(Coef,UTS):_ stSol := iMpsode(cs,[stFuncN(lst) for lst in lsts]) map(series,stSol)$L2(ST,UTS) -@ -<>= +\end{chunk} +\begin{chunk}{UTSODE.dotabb} "UTSODE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UTSODE"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "UTSODE" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UNISEG2 UniversalSegmentFunctions2} \pagehead{UniversalSegmentFunctions2}{UNISEG2} @@ -156068,7 +156070,7 @@ UnivariateTaylorSeriesODESolver(Coef,UTS):_ {\bf Exports:}\\ \cross{UNISEG2}{map} -<>= +\begin{chunk}{package UNISEG2 UniversalSegmentFunctions2} )abbrev package UNISEG2 UniversalSegmentFunctions2 ++ Author: ++ Date Created: @@ -156103,13 +156105,13 @@ UniversalSegmentFunctions2(R:Type, S:Type): with map(f:R -> S, u:UniversalSegment R): Stream S == map(f, expand u)$StreamFunctions2(R, S) -@ -<>= +\end{chunk} +\begin{chunk}{UNISEG2.dotabb} "UNISEG2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UNISEG2"] "OCAMON" [color="#4488FF",href="bookvol10.2.pdf#nameddest=OCAMON"] "UNISEG2" -> "OCAMON" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UDPO UserDefinedPartialOrdering} \pagehead{UserDefinedPartialOrdering}{UDPO} @@ -156125,7 +156127,7 @@ UniversalSegmentFunctions2(R:Type, S:Type): with \cross{UDPO}{more?} \end{tabular} -<>= +\begin{chunk}{package UDPO UserDefinedPartialOrdering} )abbrev package UDPO UserDefinedPartialOrdering ++ Author: Manuel Bronstein ++ Date Created: March 1990 @@ -156217,13 +156219,13 @@ UserDefinedPartialOrdering(S:SetCategory): with more?(a, b) == not less?(a, b, (y,z) +-> y <$S z) largest x == largest(x, (y,z) +-> y <$S z) -@ -<>= +\end{chunk} +\begin{chunk}{UDPO.dotabb} "UDPO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UDPO"] "FLAGG" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FLAGG"] "UDPO" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UDVO UserDefinedVariableOrdering} \pagehead{UserDefinedVariableOrdering}{UDVO} @@ -156236,7 +156238,7 @@ UserDefinedPartialOrdering(S:SetCategory): with \cross{UDVO}{setVariableOrder} \end{tabular} -<>= +\begin{chunk}{package UDVO UserDefinedVariableOrdering} )abbrev package UDVO UserDefinedVariableOrdering ++ Author: Manuel Bronstein ++ Date Created: March 1990 @@ -156273,15 +156275,15 @@ UserDefinedVariableOrdering(): with r := getOrder() [reverse(r.high), reverse(r.low)] -@ -<>= +\end{chunk} +\begin{chunk}{UDVO.dotabb} "UDVO" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UDVO"] "BASTYPE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=BASTYPE"] "KOERCE" [color="#4488FF",href="bookvol10.2.pdf#nameddest=KOERCE"] "UDVO" -> "BASTYPE" "UDVO" -> "KOERCE" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package UTSODETL UTSodetools} \pagehead{UTSodetools}{UTSODETL} @@ -156294,7 +156296,7 @@ UserDefinedVariableOrdering(): with \cross{UTSODETL}{UTS2UP} \end{tabular} -<>= +\begin{chunk}{package UTSODETL UTSodetools} )abbrev package UTSODETL UTSodetools ++ Author: Manuel Bronstein ++ Date Created: 31 January 1994 @@ -156353,13 +156355,13 @@ UTSodetools(F, UP, L, UTS): Exports == Implementation where if F has IntegralDomain then RF2UTS f == UP2UTS(numer f) * recip(UP2UTS denom f)::UTS -@ -<>= +\end{chunk} +\begin{chunk}{UTSODETL.dotabb} "UTSODETL" [color="#FF4488",href="bookvol10.4.pdf#nameddest=UTSODETL"] "UTSCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=UTSCAT"] "UTSODETL" -> "UTSCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter V} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -156374,7 +156376,7 @@ UTSodetools(F, UP, L, UTS): Exports == Implementation where \cross{VECTOR2}{scan} \end{tabular} -<>= +\begin{chunk}{package VECTOR2 VectorFunctions2} )abbrev package VECTOR2 VectorFunctions2 ++ Author: ++ Date Created: @@ -156428,13 +156430,13 @@ VectorFunctions2(A, B): Exports == Implementation where res := [r::B,:res] vector reverse! res -@ -<>= +\end{chunk} +\begin{chunk}{VECTOR2.dotabb} "VECTOR2" [color="#FF4488",href="bookvol10.4.pdf#nameddest=VECTOR2"] "IVECTOR" [color="#88FF44",href="bookvol10.3.pdf#nameddest=IVECTOR"] "VECTOR2" -> "IVECTOR" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package VIEWDEF ViewDefaultsPackage} \pagehead{ViewDefaultsPackage}{VIEWDEF} @@ -156459,7 +156461,7 @@ VectorFunctions2(A, B): Exports == Implementation where \cross{VIEWDEF}{viewWriteDefault} \end{tabular} -<>= +\begin{chunk}{package VIEWDEF ViewDefaultsPackage} )abbrev package VIEWDEF ViewDefaultsPackage ++ Author: Jim Wen ++ Date Created: 15 January 1990 @@ -156668,13 +156670,13 @@ ViewDefaultsPackage():Exports == Implementation where thingsToWrite := append(thingsToWrite,[aTypeOfFile]) defaultThingsToWrite() := thingsToWrite -@ -<>= +\end{chunk} +\begin{chunk}{VIEWDEF.dotabb} "VIEWDEF" [color="#FF4488",href="bookvol10.4.pdf#nameddest=VIEWDEF"] "STRING" [color="#88FF44",href="bookvol10.3.pdf#nameddest=STRING"] "VIEWDEF" -> "STRING" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package VIEW ViewportPackage} \pagehead{ViewportPackage}{VIEW} @@ -156687,7 +156689,7 @@ ViewDefaultsPackage():Exports == Implementation where \cross{VIEW}{graphCurves} \end{tabular} -<>= +\begin{chunk}{package VIEW ViewportPackage} )abbrev package VIEW ViewportPackage ++ Author: Jim Wen ++ Date Created: 30 April 1989 @@ -156788,8 +156790,8 @@ ViewportPackage():Exports == Implementation where putGraph(v,graf,1::PI) makeViewport2D v -@ -<>= +\end{chunk} +\begin{chunk}{VIEW.dotabb} "VIEW" [color="#FF4488",href="bookvol10.4.pdf#nameddest=VIEW"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] @@ -156798,7 +156800,7 @@ ViewportPackage():Exports == Implementation where "VIEW" -> "RADCAT" "VIEW" -> "FLAGG" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter W} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -156816,7 +156818,7 @@ ViewportPackage():Exports == Implementation where \cross{WEIER}{weierstrass} && \end{tabular} -<>= +\begin{chunk}{package WEIER WeierstrassPreparation} )abbrev package WEIER WeierstrassPreparation ++ Author:William H. Burge ++ Date Created:Sept 1988 @@ -156963,13 +156965,13 @@ WeierstrassPreparation(R): Defn == Impl where wei(v:VarSet,s:SMPS)==weier(v,s:StS) weierstrass(v,smps)== transback wei (v,smps) -@ -<>= +\end{chunk} +\begin{chunk}{WEIER.dotabb} "WEIER" [color="#FF4488",href="bookvol10.4.pdf#nameddest=WEIER"] "PFECAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=PFECAT"] "WEIER" -> "PFECAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package WFFINTBS WildFunctionFieldIntegralBasis} \pagehead{WildFunctionFieldIntegralBasis}{WFFINTBS} @@ -156981,7 +156983,7 @@ WeierstrassPreparation(R): Defn == Impl where \cross{WFFINTBS}{localIntegralBasis} \end{tabular} -<>= +\begin{chunk}{package WFFINTBS WildFunctionFieldIntegralBasis} )abbrev package WFFINTBS WildFunctionFieldIntegralBasis ++ Authors: Victor Miller, Clifton Williamson ++ Date Created: 24 July 1991 @@ -157177,13 +157179,13 @@ WildFunctionFieldIntegralBasis(K,R,UP,F): Exports == Implementation where lb := iLocalIntegralBasis(bas,pows,tfm,matrixOut,disc,prime) [lb.basis, lb.basisDen, lb.basisInv] -@ -<>= +\end{chunk} +\begin{chunk}{WFFINTBS.dotabb} "WFFINTBS" [color="#FF4488",href="bookvol10.4.pdf#nameddest=WFFINTBS"] "MONOGEN" [color="#4488FF",href="bookvol10.2.pdf#nameddest=MONOGEN"] "WFFINTBS" -> "MONOGEN" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter X} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -157198,11 +157200,11 @@ WildFunctionFieldIntegralBasis(K,R,UP,F): Exports == Implementation where \cross{XEXPPKG}{log} \end{tabular} -<>= +\begin{chunk}{XEXPPKG.dotabb} "XEXPPKG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=XEXPPKG"] -@ -<>= +\end{chunk} +\begin{chunk}{package XEXPPKG XExponentialPackage} )abbrev package XEXPPKG XExponentialPackage ++ Author: Michel Petitot (petitot@lifl.fr). ++ Date Created: 91 @@ -157271,13 +157273,13 @@ XExponentialPackage(R, VarSet, XPOLY): Public == Private where q1: XPOLY := exp(q,n) log(p1*q1, n) -@ -<>= +\end{chunk} +\begin{chunk}{XEXPPKG.dotabb} "XEXPPKG" [color="#FF4488",href="bookvol10.4.pdf#nameddest=XEXPPKG"] "XPOLYC" [color="#4488FF",href="bookvol10.2.pdf#nameddest=XPOLYC"] "XEXPPKG" -> "XPOLYC" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chapter Y} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -157289,7 +157291,7 @@ Based on triangular decompositions and the {\bf RealClosure} constructor, the pacakge {\bf ZeroDimensionalSolvePackage} provides operations for computing symbolically the real or complex roots of polynomial systems with finitely many solutions. -<>= +\begin{chunk}{ZeroDimensionalSolvePackage.input} )set break resume )spool ZeroDimensionalSolvePackage.output )set message test on @@ -158876,8 +158878,8 @@ lpr2 := positiveSolve(lf)$pack --E 28 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ZeroDimensionalSolvePackage.help} ==================================================================== ZeroDimensionalSolvePackage examples ==================================================================== @@ -160405,7 +160407,7 @@ Finally, we approximate the coordinates of this point with 20 exact digits: See Also: o )show ZeroDimensionalSolvePackage -@ +\end{chunk} \pagehead{ZeroDimensionalSolvePackage}{ZDSOLVE} \pagepic{ps/v104zerodimensionalsolvepackage.ps}{ZDSOLVE}{1.00} @@ -160419,7 +160421,7 @@ o )show ZeroDimensionalSolvePackage \cross{ZDSOLVE}{univariateSolve} \end{tabular} -<>= +\begin{chunk}{package ZDSOLVE ZeroDimensionalSolvePackage} )abbrev package ZDSOLVE ZeroDimensionalSolvePackage ++ Author: Marc Moreno Maza ++ Date Created: 23/01/1999 @@ -160893,554 +160895,554 @@ ZeroDimensionalSolvePackage(R,ls,ls2): Exports == Implementation where univariateSolve(lp: List(P)): List RUR == univariateSolve(lp,false,false,false) -@ -<>= +\end{chunk} +\begin{chunk}{ZDSOLVE.dotabb} "ZDSOLVE" [color="#FF4488",href="bookvol10.4.pdf#nameddest=ZDSOLVE"] "SFRTCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=SFRTCAT"] "ZDSOLVE" -> "SFRTCAT" -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chunk collections} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -<>= -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> - -<> -<> - -<> - -<> -@ +\begin{chunk}{algebra} +\getchunk{package AFALGGRO AffineAlgebraicSetComputeWithGroebnerBasis} +\getchunk{package AFALGRES AffineAlgebraicSetComputeWithResultant} +\getchunk{package AF AlgebraicFunction} +\getchunk{package INTHERAL AlgebraicHermiteIntegration} +\getchunk{package INTALG AlgebraicIntegrate} +\getchunk{package INTAF AlgebraicIntegration} +\getchunk{package ALGMANIP AlgebraicManipulations} +\getchunk{package ALGMFACT AlgebraicMultFact} +\getchunk{package ALGPKG AlgebraPackage} +\getchunk{package ALGFACT AlgFactor} +\getchunk{package INTPACK AnnaNumericalIntegrationPackage} +\getchunk{package OPTPACK AnnaNumericalOptimizationPackage} +\getchunk{package ODEPACK AnnaOrdinaryDifferentialEquationPackage} +\getchunk{package PDEPACK AnnaPartialDifferentialEquationPackage} +\getchunk{package ANY1 AnyFunctions1} +\getchunk{package APPRULE ApplyRules} +\getchunk{package APPLYORE ApplyUnivariateSkewPolynomial} +\getchunk{package ASSOCEQ AssociatedEquations} +\getchunk{package PMPRED AttachPredicates} +\getchunk{package AXSERV AxiomServer} + +\getchunk{package BALFACT BalancedFactorisation} +\getchunk{package BOP1 BasicOperatorFunctions1} +\getchunk{package BEZOUT BezoutMatrix} +\getchunk{package BLUPPACK BlowUpPackage} +\getchunk{package BOUNDZRO BoundIntegerRoots} +\getchunk{package BRILL BrillhartTests} + +\getchunk{package CARTEN2 CartesianTensorFunctions2} +\getchunk{package CHVAR ChangeOfVariable} +\getchunk{package CPIMA CharacteristicPolynomialInMonogenicalAlgebra} +\getchunk{package CHARPOL CharacteristicPolynomialPackage} +\getchunk{package IBACHIN ChineseRemainderToolsForIntegralBases} +\getchunk{package CVMP CoerceVectorMatrixPackage} +\getchunk{package COMBF CombinatorialFunction} +\getchunk{package CDEN CommonDenominator} +\getchunk{package COMMONOP CommonOperators} +\getchunk{package COMMUPC CommuteUnivariatePolynomialCategory} +\getchunk{package COMPFACT ComplexFactorization} +\getchunk{package COMPLEX2 ComplexFunctions2} +\getchunk{package CINTSLPE ComplexIntegerSolveLinearPolynomialEquation} +\getchunk{package COMPLPAT ComplexPattern} +\getchunk{package CPMATCH ComplexPatternMatch} +\getchunk{package CRFP ComplexRootFindingPackage} +\getchunk{package CMPLXRT ComplexRootPackage} +\getchunk{package CTRIGMNP ComplexTrigonometricManipulations} +\getchunk{package ODECONST ConstantLODE} +\getchunk{package COORDSYS CoordinateSystems} +\getchunk{package CRAPACK CRApackage} +\getchunk{package CYCLES CycleIndicators} +\getchunk{package CSTTOOLS CyclicStreamTools} +\getchunk{package CYCLOTOM CyclotomicPolynomialPackage} + +\getchunk{package DFINTTLS DefiniteIntegrationTools} +\getchunk{package DEGRED DegreeReductionPackage} +\getchunk{package DTP DesingTreePackage} +\getchunk{package DIOSP DiophantineSolutionPackage} +\getchunk{package DIRPROD2 DirectProductFunctions2} +\getchunk{package DLP DiscreteLogarithmPackage} +\getchunk{package DISPLAY DisplayPackage} +\getchunk{package DDFACT DistinctDegreeFactorize} +\getchunk{package DFSFUN DoubleFloatSpecialFunctions} +\getchunk{package DBLRESP DoubleResultantPackage} +\getchunk{package DRAWCX DrawComplex} +\getchunk{package DRAWHACK DrawNumericHack} +\getchunk{package DROPT0 DrawOptionFunctions0} +\getchunk{package DROPT1 DrawOptionFunctions1} +\getchunk{package D01AGNT d01AgentsPackage} +\getchunk{package D01WGTS d01WeightsPackage} +\getchunk{package D02AGNT d02AgentsPackage} +\getchunk{package D03AGNT d03AgentsPackage} + +\getchunk{package EP EigenPackage} +\getchunk{package EF ElementaryFunction} +\getchunk{package DEFINTEF ElementaryFunctionDefiniteIntegration} +\getchunk{package LODEEF ElementaryFunctionLODESolver} +\getchunk{package ODEEF ElementaryFunctionODESolver} +\getchunk{package SIGNEF ElementaryFunctionSign} +\getchunk{package EFSTRUC ElementaryFunctionStructurePackage} +\getchunk{package EFULS ElementaryFunctionsUnivariateLaurentSeries} +\getchunk{package EFUPXS ElementaryFunctionsUnivariatePuiseuxSeries} +\getchunk{package INTEF ElementaryIntegration} +\getchunk{package RDEEF ElementaryRischDE} +\getchunk{package RDEEFS ElementaryRischDESystem} +\getchunk{package ELFUTS EllipticFunctionsUnivariateTaylorSeries} +\getchunk{package EQ2 EquationFunctions2} +\getchunk{package ERROR ErrorFunctions} +\getchunk{package GBEUCLID EuclideanGroebnerBasisPackage} +\getchunk{package EVALCYC EvaluateCycleIndicators} +\getchunk{package ESCONT ExpertSystemContinuityPackage} +\getchunk{package ESCONT1 ExpertSystemContinuityPackage1} +\getchunk{package ESTOOLS ExpertSystemToolsPackage} +\getchunk{package ESTOOLS1 ExpertSystemToolsPackage1} +\getchunk{package ESTOOLS2 ExpertSystemToolsPackage2} +\getchunk{package EXPR2 ExpressionFunctions2} +\getchunk{package EXPRSOL ExpressionSolve} +\getchunk{package ES1 ExpressionSpaceFunctions1} +\getchunk{package ES2 ExpressionSpaceFunctions2} +\getchunk{package EXPRODE ExpressionSpaceODESolver} +\getchunk{package OMEXPR ExpressionToOpenMath} +\getchunk{package EXPR2UPS ExpressionToUnivariatePowerSeries} +\getchunk{package EXPRTUBE ExpressionTubePlot} +\getchunk{package EXP3D Export3D} +\getchunk{package E04AGNT e04AgentsPackage} + +\getchunk{package FACTFUNC FactoredFunctions} +\getchunk{package FR2 FactoredFunctions2} +\getchunk{package FRUTIL FactoredFunctionUtilities} +\getchunk{package FACUTIL FactoringUtilities} +\getchunk{package FACTEXT FactorisationOverPseudoAlgebraicClosureOfAlgExtOfRationalNumber} +\getchunk{package FACTRN FactorisationOverPseudoAlgebraicClosureOfRationalNumber} +\getchunk{package FGLMICPK FGLMIfCanPackage} +\getchunk{package FORDER FindOrderFinite} +\getchunk{package FAMR2 FiniteAbelianMonoidRingFunctions2} +\getchunk{package FDIV2 FiniteDivisorFunctions2} +\getchunk{package FFFACTSE FiniteFieldFactorizationWithSizeParseBySideEffect} +\getchunk{package FFF FiniteFieldFunctions} +\getchunk{package FFHOM FiniteFieldHomomorphisms} +\getchunk{package FFPOLY FiniteFieldPolynomialPackage} +\getchunk{package FFPOLY2 FiniteFieldPolynomialPackage2} +\getchunk{package FFSLPE FiniteFieldSolveLinearPolynomialEquation} +\getchunk{package FFSQFR FiniteFieldSquareFreeDecomposition} +\getchunk{package FLAGG2 FiniteLinearAggregateFunctions2} +\getchunk{package FLASORT FiniteLinearAggregateSort} +\getchunk{package FSAGG2 FiniteSetAggregateFunctions2} +\getchunk{package FLOATCP FloatingComplexPackage} +\getchunk{package FLOATRP FloatingRealPackage} +\getchunk{package FCPAK1 FortranCodePackage1} +\getchunk{package FOP FortranOutputStackPackage} +\getchunk{package FORT FortranPackage} +\getchunk{package FRIDEAL2 FractionalIdealFunctions2} +\getchunk{package FFFG FractionFreeFastGaussian} +\getchunk{package FFFGF FractionFreeFastGaussianFractions} +\getchunk{package FRAC2 FractionFunctions2} +\getchunk{package FRNAAF2 FramedNonAssociativeAlgebraFunctions2} +\getchunk{package FSPECF FunctionalSpecialFunction} +\getchunk{package FFCAT2 FunctionFieldCategoryFunctions2} +\getchunk{package FFINTBAS FunctionFieldIntegralBasis} +\getchunk{package PMASSFS FunctionSpaceAssertions} +\getchunk{package PMPREDFS FunctionSpaceAttachPredicates} +\getchunk{package FSCINT FunctionSpaceComplexIntegration} +\getchunk{package FS2 FunctionSpaceFunctions2} +\getchunk{package FSINT FunctionSpaceIntegration} +\getchunk{package FSPRMELT FunctionSpacePrimitiveElement} +\getchunk{package FSRED FunctionSpaceReduce} +\getchunk{package SUMFS FunctionSpaceSum} +\getchunk{package FS2EXPXP FunctionSpaceToExponentialExpansion} +\getchunk{package FS2UPS FunctionSpaceToUnivariatePowerSeries} +\getchunk{package FSUPFACT FunctionSpaceUnivariatePolynomialFactor} + +\getchunk{package GALFACTU GaloisGroupFactorizationUtilities} +\getchunk{package GALFACT GaloisGroupFactorizer} +\getchunk{package GALPOLYU GaloisGroupPolynomialUtilities} +\getchunk{package GALUTIL GaloisGroupUtilities} +\getchunk{package GAUSSFAC GaussianFactorizationPackage} +\getchunk{package GHENSEL GeneralHenselPackage} +\getchunk{package GENMFACT GeneralizedMultivariateFactorize} +\getchunk{package GPAFF GeneralPackageForAlgebraicFunctionField} +\getchunk{package GENPGCD GeneralPolynomialGcdPackage} +\getchunk{package GENUPS GenerateUnivariatePowerSeries} +\getchunk{package GENEEZ GenExEuclid} +\getchunk{package GENUFACT GenUFactorize} +\getchunk{package INTG0 GenusZeroIntegration} +\getchunk{package GOSPER GosperSummationMethod} +\getchunk{package GRDEF GraphicsDefaults} +\getchunk{package GRAY GrayCode} +\getchunk{package GBF GroebnerFactorizationPackage} +\getchunk{package GBINTERN GroebnerInternalPackage} +\getchunk{package GB GroebnerPackage} +\getchunk{package GROEBSOL GroebnerSolve} +\getchunk{package GUESS Guess} +\getchunk{package GUESSAN GuessAlgebraicNumber} +\getchunk{package GUESSF GuessFinite} +\getchunk{package GUESSF1 GuessFiniteFunctions} +\getchunk{package GUESSINT GuessInteger} +\getchunk{package GUESSP GuessPolynomial} +\getchunk{package GUESSUP GuessUnivariatePolynomial} + +\getchunk{package HB HallBasis} +\getchunk{package HEUGCD HeuGcd} + +\getchunk{package IDECOMP IdealDecompositionPackage} +\getchunk{package INCRMAPS IncrementingMaps} +\getchunk{package INFPROD0 InfiniteProductCharacteristicZero} +\getchunk{package INPRODFF InfiniteProductFiniteField} +\getchunk{package INPRODPF InfiniteProductPrimeField} +\getchunk{package ITFUN2 InfiniteTupleFunctions2} +\getchunk{package ITFUN3 InfiniteTupleFunctions3} +\getchunk{package INFINITY Infinity} +\getchunk{package IALGFACT InnerAlgFactor} +\getchunk{package ICDEN InnerCommonDenominator} +\getchunk{package IMATLIN InnerMatrixLinearAlgebraFunctions} +\getchunk{package IMATQF InnerMatrixQuotientFieldFunctions} +\getchunk{package INMODGCD InnerModularGcd} +\getchunk{package INNMFACT InnerMultFact} +\getchunk{package INBFF InnerNormalBasisFieldFunctions} +\getchunk{package INEP InnerNumericEigenPackage} +\getchunk{package INFSP InnerNumericFloatSolvePackage} +\getchunk{package INPSIGN InnerPolySign} +\getchunk{package ISUMP InnerPolySum} +\getchunk{package ITRIGMNP InnerTrigonometricManipulations} +\getchunk{package INFORM1 InputFormFunctions1} +\getchunk{package INTBIT IntegerBits} +\getchunk{package COMBINAT IntegerCombinatoricFunctions} +\getchunk{package INTFACT IntegerFactorizationPackage} +\getchunk{package ZLINDEP IntegerLinearDependence} +\getchunk{package INTHEORY IntegerNumberTheoryFunctions} +\getchunk{package PRIMES IntegerPrimesPackage} +\getchunk{package INTRET IntegerRetractions} +\getchunk{package IROOT IntegerRoots} +\getchunk{package INTSLPE IntegerSolveLinearPolynomialEquation} +\getchunk{package IBATOOL IntegralBasisTools} +\getchunk{package IBPTOOLS IntegralBasisPolynomialTools} +\getchunk{package IR2 IntegrationResultFunctions2} +\getchunk{package IRRF2F IntegrationResultRFToFunction} +\getchunk{package IR2F IntegrationResultToFunction} +\getchunk{package INTTOOLS IntegrationTools} +\getchunk{package INTERGB InterfaceGroebnerPackage} +\getchunk{package IPRNTPK InternalPrintPackage} +\getchunk{package IRURPK InternalRationalUnivariateRepresentationPackage} +\getchunk{package INTFRSP InterpolateFormsPackage} +\getchunk{package INTDIVP IntersectionDivisorPackage} +\getchunk{package IRREDFFX IrredPolyOverFiniteField} +\getchunk{package IRSN IrrRepSymNatPackage} +\getchunk{package INVLAPLA InverseLaplaceTransform} + +\getchunk{package KERNEL2 KernelFunctions2} +\getchunk{package KOVACIC Kovacic} + +\getchunk{package LAPLACE LaplaceTransform} +\getchunk{package LAZM3PK LazardSetSolvingPackage} +\getchunk{package LEADCDET LeadingCoefDetermination} +\getchunk{package LEXTRIPK LexTriangularPackage} +\getchunk{package LINDEP LinearDependence} +\getchunk{package LODOF LinearOrdinaryDifferentialOperatorFactorizer} +\getchunk{package LODOOPS LinearOrdinaryDifferentialOperatorsOps} +\getchunk{package LPEFRAC LinearPolynomialEquationByFractions} +\getchunk{package LSMP LinearSystemMatrixPackage} +\getchunk{package LSMP1 LinearSystemMatrixPackage1} +\getchunk{package LSPP LinearSystemPolynomialPackage} +\getchunk{package LGROBP LinGroebnerPackage} +\getchunk{package LOP LinesOpPack} +\getchunk{package LF LiouvillianFunction} +\getchunk{package LIST2 ListFunctions2} +\getchunk{package LIST3 ListFunctions3} +\getchunk{package LIST2MAP ListToMap} +\getchunk{package LPARSPT LocalParametrizationOfSimplePointPackage} + +\getchunk{package MKBCFUNC MakeBinaryCompiledFunction} +\getchunk{package MKFLCFN MakeFloatCompiledFunction} +\getchunk{package MKFUNC MakeFunction} +\getchunk{package MKRECORD MakeRecord} +\getchunk{package MKUCFUNC MakeUnaryCompiledFunction} +\getchunk{package MAPHACK1 MappingPackageInternalHacks1} +\getchunk{package MAPHACK2 MappingPackageInternalHacks2} +\getchunk{package MAPHACK3 MappingPackageInternalHacks3} +\getchunk{package MAPPKG1 MappingPackage1} +\getchunk{package MAPPKG2 MappingPackage2} +\getchunk{package MAPPKG3 MappingPackage3} +\getchunk{package MAPPKG4 MappingPackage4} +\getchunk{package MATCAT2 MatrixCategoryFunctions2} +\getchunk{package MCDEN MatrixCommonDenominator} +\getchunk{package MATLIN MatrixLinearAlgebraFunctions} +\getchunk{package MTHING MergeThing} +\getchunk{package MESH MeshCreationRoutinesForThreeDimensions} +\getchunk{package MDDFACT ModularDistinctDegreeFactorizer} +\getchunk{package MHROWRED ModularHermitianRowReduction} +\getchunk{package MRF2 MonoidRingFunctions2} +\getchunk{package MONOTOOL MonomialExtensionTools} +\getchunk{package MSYSCMD MoreSystemCommands} +\getchunk{package MPCPF MPolyCatPolyFactorizer} +\getchunk{package MPRFF MPolyCatRationalFunctionFactorizer} +\getchunk{package MPC2 MPolyCatFunctions2} +\getchunk{package MPC3 MPolyCatFunctions3} +\getchunk{package MRATFAC MRationalFactorize} +\getchunk{package MFINFACT MultFiniteFactorize} +\getchunk{package MMAP MultipleMap} +\getchunk{package MCALCFN MultiVariableCalculusFunctions} +\getchunk{package MULTFACT MultivariateFactorize} +\getchunk{package MLIFT MultivariateLifting} +\getchunk{package MULTSQFR MultivariateSquareFree} + +\getchunk{package NAGF02 NagEigenPackage} +\getchunk{package NAGE02 NagFittingPackage} +\getchunk{package NAGF04 NagLinearEquationSolvingPackage} +\getchunk{package NAGSP NAGLinkSupportPackage} +\getchunk{package NAGD01 NagIntegrationPackage} +\getchunk{package NAGE01 NagInterpolationPackage} +\getchunk{package NAGF07 NagLapack} +\getchunk{package NAGF01 NagMatrixOperationsPackage} +\getchunk{package NAGE04 NagOptimisationPackage} +\getchunk{package NAGD02 NagOrdinaryDifferentialEquationsPackage} +\getchunk{package NAGD03 NagPartialDifferentialEquationsPackage} +\getchunk{package NAGC02 NagPolynomialRootsPackage} +\getchunk{package NAGC05 NagRootFindingPackage} +\getchunk{package NAGC06 NagSeriesSummationPackage} +\getchunk{package NAGS NagSpecialFunctionsPackage} +\getchunk{package NSUP2 NewSparseUnivariatePolynomialFunctions2} +\getchunk{package NEWTON NewtonInterpolation} +\getchunk{package NPOLYGON NewtonPolygon} +\getchunk{package NCODIV NonCommutativeOperatorDivision} +\getchunk{package NONE1 NoneFunctions1} +\getchunk{package NODE1 NonLinearFirstOrderODESolver} +\getchunk{package NLINSOL NonLinearSolvePackage} +\getchunk{package NORMPK NormalizationPackage} +\getchunk{package NORMMA NormInMonogenicAlgebra} +\getchunk{package NORMRETR NormRetractPackage} +\getchunk{package NPCOEF NPCoef} +\getchunk{package NFINTBAS NumberFieldIntegralBasis} +\getchunk{package NUMFMT NumberFormats} +\getchunk{package NTPOLFN NumberTheoreticPolynomialFunctions} +\getchunk{package NUMERIC Numeric} +\getchunk{package NUMODE NumericalOrdinaryDifferentialEquations} +\getchunk{package NUMQUAD NumericalQuadrature} +\getchunk{package NCEP NumericComplexEigenPackage} +\getchunk{package NCNTFRAC NumericContinuedFraction} +\getchunk{package NREP NumericRealEigenPackage} +\getchunk{package NUMTUBE NumericTubePlot} + +\getchunk{package OCTCT2 OctonionCategoryFunctions2} +\getchunk{package ODEINT ODEIntegration} +\getchunk{package ODETOOLS ODETools} +\getchunk{package ARRAY12 OneDimensionalArrayFunctions2} +\getchunk{package ONECOMP2 OnePointCompletionFunctions2} +\getchunk{package OMPKG OpenMathPackage} +\getchunk{package OMSERVER OpenMathServerPackage} +\getchunk{package OPQUERY OperationsQuery} +\getchunk{package ORDCOMP2 OrderedCompletionFunctions2} +\getchunk{package ORDFUNS OrderingFunctions} +\getchunk{package ORTHPOL OrthogonalPolynomialFunctions} +\getchunk{package OUT OutputPackage} + +\getchunk{package PAFF PackageForAlgebraicFunctionField} +\getchunk{package PAFFFF PackageForAlgebraicFunctionFieldOverFiniteField} +\getchunk{package PFORP PackageForPoly} +\getchunk{package PADEPAC PadeApproximantPackage} +\getchunk{package PADE PadeApproximants} +\getchunk{package PWFFINTB PAdicWildFunctionFieldIntegralBasis} +\getchunk{package YSTREAM ParadoxicalCombinatorsForStreams} +\getchunk{package PLEQN ParametricLinearEquations} +\getchunk{package PARPC2 ParametricPlaneCurveFunctions2} +\getchunk{package PARSC2 ParametricSpaceCurveFunctions2} +\getchunk{package PARSU2 ParametricSurfaceFunctions2} +\getchunk{package PARAMP ParametrizationPackage} +\getchunk{package PFRPAC PartialFractionPackage} +\getchunk{package PARTPERM PartitionsAndPermutations} +\getchunk{package PATTERN1 PatternFunctions1} +\getchunk{package PATTERN2 PatternFunctions2} +\getchunk{package PATMATCH PatternMatch} +\getchunk{package PMASS PatternMatchAssertions} +\getchunk{package PMFS PatternMatchFunctionSpace} +\getchunk{package PMINS PatternMatchIntegerNumberSystem} +\getchunk{package INTPM PatternMatchIntegration} +\getchunk{package PMKERNEL PatternMatchKernel} +\getchunk{package PMLSAGG PatternMatchListAggregate} +\getchunk{package PMPLCAT PatternMatchPolynomialCategory} +\getchunk{package PMDOWN PatternMatchPushDown} +\getchunk{package PMQFCAT PatternMatchQuotientFieldCategory} +\getchunk{package PATRES2 PatternMatchResultFunctions2} +\getchunk{package PMSYM PatternMatchSymbol} +\getchunk{package PMTOOLS PatternMatchTools} +\getchunk{package PERMAN Permanent} +\getchunk{package PGE PermutationGroupExamples} +\getchunk{package PICOERCE PiCoercions} +\getchunk{package PLOT1 PlotFunctions1} +\getchunk{package PLOTTOOL PlotTools} +\getchunk{package PTFUNC2 PointFunctions2} +\getchunk{package PTPACK PointPackage} +\getchunk{package PFO PointsOfFiniteOrder} +\getchunk{package PFOQ PointsOfFiniteOrderRational} +\getchunk{package PFOTOOLS PointsOfFiniteOrderTools} +\getchunk{package POLTOPOL PolToPol} +\getchunk{package PGROEB PolyGroebner} +\getchunk{package PAN2EXPR PolynomialAN2Expression} +\getchunk{package POLYLIFT PolynomialCategoryLifting} +\getchunk{package POLYCATQ PolynomialCategoryQuotientFunctions} +\getchunk{package PCOMP PolynomialComposition} +\getchunk{package PDECOMP PolynomialDecomposition} +\getchunk{package PFBR PolynomialFactorizationByRecursion} +\getchunk{package PFBRU PolynomialFactorizationByRecursionUnivariate} +\getchunk{package POLY2 PolynomialFunctions2} +\getchunk{package PGCD PolynomialGcdPackage} +\getchunk{package PINTERP PolynomialInterpolation} +\getchunk{package PINTERPA PolynomialInterpolationAlgorithms} +\getchunk{package PNTHEORY PolynomialNumberTheoryFunctions} +\getchunk{package PLPKCRV PolynomialPackageForCurve} +\getchunk{package POLYROOT PolynomialRoots} +\getchunk{package PSETPK PolynomialSetUtilitiesPackage} +\getchunk{package SOLVEFOR PolynomialSolveByFormulas} +\getchunk{package PSQFR PolynomialSquareFree} +\getchunk{package POLY2UP PolynomialToUnivariatePolynomial} +\getchunk{package LIMITPS PowerSeriesLimitPackage} +\getchunk{package PREASSOC PrecomputedAssociatedEquations} +\getchunk{package PRIMARR2 PrimitiveArrayFunctions2} +\getchunk{package PRIMELT PrimitiveElement} +\getchunk{package ODEPRIM PrimitiveRatDE} +\getchunk{package ODEPRRIC PrimitiveRatRicDE} +\getchunk{package PRINT PrintPackage} +\getchunk{package PRJALGPK ProjectiveAlgebraicSetPackage} +\getchunk{package PSEUDLIN PseudoLinearNormalForm} +\getchunk{package PRS PseudoRemainderSequence} +\getchunk{package INTPAF PureAlgebraicIntegration} +\getchunk{package ODEPAL PureAlgebraicLODE} +\getchunk{package PUSHVAR PushVariables} + +\getchunk{package QALGSET2 QuasiAlgebraicSet2} +\getchunk{package QCMPACK QuasiComponentPackage} +\getchunk{package QFCAT2 QuotientFieldCategoryFunctions2} + +\getchunk{package REP RadicalEigenPackage} +\getchunk{package SOLVERAD RadicalSolvePackage} +\getchunk{package RADUTIL RadixUtilities} +\getchunk{package RDIST RandomDistributions} +\getchunk{package RFDIST RandomFloatDistributions} +\getchunk{package RIDIST RandomIntegerDistributions} +\getchunk{package RANDSRC RandomNumberSource} +\getchunk{package RATFACT RationalFactorize} +\getchunk{package RF RationalFunction} +\getchunk{package DEFINTRF RationalFunctionDefiniteIntegration} +\getchunk{package RFFACT RationalFunctionFactor} +\getchunk{package RFFACTOR RationalFunctionFactorizer} +\getchunk{package INTRF RationalFunctionIntegration} +\getchunk{package LIMITRF RationalFunctionLimitPackage} +\getchunk{package SIGNRF RationalFunctionSign} +\getchunk{package SUMRF RationalFunctionSum} +\getchunk{package INTRAT RationalIntegration} +\getchunk{package RINTERP RationalInterpolation} +\getchunk{package ODERAT RationalLODE} +\getchunk{package RATRET RationalRetractions} +\getchunk{package ODERTRIC RationalRicDE} +\getchunk{package RURPK RationalUnivariateRepresentationPackage} +\getchunk{package POLUTIL RealPolynomialUtilitiesPackage} +\getchunk{package REALSOLV RealSolvePackage} +\getchunk{package REAL0 RealZeroPackage} +\getchunk{package REAL0Q RealZeroPackageQ} +\getchunk{package RMCAT2 RectangularMatrixCategoryFunctions2} +\getchunk{package RECOP RecurrenceOperator} +\getchunk{package RDIV ReducedDivisor} +\getchunk{package ODERED ReduceLODE} +\getchunk{package REDORDER ReductionOfOrder} +\getchunk{package RSDCMPK RegularSetDecompositionPackage} +\getchunk{package RSETGCD RegularTriangularSetGcdPackage} +\getchunk{package REPDB RepeatedDoubling} +\getchunk{package REPSQ RepeatedSquaring} +\getchunk{package REP1 RepresentationPackage1} +\getchunk{package REP2 RepresentationPackage2} +\getchunk{package RESLATC ResolveLatticeCompletion} +\getchunk{package RETSOL RetractSolvePackage} +\getchunk{package RFP RootsFindingPackage} + +\getchunk{package SAERFFC SAERationalFunctionAlgFactor} +\getchunk{package FORMULA1 ScriptFormulaFormat1} +\getchunk{package SEGBIND2 SegmentBindingFunctions2} +\getchunk{package SEG2 SegmentFunctions2} +\getchunk{package SAEFACT SimpleAlgebraicExtensionAlgFactor} +\getchunk{package SIMPAN SimplifyAlgebraicNumberConvertPackage} +\getchunk{package SMITH SmithNormalForm} +\getchunk{package SCACHE SortedCache} +\getchunk{package SORTPAK SortPackage} +\getchunk{package SUP2 SparseUnivariatePolynomialFunctions2} +\getchunk{package SPECOUT SpecialOutputPackage} +\getchunk{package SFQCMPK SquareFreeQuasiComponentPackage} +\getchunk{package SRDCMPK SquareFreeRegularSetDecompositionPackage} +\getchunk{package SFRGCD SquareFreeRegularTriangularSetGcdPackage} +\getchunk{package MATSTOR StorageEfficientMatrixOperations} +\getchunk{package STREAM1 StreamFunctions1} +\getchunk{package STREAM2 StreamFunctions2} +\getchunk{package STREAM3 StreamFunctions3} +\getchunk{package STINPROD StreamInfiniteProduct} +\getchunk{package STTAYLOR StreamTaylorSeriesOperations} +\getchunk{package STNSR StreamTensor} +\getchunk{package STTF StreamTranscendentalFunctions} +\getchunk{package STTFNC StreamTranscendentalFunctionsNonCommutative} +\getchunk{package SCPKG StructuralConstantsPackage} +\getchunk{package SHP SturmHabichtPackage} +\getchunk{package SUBRESP SubResultantPackage} +\getchunk{package SUPFRACF SupFractionFactorizer} +\getchunk{package ODESYS SystemODESolver} +\getchunk{package SYSSOLP SystemSolvePackage} +\getchunk{package SGCF SymmetricGroupCombinatoricFunctions} +\getchunk{package SYMFUNC SymmetricFunctions} + +\getchunk{package TABLBUMP TableauxBumpers} +\getchunk{package TBCMPPK TabulatedComputationPackage} +\getchunk{package TANEXP TangentExpansions} +\getchunk{package UTSSOL TaylorSolve} +\getchunk{package TEMUTL TemplateUtilities} +\getchunk{package TEX1 TexFormat1} +\getchunk{package TOOLSIGN ToolsForSign} +\getchunk{package DRAW TopLevelDrawFunctions} +\getchunk{package DRAWCURV TopLevelDrawFunctionsForAlgebraicCurves} +\getchunk{package DRAWCFUN TopLevelDrawFunctionsForCompiledFunctions} +\getchunk{package DRAWPT TopLevelDrawFunctionsForPoints} +\getchunk{package TOPSP TopLevelThreeSpace} +\getchunk{package INTHERTR TranscendentalHermiteIntegration} +\getchunk{package INTTR TranscendentalIntegration} +\getchunk{package TRMANIP TranscendentalManipulations} +\getchunk{package RDETR TranscendentalRischDE} +\getchunk{package RDETRS TranscendentalRischDESystem} +\getchunk{package SOLVETRA TransSolvePackage} +\getchunk{package SOLVESER TransSolvePackageService} +\getchunk{package TRIMAT TriangularMatrixOperations} +\getchunk{package TRIGMNIP TrigonometricManipulations} +\getchunk{package TUBETOOL TubePlotTools} +\getchunk{package CLIP TwoDimensionalPlotClipping} +\getchunk{package TWOFACT TwoFactorize} + +\getchunk{package UNIFACT UnivariateFactorize} +\getchunk{package UFPS1 UnivariateFormalPowerSeriesFunctions} +\getchunk{package ULS2 UnivariateLaurentSeriesFunctions2} +\getchunk{package UPOLYC2 UnivariatePolynomialCategoryFunctions2} +\getchunk{package UPCDEN UnivariatePolynomialCommonDenominator} +\getchunk{package UPDECOMP UnivariatePolynomialDecompositionPackage} +\getchunk{package UPDIVP UnivariatePolynomialDivisionPackage} +\getchunk{package UP2 UnivariatePolynomialFunctions2} +\getchunk{package UPMP UnivariatePolynomialMultiplicationPackage} +\getchunk{package UPSQFREE UnivariatePolynomialSquareFree} +\getchunk{package UPXS2 UnivariatePuiseuxSeriesFunctions2} +\getchunk{package OREPCTO UnivariateSkewPolynomialCategoryOps} +\getchunk{package UTS2 UnivariateTaylorSeriesFunctions2} +\getchunk{package UTSODE UnivariateTaylorSeriesODESolver} +\getchunk{package UNISEG2 UniversalSegmentFunctions2} +\getchunk{package UDPO UserDefinedPartialOrdering} +\getchunk{package UDVO UserDefinedVariableOrdering} +\getchunk{package UTSODETL UTSodetools} + +\getchunk{package VECTOR2 VectorFunctions2} +\getchunk{package VIEWDEF ViewDefaultsPackage} +\getchunk{package VIEW ViewportPackage} + +\getchunk{package WEIER WeierstrassPreparation} +\getchunk{package WFFINTBS WildFunctionFieldIntegralBasis} + +\getchunk{package XEXPPKG XExponentialPackage} + +\getchunk{package ZDSOLVE ZeroDimensionalSolvePackage} +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Index} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% diff --git a/books/bookvol10.5.pamphlet b/books/bookvol10.5.pamphlet index 933f670..d5e32c5 100644 --- a/books/bookvol10.5.pamphlet +++ b/books/bookvol10.5.pamphlet @@ -340,7 +340,7 @@ For complex symmetric matrices, TRANSx=H is not allowed. \chapter{Algebra Cover Code} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{package BLAS1 BlasLevelOne} -<>= +\begin{chunk}{BlasLevelOne.input} )set break resume )sys rm -f BlasLevelOne.output )spool BlasLevelOne.output @@ -459,8 +459,8 @@ dasum(1,a,7) -- 1.0 1.0 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{BlasLevelOne.help} ==================================================================== BlasLevelOne examples ==================================================================== @@ -501,11 +501,11 @@ dcabs1(t5) See Also: o )show BlasLevelOne -@ +\end{chunk} \pagehead{BlasLevelOne}{BLAS1} %\pagepic{ps/v104blaslevelone.ps}{BLAS1}{1.00} -<>= +\begin{chunk}{package BLAS1 BlasLevelOne} )abbrev package BLAS1 BlasLevelOne ++ Author: Timothy Daly ++ Date Created: 2010 @@ -575,20 +575,20 @@ BlasLevelOne() : Exports == Implementation where dcopy(n:SI,dx:DX,incx:SI,dy:DX,incy:SI):DX == DCOPY(n,dx,incx,dy,incy)$Lisp -@ -<>= +\end{chunk} +\begin{chunk}{BLAS1.dotabb} "BLAS1" [color="#444488",href="bookvol10.5.pdf#nameddest=BLAS1"] "FIELD" [color="#4488FF",href="bookvol10.2.pdf#nameddest=FIELD"] "RADCAT" [color="#4488FF",href="bookvol10.2.pdf#nameddest=RADCAT"] "BLAS1" -> "FIELD" "BLAS1" -> "RADCAT" -@ +\end{chunk} \section{dcabs1 BLAS} %\pagehead{dcabs1}{dcabs1} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dcabs1.input} )set break resume )sys rm -f dcabs1.output )spool dcabs1.output @@ -678,8 +678,8 @@ dcabs1(t5) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dcabs1.help} ==================================================================== dcabs1 examples ==================================================================== @@ -736,7 +736,7 @@ o )show BlasLevelOne o )display operations dcabs1 o )help dcabs1 -@ +\end{chunk} Axiom represents the type Complex(DoubleFloat) as a pair whose car is the real part and whose cdr is the imaginary part. This fact is used @@ -744,7 +744,7 @@ in this implementation. This should really be a macro. -<>= +\begin{chunk}{BLAS dcabs1} (defun dcabs1 (z) "Complex(DoubleFloat) z is a pair where (realpart . imaginarypart). The result is a DoubleFloat (+ (abs (realpart z)) (abs (imagpart z)))" @@ -753,7 +753,7 @@ This should really be a macro. (the double-float (abs (the double-float (car z)))) (the double-float (abs (the double-float (cdr z))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{lsame BLAS} %\pagehead{lsame}{lsame} @@ -784,7 +784,7 @@ function. %\pagehead{dasum}{dasum} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dasum.input} )set break resume )sys rm -f dasum.output )spool dasum.output @@ -1018,8 +1018,8 @@ dasum(1,a,7) -- 1.0 1.0 )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dasum.help} ==================================================================== dasum examples ==================================================================== @@ -1205,9 +1205,9 @@ NOTES: (dasum 2 a 6) = 1.0 ; 1.0 (dasum 1 a 7) = 1.0 ; 1.0 -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dasum} (defun dasum (n dx incx) (declare (type (simple-array double-float (*)) dx) (type fixnum incx n)) (let ((dasum 0.0) (maxlen (length dx))) @@ -1223,13 +1223,13 @@ NOTES: (the double-float (abs (the double-float (svref dx j)))))))))) dasum)) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{daxpy BLAS} %\pagehead{daxpy}{daxpy} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{daxpy.input} )set break resume )sys rm -f daxpy.output )spool daxpy.output @@ -1415,8 +1415,8 @@ daxpy(3,0.0,a,1,b,2) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{daxpy.help} ==================================================================== daxpy examples ==================================================================== @@ -1569,9 +1569,9 @@ RETURN VALUES When n <= 0, double precision alpha = 0., this routine returns immedi- ately with no change in its arguments. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 daxpy} (defun daxpy (n da dx incx dy incy) (declare (type (simple-array double-float) dx dy) (type double-float da) (type fixnum incy incx n)) @@ -1609,13 +1609,13 @@ RETURN VALUES (setq iy (+ iy incy))))))) dy) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dcopy BLAS} %\pagehead{dcopy}{dcopy} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dcopy.input} )set break resume )sys rm -f dcopy.output )spool dcopy.output @@ -1809,8 +1809,8 @@ dcopy(5,a,1,b,1) )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dcopy.help} ==================================================================== dcopy examples ==================================================================== @@ -1901,9 +1901,9 @@ ARGUMENTS Increment between elements of y. If incy = 0, the y vector is unchanged -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dcopy} (defun dcopy (n dx incx dy incy) (declare (type (simple-array double-float) dy dx) (type fixnum incy incx n)) @@ -1927,13 +1927,13 @@ ARGUMENTS (setq iy (+ iy incy))))))) dy) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ddot BLAS} %\pagehead{ddot}{ddot} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ddot.input} )set break resume )sys rm -f ddot.output )spool ddot.output @@ -1943,8 +1943,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ddot.help} ==================================================================== ddot examples ==================================================================== @@ -2010,9 +2010,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 ddot} (defun ddot (n dx incx dy incy) (declare (type (simple-array double-float (*)) dy dx) (type fixnum incy incx n)) @@ -2110,13 +2110,13 @@ NOTES end_label (return (values ddot nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dnrm2 BLAS} %\pagehead{dnrm2}{dnrm2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dnrm2.input} )set break resume )sys rm -f dnrm2.output )spool dnrm2.output @@ -2126,8 +2126,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dnrm2.help} ==================================================================== dnrm2 examples ==================================================================== @@ -2178,9 +2178,9 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dnrm2} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -2226,13 +2226,13 @@ NOTES end_label (return (values dnrm2 nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{drotg BLAS} %\pagehead{drotg}{drotg} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{drotg.input} )set break resume )sys rm -f drotg.output )spool drotg.output @@ -2242,8 +2242,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{drotg.help} ==================================================================== drotg examples ==================================================================== @@ -2329,7 +2329,7 @@ NOTE S = SQRT( 1 - C * C) ENDIF -@ +\end{chunk} Double precision. Computes plane rotation. Arguments are: @@ -2347,7 +2347,7 @@ Returns multiple values where: \item 4 s - double-float \end{itemize} -<>= +\begin{chunk}{BLAS 1 drotg} (defun drotg (da db c s) (declare (type (double-float) s c db da)) (prog ((roe 0.0) (scale 0.0) (r 0.0) (z 0.0)) @@ -2379,13 +2379,13 @@ Returns multiple values where: (setf db z) (return (values da db c s)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{drot BLAS} %\pagehead{drot}{drot} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{drot.input} )set break resume )sys rm -f drot.output )spool drot.output @@ -2395,8 +2395,8 @@ Returns multiple values where: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{drot.help} ==================================================================== drot examples ==================================================================== @@ -2479,9 +2479,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 drot} (defun drot (n dx incx dy incy c s) (declare (type (double-float) s c) (type (simple-array double-float (*)) dy dx) @@ -2532,13 +2532,13 @@ NOTES end_label (return (values nil nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dscal BLAS} %\pagehead{dscal}{dscal} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dscal.input} )set break resume )sys rm -f dscal.output )spool dscal.output @@ -2548,8 +2548,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dscal.help} ==================================================================== dscal examples ==================================================================== @@ -2601,9 +2601,9 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dscal} (defun dscal (n da dx incx) (declare (type (simple-array double-float (*)) dx) (type (double-float) da) @@ -2676,13 +2676,13 @@ NOTES end_label (return (values nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dswap BLAS} %\pagehead{dswap}{dswap} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dswap.input} )set break resume )sys rm -f dswap.output )spool dswap.output @@ -2692,8 +2692,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dswap.help} ==================================================================== dswap examples ==================================================================== @@ -2752,9 +2752,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dswap} (defun dswap (n dx incx dy incy) (declare (type (simple-array double-float (*)) dy dx) (type fixnum incy incx n)) @@ -2847,13 +2847,13 @@ NOTES end_label (return (values nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dzasum BLAS} %\pagehead{dzasum}{dzasum} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dzasum.input} )set break resume )sys rm -f dzasum.output )spool dzasum.output @@ -2863,8 +2863,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dzasum.help} ==================================================================== dzasum examples ==================================================================== @@ -2916,7 +2916,7 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} Computes (complex double-float) $asum \leftarrow ||re(x)||_1 + ||im(x)||_1$ @@ -2934,7 +2934,7 @@ Return values are: \item 3 nil \end{itemize} -<>= +\begin{chunk}{BLAS 1 dzasum} (defun dzasum (n zx incx) (declare (type (simple-array (complex double-float) (*)) zx) (type fixnum incx n)) @@ -2970,13 +2970,13 @@ Return values are: end_label (return (values dzasum nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dznrm2 BLAS} %\pagehead{dznrm2}{dznrm2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dznrm2.input} )set break resume )sys rm -f dznrm2.output )spool dznrm2.output @@ -2986,8 +2986,8 @@ Return values are: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dznrm2.help} ==================================================================== dznrm2 examples ==================================================================== @@ -3039,9 +3039,9 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 dznrm2} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -3100,13 +3100,13 @@ NOTES end_label (return (values dznrm2 nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{icamax BLAS} %\pagehead{icamax}{icamax} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{icamax.input} )set break resume )sys rm -f icamax.output )spool icamax.output @@ -3116,8 +3116,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{icamax.help} ==================================================================== icamax examples ==================================================================== @@ -3177,9 +3177,9 @@ NOTES ABS (x(1+(n-index) * |incx|)) when incx < 0 -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 icamax} (defun icamax (n cx incx) (declare (type (simple-array (complex single-float) (*)) cx) (type fixnum incx n)) @@ -3232,13 +3232,13 @@ NOTES end_label (return (values icamax nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{idamax BLAS} %\pagehead{idamax}{idamax} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{idamax.input} )set break resume )sys rm -f idamax.output )spool idamax.output @@ -3248,8 +3248,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{idamax.help} ==================================================================== idamax examples ==================================================================== @@ -3303,9 +3303,9 @@ NOTES ABS (x(1+(n-index) * |incx|)) when incx < 0 -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 idamax} (defun idamax (n dx incx) (declare (type (simple-array double-float (*)) dx) (type fixnum incx n)) @@ -3367,13 +3367,13 @@ NOTES end_label (return (values idamax nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{isamax BLAS} %\pagehead{isamax}{isamax} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{isamax.input} )set break resume )sys rm -f isamax.output )spool isamax.output @@ -3383,8 +3383,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{isamax.help} ==================================================================== isamax examples ==================================================================== @@ -3443,9 +3443,9 @@ NOTES ABS (x(1+(n-index) * |incx|)) when incx < 0 -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 isamax} (defun isamax (n sx incx) (declare (type (simple-array single-float (*)) sx) (type fixnum incx n)) @@ -3486,13 +3486,13 @@ NOTES end_label (return (values isamax nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{izamax BLAS} %\pagehead{izamax}{izamax} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{izamax.input} )set break resume )sys rm -f izamax.output )spool izamax.output @@ -3502,8 +3502,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{izamax.help} ==================================================================== izamax examples ==================================================================== @@ -3563,9 +3563,9 @@ NOTES ABS (x(1+(n-index) * |incx|)) when incx < 0 -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 izamax} (defun izamax (n zx incx) (declare (type (simple-array (complex double-float) (*)) zx) (type fixnum incx n)) @@ -3610,13 +3610,13 @@ NOTES end_label (return (values izamax nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zaxpy BLAS} %\pagehead{zaxpy}{zaxpy} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zaxpy.input} )set break resume )sys rm -f zaxpy.output )spool zaxpy.output @@ -3626,8 +3626,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zaxpy.help} ==================================================================== zaxpy examples ==================================================================== @@ -3701,7 +3701,7 @@ RETURN VALUES When n <= 0, double complex alpha = 0 = 0.+0.i, this routine returns immediately with no change in its arguments. -@ +\end{chunk} Computes (complex double-float) $y \leftarrow \alpha{}x + y$ @@ -3725,7 +3725,7 @@ Return values are: \item 6 nil \end{itemize} -<>= +\begin{chunk}{BLAS 1 zaxpy} (defun zaxpy (n za zx incx zy incy) (declare (type (simple-array (complex double-float) (*)) zy zx) (type (complex double-float) za) @@ -3770,13 +3770,13 @@ Return values are: end_label (return (values nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zcopy BLAS} %\pagehead{zcopy}{zcopy} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zcopy.input} )set break resume )sys rm -f zcopy.output )spool zcopy.output @@ -3786,8 +3786,8 @@ Return values are: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zcopy.help} ==================================================================== zcopy examples ==================================================================== @@ -3847,9 +3847,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zcopy} (defun zcopy (n zx incx zy incy) (declare (type (simple-array (complex double-float) (*)) zy zx) (type fixnum incy incx n)) @@ -3889,13 +3889,13 @@ NOTES end_label (return (values nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zdotc BLAS} %\pagehead{zdotc}{zdotc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zdotc.input} )set break resume )sys rm -f zdotc.output )spool zdotc.output @@ -3905,8 +3905,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zdotc.help} ==================================================================== zdotc examples ==================================================================== @@ -3979,9 +3979,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zdotc} (defun zdotc (n zx incx zy incy) (declare (type (simple-array (complex double-float) (*)) zy zx) (type fixnum incy incx n)) @@ -4034,13 +4034,13 @@ NOTES end_label (return (values zdotc nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zdotu BLAS} %\pagehead{zdotu}{zdotu} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zdotu.input} )set break resume )sys rm -f zdotu.output )spool zdotu.output @@ -4050,8 +4050,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zdotu.help} ==================================================================== zdotu examples ==================================================================== @@ -4117,9 +4117,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zdotu} (defun zdotu (n zx incx zy incy) (declare (type (simple-array (complex double-float) (*)) zy zx) (type fixnum incy incx n)) @@ -4168,13 +4168,13 @@ NOTES end_label (return (values zdotu nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zdscal BLAS} %\pagehead{zdscal}{zdscal} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zdscal.input} )set break resume )sys rm -f zdscal.output )spool zdscal.output @@ -4184,8 +4184,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zdscal.help} ==================================================================== zdscal examples ==================================================================== @@ -4240,9 +4240,9 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zdscal} (defun zdscal (n da zx incx) (declare (type (simple-array (complex double-float) (*)) zx) (type (double-float) da) @@ -4272,13 +4272,13 @@ NOTES end_label (return (values nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zrotg BLAS} %\pagehead{zrotg}{zrotg} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zrotg.input} )set break resume )sys rm -f zrotg.output )spool zrotg.output @@ -4288,8 +4288,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zrotg.help} ==================================================================== zrotg examples ==================================================================== @@ -4372,7 +4372,7 @@ ARGUMENTS if |a| = 0 s = ( 1.0 , 0.0 ) -@ +\end{chunk} (Complex Double-Float). Computes plane rotation. Arguments are: @@ -4390,7 +4390,7 @@ Returns multiple values where: \item 4 s - s \end{itemize} -<>= +\begin{chunk}{BLAS 1 zrotg} (defun zrotg (ca cb c s) (declare (type (double-float) c) (type (complex double-float) s cb ca)) (prog ((alpha #C(0.0 0.0)) (norm 0.0) (scale 0.0)) @@ -4419,13 +4419,13 @@ Returns multiple values where: label20 (return (values ca nil c s)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zscal BLAS} %\pagehead{zscal}{zscal} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zscal.input} )set break resume )sys rm -f zscal.output )spool zscal.output @@ -4435,8 +4435,8 @@ Returns multiple values where: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zscal.help} ==================================================================== zscal examples ==================================================================== @@ -4489,9 +4489,9 @@ NOTES x(1-incx * (n-1)), x(1-incx * (n-2)), ..., x(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zscal} (defun zscal (n za zx incx) (declare (type (simple-array (complex double-float) (*)) zx) (type (complex double-float) za) @@ -4519,13 +4519,13 @@ NOTES end_label (return (values nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zswap BLAS} %\pagehead{zswap}{zswap} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zswap.input} )set break resume )sys rm -f zswap.output )spool zswap.output @@ -4535,8 +4535,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zswap.help} ==================================================================== zswap examples ==================================================================== @@ -4595,9 +4595,9 @@ NOTES y(1-incy * (n-1)), y(1-incy * (n-2)), ..., y(1) -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 1 zswap} (defun zswap (n zx incx zy incy) (declare (type (simple-array (complex double-float) (*)) zy zx) (type fixnum incy incx n)) @@ -4642,7 +4642,7 @@ NOTES end_label (return (values nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{BLAS Level 2} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -4650,7 +4650,7 @@ NOTES %\pagehead{dgbmv}{dgbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgbmv.input} )set break resume )sys rm -f dgbmv.output )spool dgbmv.output @@ -4660,8 +4660,8 @@ NOTES )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgbmv.help} ==================================================================== dgbmv examples ==================================================================== @@ -4784,9 +4784,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dgbmv} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -5063,13 +5063,13 @@ Man Page Details (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgemv BLAS} %\pagehead{dgemv}{dgemv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgemv.input} )set break resume )sys rm -f dgemv.output )spool dgemv.output @@ -5079,8 +5079,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgemv.help} ==================================================================== dgemv examples ==================================================================== @@ -5177,9 +5177,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dgemv} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -5404,13 +5404,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dger BLAS} %\pagehead{dger}{dger} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dger.input} )set break resume )sys rm -f dger.output )spool dger.output @@ -5420,8 +5420,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dger.help} ==================================================================== dger examples ==================================================================== @@ -5494,9 +5494,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dger} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dger (m n alpha x incx y incy a lda) @@ -5605,13 +5605,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsbmv BLAS} %\pagehead{dsbmv}{dsbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsbmv.input} )set break resume )sys rm -f dsbmv.output )spool dsbmv.output @@ -5621,8 +5621,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsbmv.help} ==================================================================== dsbmv examples ==================================================================== @@ -5746,9 +5746,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dsbmv} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -6061,13 +6061,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dspmv BLAS} %\pagehead{dspmv}{dspmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dspmv.input} )set break resume )sys rm -f dspmv.output )spool dspmv.output @@ -6077,8 +6077,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dspmv.help} ==================================================================== dspmv examples ==================================================================== @@ -6171,9 +6171,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dspmv} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -6480,13 +6480,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dspr2 BLAS} %\pagehead{dspr2}{dspr2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dspr2.input} )set break resume )sys rm -f dspr2.output )spool dspr2.output @@ -6496,8 +6496,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dspr2.help} ==================================================================== dspr2 examples ==================================================================== @@ -6587,9 +6587,9 @@ Man Page Details ten by the lower triangular part of the updated matrix. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dspr2} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dspr2 (uplo n alpha x incx y incy ap) @@ -6860,13 +6860,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dspr BLAS} %%\pagehead{dspr}{dspr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dspr.input} )set break resume )sys rm -f dspr.output )spool dspr.output @@ -6876,8 +6876,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dspr.help} ==================================================================== dspr examples ==================================================================== @@ -6957,9 +6957,9 @@ Man Page Details ten by the lower triangular part of the updated matrix. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dspr} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dspr (uplo n alpha x incx ap) @@ -7156,13 +7156,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsymv BLAS} %\pagehead{dsymv}{dsymv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsymv.input} )set break resume )sys rm -f dsymv.output )spool dsymv.output @@ -7172,8 +7172,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsymv.help} ==================================================================== dsymv examples ==================================================================== @@ -7268,9 +7268,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dsymv} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -7552,13 +7552,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsyr2 BLAS} %\pagehead{dsyr2}{dsyr2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsyr2.input} )set break resume )sys rm -f dsyr2.output )spool dsyr2.output @@ -7568,8 +7568,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsyr2.help} ==================================================================== dsyr2 examples ==================================================================== @@ -7663,9 +7663,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dsyr2} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dsyr2 (uplo n alpha x incx y incy a lda) @@ -7915,13 +7915,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsyr BLAS} %\pagehead{dsyr}{dsyr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsyr.input} )set break resume )sys rm -f dsyr.output )spool dsyr.output @@ -7931,8 +7931,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsyr.help} ==================================================================== dsyr examples ==================================================================== @@ -8015,9 +8015,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dsyr} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dsyr (uplo n alpha x incx a lda) @@ -8193,13 +8193,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtbmv BLAS} %\pagehead{dtbmv}{dtbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtbmv.input} )set break resume )sys rm -f dtbmv.output )spool dtbmv.output @@ -8209,8 +8209,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtbmv.help} ==================================================================== dtbmv examples ==================================================================== @@ -8338,9 +8338,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtbmv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtbmv (uplo trans diag n k a lda x incx) @@ -8785,13 +8785,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtbsv BLAS} %\pagehead{dtbsv}{dtbsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtbsv.input} )set break resume )sys rm -f dtbsv.output )spool dtbsv.output @@ -8801,8 +8801,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtbsv.help} ==================================================================== dtbsv examples ==================================================================== @@ -8935,9 +8935,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtbsv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtbsv (uplo trans diag n k a lda x incx) @@ -9384,13 +9384,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtpmv BLAS} %\pagehead{dtpmv}{dtpmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtpmv.input} )set break resume )sys rm -f dtpmv.output )spool dtpmv.output @@ -9400,8 +9400,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtpmv.help} ==================================================================== dtpmv examples ==================================================================== @@ -9496,9 +9496,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtpmv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtpmv (uplo trans diag n ap x incx) @@ -9944,13 +9944,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtpsv BLAS} %\pagehead{dtpsv}{dtpsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtpsv.input} )set break resume )sys rm -f dtpsv.output )spool dtpsv.output @@ -9960,8 +9960,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtpsv.help} ==================================================================== dtpsv examples ==================================================================== @@ -10059,9 +10059,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtpsv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtpsv (uplo trans diag n ap x incx) @@ -10509,13 +10509,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrmv BLAS} %\pagehead{dtrmv}{dtrmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrmv.input} )set break resume )sys rm -f dtrmv.output )spool dtrmv.output @@ -10525,8 +10525,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrmv.help} ==================================================================== dtrmv examples ==================================================================== @@ -10622,9 +10622,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtrmv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtrmv (uplo trans diag n a lda x incx) @@ -11008,13 +11008,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrsv BLAS} %\pagehead{dtrsv}{dtrsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrsv.input} )set break resume )sys rm -f dtrsv.output )spool dtrsv.output @@ -11024,8 +11024,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrsv.help} ==================================================================== dtrsv examples ==================================================================== @@ -11126,9 +11126,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 dtrsv} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtrsv (uplo trans diag n a lda x incx) @@ -11514,13 +11514,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zgbmv BLAS} %\pagehead{zgbmv}{zgbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zgbmv.input} )set break resume )sys rm -f zgbmv.output )spool zgbmv.output @@ -11530,8 +11530,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zgbmv.help} ==================================================================== zgbmv examples ==================================================================== @@ -11656,9 +11656,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zgbmv} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zgbmv (trans m n kl ku alpha a lda x incx beta y incy) @@ -11993,13 +11993,13 @@ Man Page Details (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zgemv BLAS} %\pagehead{zgemv}{zgemv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zgemv.input} )set break resume )sys rm -f zgemv.output )spool zgemv.output @@ -12009,8 +12009,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zgemv.help} ==================================================================== zgemv examples ==================================================================== @@ -12108,9 +12108,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zgemv} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zgemv (trans m n alpha a lda x incx beta y incy) @@ -12373,13 +12373,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zgerc BLAS} %\pagehead{zgerc}{zgerc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zgerc.input} )set break resume )sys rm -f zgerc.output )spool zgerc.output @@ -12389,8 +12389,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zgerc.help} ==================================================================== zgerc examples ==================================================================== @@ -12464,9 +12464,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zgerc} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zgerc (m n alpha x incx y incy a lda) @@ -12583,13 +12583,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zgeru BLAS} %\pagehead{zgeru}{zgeru} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zgeru.input} )set break resume )sys rm -f zgeru.output )spool zgeru.output @@ -12599,8 +12599,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zgeru.help} ==================================================================== zgeru examples ==================================================================== @@ -12673,9 +12673,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zgeru} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zgeru (m n alpha x incx y incy a lda) @@ -12784,13 +12784,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhbmv BLAS} %\pagehead{zhbmv}{zhbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhbmv.input} )set break resume )sys rm -f zhbmv.output )spool zhbmv.output @@ -12800,8 +12800,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhbmv.help} ==================================================================== zhbmv examples ==================================================================== @@ -12928,9 +12928,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zhbmv} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zhbmv (uplo n k alpha a lda x incx beta y incy) @@ -13250,13 +13250,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhemv BLAS} %\pagehead{zhemv}{zhemv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhemv.input} )set break resume )sys rm -f zhemv.output )spool zhemv.output @@ -13266,8 +13266,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhemv.help} ==================================================================== zhemv examples ==================================================================== @@ -13364,9 +13364,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zhemv} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zhemv (uplo n alpha a lda x incx beta y incy) @@ -13655,13 +13655,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zher2 BLAS} %\pagehead{zher2}{zher2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zher2.input} )set break resume )sys rm -f zher2.output )spool zher2.output @@ -13671,8 +13671,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zher2.help} ==================================================================== zher2 examples ==================================================================== @@ -13769,9 +13769,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zher2} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zher2 (uplo n alpha x incx y incy a lda) @@ -14197,13 +14197,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zher BLAS} %\pagehead{zher}{zher} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zher.input} )set break resume )sys rm -f zher.output )spool zher.output @@ -14213,8 +14213,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zher.help} ==================================================================== zher examples ==================================================================== @@ -14300,9 +14300,9 @@ Man Page Details declared in the calling (sub) program. LDA must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zher} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zher (uplo n alpha x incx a lda) @@ -14621,13 +14621,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhpmv BLAS} %\pagehead{zhpmv}{zhpmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhpmv.input} )set break resume )sys rm -f zhpmv.output )spool zhpmv.output @@ -14637,8 +14637,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhpmv.help} ==================================================================== zhpmv examples ==================================================================== @@ -14733,9 +14733,9 @@ Man Page Details ments of Y. INCY must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zhpmv} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zhpmv (uplo n alpha ap x incx beta y incy) @@ -15049,13 +15049,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhpr2 BLAS} %\pagehead{zhpr2}{zhpr2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhpr2.input} )set break resume )sys rm -f zhpr2.output )spool zhpr2.output @@ -15065,8 +15065,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhpr2.help} ==================================================================== zhpr2 examples ==================================================================== @@ -15316,9 +15316,9 @@ Man Page Details PUR- POSE -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zhpr2} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zhpr2 (uplo n alpha x incx y incy ap) @@ -15766,13 +15766,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhpr BLAS} %\pagehead{zhpr}{zhpr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhpr.input} )set break resume )sys rm -f zhpr.output )spool zhpr.output @@ -15782,8 +15782,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhpr.help} ==================================================================== zhpr examples ==================================================================== @@ -15865,9 +15865,9 @@ Man Page Details nal elements need not be set, they are assumed to be zero, and on exit they are set to zero. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 zhpr} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun zhpr (uplo n alpha x incx ap) @@ -16209,13 +16209,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztbmv BLAS} %\pagehead{ztbmv}{ztbmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztbmv.input} )set break resume )sys rm -f ztbmv.output )spool ztbmv.output @@ -16225,8 +16225,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztbmv.help} ==================================================================== ztbmv examples ==================================================================== @@ -16354,9 +16354,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztbmv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztbmv (uplo trans diag n k a lda x incx) @@ -16952,13 +16952,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztbsv BLAS} %\pagehead{ztbsv}{ztbsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztbsv.input} )set break resume )sys rm -f ztbsv.output )spool ztbsv.output @@ -16968,8 +16968,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztbsv.help} ==================================================================== ztbsv examples ==================================================================== @@ -17102,9 +17102,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztbsv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztbsv (uplo trans diag n k a lda x incx) @@ -17700,13 +17700,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztpmv BLAS} %\pagehead{ztpmv}{ztpmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztpmv.input} )set break resume )sys rm -f ztpmv.output )spool ztpmv.output @@ -17716,8 +17716,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztpmv.help} ==================================================================== ztpmv examples ==================================================================== @@ -17812,9 +17812,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztpmv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztpmv (uplo trans diag n ap x incx) @@ -18396,13 +18396,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztpsv BLAS} %\pagehead{ztpsv}{ztpsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztpsv.input} )set break resume )sys rm -f ztpsv.output )spool ztpsv.output @@ -18412,8 +18412,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztpsv.help} ==================================================================== ztpsv examples ==================================================================== @@ -18511,9 +18511,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztpsv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztpsv (uplo trans diag n ap x incx) @@ -19109,13 +19109,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztrmv BLAS} %\pagehead{ztrmv}{ztrmv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztrmv.input} )set break resume )sys rm -f ztrmv.output )spool ztrmv.output @@ -19125,8 +19125,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztrmv.help} ==================================================================== ztrmv examples ==================================================================== @@ -19222,9 +19222,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztrmv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztrmv (uplo trans diag n a lda x incx) @@ -19732,13 +19732,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztrsv BLAS} %\pagehead{ztrsv}{ztrsv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztrsv.input} )set break resume )sys rm -f ztrsv.output )spool ztrsv.output @@ -19748,8 +19748,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztrsv.help} ==================================================================== ztrsv examples ==================================================================== @@ -19850,9 +19850,9 @@ Man Page Details ments of X. INCX must not be zero. Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 2 ztrsv} (let* ((zero (complex 0.0 0.0))) (declare (type (complex double-float) zero)) (defun ztrsv (uplo trans diag n a lda x incx) @@ -20362,7 +20362,7 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{BLAS Level 3} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -20370,7 +20370,7 @@ Man Page Details %\pagehead{dgemm}{dgemm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgemm.input} )set break resume )sys rm -f dgemm.output )spool dgemm.output @@ -20380,8 +20380,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgemm.help} ==================================================================== dgemm examples ==================================================================== @@ -20514,9 +20514,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dgemm} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -20808,13 +20808,13 @@ Man Page Details (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsymm BLAS} %\pagehead{dsymm}{dsymm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsymm.input} )set break resume )sys rm -f dsymm.output )spool dsymm.output @@ -20824,8 +20824,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsymm.help} ==================================================================== dsymm examples ==================================================================== @@ -20963,9 +20963,9 @@ Man Page Details Level 3 Blas routine. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dsymm} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -21316,13 +21316,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsyr2k BLAS} %\pagehead{dsyr2k}{dsyr2k} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsyr2k.input} )set break resume )sys rm -f dsyr2k.output )spool dsyr2k.output @@ -21332,8 +21332,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsyr2k.help} ==================================================================== dsyr2k examples ==================================================================== @@ -21471,9 +21471,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dsyr2k} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -21844,13 +21844,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dsyrk BLAS} %\pagehead{dsyrk}{dsyrk} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dsyrk.input} )set break resume )sys rm -f dsyrk.output )spool dsyrk.output @@ -21860,8 +21860,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dsyrk.help} ==================================================================== dsyrk examples ==================================================================== @@ -21979,9 +21979,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dsyrk} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -22291,13 +22291,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrmm BLAS} %\pagehead{dtrmm}{dtrmm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrmm.input} )set break resume )sys rm -f dtrmm.output )spool dtrmm.output @@ -22307,8 +22307,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrmm.help} ==================================================================== dtrmm examples ==================================================================== @@ -22434,9 +22434,9 @@ Man Page Details declared in the calling (sub) program. LDB must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dtrmm} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -22925,13 +22925,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrsm BLAS} %\pagehead{dtrsm}{dtrsm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrsm.input} )set break resume )sys rm -f dtrsm.output )spool dtrsm.output @@ -22941,8 +22941,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrsm.help} ==================================================================== dtrsm examples ==================================================================== @@ -23071,9 +23071,9 @@ Man Page Details declared in the calling (sub) program. LDB must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 dtrsm} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -23631,13 +23631,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zgemm BLAS} %\pagehead{zgemm}{zgemm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zgemm.input} )set break resume )sys rm -f zgemm.output )spool zgemm.output @@ -23647,8 +23647,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zgemm.help} ==================================================================== zgemm examples ==================================================================== @@ -23781,9 +23781,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zgemm} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zgemm (transa transb m n k alpha a lda b ldb$ beta c ldc) @@ -24301,13 +24301,13 @@ Man Page Details (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zhemm BLAS} %\pagehead{zhemm}{zhemm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zhemm.input} )set break resume )sys rm -f zhemm.output )spool zhemm.output @@ -24317,8 +24317,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zhemm.help} ==================================================================== zhemm examples ==================================================================== @@ -24456,9 +24456,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zhemm} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zhemm (side uplo m n alpha a lda b ldb$ beta c ldc) @@ -24816,13 +24816,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zher2k BLAS} %\pagehead{zher2k}{zher2k} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zher2k.input} )set break resume )sys rm -f zher2k.output )spool zher2k.output @@ -24832,8 +24832,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zher2k.help} ==================================================================== zher2k examples ==================================================================== @@ -24977,9 +24977,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zher2k} (let* ((one 1.0) (zero (complex 0.0 0.0))) (declare (type (double-float 1.0 1.0) one) (type (complex double-float) zero)) (defun zher2k (uplo trans n k alpha a lda b ldb$ beta c ldc) @@ -25567,13 +25567,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zherk BLAS} %\pagehead{zherk}{zherk} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zherk.input} )set break resume )sys rm -f zherk.output )spool zherk.output @@ -25583,8 +25583,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zherk.help} ==================================================================== zherk examples ==================================================================== @@ -25706,9 +25706,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zherk} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -26236,13 +26236,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zsymm BLAS} %\pagehead{zsymm}{zsymm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zsymm.input} )set break resume )sys rm -f zsymm.output )spool zsymm.output @@ -26252,8 +26252,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zsymm.help} ==================================================================== zsymm examples ==================================================================== @@ -26388,9 +26388,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zsymm} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zsymm (side uplo m n alpha a lda b ldb$ beta c ldc) @@ -26740,13 +26740,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zsyr2k BLAS} %\pagehead{zsyr2k}{zsyr2k} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zsyr2k.input} )set break resume )sys rm -f zsyr2k.output )spool zsyr2k.output @@ -26756,8 +26756,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zsyr2k.help} ==================================================================== zsyr2k examples ==================================================================== @@ -26891,9 +26891,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zsyr2k} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zsyr2k (uplo trans n k alpha a lda b ldb$ beta c ldc) @@ -27261,13 +27261,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zsyrk BLAS} %\pagehead{zsyrk}{zsyrk} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zsyrk.input} )set break resume )sys rm -f zsyrk.output )spool zsyrk.output @@ -27277,8 +27277,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zsyrk.help} ==================================================================== zsyrk examples ==================================================================== @@ -27395,9 +27395,9 @@ Man Page Details declared in the calling (sub) program. LDC must be at least max( 1, n ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 zsyrk} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun zsyrk (uplo trans n k alpha a lda beta c ldc) @@ -27705,13 +27705,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztrmm BLAS} %\pagehead{ztrmm}{ztrmm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztrmm.input} )set break resume )sys rm -f ztrmm.output )spool ztrmm.output @@ -27721,8 +27721,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztrmm.help} ==================================================================== ztrmm examples ==================================================================== @@ -27844,9 +27844,9 @@ Man Page Details declared in the calling (sub) program. LDB must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 ztrmm} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun ztrmm (side uplo transa diag m n alpha a lda b ldb$) @@ -28434,13 +28434,13 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ztrsm BLAS} %\pagehead{ztrsm}{ztrsm} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ztrsm.input} )set break resume )sys rm -f ztrsm.output )spool ztrsm.output @@ -28450,8 +28450,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ztrsm.help} ==================================================================== ztrsm examples ==================================================================== @@ -28582,9 +28582,9 @@ Man Page Details declared in the calling (sub) program. LDB must be at least max( 1, m ). Unchanged on exit. -@ +\end{chunk} -<>= +\begin{chunk}{BLAS 3 ztrsm} (let* ((one (complex 1.0 0.0)) (zero (complex 0.0 0.0))) (declare (type (complex double-float) one) (type (complex double-float) zero)) (defun ztrsm (side uplo transa diag m n alpha a lda b ldb$) @@ -29241,7 +29241,7 @@ Man Page Details end_label (return (values nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{LAPACK} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -29249,7 +29249,7 @@ Man Page Details %\pagehead{dbdsdc}{dbdsdc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dbdsdc.input} )set break resume )sys rm -f dbdsdc.output )spool dbdsdc.output @@ -29259,8 +29259,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dbdsdc.help} ==================================================================== dbdsdc examples ==================================================================== @@ -29383,7 +29383,7 @@ ARGUMENTS > 0: The algorithm failed to compute an singular value. The update process of divide and conquer failed. -@ +\end{chunk} The input arguments are: \begin{itemize} @@ -29436,7 +29436,7 @@ The return values are: \calls{dbdsdc}{xerbla} \calls{dbdsdc}{char-equal} -<>= +\begin{chunk}{LAPACK dbdsdc} (let* ((zero 0.0) (one 1.0) (two 2.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -29863,13 +29863,13 @@ The return values are: (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dbdsqr LAPACK} %\pagehead{dbdsqr}{dbdsqr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dbdsqr.input} )set break resume )sys rm -f dbdsqr.output )spool dbdsqr.output @@ -29879,8 +29879,8 @@ The return values are: )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dbdsqr.help} ==================================================================== dbdsqr examples ==================================================================== @@ -30021,9 +30021,9 @@ PARAMETERS converge) if the number of passes through the inner loop exceeds MAXITR*N**2. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dbdsqr} (let* ((zero 0.0) (one 1.0) (negone (- 1.0)) @@ -31153,13 +31153,13 @@ PARAMETERS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ddisna LAPACK} %\pagehead{ddisna}{ddisna} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ddisna.input} )set break resume )sys rm -f ddisna.output )spool ddisna.output @@ -31169,8 +31169,8 @@ PARAMETERS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ddisna.help} ==================================================================== ddisna examples ==================================================================== @@ -31242,9 +31242,9 @@ ARGUMENTS = 0: successful exit. < 0: if INFO = -i, the i-th argument had an illegal value. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK ddisna} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun ddisna (job m n d sep info) @@ -31393,13 +31393,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgebak LAPACK} %\pagehead{dgebak}{dgebak} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgebak.input} )set break resume )sys rm -f dgebak.output )spool dgebak.output @@ -31409,8 +31409,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgebak.help} ==================================================================== dgebak examples ==================================================================== @@ -31479,9 +31479,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgebak} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgebak (job side n ilo ihi scale m v ldv info) @@ -31609,13 +31609,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgebal LAPACK} %\pagehead{dgebal}{dgebal} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgebal.input} )set break resume )sys rm -f dgebal.output )spool dgebal.output @@ -31625,8 +31625,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgebal.help} ==================================================================== dgebal examples ==================================================================== @@ -31718,9 +31718,9 @@ FURTHER DETAILS This subroutine is based on the EISPACK routine BALANC. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgebal} (let* ((zero 0.0) (one 1.0) (sclfac 8.0) (factor 0.95)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -31944,13 +31944,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil ilo ihi nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgebd2 LAPACK} %\pagehead{dgebd2}{dgebd2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgebd2.input} )set break resume )sys rm -f dgebd2.output )spool dgebd2.output @@ -31960,8 +31960,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgebd2.help} ==================================================================== dgebd2 examples ==================================================================== @@ -32079,9 +32079,9 @@ FURTHER DETAILS denotes an element of the vector defining H(i), and ui an element of the vector defining G(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgebd2} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -32300,13 +32300,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgebrd LAPACK} %\pagehead{dgebrd}{dgebrd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgebrd.input} )set break resume )sys rm -f dgebrd.output )spool dgebrd.output @@ -32316,8 +32316,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgebrd.help} ==================================================================== dgebrd examples ==================================================================== @@ -32446,9 +32446,9 @@ FURTHER DETAILS denotes an element of the vector defining H(i), and ui an element of the vector defining G(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgebrd} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgebrd (m n a lda d e tauq taup work lwork info) @@ -32629,13 +32629,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgeev LAPACK} %\pagehead{dgeev}{dgeev} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgeev.input} )set break resume )sys rm -f dgeev.output )spool dgeev.output @@ -32645,8 +32645,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgeev.help} ==================================================================== dgeev examples ==================================================================== @@ -32758,9 +32758,9 @@ ARGUMENTS eigenvalues, and no eigenvectors have been computed; elements i+1:N of WR and WI contain eigenvalues which have converged. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgeev} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -33290,13 +33290,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgeevx LAPACK} %\pagehead{dgeevx}{dgeevx} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgeevx.input} )set break resume )sys rm -f dgeevx.output )spool dgeevx.output @@ -33306,8 +33306,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgeevx.help} ==================================================================== dgeevx examples ==================================================================== @@ -33500,9 +33500,9 @@ ARGUMENTS computed; elements 1:ILO-1 and i+1:N of WR and WI contain eigenvalues which have converged. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgeevx} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -34139,13 +34139,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgehd2 LAPACK} %\pagehead{dgehd2}{dgehd2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgehd2.input} )set break resume )sys rm -f dgehd2.output )spool dgehd2.output @@ -34155,8 +34155,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgehd2.help} ==================================================================== dgehd2 examples ==================================================================== @@ -34241,9 +34241,9 @@ FURTHER DETAILS fied element of the upper Hessenberg matrix H, and vi denotes an ele- ment of the vector defining H(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgehd2} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgehd2 (n ilo ihi a lda tau work info) @@ -34330,13 +34330,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgehrd LAPACK} %\pagehead{dgehrd}{dgehrd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgehrd.input} )set break resume )sys rm -f dgehrd.output )spool dgehrd.output @@ -34346,8 +34346,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgehrd.help} ==================================================================== dgehrd examples ==================================================================== @@ -34444,9 +34444,9 @@ FURTHER DETAILS See Quintana-Orti and Van de Geijn (2005). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgehrd} (let* ((nbmax 64) (ldt (+ nbmax 1)) (zero 0.0) (one 1.0)) (declare (type (fixnum 64 64) nbmax) (type fixnum ldt) @@ -34622,13 +34622,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgelq2 LAPACK} %\pagehead{dgelq2}{dgelq2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgelq2.input} )set break resume )sys rm -f dgelq2.output )spool dgelq2.output @@ -34638,8 +34638,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgelq2.help} ==================================================================== dgelq2 examples ==================================================================== @@ -34702,9 +34702,9 @@ FURTHER DETAILS v(1:i-1) = 0 and v(i) = 1; v(i+1:n) is stored on exit in A(i,i+1:n), and tau in TAU(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgelq2} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgelq2 (m n a lda tau work info) @@ -34773,13 +34773,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgelqf LAPACK} %\pagehead{dgelqf}{dgelqf} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgelqf.input} )set break resume )sys rm -f dgelqf.output )spool dgelqf.output @@ -34789,8 +34789,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgelqf.help} ==================================================================== dgelqf examples ==================================================================== @@ -34865,9 +34865,9 @@ FURTHER DETAILS v(1:i-1) = 0 and v(i) = 1; v(i+1:n) is stored on exit in A(i,i+1:n), and tau in TAU(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgelqf} (defun dgelqf (m n a lda tau work lwork info) (declare (type (simple-array double-float (*)) work tau a) (type fixnum info lwork lda n m)) @@ -34982,13 +34982,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil info))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgeqr2 LAPACK} %\pagehead{dgeqr2}{dgeqr2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgeqr2.input} )set break resume )sys rm -f dgeqr2.output )spool dgeqr2.output @@ -34998,8 +34998,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgeqr2.help} ==================================================================== dgeqr2 examples ==================================================================== @@ -35062,9 +35062,9 @@ FURTHER DETAILS v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in A(i+1:m,i), and tau in TAU(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgeqr2} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgeqr2 (m n a lda tau work info) @@ -35129,13 +35129,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgeqrf LAPACK} %\pagehead{dgeqrf}{dgeqrf} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgeqrf.input} )set break resume )sys rm -f dgeqrf.output )spool dgeqrf.output @@ -35145,8 +35145,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgeqrf.help} ==================================================================== dgeqrf examples ==================================================================== @@ -35223,9 +35223,9 @@ FURTHER DETAILS v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in A(i+1:m,i), and tau in TAU(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgeqrf} (defun dgeqrf (m n a lda tau work lwork info) (declare (type (simple-array double-float (*)) work tau a) (type fixnum info lwork lda n m)) @@ -35340,13 +35340,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil info))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgesdd LAPACK} %\pagehead{dgesdd}{dgesdd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgesdd.input} )set break resume )sys rm -f dgesdd.output )spool dgesdd.output @@ -35356,8 +35356,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgesdd.help} ==================================================================== dgesdd examples ==================================================================== @@ -35487,9 +35487,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: DBDSDC did not converge, updating process failed. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgesdd} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -37494,13 +37494,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgesvd LAPACK} %\pagehead{dgesvd}{dgesvd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgesvd.input} )set break resume )sys rm -f dgesvd.output )spool dgesvd.output @@ -37510,8 +37510,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgesvd.help} ==================================================================== dgesvd examples ==================================================================== @@ -37641,9 +37641,9 @@ ARGUMENTS converge to zero. See the description of WORK above for details. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgesvd} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -44038,13 +44038,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgesv LAPACK} %\pagehead{dgesv}{dgesv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgesv.input} )set break resume )sys rm -f dgesv.output )spool dgesv.output @@ -44054,8 +44054,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgesv.help} ==================================================================== dgesv examples ==================================================================== @@ -44124,9 +44124,9 @@ ARGUMENTS has been completed, but the factor U is exactly singular, so the solution could not be computed. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgesv} (defun dgesv (n nrhs a lda ipiv b ldb$ info) (declare (type (simple-array fixnum (*)) ipiv) (type (simple-array double-float (*)) b a) @@ -44168,13 +44168,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil info))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgetf2 LAPACK} %\pagehead{dgetf2}{dgetf2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgetf2.input} )set break resume )sys rm -f dgetf2.output )spool dgetf2.output @@ -44184,8 +44184,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgetf2.help} ==================================================================== dgetf2 examples ==================================================================== @@ -44247,9 +44247,9 @@ ARGUMENTS sion by zero will occur if it is used to solve a system of equations. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgetf2} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -44341,13 +44341,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgetrf LAPACK} %\pagehead{dgetrf}{dgetrf} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgetrf.input} )set break resume )sys rm -f dgetrf.output )spool dgetrf.output @@ -44357,8 +44357,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgetrf.help} ==================================================================== dgetrf examples ==================================================================== @@ -44420,9 +44420,9 @@ ARGUMENTS division by zero will occur if it is used to solve a system of equations. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgetrf} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgetrf (m n a lda ipiv info) @@ -44543,13 +44543,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dgetrs LAPACK} %\pagehead{dgetrs}{dgetrs} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dgetrs.input} )set break resume )sys rm -f dgetrs.output )spool dgetrs.output @@ -44559,8 +44559,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dgetrs.help} ==================================================================== dgetrs examples ==================================================================== @@ -44626,9 +44626,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dgetrs} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dgetrs (trans n nrhs a lda ipiv b ldb$ info) @@ -44677,13 +44677,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dhseqr LAPACK} %\pagehead{dhseqr}{dhseqr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dhseqr.input} )set break resume )sys rm -f dhseqr.output )spool dhseqr.output @@ -44693,8 +44693,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dhseqr.help} ==================================================================== dhseqr examples ==================================================================== @@ -44846,9 +44846,9 @@ ARGUMENTS If INFO .GT. 0 and COMPZ = 'N', then Z is not accessed. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dhseqr} (let* ((zero 0.0) (one 1.0) (two 2.0) (const 1.5) (nsmax 15) (lds nsmax)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -45303,13 +45303,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlabad LAPACK} %\pagehead{dlabad}{dlabad} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlabad.input} )set break resume )sys rm -f dlabad.output )spool dlabad.output @@ -45319,8 +45319,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlabad.help} ==================================================================== dlabad examples ==================================================================== @@ -45361,9 +45361,9 @@ ARGUMENTS exit, if LOG10(LARGE) is sufficiently large, the square root of LARGE, otherwise unchanged. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlabad} (defun dlabad (small large) (declare (type (double-float) large small)) (prog () @@ -45374,13 +45374,13 @@ ARGUMENTS (setf large (f2cl-lib:fsqrt large)))) (return (values small large)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlabrd LAPACK} %\pagehead{dlabrd}{dlabrd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlabrd.input} )set break resume )sys rm -f dlabrd.output )spool dlabrd.output @@ -45390,8 +45390,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlabrd.help} ==================================================================== dlabrd examples ==================================================================== @@ -45521,9 +45521,9 @@ FURTHER DETAILS vi denotes an element of the vector defining H(i), and ui an element of the vector defining G(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlabrd} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -46048,13 +46048,13 @@ FURTHER DETAILS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlacon LAPACK} %\pagehead{dlacon}{dlacon} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlacon.input} )set break resume )sys rm -f dlacon.output )spool dlacon.output @@ -46064,8 +46064,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlacon.help} ==================================================================== dlacon examples ==================================================================== @@ -46124,9 +46124,9 @@ FURTHER DETAILS real or complex matrix, with applications to condition estimation", ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlacon} (let* ((itmax 5) (zero 0.0) (one 1.0) (two 2.0)) (declare (type (fixnum 5 5) itmax) (type (double-float 0.0 0.0) zero) @@ -46274,13 +46274,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil est kase))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlacpy LAPACK} %\pagehead{dlacpy}{dlacpy} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlacpy.input} )set break resume )sys rm -f dlacpy.output )spool dlacpy.output @@ -46290,8 +46290,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlacpy.help} ==================================================================== dlacpy examples ==================================================================== @@ -46344,9 +46344,9 @@ ARGUMENTS LDB (input) INTEGER The leading dimension of the array B. LDB >= max(1,M). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlacpy} (defun dlacpy (uplo m n a lda b ldb$) (declare (type (simple-array double-float (*)) b a) (type fixnum ldb$ lda n m) @@ -46409,13 +46409,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dladiv LAPACK} %\pagehead{dladiv}{dladiv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dladiv.input} )set break resume )sys rm -f dladiv.output )spool dladiv.output @@ -46425,8 +46425,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dladiv.help} ==================================================================== dladiv examples ==================================================================== @@ -46459,9 +46459,9 @@ ARGUMENTS Q (output) DOUBLE PRECISION The scalars p and q in the above expression. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dladiv} (defun dladiv (a b c d p q) (declare (type (double-float) q p d c b a)) (prog ((e 0.0) (f 0.0)) @@ -46479,13 +46479,13 @@ ARGUMENTS (setf q (/ (- (* b e) a) f)))) (return (values nil nil nil nil p q)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaed6 LAPACK} %\pagehead{dlaed6}{dlaed6} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaed6.input} )set break resume )sys rm -f dlaed6.output )spool dlaed6.output @@ -46495,8 +46495,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaed6.help} ==================================================================== dlaed6 examples ==================================================================== @@ -46563,9 +46563,9 @@ ARGUMENTS = 0: successful exit > 0: if INFO = 1, failure to converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaed6} (let* ((maxit 20) (zero 0.0) (one 1.0) @@ -46876,13 +46876,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil tau info))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaexc LAPACK} %\pagehead{dlaexc}{dlaexc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaexc.input} )set break resume )sys rm -f dlaexc.output )spool dlaexc.output @@ -46892,8 +46892,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaexc.help} ==================================================================== dlaexc examples ==================================================================== @@ -46967,9 +46967,9 @@ ARGUMENTS = 1: the transformed matrix T would be too far from Schur form; the blocks are not swapped and T and Q are unchanged. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaexc} (let* ((zero 0.0) (one 1.0) (ten 10.0) (ldd 4) (ldx 2)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -47440,13 +47440,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlahqr LAPACK} %\pagehead{dlahqr}{dlahqr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlahqr.input} )set break resume )sys rm -f dlahqr.output )spool dlahqr.output @@ -47456,8 +47456,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlahqr.help} ==================================================================== dlahqr examples ==================================================================== @@ -47566,9 +47566,9 @@ ARGUMENTS of Z) = (initial value of Z)*U where U is the orthogonal matrix in (*) (regardless of the value of WANTT.) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlahqr} (let* ((zero 0.0) (one 1.0) (half 0.5) (dat1 0.75) (dat2 (- 0.4375))) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -48231,13 +48231,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlahrd LAPACK} %\pagehead{dlahrd}{dlahrd} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlahrd.input} )set break resume )sys rm -f dlahrd.output )spool dlahrd.output @@ -48247,8 +48247,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlahrd.help} ==================================================================== dlahrd examples ==================================================================== @@ -48351,9 +48351,9 @@ FURTHER DETAILS fied element of the upper Hessenberg matrix H, and vi denotes an ele- ment of the vector defining H(i). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlahrd} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -48520,13 +48520,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaln2 LAPACK} %\pagehead{dlaln2}{dlaln2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaln2.input} )set break resume )sys rm -f dlaln2.output )spool dlaln2.output @@ -48536,8 +48536,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaln2.help} ==================================================================== dlaln2 examples ==================================================================== @@ -48670,9 +48670,9 @@ ARGUMENTS the interests of speed, this routine does not check the inputs for errors. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaln2} (let* ((zero 0.0) (one 1.0) (two 2.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -49373,13 +49373,13 @@ ARGUMENTS xnorm info))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamch LAPACK} %\pagehead{dlamch}{dlamch} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamch.input} )set break resume )sys rm -f dlamch.output )spool dlamch.output @@ -49389,8 +49389,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamch.help} ==================================================================== dlamch examples ==================================================================== @@ -49435,9 +49435,9 @@ ARGUMENTS largest exponent before overflow rmax = overflow threshold - (base**emax)*(1-eps) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamch} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -49522,13 +49522,13 @@ ARGUMENTS end_label (return (values dlamch nil))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamc1 LAPACK} %\pagehead{dlamc1}{dlamc1} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamc1.input} )set break resume )sys rm -f dlamc1.output )spool dlamc1.output @@ -49538,8 +49538,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamc1.help} ==================================================================== dlamc1 examples ==================================================================== @@ -49593,9 +49593,9 @@ Man Page Details that reveal properties of floating point arithmetic units. Comms. of the ACM, 17, 276-277. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamc1} (let ((lieee1 nil) (lbeta 0) (lrnd nil) (f2cl-lib:lt 0) (first$ nil)) (declare (type fixnum f2cl-lib:lt lbeta) (type (member t nil) first$ lrnd lieee1)) @@ -49725,13 +49725,13 @@ Man Page Details end_label (return (values beta t$ rnd ieee1))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamc2 LAPACK} %\pagehead{dlamc2}{dlamc2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamc2.input} )set break resume )sys rm -f dlamc2.output )spool dlamc2.output @@ -49741,8 +49741,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamc2.help} ==================================================================== dlamc2 examples ==================================================================== @@ -49812,9 +49812,9 @@ Man Page Details The computation of EPS is based on a routine PARANOIA by W. Kahan of the University of California at Berkeley. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamc2} (let ((lbeta 0) (lemax 0) (lemin 0) @@ -50053,13 +50053,13 @@ Man Page Details end_label (return (values beta t$ rnd eps emin rmin emax rmax))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamc3 LAPACK} %\pagehead{dlamc3}{dlamc3} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamc3.input} )set break resume )sys rm -f dlamc3.output )spool dlamc3.output @@ -50069,8 +50069,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamc3.help} ==================================================================== dlamc3 examples ==================================================================== @@ -50101,9 +50101,9 @@ Man Page Details A, B (input) DOUBLE PRECISION The values A and B. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamc3} (defun dlamc3 (a b) (declare (type (double-float) b a)) (prog ((dlamc3 0.0)) @@ -50111,13 +50111,13 @@ Man Page Details (setf dlamc3 (+ a b)) (return (values dlamc3 a b)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamc4 LAPACK} %\pagehead{dlamc4}{dlamc4} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamc4.input} )set break resume )sys rm -f dlamc4.output )spool dlamc4.output @@ -50127,8 +50127,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamc4.help} ==================================================================== dlamc4 examples ==================================================================== @@ -50166,9 +50166,9 @@ Man Page Details BASE (input) INTEGER The base of the machine. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamc4} (defun dlamc4 (emin start base) (declare (type (double-float) start) (type fixnum base emin)) (prog ((a 0.0) (b1 0.0) (b2 0.0) (c1 0.0) (c2 0.0) (d1 0.0) (d2 0.0) @@ -50231,13 +50231,13 @@ Man Page Details end_label (return (values emin nil nil)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamc5 LAPACK} %\pagehead{dlamc5}{dlamc5} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamc5.input} )set break resume )sys rm -f dlamc5.output )spool dlamc5.output @@ -50247,8 +50247,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamc5.help} ==================================================================== dlamc5 examples ==================================================================== @@ -50301,9 +50301,9 @@ Man Page Details RMAX (output) DOUBLE PRECISION The largest machine floating-point number. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamc5} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -50373,13 +50373,13 @@ Man Page Details end_label (return (values beta nil emin ieee emax rmax))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlamrg LAPACK} %\pagehead{dlamrg}{dlamrg} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlamrg.input} )set break resume )sys rm -f dlamrg.output )spool dlamrg.output @@ -50389,8 +50389,8 @@ Man Page Details )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlamrg.help} ==================================================================== dlamrg examples ==================================================================== @@ -50440,9 +50440,9 @@ ARGUMENTS ) = A( INDEX( I ) ) for I=1,N1+N2, then B will be sorted in ascending order. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlamrg} (defun dlamrg (n1 n2 a dtrd1 dtrd2 indx) (declare (type (simple-array fixnum (*)) indx) (type (simple-array double-float (*)) a) @@ -50499,13 +50499,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlange LAPACK} %\pagehead{dlange}{dlange} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlange.input} )set break resume )sys rm -f dlange.output )spool dlange.output @@ -50515,8 +50515,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlange.help} ==================================================================== dlange examples ==================================================================== @@ -50586,9 +50586,9 @@ ARGUMENTS where LWORK >= M when NORM = 'I'; otherwise, WORK is not refer- enced. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlange} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -50689,13 +50689,13 @@ ARGUMENTS end_label (return (values dlange nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlanhs LAPACK} %\pagehead{dlanhs}{dlanhs} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlanhs.input} )set break resume )sys rm -f dlanhs.output )spool dlanhs.output @@ -50705,8 +50705,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlanhs.help} ==================================================================== dlanhs examples ==================================================================== @@ -50773,9 +50773,9 @@ ARGUMENTS where LWORK >= N when NORM = 'I'; otherwise, WORK is not refer- enced. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlanhs} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -50890,13 +50890,13 @@ ARGUMENTS end_label (return (values dlanhs nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlanst LAPACK} %\pagehead{dlanst}{dlanst} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlanst.input} )set break resume )sys rm -f dlanst.output )spool dlanst.output @@ -50906,8 +50906,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlanst.help} ==================================================================== dlanst examples ==================================================================== @@ -50969,9 +50969,9 @@ ARGUMENTS E (input) DOUBLE PRECISION array, dimension (N-1) The (n-1) sub-diagonal or super-diagonal elements of A. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlanst} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -51063,13 +51063,13 @@ ARGUMENTS end_label (return (values dlanst nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlanv2 LAPACK} %\pagehead{dlanv2}{dlanv2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlanv2.input} )set break resume )sys rm -f dlanv2.output )spool dlanv2.output @@ -51079,8 +51079,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlanv2.help} ==================================================================== dlanv2 examples ==================================================================== @@ -51128,9 +51128,9 @@ ARGUMENTS SN (output) DOUBLE PRECISION Parameters of the rotation matrix. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlanv2} (let* ((zero 0.0) (half 0.5) (one 1.0) (multpl 4.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 0.5 0.5) half) @@ -51241,13 +51241,13 @@ ARGUMENTS end_label (return (values a b c d rt1r rt1i rt2r rt2i cs sn))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlapy2 LAPACK} %\pagehead{dlapy2}{dlapy2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlapy2.input} )set break resume )sys rm -f dlapy2.output )spool dlapy2.output @@ -51257,8 +51257,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlapy2.help} ==================================================================== dlapy2 examples ==================================================================== @@ -51285,9 +51285,9 @@ ARGUMENTS Y (input) DOUBLE PRECISION X and Y specify the values x and y. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlapy2} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -51306,13 +51306,13 @@ ARGUMENTS (setf dlapy2 (* w (f2cl-lib:fsqrt (+ one (expt (/ z w) 2))))))) (return (values dlapy2 nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaqtr LAPACK} %\pagehead{dlaqtr}{dlaqtr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaqtr.input} )set break resume )sys rm -f dlaqtr.output )spool dlaqtr.output @@ -51322,8 +51322,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaqtr.help} ==================================================================== dlaqtr examples ==================================================================== @@ -51422,9 +51422,9 @@ ARGUMENTS nonsingularity. NOTE: In the interests of speed, this routine does not check the inputs for errors. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaqtr} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -52560,13 +52560,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil scale nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlarfb LAPACK} %\pagehead{dlarfb}{dlarfb} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlarfb.input} )set break resume )sys rm -f dlarfb.output )spool dlarfb.output @@ -52576,8 +52576,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlarfb.help} ==================================================================== dlarfb examples ==================================================================== @@ -52666,9 +52666,9 @@ ARGUMENTS The leading dimension of the array WORK. If SIDE = 'L', LDWORK >= max(1,N); if SIDE = 'R', LDWORK >= max(1,M). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlarfb} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dlarfb (side trans direct storev m n k v ldv t$ ldt c ldc work ldwork) @@ -53265,13 +53265,13 @@ ARGUMENTS nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlarfg LAPACK} %\pagehead{dlarfg}{dlarfg} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlarfg.input} )set break resume )sys rm -f dlarfg.output )spool dlarfg.output @@ -53281,8 +53281,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlarfg.help} ==================================================================== dlarfg examples ==================================================================== @@ -53341,9 +53341,9 @@ ARGUMENTS TAU (output) DOUBLE PRECISION The value tau. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlarfg} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -53393,13 +53393,13 @@ ARGUMENTS end_label (return (values nil alpha nil nil tau)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlarf LAPACK} %\pagehead{dlarf}{dlarf} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlarf.input} )set break resume )sys rm -f dlarf.output )spool dlarf.output @@ -53409,8 +53409,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlarf.help} ==================================================================== dlarf examples ==================================================================== @@ -53477,9 +53477,9 @@ ARGUMENTS WORK (workspace) DOUBLE PRECISION array, dimension (N) if SIDE = 'L' or (M) if SIDE = 'R' -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlarf} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -53508,13 +53508,13 @@ ARGUMENTS (dger m n (- tau) work 1 v incv c ldc))))) (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlarft LAPACK} %\pagehead{dlarft}{dlarft} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlarft.input} )set break resume )sys rm -f dlarft.output )spool dlarft.output @@ -53524,8 +53524,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlarft.help} ==================================================================== dlarft examples ==================================================================== @@ -53628,9 +53628,9 @@ FURTHER DETAILS ( 1 v3 ) ( 1 ) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlarft} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -53860,13 +53860,13 @@ FURTHER DETAILS end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlarfx LAPACK} %\pagehead{dlarfx}{dlarfx} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlarfx.input} )set break resume )sys rm -f dlarfx.output )spool dlarfx.output @@ -53876,8 +53876,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlarfx.help} ==================================================================== dlarfx examples ==================================================================== @@ -53942,9 +53942,9 @@ ARGUMENTS (N) if SIDE = 'L' or (M) if SIDE = 'R' WORK is not referenced if H has order < 11. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlarfx} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -55988,13 +55988,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlartg LAPACK} %\pagehead{dlartg}{dlartg} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlartg.input} )set break resume )sys rm -f dlartg.output )spool dlartg.output @@ -56004,8 +56004,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlartg.help} ==================================================================== dlartg examples ==================================================================== @@ -56053,9 +56053,9 @@ ARGUMENTS R (output) DOUBLE PRECISION The nonzero component of the rotated vector. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlartg} (let* ((zero 0.0) (one 1.0) (two 2.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -56138,13 +56138,13 @@ ARGUMENTS end_label (return (values nil nil cs sn r)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlas2 LAPACK} %\pagehead{dlas2}{dlas2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlas2.input} )set break resume )sys rm -f dlas2.output )spool dlas2.output @@ -56154,8 +56154,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlas2.help} ==================================================================== dlas2 examples ==================================================================== @@ -56212,9 +56212,9 @@ FURTHER DETAILS correspond to a matrix modified by perturbations of size near the underflow threshold. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlas2} (let* ((zero 0.0) (one 1.0) (two 2.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -56270,13 +56270,13 @@ FURTHER DETAILS (setf ssmax (/ ga (+ c c))))))))) (return (values nil nil nil ssmin ssmax))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlascl LAPACK} %\pagehead{dlascl}{dlascl} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlascl.input} )set break resume )sys rm -f dlascl.output )spool dlascl.output @@ -56286,8 +56286,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlascl.help} ==================================================================== dlascl examples ==================================================================== @@ -56363,9 +56363,9 @@ ARGUMENTS 0 - successful exit <0 - if INFO = -i, the i-th argument had an illegal value. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlascl} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -56625,13 +56625,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd0 LAPACK} %\pagehead{dlasd0}{dlasd0} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd0.input} )set break resume )sys rm -f dlasd0.output )spool dlasd0.output @@ -56641,8 +56641,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd0.help} ==================================================================== dlasd0 examples ==================================================================== @@ -56722,9 +56722,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd0} (defun dlasd0 (n sqre d e u ldu vt ldvt smlsiz iwork work info) (declare (type (simple-array fixnum (*)) iwork) (type (simple-array double-float (*)) work vt u e d) @@ -56954,13 +56954,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil nil nil info))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd1 LAPACK} %\pagehead{dlasd1}{dlasd1} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd1.input} )set break resume )sys rm -f dlasd1.output )spool dlasd1.output @@ -56970,8 +56970,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd1.help} ==================================================================== dlasd1 examples ==================================================================== @@ -57097,9 +57097,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd1} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -57235,13 +57235,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd2 LAPACK} %\pagehead{dlasd2}{dlasd2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd2.input} )set break resume )sys rm -f dlasd2.output )spool dlasd2.output @@ -57251,8 +57251,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd2.help} ==================================================================== dlasd2 examples ==================================================================== @@ -57413,9 +57413,9 @@ ARGUMENTS = 0: successful exit. < 0: if INFO = -i, the i-th argument had an illegal value. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd2} (let* ((zero 0.0) (one 1.0) (two 2.0) (eight 8.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -57894,13 +57894,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd3 LAPACK} %\pagehead{dlasd3}{dlasd3} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd3.input} )set break resume )sys rm -f dlasd3.output )spool dlasd3.output @@ -57910,8 +57910,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd3.help} ==================================================================== dlasd3 examples ==================================================================== @@ -58034,9 +58034,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd3} (let* ((one 1.0) (zero 0.0) (negone (- 1.0))) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero) @@ -58535,13 +58535,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd4 LAPACK} %\pagehead{dlasd4}{dlasd4} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd4.input} )set break resume )sys rm -f dlasd4.output )spool dlasd4.output @@ -58551,8 +58551,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd4.help} ==================================================================== dlasd4 examples ==================================================================== @@ -58636,9 +58636,9 @@ PARAMETERS MAXIT is the maximum number of iterations allowed for each eigenvalue. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd4} (let* ((maxit 20) (zero 0.0) (one 1.0) @@ -60162,13 +60162,13 @@ PARAMETERS end_label (return (values nil nil nil nil nil nil sigma nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd5 LAPACK} %\pagehead{dlasd5}{dlasd5} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd5.input} )set break resume )sys rm -f dlasd5.output )spool dlasd5.output @@ -60178,8 +60178,8 @@ PARAMETERS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd5.help} ==================================================================== dlasd5 examples ==================================================================== @@ -60235,9 +60235,9 @@ ARGUMENTS WORK (workspace) DOUBLE PRECISION array, dimension ( 2 ) WORK contains (D(j) + sigma_I) in its j-th component. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd5} (let* ((zero 0.0) (one 1.0) (two 2.0) (three 3.0) (four 4.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -60440,13 +60440,13 @@ ARGUMENTS tau)))) (return (values nil nil nil nil nil dsigma nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd6 LAPACK} %\pagehead{dlasd6}{dlasd6} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd6.input} )set break resume )sys rm -f dlasd6.output )spool dlasd6.output @@ -60456,8 +60456,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd6.help} ==================================================================== dlasd6 examples ==================================================================== @@ -60651,9 +60651,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd6} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -60810,13 +60810,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd7 LAPACK} %\pagehead{dlasd7}{dlasd7} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd7.input} )set break resume )sys rm -f dlasd7.output )spool dlasd7.output @@ -60826,8 +60826,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd7.help} ==================================================================== dlasd7 examples ==================================================================== @@ -60986,9 +60986,9 @@ ARGUMENTS = 0: successful exit. < 0: if INFO = -i, the i-th argument had an illegal value. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd7} (let* ((zero 0.0) (one 1.0) (two 2.0) (eight 8.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -61357,13 +61357,13 @@ ARGUMENTS s info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasd8 LAPACK} %\pagehead{dlasd8}{dlasd8} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasd8.input} )set break resume )sys rm -f dlasd8.output )spool dlasd8.output @@ -61373,8 +61373,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasd8.help} ==================================================================== dlasd8 examples ==================================================================== @@ -61460,9 +61460,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasd8} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dlasd8 (icompq k d z vf vl difl difr lddifr dsigma work info) @@ -61802,13 +61802,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasda LAPACK} %\pagehead{dlasda}{dlasda} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasda.input} )set break resume )sys rm -f dlasda.output )spool dlasda.output @@ -61818,8 +61818,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasda.help} ==================================================================== dlasda examples ==================================================================== @@ -61974,9 +61974,9 @@ ARGUMENTS < 0: if INFO = -i, the i-th argument had an illegal value. > 0: if INFO = 1, an singular value did not converge -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasda} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -62496,13 +62496,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasdq LAPACK} %\pagehead{dlasdq}{dlasdq} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasdq.input} )set break resume )sys rm -f dlasdq.output )spool dlasdq.output @@ -62512,8 +62512,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasdq.help} ==================================================================== dlasdq examples ==================================================================== @@ -62639,9 +62639,9 @@ ARGUMENTS not converge, and INFO specifies how many superdiagonals did not converge. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasdq} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dlasdq (uplo sqre n ncvt nru ncc d e vt ldvt u ldu c ldc work info) @@ -62916,13 +62916,13 @@ ARGUMENTS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasdt LAPACK} %\pagehead{dlasdt}{dlasdt} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasdt.input} )set break resume )sys rm -f dlasdt.output )spool dlasdt.output @@ -62932,8 +62932,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasdt.help} ==================================================================== dlasdt examples ==================================================================== @@ -62980,9 +62980,9 @@ ARGUMENTS On entry, the maximum row dimension each subproblem at the bot- tom of the tree can be of. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasdt} (let* ((two 2.0)) (declare (type (double-float 2.0 2.0) two)) (defun dlasdt (n lvl nd inode ndiml ndimr msub) @@ -63088,13 +63088,13 @@ ARGUMENTS end_label (return (values nil lvl nd nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaset LAPACK} %\pagehead{dlaset}{dlaset} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaset.input} )set break resume )sys rm -f dlaset.output )spool dlaset.output @@ -63104,8 +63104,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaset.help} ==================================================================== dlaset examples ==================================================================== @@ -63166,9 +63166,9 @@ ARGUMENTS LDA (input) INTEGER The leading dimension of the array A. LDA >= max(1,M). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaset} (defun dlaset (uplo m n alpha beta a lda) (declare (type (simple-array double-float (*)) a) (type (double-float) beta alpha) @@ -63233,13 +63233,13 @@ ARGUMENTS (setf (f2cl-lib:fref a-%data% (i i) ((1 lda) (1 *)) a-%offset%) beta))) (return (values nil nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq1 LAPACK} %\pagehead{dlasq1}{dlasq1} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq1.input} )set break resume )sys rm -f dlasq1.output )spool dlasq1.output @@ -63249,8 +63249,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq1.help} ==================================================================== dlasq1 examples ==================================================================== @@ -63309,9 +63309,9 @@ ARGUMENTS outer while loop not met (program created more than N unreduced blocks) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq1} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dlasq1 (n d e work info) @@ -63424,13 +63424,13 @@ ARGUMENTS end_label (return (values nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq2 LAPACK} %\pagehead{dlasq2}{dlasq2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq2.input} )set break resume )sys rm -f dlasq2.output )spool dlasq2.output @@ -63440,8 +63440,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq2.help} ==================================================================== dlasq2 examples ==================================================================== @@ -63506,9 +63506,9 @@ FURTHER DETAILS The shifts are accumulated in SIGMA. Iteration count is in ITER. Ping- pong is controlled by PP (alternates between 0 and 1). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq2} (let* ((cbias 1.5) (zero 0.0) (half 0.5) @@ -64378,13 +64378,13 @@ FURTHER DETAILS end_label (return (values nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq3 LAPACK} %\pagehead{dlasq3}{dlasq3} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq3.input} )set break resume )sys rm -f dlasq3.output )spool dlasq3.output @@ -64394,8 +64394,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq3.help} ==================================================================== dlasq3 examples ==================================================================== @@ -64465,9 +64465,9 @@ ARGUMENTS IEEE (input) LOGICAL Flag for IEEE or non IEEE arithmetic (passed to DLASQ5). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq3} (let* ((cbias 1.5) (zero 0.0) (qurtr 0.25) @@ -65068,13 +65068,13 @@ ARGUMENTS ndiv nil))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq4 LAPACK} %\pagehead{dlasq4}{dlasq4} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq4.input} )set break resume )sys rm -f dlasq4.output )spool dlasq4.output @@ -65084,8 +65084,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq4.help} ==================================================================== dlasq4 examples ==================================================================== @@ -65151,9 +65151,9 @@ PURPOSE TTYPE (output) INTEGER Shift type. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq4} (let* ((cnst1 0.563) (cnst2 1.01) (cnst3 1.05) @@ -65672,13 +65672,13 @@ PURPOSE (return (values nil nil nil nil nil nil nil nil nil nil nil tau ttype))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq5 LAPACK} %\pagehead{dlasq5}{dlasq5} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq5.input} )set break resume )sys rm -f dlasq5.output )spool dlasq5.output @@ -65688,8 +65688,8 @@ PURPOSE )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq5.help} ==================================================================== dlasq5 examples ==================================================================== @@ -65757,9 +65757,9 @@ ARGUMENTS IEEE (input) LOGICAL Flag for IEEE or non IEEE arithmetic. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq5} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dlasq5 (i0 n0 z pp tau dmin f2cl-lib:dmin1 dmin2 dn dnm1 dnm2 ieee) @@ -66166,13 +66166,13 @@ ARGUMENTS dnm2 nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasq6 LAPACK} %\pagehead{dlasq6}{dlasq6} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasq6.input} )set break resume )sys rm -f dlasq6.output )spool dlasq6.output @@ -66182,8 +66182,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasq6.help} ==================================================================== dlasq6 examples ==================================================================== @@ -66242,9 +66242,9 @@ ARGUMENTS DNM2 (output) DOUBLE PRECISION d(N0-2). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasq6} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dlasq6 (i0 n0 z pp dmin f2cl-lib:dmin1 dmin2 dn dnm1 dnm2) @@ -66621,13 +66621,13 @@ ARGUMENTS (return (values nil nil nil nil dmin f2cl-lib:dmin1 dmin2 dn dnm1 dnm2)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasr LAPACK} %\pagehead{dlasr}{dlasr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasr.input} )set break resume )sys rm -f dlasr.output )spool dlasr.output @@ -66637,8 +66637,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasr.help} ==================================================================== dlasr examples ==================================================================== @@ -66775,9 +66775,9 @@ ARGUMENTS LDA (input) INTEGER The leading dimension of the array A. LDA >= max(1,M). -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasr} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -67332,13 +67332,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasrt LAPACK} %\pagehead{dlasrt}{dlasrt} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasrt.input} )set break resume )sys rm -f dlasrt.output )spool dlasrt.output @@ -67348,8 +67348,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasrt.help} ==================================================================== dlasrt examples ==================================================================== @@ -67396,9 +67396,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasrt} (let* ((select 20)) (declare (type (fixnum 20 20) select)) (defun dlasrt (id n d info) @@ -67616,13 +67616,13 @@ ARGUMENTS end_label (return (values nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlassq LAPACK} %\pagehead{dlassq}{dlassq} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlassq.input} )set break resume )sys rm -f dlassq.output )spool dlassq.output @@ -67632,8 +67632,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlassq.help} ==================================================================== dlassq examples ==================================================================== @@ -67691,9 +67691,9 @@ ARGUMENTS SUMSQ is overwritten with smsq , the basic sum of squares from which scl has been factored out. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlassq} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dlassq (n x incx scale sumsq) @@ -67728,13 +67728,13 @@ ARGUMENTS (setf sumsq (+ sumsq (expt (/ absxi scale) 2))))))))))) (return (values nil nil nil scale sumsq)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasv2 LAPACK} %\pagehead{dlasv2}{dlasv2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasv2.input} )set break resume )sys rm -f dlasv2.output )spool dlasv2.output @@ -67744,8 +67744,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasv2.help} ==================================================================== dlasv2 examples ==================================================================== @@ -67819,9 +67819,9 @@ FURTHER DETAILS correspond to a matrix modified by perturbations of size near the underflow threshold. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasv2} (let* ((zero 0.0) (half 0.5) (one 1.0) (two 2.0) (four 4.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 0.5 0.5) half) @@ -67950,13 +67950,13 @@ FURTHER DETAILS (f2cl-lib:sign one h)))) (return (values nil nil nil ssmin ssmax snr csr snl csl))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlaswp LAPACK} %\pagehead{dlaswp}{dlaswp} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlaswp.input} )set break resume )sys rm -f dlaswp.output )spool dlaswp.output @@ -67966,8 +67966,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlaswp.help} ==================================================================== dlaswp examples ==================================================================== @@ -68021,9 +68021,9 @@ ARGUMENTS The increment between successive values of IPIV. If IPIV is negative, the pivots are applied in reverse order. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlaswp} (defun dlaswp (n a lda k1 k2 ipiv incx) (declare (type (simple-array fixnum (*)) ipiv) (type (simple-array double-float (*)) a) @@ -68125,13 +68125,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dlasy2 LAPACK} %\pagehead{dlasy2}{dlasy2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dlasy2.input} )set break resume )sys rm -f dlasy2.output )spool dlasy2.output @@ -68141,8 +68141,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dlasy2.help} ==================================================================== dlasy2 examples ==================================================================== @@ -68234,9 +68234,9 @@ ARGUMENTS turbed to get a nonsingular equation. NOTE: In the interests of speed, this routine does not check the inputs for errors. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dlasy2} (let* ((zero 0.0) (one 1.0) (two 2.0) (half 0.5) (eight 8.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -68923,13 +68923,13 @@ ARGUMENTS xnorm info))))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorg2r LAPACK} %\pagehead{dorg2r}{dorg2r} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorg2r.input} )set break resume )sys rm -f dorg2r.output )spool dorg2r.output @@ -68939,8 +68939,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorg2r.help} ==================================================================== dorg2r examples ==================================================================== @@ -68999,9 +68999,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument has an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorg2r} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -69076,13 +69076,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorgbr LAPACK} %\pagehead{dorgbr}{dorgbr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorgbr.input} )set break resume )sys rm -f dorgbr.output )spool dorgbr.output @@ -69092,8 +69092,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorgbr.help} ==================================================================== dorgbr examples ==================================================================== @@ -69188,9 +69188,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorgbr} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -69377,13 +69377,13 @@ p (cond end_label (return (values nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorghr LAPACK} %\pagehead{dorghr}{dorghr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorghr.input} )set break resume )sys rm -f dorghr.output )spool dorghr.output @@ -69393,8 +69393,8 @@ p (cond )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorghr.help} ==================================================================== dorghr examples ==================================================================== @@ -69462,9 +69462,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorghr} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -69580,13 +69580,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorgl2 LAPACK} %\pagehead{dorgl2}{dorgl2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorgl2.input} )set break resume )sys rm -f dorgl2.output )spool dorgl2.output @@ -69596,8 +69596,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorgl2.help} ==================================================================== dorgl2 examples ==================================================================== @@ -69656,9 +69656,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument has an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorgl2} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -69746,13 +69746,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorglq LAPACK} %\pagehead{dorglq}{dorglq} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorglq.input} )set break resume )sys rm -f dorglq.output )spool dorglq.output @@ -69762,8 +69762,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorglq.help} ==================================================================== dorglq examples ==================================================================== @@ -69834,9 +69834,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument has an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorglq} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dorglq (m n k a lda tau work lwork info) @@ -69996,13 +69996,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorgqr LAPACK} %\pagehead{dorgqr}{dorgqr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorgqr.input} )set break resume )sys rm -f dorgqr.output )spool dorgqr.output @@ -70012,8 +70012,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorgqr.help} ==================================================================== dorgqr examples ==================================================================== @@ -70084,9 +70084,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument has an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorgqr} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dorgqr (m n k a lda tau work lwork info) @@ -70245,13 +70245,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorm2r LAPACK} %\pagehead{dorm2r}{dorm2r} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorm2r.input} )set break resume )sys rm -f dorm2r.output )spool dorm2r.output @@ -70261,8 +70261,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorm2r.help} ==================================================================== dorm2r examples ==================================================================== @@ -70348,9 +70348,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorm2r} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dorm2r (side trans m n k a lda tau c ldc work info) @@ -70439,13 +70439,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dormbr LAPACK} %\pagehead{dormbr}{dormbr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dormbr.input} )set break resume )sys rm -f dormbr.output )spool dormbr.output @@ -70455,8 +70455,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dormbr.help} ==================================================================== dormbr examples ==================================================================== @@ -70573,9 +70573,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dormbr} (defun dormbr (vect side trans m n k a lda tau c ldc work lwork info) (declare (type (simple-array double-float (*)) work c tau a) (type fixnum info lwork ldc lda k n m) @@ -70756,13 +70756,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil nil info))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dorml2 LAPACK} %\pagehead{dorml2}{dorml2} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dorml2.input} )set break resume )sys rm -f dorml2.output )spool dorml2.output @@ -70772,8 +70772,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dorml2.help} ==================================================================== dorml2 examples ==================================================================== @@ -70859,9 +70859,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dorml2} (let* ((one 1.0)) (declare (type (double-float 1.0 1.0) one)) (defun dorml2 (side trans m n k a lda tau c ldc work info) @@ -70950,13 +70950,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dormlq LAPACK} %\pagehead{dormlq}{dormlq} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dormlq.input} )set break resume )sys rm -f dormlq.output )spool dormlq.output @@ -70966,8 +70966,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dormlq.help} ==================================================================== dormlq examples ==================================================================== @@ -71064,9 +71064,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dormlq} (let* ((nbmax 64) (ldt (+ nbmax 1))) (declare (type (fixnum 64 64) nbmax) (type fixnum ldt)) @@ -71228,13 +71228,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dormqr LAPACK} %\pagehead{dormqr}{dormqr} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dormqr.input} )set break resume )sys rm -f dormqr.output )spool dormqr.output @@ -71244,8 +71244,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dormqr.help} ==================================================================== dormqr examples ==================================================================== @@ -71342,9 +71342,9 @@ ARGUMENTS = 0: successful exit < 0: if INFO = -i, the i-th argument had an illegal value -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dormqr} (let* ((nbmax 64) (ldt (+ nbmax 1))) (declare (type (fixnum 64 64) nbmax) (type fixnum ldt)) @@ -71498,13 +71498,13 @@ ARGUMENTS (return (values nil nil nil nil nil nil nil nil nil nil nil nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrevc LAPACK} %\pagehead{dtrevc}{dtrevc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrevc.input} )set break resume )sys rm -f dtrevc.output )spool dtrevc.output @@ -71514,8 +71514,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrevc.help} ==================================================================== dtrevc examples ==================================================================== @@ -71653,9 +71653,9 @@ FURTHER DETAILS has magnitude 1; here the magnitude of a complex number (x,y) is taken to be |x| + |y|. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dtrevc} (let* ((zero 0.0) (one 1.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one)) @@ -73601,13 +73601,13 @@ FURTHER DETAILS (return (values nil nil nil nil nil nil nil nil nil nil nil m nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrexc LAPACK} %\pagehead{dtrexc}{dtrexc} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrexc.input} )set break resume )sys rm -f dtrexc.output )spool dtrexc.output @@ -73617,8 +73617,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrexc.help} ==================================================================== dtrexc examples ==================================================================== @@ -73700,9 +73700,9 @@ ARGUMENTS and ILST points to the first row of the current position of the block being moved. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dtrexc} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun dtrexc (compq n t$ ldt q ldq ifst ilst work info) @@ -74030,13 +74030,13 @@ ARGUMENTS end_label (return (values nil nil nil nil nil nil ifst ilst nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{dtrsna LAPACK} %\pagehead{dtrsna}{dtrsna} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{dtrsna.input} )set break resume )sys rm -f dtrsna.output )spool dtrsna.output @@ -74046,8 +74046,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{dtrsna.help} ==================================================================== dtrsna examples ==================================================================== @@ -74220,9 +74220,9 @@ FURTHER DETAILS EPS * norm(T) / SEP(i) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK dtrsna} (let* ((zero 0.0) (one 1.0) (two 2.0)) (declare (type (double-float 0.0 0.0) zero) (type (double-float 1.0 1.0) one) @@ -74830,13 +74830,13 @@ FURTHER DETAILS nil info)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ieeeck LAPACK} %\pagehead{ieeeck}{ieeeck} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ieeeck.input} )set break resume )sys rm -f ieeeck.output )spool ieeeck.output @@ -74846,8 +74846,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ieeeck.help} ==================================================================== ieeeck examples ==================================================================== @@ -74895,9 +74895,9 @@ ARGUMENTS Return if we were only asked to check infinity arithmetic -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK ieeeck} (defun ieeeck (ispec zero one) (declare (type (single-float) one zero) (type fixnum ispec)) (prog ((nan1 0.0f0) (nan2 0.0f0) (nan3 0.0f0) (nan4 0.0f0) (nan5 0.0f0) @@ -74981,13 +74981,13 @@ ARGUMENTS end_label (return (values ieeeck nil nil nil)))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{ilaenv LAPACK} %\pagehead{ilaenv}{ilaenv} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{ilaenv.input} )set break resume )sys rm -f ilaenv.output )spool ilaenv.output @@ -74997,8 +74997,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{ilaenv.help} ==================================================================== ilaenv examples ==================================================================== @@ -75099,9 +75099,9 @@ FURTHER DETAILS IF( NB.LE.1 ) NB = MAX( 1, N ) -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK ilaenv} (defun ilaenv (ispec name opts n1 n2 n3 n4) (declare (type character opts name) (type fixnum n4 n3 n2 n1 ispec)) @@ -75546,13 +75546,13 @@ FURTHER DETAILS end_label (return (values ilaenv nil nil nil nil nil nil nil))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zlange LAPACK} %\pagehead{zlange}{zlange} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zlange.input} )set break resume )sys rm -f zlange.output )spool zlange.output @@ -75562,8 +75562,8 @@ FURTHER DETAILS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zlange.help} ==================================================================== zlange examples ==================================================================== @@ -75635,9 +75635,9 @@ ARGUMENTS where LWORK >= M when NORM = 'I'; otherwise, WORK is not refer- enced. -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK zlange} (let* ((one 1.0) (zero 0.0)) (declare (type (double-float 1.0 1.0) one) (type (double-float 0.0 0.0) zero)) @@ -75741,13 +75741,13 @@ ARGUMENTS (setf zlange value) (return (values zlange nil nil nil nil nil nil)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{zlassq LAPACK} %\pagehead{zlassq}{zlassq} %\pagepic{ps/v104algebraicfunction.ps}{AF}{1.00} -<>= +\begin{chunk}{zlassq.input} )set break resume )sys rm -f zlassq.output )spool zlassq.output @@ -75757,8 +75757,8 @@ ARGUMENTS )spool )lisp (bye) -@ -<>= +\end{chunk} +\begin{chunk}{zlassq.help} ==================================================================== zlassq examples ==================================================================== @@ -75819,9 +75819,9 @@ ARGUMENTS On entry, the value sumsq in the equation above. On exit, SUMSQ is overwritten with the value ssq . -@ +\end{chunk} -<>= +\begin{chunk}{LAPACK zlassq} (let* ((zero 0.0)) (declare (type (double-float 0.0 0.0) zero)) (defun zlassq (n x incx scale sumsq) @@ -75869,191 +75869,191 @@ ARGUMENTS (setf sumsq (+ sumsq (expt (/ temp1 scale) 2))))))))))) (return (values nil nil nil scale sumsq)))))) -@ +\end{chunk} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \chapter{Chunk collections} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -<>= +\begin{chunk}{Numerics} (in-package "BOOT") -<> -<> -<> -<> -@ -<>= -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> -<> - -@ +\getchunk{BLAS dcabs1} +\getchunk{BLAS 1 dasum} +\getchunk{BLAS 1 daxpy} +\getchunk{BLAS 1 dcopy} +\end{chunk} +\begin{chunk}{untested} +\getchunk{BLAS lsame} +\getchunk{BLAS xerbla} + +\getchunk{BLAS 1 ddot} +\getchunk{BLAS 1 dnrm2} +\getchunk{BLAS 1 drotg} +\getchunk{BLAS 1 drot} +\getchunk{BLAS 1 dscal} +\getchunk{BLAS 1 dswap} +\getchunk{BLAS 1 dzasum} +\getchunk{BLAS 1 dznrm2} +\getchunk{BLAS 1 icamax} +\getchunk{BLAS 1 idamax} +\getchunk{BLAS 1 isamax} +\getchunk{BLAS 1 izamax} +\getchunk{BLAS 1 zaxpy} +\getchunk{BLAS 1 zcopy} +\getchunk{BLAS 1 zdotc} +\getchunk{BLAS 1 zdotu} +\getchunk{BLAS 1 zdscal} +\getchunk{BLAS 1 zrotg} +\getchunk{BLAS 1 zscal} +\getchunk{BLAS 1 zswap} + +\getchunk{BLAS 2 dgbmv} +\getchunk{BLAS 2 dgemv} +\getchunk{BLAS 2 dger} +\getchunk{BLAS 2 dsbmv} +\getchunk{BLAS 2 dspmv} +\getchunk{BLAS 2 dspr2} +\getchunk{BLAS 2 dspr} +\getchunk{BLAS 2 dsymv} +\getchunk{BLAS 2 dsyr2} +\getchunk{BLAS 2 dsyr} +\getchunk{BLAS 2 dtbmv} +\getchunk{BLAS 2 dtbsv} +\getchunk{BLAS 2 dtpmv} +\getchunk{BLAS 2 dtpsv} +\getchunk{BLAS 2 dtrmv} +\getchunk{BLAS 2 dtrsv} +\getchunk{BLAS 2 zgbmv} +\getchunk{BLAS 2 zgemv} +\getchunk{BLAS 2 zgerc} +\getchunk{BLAS 2 zgeru} +\getchunk{BLAS 2 zhbmv} +\getchunk{BLAS 2 zhemv} +\getchunk{BLAS 2 zher2} +\getchunk{BLAS 2 zher} +\getchunk{BLAS 2 zhpmv} +\getchunk{BLAS 2 zhpr2} +\getchunk{BLAS 2 zhpr} +\getchunk{BLAS 2 ztbmv} +\getchunk{BLAS 2 ztbsv} +\getchunk{BLAS 2 ztpmv} +\getchunk{BLAS 2 ztpsv} +\getchunk{BLAS 2 ztrmv} +\getchunk{BLAS 2 ztrsv} + +\getchunk{BLAS 3 dgemm} +\getchunk{BLAS 3 dsymm} +\getchunk{BLAS 3 dsyr2k} +\getchunk{BLAS 3 dsyrk} +\getchunk{BLAS 3 dtrmm} +\getchunk{BLAS 3 dtrsm} +\getchunk{BLAS 3 zgemm} +\getchunk{BLAS 3 zhemm} +\getchunk{BLAS 3 zher2k} +\getchunk{BLAS 3 zherk} +\getchunk{BLAS 3 zsymm} +\getchunk{BLAS 3 zsyr2k} +\getchunk{BLAS 3 zsyrk} +\getchunk{BLAS 3 ztrmm} +\getchunk{BLAS 3 ztrsm} + +\getchunk{LAPACK dbdsdc} +\getchunk{LAPACK dbdsqr} +\getchunk{LAPACK ddisna} +\getchunk{LAPACK dgebak} +\getchunk{LAPACK dgebal} +\getchunk{LAPACK dgebd2} +\getchunk{LAPACK dgebrd} +\getchunk{LAPACK dgeev} +\getchunk{LAPACK dgeevx} +\getchunk{LAPACK dgehd2} +\getchunk{LAPACK dgehrd} +\getchunk{LAPACK dgelq2} +\getchunk{LAPACK dgelqf} +\getchunk{LAPACK dgeqr2} +\getchunk{LAPACK dgeqrf} +\getchunk{LAPACK dgesdd} +\getchunk{LAPACK dgesvd} +\getchunk{LAPACK dgesv} +\getchunk{LAPACK dgetf2} +\getchunk{LAPACK dgetrf} +\getchunk{LAPACK dgetrs} +\getchunk{LAPACK dhseqr} +\getchunk{LAPACK dlabad} +\getchunk{LAPACK dlabrd} +\getchunk{LAPACK dlacon} +\getchunk{LAPACK dlacpy} +\getchunk{LAPACK dladiv} +\getchunk{LAPACK dlaed6} +\getchunk{LAPACK dlaexc} +\getchunk{LAPACK dlahqr} +\getchunk{LAPACK dlahrd} +\getchunk{LAPACK dlaln2} +\getchunk{LAPACK dlamch} +\getchunk{LAPACK dlamc1} +\getchunk{LAPACK dlamc2} +\getchunk{LAPACK dlamc3} +\getchunk{LAPACK dlamc4} +\getchunk{LAPACK dlamc5} +\getchunk{LAPACK dlamrg} +\getchunk{LAPACK dlange} +\getchunk{LAPACK dlanhs} +\getchunk{LAPACK dlanst} +\getchunk{LAPACK dlanv2} +\getchunk{LAPACK dlapy2} +\getchunk{LAPACK dlaqtr} +\getchunk{LAPACK dlarfb} +\getchunk{LAPACK dlarfg} +\getchunk{LAPACK dlarf} +\getchunk{LAPACK dlarft} +\getchunk{LAPACK dlarfx} +\getchunk{LAPACK dlartg} +\getchunk{LAPACK dlas2} +\getchunk{LAPACK dlascl} +\getchunk{LAPACK dlasd0} +\getchunk{LAPACK dlasd1} +\getchunk{LAPACK dlasd2} +\getchunk{LAPACK dlasd3} +\getchunk{LAPACK dlasd4} +\getchunk{LAPACK dlasd5} +\getchunk{LAPACK dlasd6} +\getchunk{LAPACK dlasd7} +\getchunk{LAPACK dlasd8} +\getchunk{LAPACK dlasda} +\getchunk{LAPACK dlasdq} +\getchunk{LAPACK dlasdt} +\getchunk{LAPACK dlaset} +\getchunk{LAPACK dlasq1} +\getchunk{LAPACK dlasq2} +\getchunk{LAPACK dlasq3} +\getchunk{LAPACK dlasq4} +\getchunk{LAPACK dlasq5} +\getchunk{LAPACK dlasq6} +\getchunk{LAPACK dlasr} +\getchunk{LAPACK dlasrt} +\getchunk{LAPACK dlassq} +\getchunk{LAPACK dlasv2} +\getchunk{LAPACK dlaswp} +\getchunk{LAPACK dlasy2} +\getchunk{LAPACK dorg2r} +\getchunk{LAPACK dorgbr} +\getchunk{LAPACK dorghr} +\getchunk{LAPACK dorgl2} +\getchunk{LAPACK dorglq} +\getchunk{LAPACK dorgqr} +\getchunk{LAPACK dorm2r} +\getchunk{LAPACK dormbr} +\getchunk{LAPACK dorml2} +\getchunk{LAPACK dormlq} +\getchunk{LAPACK dormqr} +\getchunk{LAPACK dtrevc} +\getchunk{LAPACK dtrexc} +\getchunk{LAPACK dtrsna} +\getchunk{LAPACK ieeeck} +\getchunk{LAPACK ilaenv} +\getchunk{LAPACK zlange} +\getchunk{LAPACK zlassq} + +\end{chunk} \begin{thebibliography}{99} \bibitem{1} documentation source \verb|ftp://ftp.netlib.org/lapack/manpages.tgz| diff --git a/books/bookvol5.pamphlet b/books/bookvol5.pamphlet index fe31732..ebd976a 100644 --- a/books/bookvol5.pamphlet +++ b/books/bookvol5.pamphlet @@ -34915,8 +34915,8 @@ searchCurrentEnv(x,currentEnv) == (declare (special debugmode)) (bumperrorcount '|syntax|) (cond ((and (eq debugmode 'yes) (not(consoleinputp in-stream))) - (spad_long_error)) - ((spad_short_error))) + (spad-long-error)) + ((spad-short-error))) (ioclear) (throw 'spad_reader nil)) diff --git a/changelog b/changelog index 34b2a67..b8feda5 100644 --- a/changelog +++ b/changelog @@ -1,3 +1,12 @@ +20111009 tpd src/axiom-website/patches.html 20111009.01.tpd.patch +20111009 tpd src/interp/Makefile remove noweb, move to lisp tangle +20111009 tpd src/algebra/Makefile remove noweb, move to lisp tangle +20111009 tpd books/Makefile remove noweb, move to lisp tangle +20111009 tpd books/bookvol5 remove noweb, move to lisp tangle +20111009 tpd books/bookvol10.5 remove noweb, move to lisp tangle +20111009 tpd books/bookvol10.4 remove noweb, move to lisp tangle +20111009 tpd books/bookvol10.3 remove noweb, move to lisp tangle +20111009 tpd books/bookvol10.2 remove noweb, move to lisp tangle 20111008 tpd src/axiom-website/patches.html 20111008.01.tpd.patch 20111008 tpd src/interp/nrunopt.lisp treeshake compiler 20111008 tpd src/interp/nruncomp.lisp treeshake compiler diff --git a/src/algebra/Makefile.pamphlet b/src/algebra/Makefile.pamphlet index 62625b9..61a0c87 100644 --- a/src/algebra/Makefile.pamphlet +++ b/src/algebra/Makefile.pamphlet @@ -17064,6 +17064,7 @@ DOC=${MNT}/${SYS}/doc/src/algebra OUTSRC=${MNT}/${SYS}/src/algebra INPUT=${INT}/input LISP=${OBJ}/${SYS}/bin/lisp +LISPTANGLE=${OBJ}/${SYS}/bin/lisp BOOKSRC=${SPD}/books/bookvol5.pamphlet @ @@ -17324,22 +17325,23 @@ means that the pattern is an extended regular expression) because extended regular expressions allows the use of alternatives written as (domain|package|category). Thus the command \begin{verbatim} - grep -E '@<<(domain|package|category) .*>>=' *.pamphlet + grep -E '\\begin{chunk}{(domain|package|category)\ .*}' *.pamphlet \end{verbatim} will scan the algebra files looking for special chunknames. Axiom's chunk names are written in a stylized form so that each algebra chunk name begins with one of those three symbols. Thus in bookvol10.3.pamphlet the LexTriangularPackage chunkname is: \begin{verbatim} -@<> + begin{chunk}{package LEXTRIPK LexTriangularPackage} \end{verbatim} so this grep will generate an output line, prefixed by the filename that looks like: \begin{verbatim} -bookvol10.3.pamphlet:@<>= +bookvol10.3.pamphlet:begin{chunk}{package LEXTRIPK LexTriangularPackage} \end{verbatim} There can be many lines of output per pamphlet file, one for each domain, package and category cod chunk contained in the file. +The results are sorted and made unique. Step 2 is an awk command line. @@ -17347,18 +17349,44 @@ Step 2 is an awk command line. <>= -grep -E '@<<(domain|package|category) .*>>=' *.pamphlet | sort | uniq | \ -awk -F: '{ - chunk=substr($2,3,length($2)-5); +grep -E 'begin{chunk}{category\ .*}' bookvol10.2.pamphlet | sort | uniq | awk -F: '{ + chunk=substr($1,15,length($1)-15); + split(chunk,part," "); + spadfile="${MID}/"part[2]".spad"; + print spadfile": ${IN}/bookvol10.2.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.2.pamphlet\" \""chunk"\" \""part[2]".spad\"\)\x27 | ${LISPTANGLE} "; + print ""; +}' + +grep -E 'begin{chunk}{domain\ .*}' bookvol10.3.pamphlet | sort | uniq | awk -F: '{ + chunk=substr($1,15,length($1)-15); split(chunk,part," "); spadfile="${MID}/"part[2]".spad"; - print spadfile": ${IN}/"$1; - print "\t@${TANGLE} -R\""chunk"\" ${IN}/"$1">"spadfile; + print spadfile": ${IN}/bookvol10.3.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.3.pamphlet\" \""chunk"\" \""part[2]".spad\"\)\x27 | ${LISPTANGLE} "; + print ""; +}' + +grep -E 'begin{chunk}{package\ .*}' bookvol10.4.pamphlet | sort | uniq | awk -F: '{ + chunk=substr($1,15,length($1)-15); + split(chunk,part," "); + spadfile="${MID}/"part[2]".spad"; + print spadfile": ${IN}/bookvol10.4.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.4.pamphlet\" \""chunk"\" \""part[2]".spad\"\)\x27 | ${LISPTANGLE} "; + print ""; +}' + +grep -E 'begin{chunk}{package\ .*}' bookvol10.5.pamphlet | sort | uniq | awk -F: '{ + chunk=substr($1,15,length($1)-15); + split(chunk,part," "); + spadfile="${MID}/"part[2]".spad"; + print spadfile": ${IN}/bookvol10.5.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.5.pamphlet\" \""chunk"\" \""part[2]".spad\"\)\x27 | ${LISPTANGLE} "; print ""; }' @ -[awk] processes each line of the grep output. +awk processes each line of the grep output. The awk script uses ``-F:'' which is a flag that says that a ``:'' is the field separator. As a result the \$1 and \$2 in the awk script @@ -17366,7 +17394,8 @@ refer to the parts of the grep output that come before and after the ``:'' respectively. The variable ``chunk'' is assigned the actual chunk name minus -the @<< and >>= delimiters. In the example given above this will become +the '\verb|\begin{chunk}{|' and '\verb|}|' delimiters. +In the example given above this will become \begin{verbatim} package LEXTRIPK LexTriangularPackage \end{verbatim} @@ -17393,14 +17422,14 @@ the case above this would resolve to \verb|\${MID}/LEXTRIPK.spad|. For the line given above it outputs the following: \begin{verbatim} ${MID}/LEXTRIPK.spad: ${IN}/bookvol10.3.pamphlet - ${TANGLE} -R"package LEXTRIPK LexTriangularPackage" ${IN}/bookvol10.3.pamphlet > ${MID}/LEXTRIPK.spad + echo '(tangle "bookvol10.4.pamphlet" "package LEXTRIPK LexTrianglularPackage" "LEXTRIPK.spad")' | ${LISPTANGLE} \end{verbatim} \subsection{Find the algebra bootstrap code} Step 3 works like step 1 above except that we are looking for chunk names that have the "BOOTSTRAP" string. The output will look like: \begin{verbatim} -bookvol10.3.pamphlet:@<>= +bookvol10.3.pamphlet:begin{chunk}{VECTOR.lsp BOOTSTRAP} \end{verbatim} This output, which can consist of many lines per input file is piped into ``awk''. @@ -17410,13 +17439,23 @@ For each of the above output lines we run an ``grep'' command: <>= -grep -E '@<<.*BOOTSTRAP>>=' *.pamphlet | sort | uniq | \ +grep 'begin{chunk}{.*BOOTSTRAP}' bookvol10.2.pamphlet | sort | uniq | \ awk -F: '{ - chunk=substr($2,3,length($2)-5); + chunk=substr($1,15,length($1)-15); split(chunk,part," "); lspfile="${MID}/"part[1]; - print lspfile": ${IN}/"$1; - print "\t@${TANGLE} -R\""chunk"\" ${IN}/"$1">"lspfile; + print lspfile": ${IN}/bookvol10.2.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.2.pamphlet\" \""chunk"\" \""lspfile"\"\)\x27 | ${LISPTANGLE} "; + print ""; +}' + +grep 'begin{chunk}{.*BOOTSTRAP}' bookvol10.3.pamphlet | sort | uniq | \ +awk -F: '{ + chunk=substr($1,15,length($1)-15); + split(chunk,part," "); + lspfile="${MID}/"part[1]; + print lspfile": ${IN}/bookvol10.3.pamphlet"; + print " @echo \x27\(tangle \"${IN}/bookvol10.3.pamphlet\" \""chunk"\" \""lspfile"\"\)\x27 | ${LISPTANGLE} "; print ""; }' @@ -17435,14 +17474,14 @@ ${MID}/VECTOR.lsp Finally we output two lines: \begin{verbatim} ${MID}/vector.spad.pamphlet: ${IN}/bookvol10.3.pamphlet - ${TANGLE} -R"VECTOR.lsp BOOTSTRAP" ${IN}/bookvol10.3.pamphlet >${MID}/VECTOR.lsp + @echo '(tangle "${IN}/bookvol10.4.pamphlet" "VECTOR.lsp BOOTSTRAP" "VECTOR.lsp")' | ${LISPTANGLE} \end{verbatim} The first line is the stanza head and creates a dependence between the intermediate file, in this case int/algebra/VECTOR.lsp and the input file src/algebra/vector.spad.pamphlet -The second line calls ``notangle'' to extract the required chunk +The second line calls the lisp ``tangle'' to extract the required chunk from the source file. \section{Stage markers} @@ -18409,6 +18448,7 @@ src: ${ORDER} clean: @echo src/algebra cleaned + @ \eject \begin{thebibliography}{99} diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html index ea43c66..136fcb1 100644 --- a/src/axiom-website/patches.html +++ b/src/axiom-website/patches.html @@ -3652,5 +3652,7 @@ src/axiom-website/download.html update to latest release
src/axiom-website/documentation.html bold quote
20111008.01.tpd.patch books/bookvol9 treeshake compiler
+20111009.01.tpd.patch +books/bookvol10.* remove noweb, move to lisp tangle
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet index c61d8aa..f63a91d 100644 --- a/src/interp/Makefile.pamphlet +++ b/src/interp/Makefile.pamphlet @@ -66,6 +66,13 @@ LISPSYS= ${OBJ}/${SYS}/bin/lisp @ +We need to extract the Numerics chunk from bookvol10.5. We do +this using the tangle function in the lisp image. +<>= +LISPTANGLE= ${OBJ}/${SYS}/bin/lisp + +@ + Most of the interpreter is written in {\bf boot} \cite{2}. Thus we need a program to translate {\bf boot} to Common Lisp. This is called the {\bf BOOTSYS} image (because the @@ -2105,8 +2112,7 @@ ${OUT}/bookvol10.5.${LISP}: ${MID}/bookvol10.5.${LISP} ${MID}/bookvol10.5.${LISP}: ${IN}/bookvol10.5.pamphlet @ echo 298 making ${MID}/bookvol10.5.${LISP} from ${IN}/bookvol10.5.pamphlet @ (cd ${MID} ; \ - ${TANGLE} -RNumerics ${IN}/bookvol10.5.pamphlet \ - >bookvol10.5.${LISP} ) +echo '(tangle "${IN}/bookvol10.5.pamphlet" "Numerics" "bookvol10.5.${LISP}")' | ${LISPTANGLE} ) @ \subsection{i-intern.lisp}