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 SetO